PrnPortrait() //vertical
PrnSetSize(nAncho,nAlto) //2159,2790 tam carta //si omito estos trabaja bien, pero la bendita impresora "dice" que tam papel no disponible.
PrinterSetup(oPrn)
DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-09
DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-10 BOLD
DEFINE FONT oFont3 NAME "ARIAL" SIZE 0,-12 BOLD //ITALIC
DEFINE PEN oPen1 WIDTH 1 //grid 1 (espesor lineas marco)
DEFINE PEN oPen2 WIDTH 1 //grid 2
DBSELECTAREA(CDIARIO)
DBGOTOP()
REPORT oReport ;
TITLE;
" ",;
EMPRESA,;
MEMBRE,;
cModificado,; //control por si fue modificado
cComprob,;
if(!empty(nDocActual),"No. "+cNumero,) ,;
"FECHA: "+fechadordia(dFecha)," ",;
aConcepto[1],;
aConcepto[2],;
aConcepto[3],;
aConcepto[4],;
" ";
FONT oFont1,;
oFont2,;
oFont3 ;
PEN oPen1,;
oPen2 ;
HEADER dtoc(date())+" "+time(), OemtoAnsi("Pag: ")+str(oReport:nPage,3) RIGHT ;
FOOTER "Elaborado:____________________"+SPACE(10)+"Revisado:____________________"+SPACE(10)+"Autorizado:____________________"," "," ",;
dtoc(dFecha) CENTERED ;
CAPTION "C:\Comprob" ;
PREVIEW
COLUMN TITLE CentTitCol("CTA",16) ;
DATA (CDIARIO)->cuenta+" "+(CDIARIO)->scuenta+" "+(CDIARIO)->sscuenta+" "+(CDIARIO)->ssscuenta+" "+(CDIARIO)->sssscuenta ;
FONT IF((CDIARIO)->NV <> "S",2,1); // FONT IF((CDIARIO)->DEF = "M",2,1);
SIZE 14;
GRID 1
COLUMN TITLE CentTitCol("NOMBRE DE LA CUENTA",43) ; //" NOMBRE DE LA CUENTA" ;
DATA (CDIARIO)->NOMBRE ;
FONT IF((CDIARIO)->NV <> "S",2,1); // FONT IF((CDIARIO)->DEF = "M",2,1);
SIZE 37;
GRID 1
COLUMN TITLE "DEBITOS " ;
DATA (CDIARIO)->MOVDEBE ;
FONT IF((CDIARIO)->NV <> "S",2,1); // FONT IF((CDIARIO)->DEF = "M",2,1);
PICTURE "@Z 999,999,999.99" ;
SIZE 12 ;
TOTAL FOR (CDIARIO)->nv ="S" ;
GRID 1
COLUMN TITLE "CREDITOS " ;
DATA (CDIARIO)->MOVHABER ;
FONT IF((CDIARIO)->NV <> "S",2,1); // FONT IF((CDIARIO)->DEF = "M",2,1);
PICTURE "@Z 999,999,999.99" ;
SIZE 12 ;
TOTAL FOR (CDIARIO)->nv ="S" ;
GRID 1
END REPORT
IF oReport:lCreated
oReport:lBoxOnTotal:=.t.
//Bold para lineas 2,3,5,6 del titulo
oReport:oTitle:aFont[2] := {|| 3 }
oReport:oTitle:aFont[3] := {|| 3 }
oReport:oTitle:aFont[5] := {|| 2 }
oReport:oTitle:aFont[6] := {|| 2 }
oReport:oTitle:aPad[4] := PAD_LEFT //linea de cModificado a la izq
//linea sencilla p/ titulos\columnas y totales (p/defecto es doble)
oReport:nTitleUpLine := RPT_SINGLELINE
oReport:nTitleDnLine := RPT_SINGLELINE
oReport:nTotalLine := RPT_SINGLELINE
//Descriptores del Total
oReport:cGrandTotal := "*** TOTALES ***"
oReport:cPageTotal := "Sub-Totales..."
ENDIF
ACTIVATE REPORT oReport ;
ON STARTPAGE IconsEmp(oReport,"IcoEmpre.BMP")
// Cierra y elimina
oFont1:End()
oFont2:End()
oFont3:End()
oPen1:End()
oPen2:End()
(CDIARIO)->(DBCLOSEAREA())
DBSELECTAREA(cOLDSELE)
RETURN NIL
