# REPORTE FACTURA SERIE 002
<config>
AutoEject=No
PaperLenght=36
TopMargin=0
LeftMargin=0
EjectAfterTitle=No
EjectBeforeSummary=No
NewPageConfString="$C10$$CON$$EOFF$$POFF$$LON$$BOFF$"
</config>

<macros>
#...........CABECERA
IC1=CODPER
IC2=PADL(ALLTRIM(STR(HOUR(FECHA),2,0)),2,"0")+":"+PADL(ALLTRIM(STR(MINU(FECHA),2,0)),2,"0")
IC3=CLIENTE
IC4=DIRECCION
IC5=IIF(MONEDA="1","S/.","US$")+ALLTRIM(TRANS(TOTAL,"9,999,999.99"))
IC6=FECHA
IC7=NRUC
IC8=IIF(TIP_DOC='01','F','B')+"-"+SERIE_DOC+"-"+NUM_DOC
IC9=IIF(TIPO="1","",IIF(TIPO="2","CRED:"+NUMDEU,""))
IC10 = IIF(EMPTY(ORDCOM),'',"OC : "+ALLTRIM(ORDCOM))
IC11 = "A:"+ALLTRIM(STR(COD_ALMA,4,0))
#...........DETALLE
DD1=@NUMER(CANT)
ID2=UNIDAD
ID3=DETALLE
DD4=@VACIO(PU,15,2)
DD5=IIF(DCTO=0,'',TRANS(DCTO,"999"))
DD6=@VACIO(SUBTOT,15,2)
ID7=UBICA
#............PIE
IP1="FIRMA :                               DNI : "
DP2=@VACIO(VVENTA,15,2)
DP3=@VACIO(IGV,15,2)
DP4=IIF(MONEDA="1","S/.","US$")+ALLTRIM(TRANS(PVENTA,"9,999,999.99"))
IP5=IIF(PERCEP=0,'','TOTAL INCLUYE PERCEPCION: S/. '+TRANS(TOTAL,"9,999,999.99")+'    "COMPROBANTE DE PERCEPCION VENTA INTERNA"')
IP6=IIF(PERCEP=0,'','PERCEPCION '+STR(PERCEP/TOTAL*100,3,1)+'%         : S/. '+TRANS(PERCEP,"9,999,999.99"))
IP7=_SUM[IPERCEP;NUM_DOC]
IP8=IIF(IP7=0,REPLI("=",120),IIF(CEXON=1,PADC('',120,'='),IIF(CPERCEP=1,PADC('AGENTE DE PERCEPCION',120,'='),IIF(CRETEN=1,PADC('AGENTE DE RETENCION',120,'='),REPLI("=",120)))))
IP9=_MAX[DCTO;NUM_DOC]
IP10=IIF(IP9=100,'100% Dcto. bonif. no afecta al I.G.V. Reglam. Art 2, Num 3,Par. 3','')
DP11=_SUM[CANT*PESO;NUM_DOC]
BAR=chr(27)+chr(40)+chr(66)+chr(18)+chr(0)+chr(0)+chr(2)+chr(0)+chr(18)+chr(0)+chr(3)+subs(tip_doc,2,1)+subs(serie_doc,2,3)+num_doc+"1"
</macros>

<groups>
G1=NUM_DOC | G1HDR | G1FTR
</groups>

<title>
</title>

<header>
                                                                                           	
            [IC11]  [IC1]  [IC2]      
				                               $DON$[IC5         ]$DOFF$
               [IC3                                                     ]                      
               [IC4                                                              ]                 $DON$[IC8          ]$DOFF$
               [IC6     ]                  [IC7         ]    [IC10       ] [IC9       ]%BAR%         


				
</header>


<detail>
[DD1    ]      [ID2 ]   [ID3                                                         ]    [ID7  ] [DD4        ] [DD5 ] [DD6         ]
</detail>


<g1ftr>
    %PON%%IP8%%POFF% 
    %IP10%   
</g1ftr>


<footer>
         %IP5%
         [IP6                                                ]
  
                                               [IP1                                                        ]


                                                                                                                    [DP4           ] 
         


 
</footer>

<summary>
</summary>