FiveTech Support Forums

    REPORT oReporte CAPTION cTitulo PREVIEW ;
        HEADER ALLTRIM(oApp:cRazonSocial),;
        "",;
        cTitulo,;
      "",;
      "",;
      oVar:CLI,;
      oVar:PRO + " " + oVar:DES,;
      "Facturado: " + Transform(oVar:FAC,"@Z 999,999,999.99"),;
      "Folios: " + oVar:FOL CENTER;
        TITLE "Fecha: "+Date2Txt(DATE()),;
        "Página:"+STR(oReporte:nPage,3);
        FONT oFont1,oFont2,oFont3;
        PEN oPen1,oPen2

        COLUMN TITLE "Concepto"       DATA Left(oRsCie:Fields("CIE_DES"):Value,70) SIZE 60 Left // GRID
        COLUMN TITLE "Presupuesto"    DATA oRsCie:Fields("CIE_PRE"):Value SIZE 12 RIGHT PICTURE "@Z 999,999,999.99" TOTAL
        COLUMN TITLE "Gastado S/Iva"  DATA oRsCie:Fields("CIE_GAS"):Value SIZE 12 RIGHT PICTURE "@Z 999,999,999.99" TOTAL
        COLUMN TITLE "Diferencia"     DATA oRsCie:Fields("CIE_DIF"):Value SIZE 12 RIGHT PICTURE "@Z 999,999,999.99";
                                          FONT IIF(oRsCie:Fields("CIE_DIF"):Value > 0,1,2)
    END REPORT

COLUMN TITLE "DEBITOS  " ;
          DATA FIELD->MOVDEBE ;
          PICTURE "@Z 9,999,999,999.99" ;
          SIZE 12 ;
          TOTAL FOR substr(field->cuenta,2,3)=space(3) .and. empty(field->scuenta) ;
          GRID 1