PC Toledo

Código: Selecionar todos

FUNCTION Imprndiario(Arg1)
LOCAL oPrn, oFont, oTit1, oTit2, nCounter, mRecn, nPag, mLarg, oTot,;
   oCadDl4, oESdl5, mTtDsc, mTtTot, mTtBas, mTtIcm, SubKg, TotKg, SobVr, TotVr
   local oCadDl2, lOk
   local nRecNo := RecNo()

   STORE 0 TO mTtDsc, mTtTot, mTtBas, mTtIcm, SubKg, TotKg, SobVr, TotVr

nPag=0
nDiario=SPACE(5)
*  AARQ(29,.F.)
    SELECT LANCA

         DEFINE DIALOG oDlgMan                           ;  // Defini janela p/ interação com o cliente
           FROM  5,5 TO 20,50  TITLE "Livro Diário"

      @ 01, 01 Say "Nº do Diario"
      @ 02, 01 Say "Folha"

      @ 01,08 Get nDiario OF oDlgMan PICTURE "@"
      @ 02,08 Get nPag OF oDlgMan PICTURE "99999"

@90,35 BUTTON oCt04 PROMPT "Imprimir" SIZE 40, 14 PIXEL OF oDlgMan ACTION ( lSave := .T. , oDlgMan:End())
@90,79 BUTTON oCt05 PROMPT "Retonar"  SIZE 40, 14 PIXEL OF oDlgMan ACTION ( lSave := .F. , oDlgMan:End())


   ACTIVATE DIALOG oDlgMan CENTERED


   PRINTER oPrn NAME OemToAnsi("RELATORIO NOTAS FISCAIS ENTRADAS") PREVIEW
   DEFINE FONT oFont NAME "Arial" SIZE 0, -07 OF oPrn
   DEFINE FONT oFon2 NAME "Arial" SIZE 0, -08 OF oPrn
   DEFINE FONT oFon3 NAME "Arial" SIZE 0, -12 BOLD OF oPrn
   DEFINE FONT oFon4 NAME "Courier New" SIZE 0, -10 OF oPrn
   DEFINE PEN oPen COLOR CLR_BLACK WIDTH (oFont:nHeight/10)

   mRcNo := RECNO()
   nRow  := 03

   oTit2 :="________________________________________ _______ __________ ____________ _____ __________"
   *nPag  := 02
   mLarg := oFont:nHeight
   nTab  := oPrn:nHorzRes()/15
   nSpc  := (oPrn:nHorzRes()-(2*nTab)) / 90
   nCls  := {nTab+(nSpc*01),;
             nTab+(nSpc*35),;
             nTab+(nSpc*43),;
             nTab+(nSpc*68),;
             nTab+(nSpc*07.50) }


   CursorWait()
   oPrn:StartPage()
   *oPrn:Box(nRow*mLarg, nTab, oPrn:nVertRes()-(06*mLarg), oPrn:nHorzRes()-nTab, oPen )
   oPrn:Line(nRow*mLarg,nTab, nRow*mLarg,oPrn:nHorzRes()-nTab, oPen )
   nRow++
   oPrn:Say(nRow*mLarg, nCls[1], ("JC - JUDIVAN CONTABILIDADE"), oFon4 )
   nRow+=2
   oPrn:Say(nRow*mLarg, nCls[1],"EMPRESA:"+"  "+(razao), oFont )
   nRow+=1.50
   oPrn:Say(nRow*mLarg, nCls[1], "LIVRO DIARIO Nº.: "+(nDiario)+"        PERIODO: "+(M->REF_ALFA)+"                    FOLHA: "+STRZERO(nPag,6), oFon4 )
   nRow+=2

   oPrn:Line(nRow*mLarg,nTab, nRow*mLarg,oPrn:nHorzRes()-nTab, oPen )
   nRow++
   oPrn:Say(nRow*mLarg, nCls[1], OEMTOANSI(" Dia          Conta         Nomenclatura                              Valor                       Historico"), oFon2 )
   nRow+=1.50
   oPrn:Line(nRow*mLarg,nTab, nRow*mLarg,oPrn:nHorzRes()-nTab, oPen )
   nRow+=2
   wl=0
   nSubQtd := 0
   nSubVal := 0
   nTotVal := 0

WTOTAL_D=0.00
WTOTAL_C=0.00
WDIA_D=0.00
WDIA_C=0.00

