FiveTech Support Forums

STATIC FUNCTION Imprimelo()
    LOCAL oReporte
    LOCAL oFont1,oFont2,oFont3
    LOCAL oPen1,oPen2
    LOCAL cTitulo   := "Hoja de roll"

    LOCAL nLinea        := 1
    LOCAL nHasta        := oRsBit:RecordCount()
    LOCAL nBookMark := oRsBit:BookMark

    DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-9
    DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-9 BOLD
    DEFINE FONT oFont3 NAME "ARIAL" SIZE 0,-11 BOLD

    DEFINE PEN oPen1 WIDTH 3 COLOR CLR_HBLUE
    DEFINE PEN oPen2 WIDTH 1 COLOR CLR_HMAGENTA

    oRsBit:MoveFirst()

    REPORT oReporte CAPTION cTitulo PREVIEW ;
        HEADER ALLTRIM(oApp:cRazonSocial),;
        Date2Txt(dFecIni) + "-" + Date2Txt(dFecFin),;
        cTitulo CENTER;
        TITLE "Fecha: "+Date2Txt(DATE()),;
        "Hoja No:"+STR(oReporte:nPage,3);
        FONT oFont1,oFont2,oFont3;
        PEN open1,oPen2

        COLUMN TITLE "Viaje"        DATA oRsBit:Fields("BIT_BIT"):Value                     SIZE  5 RIGHT PICTURE "@Z 9999999"
        COLUMN TITLE "Planta"   DATA oRsBit:Fields("PLA_DES"):Value                     SIZE 15 LEFT
        COLUMN TITLE "Destino"  DATA oRsBit:Fields("PRO_NOM"):Value                     SIZE 20 LEFT
        COLUMN TITLE "Operador" DATA oRsBit:Fields("CHO_NOM"):Value                     SIZE 20 LEFT
        COLUMN TITLE "Unidad"   DATA oRsBit:Fields("UNI_PLA"):Value                     SIZE 10 LEFT
        COLUMN TITLE "Material" DATA oRsBit:Fields("MAT_DES"):Value                     SIZE 20 LEFT
        COLUMN TITLE "Mts3"     DATA oRsBit:Fields("BIT_CTD"):Value                     SIZE  4 RIGHT PICTURE "@Z 999,999"
        COLUMN TITLE "Folio"        DATA oRsBit:Fields("BIT_FDC"):Value                     SIZE  6 RIGHT PICTURE "@Z 999,999"
        COLUMN TITLE "Diesel"   DATA oRsBit:Fields("BIT_DIE"):Value                     SIZE  6 RIGHT PICTURE "@Z 999"
        COLUMN TITLE "Can"      DATA IIF(oRsBit:Fields("BIT_CAN"):Value,"Sí","")   SIZE  3 LEFT
    END REPORT

    IF oReporte:lCreated
        oReporte:SetTxtColor(CLR_BLACK,1)   // Color del texto de la hoja default NEGRO
        oReporte:SetTxtColor(CLR_HRED,2)        // Color de encabezado y totales del grupo
        oReporte:SetTxtColor(CLR_HRED,3)        // Color para el primer titulo del encabezado
        oReporte:SetPenColor(CLR_HBLUE)     // Color para las líneas
        oReporte:SetShdColor(CLR_YELLOW)        // Color para el sombreado
        oReporte:oHeader:aFont[1] := {||3}
        oReporte:oHeader:aFont[2] := {||3}

        oReporte:oHeader:aPad[2] := RPT_RIGHT

        oReporte:oTitle:aPad[1] := RPT_LEFT
        oReporte:oTitle:aPad[2] := RPT_RIGHT

        oReporte:nTopMargin     := 300
        oReporte:nDnMargin      := 300
      oReporte:bInit          := { || oRsBit:MoveFirst() }
       oReporte:bSkip          := { || (nLinea++, oRsBit:MoveNext())}
    ENDIF

   ACTIVATE REPORT oReporte ;
        ON STARTPAGE Alinea(oReporte,1,2);
        ON END oRsBit:BookMark := nBookMark;
      WHILE nLinea <= nHasta

    oFont1:Release()
    oFont2:Release()
    oFont3:Release()
    oPen1:Release()
    oPen2:Release()
RETURN(.T.)

      oReporte:bInit          := { || oRsBit:MoveFirst() }

      oReporte:bInit          := { || nLiniea := 1, oRsBit:MoveFirst() }