FiveTech Software tech support forums

Code: Select all

 TELE0060->(DbSetOrder(3))
  TELE0060->(dbSeek(vDataini))
  
   DO WHILE TELE0060->(!eof()) .AND. TELE0060->A_DTPED_60 >= vDataini .and. TELE0060->A_DTPED_60 <= vDataFin
     IF TELE0060->A_STATUS60 == 'C'
       TELE0060->(dbSkip())
       Loop
     ENDIF
     
     aadd(a_show,{TELE0060->A_TOTAL_60, TELE0060->A_DESC__60, TELE0060->A_DESBAL60, TELE0060->A_VLRPRO60, TELE0060->A_TXENT_60,;
                    TELE0060->A_DTPED_60, TELE0060->DESC_DINHE})
     
  
     TELE0060->(dbSkip())
   ENDDO
   
   I:= 1 ; nHasta := LEN( a_show)  

 
   REPORT oReport ;
        TITLE OemToAnsi("*** RELATORIO DE VENDAS ***"),"Relatorio Interno","Referente a " + Dtoc(vDataIni) + space(1) +;
              OemToAnsi("ate") + space(1) + Dtoc(vDataFin),"","" CENTERED;
        FONT oFont1, oFont2, oFont3 ;
        HEADER "Data: " + Dtoc(date()) + "  " + time() CENTERED ;
        FOOTER OemToAnsi("Pagina: ")+str(oReport:nPage,3) CENTERED;
        PREVIEW
        
        
   
   COLUMN TITLE OemToAnsi("Num") ;
        DATA transform(I,'@E 999');
        SIZE 3

   COLUMN TITLE OemToAnsi("Data") ;
        DATA a_show[I,6]; 
        SIZE 10
       
            
   COLUMN TITLE "Faturamento" ;
        DATA  a_show[I,1]; 
        TOTAL
 
        
   COLUMN TITLE "Descontos" ;
        DATA  a_show[I,2]; 
        TOTAL
        
   COLUMN TITLE "Desc. Balcao" ;
        DATA  a_show[I,3]; 
        TOTAL
        
   COLUMN TITLE "Desc. Promo" ;
        DATA  a_show[I,4]; 
        TOTAL      
         
   COLUMN TITLE "Desc. Dinh." ;
        DATA  a_show[I,7]; 
        TOTAL      

   COLUMN TITLE "Taxa de Entrega" ;
        DATA  a_show[I,5]; 
        TOTAL;
        GRID
 
  
       
   GROUP ON a_show[6]; //esta es la fecha
          HEADER oReport:aGroups[1]:cValue;
          FOOTER "Pedidos: " + "[" + Alltrim(str(oReport:aGroups[1]:nCounter)) + "]"
   
 
 
 
   END REPORT 
  
  
   
   oReport:CellView()     //FORMA AS LINHAS VERTICAIS E HORIZ DAS CELDAS 
   oReport:bWhile      := { || I <= nHasta }
   oReport:bSkip       := { | | I++} 
   oReport:cGrandTotal := "Grand Total..."
   oReport:cPageTotal  := "Page Total..."
   
   oReport:oTitle:aFont[2] := {|| 2 } //1ra linha do titulo 
 

Code: Select all

function GroupedRepArray

   local aData, oRep, i, d

   aData    := { ;
      { Date() - 30, "Line-1", 1000 }, ;
      { Date() - 30, "Line-2", 1500 }, ;
      { Date(),      "Line-3", 2000 }, ;
      { Date(),      "Line-4", 2500 }  }

   i := 1

   REPORT oRep PREVIEW

   COLUMN TITLE "Date"   DATA aData[ i, 1 ]
   COLUMN TITLE "Text"   DATA aData[ i, 2 ]
   COLUMN TITLE "Amount" DATA aData[ i, 3 ] PICTURE "99,999.99" TOTAL

   GROUP ON aData[ i, 1 ] HEADER "Transactions : " + DTOC( d := aData[ i, 1 ] ) ;
      FOOTER "Totals for " + DTOC( d )

   END REPORT

   WITH OBJECT oRep
      :bWhile        := { || i <= Len( aData ) }
      :bSkip         := { || i++ }
   END

   ACTIVATE REPORT oRep

return nil