FoxPro/Visual FoxPro - traduccion urgente

   
Vista:

traduccion urgente

Publicado por jose leo (136 intervenciones) el 25/11/2008 18:41:44
Hola Recurro a su ayuda urgente si es posible que alguien me pueda traducir este codigo de clipper a foxpro?

!? Chr(27)+"G"
!? Chr(27)+"M"
!?
!?
!?
!?
!? Space(9)+Str(Day(FecFac),2)+" de "+Trim(Mes(Month(FecFac)))+" de "
!+ Str(Year(FecFac),4)
!? Space(9)+NomFac
!? Space(9)+DirFac+Space(18)+If(CodLin=="KARDEX",NumDoc,"")
!+ If(CodLin=="700000",NumDoc,"")
!?
!?
@@ Tran(Cantid,"9,999")
@@ Space(4)
@@ MemoLine(Glosa,nLonGlo,1)
@@ Space(5)
@@ Tran(If(TipoNR=="R".Or.cIncIgv=="N",PreUni,nUniSin),"99,999.99")+" "
@@ If(TipoNR=="R",Tran(nPreTot,"99,999.99"),Space(9))+" "
@@ If(TipoNR=="N",Tran(If(cIncIgv=="N",nPreTot,nTotSin),"99,999.99"),"")
#9
!?
!? Space(8)+"SON: "+Literal(Total,Moneda)
!? Chr(27)+"3"+Chr(20)
!? AboInt+Space(68)+Tran(TotReg,"99,999.99")+" "
!+ Tran(TotNot,"99,999.99")
!+ Chr(27)+"3"+Chr(58)
!? TipFac+"-"+SerFac+"-"+NumFac+Space(18)
!+ If(ForPag=="O".And.Saldo==0,Str(Day(FecFac),2)+" de ",Space(6))
!+ If(ForPag=="O".And.Saldo==0,Trim(Mes(Month(FecFac)))+" de ",Space(13))
!+ If(ForPag=="O".And.Saldo==0,Str(Year(FecFac),4),Space(4))+Chr(13)
!+ Space(84)+Tran(TotIGV,"99,999.99")
!? Space(74)+Tran(TotReg,"99,999.99")+" "+Tran(TotNot+TotIgv,"99,999.99")
!+ Chr(27)+"3"+Chr(68)
!? Space(84)+Tran(Total,"99,999.99")
!? Chr(27)+"2"+Chr(27)+"P"+Chr(27)+"H"
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder