FiveTech Software tech support forums

Code: Select all

PRINT oPrn title cTitulo
oPrn:setup()
oPrn:SetPage(9)
DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,14 BOLD UNDERLINE of oPrn
DEFINE FONT oFont NAME "ARIAL" SIZE 0,12 BOLD of oPrn
DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,12 BOLD UNDERLINE of oPrn

//PAGEBEGIN()

PAGE
do

oPrn:CmSay(nrow :=sumlinea(nrow,1.6),5.9,"Retención de Ingresos Brutos",oFont2,,,,0) 
oPrn:CmSay(nrow :=sumlinea(nrow,.4),6.3,cTitulo,oFont2,,,,0)
oPrn:CmSay(nrow := sumlinea(nrow, 1.2),1.5,"Fecha: " + dtoc(oVar:dfecha),oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,"Constancia N° " + valstr(oVar:nNbruto),oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.8),1.5,"QUÍMICA MEGA S.A.",oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,"Matanza 1453",oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,"Villa Domínico-Pcia. Buenos Aires",oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,"CUIT 30-65485547-8",oFont,,,,0)
oPrn:CmSay(nrow,12,"Agente de Retención: " + oApp:nroBruto,oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,1.2),1.5,("Rentenido a: " + aMae[2]),oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,("CUIT " + aMae[7]),oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,("Domicilio: " + alltrim(aMae[3]) + space(2) + alltrim(aMae[4])),oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,aMae[5],oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,"Número de IIBB: " + aMae[17],oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,"Pago efectuado: $" + transform(oVar:ntotalrecibo,"@e 99,999,999.99"),oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,"Importe retenido: $" + transform(oVar:nRetib,"@e 99,999,999.99"),oFont,,,,0)
oPrn:CmSay(nrow ,12,"Alícuota aplicada: %" +transform(oVar:nPorIB, "@e 99.99"),oFont,,,,0)
for x = 1 to len(oVar:adeta)
      if oVar:adeta[x,5] >= oApp:minibru
          oPrn:Cmsay(nrow := sumlinea(nrow,.4),1.5, ("Afecta a comprobante Nº " + oVar:adeta[x,2] + " Base Imp. " +;
                         transform(oVar:adeta[x,5],"@e 999,999.99")),oFont,,,,0)
      endif
next
oPrn:CmSay(nrow :=sumlinea(nrow,1.2),1.5,"Importe que será depositado por declaración jurada correspondiente al mes de",oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),5.5, cmonth(oVar:dfecha) + " de " + valstr(year(oVar:dFecha)),oFont,,,,0)

z++
nrow += 1.2

until z = 2

//PAGEEND()

ENDPAGE

ENDPRINT


oFont:end()
oFont1:end()
oFont2:end()

cierroalias(alias())

Code: Select all

oPrn:CmBox( 1.5,.5,2.5,20.5 )
oPrn:CmSay(nrow :=sumlinea(nrow,1.6),5.9,"Retención de Ingresos Brutos",oFont2,,,,0)