de Clipper para ASP

[Marcelo da Silva Paula 0]

Galera to no desespero! Será que existe alguma boa alma que pode transportar este programa em clipper para asp? ** COB.PRG ** SET DATE BRIT SET DELE ON SET CENTURY ON pMeses:={'JANEIRO','FEVEREIRO','MARCO','ABRIL','MAIO','JUNHO',; 'JULHO','AGOSTO','SETEMBRO','OUTUBRO','NOVEMBRO','DEZEMBRO'} DO WHILE .T. CLEAR ? "1 ...... CONFIGURACAO" ? "2 .. TESTE DE POSICAO" ? "3 ......... IMPRESSAO" ? "4 ...... BOLETO LIVRE" ? "X ............. SAIDA" ACCEPT "OPCAO " TO mOPCAO DO CASE CASE mOPCAO=="X" EXIT CASE mOPCAO=="1" DO CONFIG CASE mOPCAO=="2" DO TSTPOS CASE mOPCAO=="3" DO PRTBOL CASE mOPCAO=="4" DO BOL_LIVR ENDCASE ENDDO RETURN Function MSG(fTEXTO,fBEEP) Local fCor:=SetColor() If fBEEP ?CHR(7) Endif Set Color to +W @ 24,0 @ 24,0 Say fTEXTO Set Color to Inkey(0) @ 24,0 SetColor(fCor) Return NIL Function QST(fTEXTO,fBEEP,fOPCOES) Local fOpcao,fCor:=SetColor(),GetList:={},fCursor:=SetCursor() fOpcao=' ' If fBEEP ?CHR(7) Endif Set Cursor On Set Color to +W @ 24,0 Do While .T. @ 24,0 Say fTEXTO Get fOpcao Pict '!' Read @ 24,0 If fOpcao$fOPCOES Exit Endif Enddo SetCursor(fCursor) SetColor(fCor) Return(fOpcao) // // FORMATACAO DE CAMPOS // Function Formata_(fCmp,fTipo) Local fRet:="",fAux:="" If Empty(fCmp) Return( fCmp ) Endif Do Case Case UPPER( fTipo ) = "CGC" fAux := Left(fCmp,2)+'.'+Subs(fCmp,3,3)+'.'+Subs(fCmp,6,3)+'/'+; Subs(fCmp,9,4)+'-'+Right(fCmp,2) Case UPPER( fTipo ) = "IE0" fAux := fCmp EndCase fRet := fAux Return( fRet ) Function GeraSenha(fCod, fMes, fAno) Local fRet,fCodCalc,fSubTrai,mNum1,mNum2,fNumCalc,fDig,fDir,fCoddd,fMesAntes fCodd := Val(fCod) + 65432 fCod := StrZero(fCodd,6) fCodCalc := Val(fCod) / Val(fMes) fSubTrai := Val(Subs(fCod,4,2)) mNum1 := ( Val( fCod + Left(fMes,2)) + ; Asc(Subs(pMeses[Val(fMes)],4,1)) ) ; * Val( Left(fAno,1) ) ; / Val( Right(fMes,4) ) fMesAntes := MesANTES_(fMes+"/"+fAno) fMes := Left(fMesAntes,2) fAno := Right(fMesAntes,4) mNum2 := ( Val( fCod + Left(fMes,2)) + ; Asc(Subs(pMeses[Val(fMes)],4,1)) ) ; * Val( Left(fAno,1) ) ; / Val( Right(fMes,4) ) fNumCalc := StrZero(Int( ((mNum1+mNum2+fCodCalc) * (Val(fAno)+Val(fMes)))-fSubtrai) ,11) fDig := StrZero( Abs(Val(Subs(fNumCalc,3,3)) - Val(fMes)),3) fDir := Right(Str(Val(fNumCalc)*Val(fDig)),4) fRet := fDir + "." + Subs(fNumCalc,5,3) + "." + ; Right(fNumCalc,4) + "-" + fDig Return( fRet ) // // RETORNA MES ANTERIOR MM/AA // Function MesANTES_(fMes) Local fRet:="",fAnoTemp,fMesTemp If Len(fMes)=5 If fMes=' / ' .Or. !ChkMes_(fMes,.T.) Return(fRet) Endif fMesTemp:=StrZero(IF(Val(Left(fMes,2))=1,12,Val(Left(fMes,2))-1),2) fAnoTemp:=StrZero(IF(Val(Left(fMes,2))=1,Val(Right(fMes,2))-1,Val(Right(fMes,2))),2) Else If fMes=' / ' .Or. !ChkMes_(fMes,.T.) Return(fRet) Endif fMesTemp:=StrZero(IF(Val(Left(fMes,2))=1,12,Val(Left(fMes,2))-1),2) fAnoTemp:=StrZero(IF(Val(Left(fMes,2))=1,Val(Right(fMes,4))-1,Val(Right(fMes,4))),4) Endif fRet := fMesTemp+'/'+fAnoTemp Return(fRet)

[sr.silva 1]

Amigo,

 

Por favor antes de postar qualquer coisa, verifique o lugar correto para o mesmo.

 

Tópico Movido

Artigo e Tutoriais http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP

[Marcelo da Silva Paula 0]

Desculpe! Sou novo por aqui e acabei me confundindo.

[sr.silva 1]

Olá Marcelo,Não esquenta, acontece com todo mundo. ;) ;) Apenas movi para o lugar correto, para ter maiores possibilidades de resposta!!Até!!

[WebASP 0]

Oque este sistema faz?

[smith 0]

Marcelo... você saca de Clipper ??? esse trecho de código que você postou só tem um menu e algumas funções... onde estão os fontes CONFIG, TSTPOS, PRTBOL e BOL_LIVR ???

[jothaz 1]

Qual a estrutura das tabelas/Na verdade o que você precisa??