FiveTech Software tech support forums

FranciscoA wrote:En vista de que este reporte se puede crear desde varios puntos del programa, voy a revisar la labla temporal creada desde cada uno de ellos a ver si encuentro discrepacias.

Code: Select all  Expand view

     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
 

artu01 wrote:Francisco
pasate a fastreport... yo estoy en ese proceso