DbSetOrder( 2 )
   Goto Top
   While (!EOF())
       WCODIGO=CODIGO
       WCONTA=CONTA
       WPERIODO=PERIODO
       WSINAL=S
       WHIST1=Trim(HIST1)
       WHIST2=Trim(HIST2)
       WHIST3=Trim(HIST3)
       WHIST4=Trim(HIST4)
       WVALOR=VALOR
     If WSINAL="D"
      oPrn:Say(nRow*mLarg, nCls[1],;
       +ALLTRIM(lanca->data)+"    "+;
       ALLTRIM(lanca->codigo)+"   "+;
       ALLTRIM(lanca->conta),oFont )
       oPrn:Say(nRow*mLarg, nCls[2],;
       Trans(lanca->valor,"@E 9,999,999.99"),oFont )
       WTOTAL_D=WTOTAL_D+VALOR
     Endif
     If S="C"
     oPrn:Say(nRow*mLarg, nCls[1],;
       +ALLTRIM(lanca->data)+"    "+;
       ALLTRIM(lanca->codigo)+"   "+;
       ALLTRIM(lanca->conta),oFont )
       oPrn:Say(nRow*mLarg, nCls[2],;
       Trans(lanca->valor,"@E 9,999,999.99"),oFont )
       WTOTAL_C=WTOTAL_C+VALOR
     Endif
       If Len(HIST1)<>0
       *nRow+=1
       oPrn:Say(nRow*mLarg, nCls[3],;
       ALLTRIM(lanca->hist1),oFont )
       Endif
       If Len(HIST2)<>0
       nRow+=1
       oPrn:Say(nRow*mLarg, nCls[3],;
       ALLTRIM(lanca->hist2),oFont )
      Endif
      If len(HIST3)<>0
      nRow+=1
      oPrn:Say(nRow*mLarg, nCls[3],;
       ALLTRIM(lanca->hist3),oFont )
      Endif
      If Len(HIST4)<>0
      nRow+=1
      oPrn:Say(nRow*mLarg, nCls[3],;
       ALLTRIM(lanca->hist4),oFont )
         Endif

                  WDIA_C=WDIA_C+VALOR
                  WDIA_D=WDIA_D+VALOR


      FOR nCol := 0 TO 89
          oPrn:Say(nRow*mLarg, nTab+(nSpc*nCol), "-", oFont)
      NEXT

      nRow++
      IF (nRow*mLarg) >= ( oPrn:nVertRes()-(8*mLarg) )

         oPrn:EndPage()
         oPrn:StartPage()
         nPag ++
        nRow := 3

   oPrn:Line(nRow*mLarg,nTab, nRow*mLarg,oPrn:nHorzRes()-nTab, oPen )
   nRow++
   oPrn:Say(nRow*mLarg, nCls[1], ("JC - JUDIVAN CONTABILIDADE"), oFon4 )
   nRow+=2
   oPrn:Say(nRow*mLarg, nCls[1],"EMPRESA:"+"  "+(razao), oFont )
   nRow+=1.50
   oPrn:Say(nRow*mLarg, nCls[1], "LIVRO DIARIO Nº.: "+(nDiario)+"        PERIODO: "+(M->REF_ALFA)+"                    FOLHA: "+STRZERO(nPag,6), oFon4 )
   nRow+=2

   oPrn:Line(nRow*mLarg,nTab, nRow*mLarg,oPrn:nHorzRes()-nTab, oPen )
   nRow++
   oPrn:Say(nRow*mLarg, nCls[1], OEMTOANSI(" Dia          Conta         Nomenclatura                              Valor                       Historico"), oFon2 )
   nRow+=1.50
   oPrn:Line(nRow*mLarg,nTab, nRow*mLarg,oPrn:nHorzRes()-nTab, oPen )
   nRow+=2

      ENDIF
      SKIP
   END
   oPrn:Line(nRow*mLarg,nTab, nRow*mLarg,oPrn:nHorzRes()-nTab, oPen )
   nRow++

   oPrn:Say(nRow*mLarg, nCls[1],;
         "TOTAL GERAL       A DEBITO==>"+;
         "      "+TRANS(WTOTAL_D,"@E 9,999,999.99"),;
         oFont )
   oPrn:Say(nRow*mLarg, nCls[2],;
         +"TOTAL GERAL     A CREDITO==>"+;
         " "+TRANS(WTOTAL_C,"@E 9,999,999.99"),;
         oFont )

   nRow++
   nRow+=1
   oPrn:Line(nRow*mLarg,nTab, nRow*mLarg,oPrn:nHorzRes()-nTab, oPen )
   oPrn:EndPage()
   oPrn:Preview()
   oFont:End()

RETURN .F.

Código: Selecionar todos

  ...

  * IMPRIME DIARIO
 WHILE !( DIARIO->( EOF() ) )
    * DIA
    nTeste_dia := DIARIO->DATA
    nValor_dia := 0
    * IMPRIME O DIA
    WHILE DIARIO->DATA == nTeste_dia
      * LINHAS
      ? 'LINHAS DO DIARIO'
      * TOTALIZADOR DIARIO
      nValor_dia += DIARIO->VALOR
      DIARIO->( DBSKIP()
    END
    ? 'TOTAL DO DIA' + STR( nValor_dia )
  END