** STAB **

SYS(1037)

SELECT TSF002B
cCod1 = RECCOUNT()
cCod2 = cCod1 / 24
IF cCod2 > int(cCod2)
   cCod2 = INT(cCod2) + 1
ENDIF

cCod3 = cCod2 + 1
xyz = 1

DO WHILE Xyz < cCod3
   * -- Rotina de impresso -- *
*   SYS(1037)
*!*	   SET PRINTER TO LPT1
   ??? CHR(27)+"@"
   ??? CHR(27)+"0"+CHR(27)+"C"+CHR(96)
   ??? chr(15)
   ??? chr(13)+chr(10) && NO TINHA
   ??? chr(13)+chr(10)
   ??? chr(13)+chr(10)
   IF TSF002A.E_S = "E"
      IF cCod2 > 1
         ??? space(81)+"              XX                        "+PADL(ALLTRIM(STR(tsf002a.nro_nf,6)),6,"0")+"  " + STR(XYZ,1) + "/" + STR(cCod2,1) + chr(13)+chr(10)
      ELSE
         ??? space(81)+"              XX                        "+PADL(ALLTRIM(STR(tsf002a.nro_nf,6)),6,"0")+chr(13)+chr(10)
      ENDIF
   ELSE
      IF cCod2 > 1
         ??? space(81)+"        XX                                 "+PADL(ALLTRIM(STR(tsf002a.nro_nf,6)),6,"0")+"  " + chr(13)+chr(10)
      ELSE
         ??? space(81)+"        XX                                 "+PADL(ALLTRIM(STR(tsf002a.nro_nf,6)),6,"0")+chr(13)+chr(10)
      ENDIF
   ENDIF
   ??? chr(13)+chr(10)
   ??? chr(13)+chr(10)
   ??? chr(13)+chr(10)
   ??? SPACE(132) + chr(13)+chr(10)
   ??? SPACE(132) + chr(13)+chr(10)
   ??? " "+tsf002a.natoper+space(22)+tsf002a.cfop+ chr(13)+chr(10)
*   IF cCod2 > 1
*      ??? SPACE(133) + STR(XYZ,1) + "/" + STR(cCod2,1) + chr(13)+chr(10)
*   ELSE
      ??? " " + CHR(10)+CHR(13)
*   ENDIF
   ??? SPACE(132)  + chr(13)+chr(10)
   ??? SPACE(132)  + chr(13)+chr(10)
      If LEN(ALLTRIM(TSF002A.CNPJ)) = 11
         ??? " "+tsf002a.cliente+"                                              "+SUBSTR(TSF002A.CNPJ,1,3) + "." + SUBSTR(TSF002A.CNPJ,4,3) + "." + SUBSTR(TSF002A.CNPJ,7,3) + "-" + SUBSTR(TSF002A.CNPJ,10,2)+"               "+space(06)+dtoc(tsf002a.emissao)+SPACE(13)  + chr(13)+chr(10)
      Else
         ??? " "+tsf002a.cliente+"                                              "+SUBSTR(TSF002A.CNPJ,1,2) + "." + SUBSTR(TSF002A.CNPJ,3,3) + "." + SUBSTR(TSF002A.CNPJ,6,3) + "/" + SUBSTR(TSF002A.CNPJ,9,4) + "-" + SUBSTR(TSF002A.CNPJ,13,2)+"                 "+dtoc(tsf002a.emissao)+SPACE(10)  + chr(13)+chr(10)
      EndIf
*   EndIf
   ??? chr(13)+chr(10)
   ??? " "+TSF002A.ENDERECO+"                                 "+substr(TSF002A.BAIRRO,1,15)+"           "+substr(TSF002A.CEP,1,5) + "-" + substr(TSF002A.cep,6,3)+"            "+dtoc(tsf002a.datasaida)+chr(13)+chr(10)
   ??? chr(13)+chr(10)
   ??? chr(13)+chr(10)
   ??? " "+TSF002A.MUNICIPIO+"                     "+TSF002A.FONE+"             "+TSF002A.UF+"      "+TSF002A.IE+"                 "+time()+chr(13)+chr(10)
   ??? chr(13)+chr(10)
*   ??? chr(13)+chr(10)
   ??? " "+CHR(10)+CHR(13)
   
   ??? " " + chr(13) + chr(10)
   ??? " " + chr(13) + chr(10)
   ??? " " + chr(13) + chr(10)
   ??? " " + chr(13) + chr(10)
   ??? " " + chr(13) + chr(10)
   ??? " " + chr(13) + chr(10)
   IF xyz = cCod2
      
      nSelect = "SELECT * FROM Tsm003 WHERE ?cNumNota = NF AND RECEST = 0 "
      TSEXEC("T",nSelect,"TMP_DUPL")
      
      SELECT TMP_DUPL
      cNumDpl = 0
      DO WHILE ! EOF("TMP_DUPL")

         nDpl = TMP_DUPL.RECCOD + SPACE(5) + TRANSFORM(TMP_DUPL.RECVALOR,"9,999,999.99") + SPACE(5) + DTOC(TMP_DUPL.RECVENCI)
         cNumDpl = cNumDpl + 1
   
         SELECT TMP_DUPL
         SKIP IN TMP_DUPL
         IF ! EOF("TMP_DUPL")
            nDpl = nDpl + SPACE(10) + TMP_DUPL.RECCOD + SPACE(5) + TRANSFORM(TMP_DUPL.RECVALOR,"9,999,999.99") + SPACE(5) +;
            DTOC(TMP_DUPL.RECVENCI) + CHR(13)+CHR(10)
            
            SKIP IN TMP_DUPL
            LOOP
         ELSE
            nDpl = nDpl + CHR(13)+CHR(10)
         ENDIF
         
         LOOP
         
      ENDDO


*      ??? SUBSTR(cDpi[1],1,12)+"      "+cDpi[2]+"  "+cDpi[3]+"    "
*      
*      If !Empty(cDpi[4])
*         ??? cDpi[4]+"  "+cDpi[5]+"  "+cDpi[6]+"  "+chr(13)+chr(10) 
*      Else
*         ??? chr(13)+chr(10)
*      EndIf
*   
*      IF ! EMPTY(cDpi[7])
*         ??? " " + substr(TSF002A.FORMA + SPACE(20),1,15) + replicate(" ",31) + SUBSTR(cDpi[7],1,11)+"" + cDpi[8] + "  " + cDpi[9] + "    "
*         IF ! EMPTY(cDpi[10])
*            ??? cDpi[10] + "" + cDpi[11] + "  " + cDpi[12] + chr(10)+chr(13)
*         ELSE
*            ??? + CHR(10)+CHR(13)
*         ENDIF
*      ELSE
*         ??? " " + substr(TSF002A.FORMA + SPACE(20),1,15) + CHR(13)+CHR(10)
*      ENDIF  
*      ??? chr(13)+chr(10)
   ??? " "+SUBSTR(PADR(ALLTRIM(UPPER(EXTENSO(TSF002A.LIQUIDO))),180,"*"),1,121)+chr(13)+chr(10)
   ELSE
*      ??? chr(13)+chr(10)
*      ??? chr(13)+chr(10)
*      ??? chr(13)+chr(10)
      ??? chr(13)+chr(10)
   ENDIF
   ??? chr(13)+chr(10)
   *??? chr(13)+chr(10)
   *??? chr(13)+chr(10)
   *??? chr(13)+chr(10)      
   *??? chr(13)+chr(10) && NO TINHA
   *??? chr(13)+chr(10)
   ??? chr(13)+chr(10)
   ??? chr(13)+chr(10)
   ??? chr(13)+chr(10)
   ??? chr(15)
   nlin = 23
   && PRODUTOS

*   SELECT TMP_NOTA1
*   BROW
*   Go Top
   SELECT TSF002B
   Do While !eof("TSF002B")
      
      cVipii = TSF002B.TOTAL * (TSF002B.IPI / 100)
      
      ??? " "+SUBSTR(TSF002B.CODBAR,9,5)+"    "+TSF002B.NOMPROD+REPLICATE(" ",1)+TSF002B.ST + space(3) + substr(TSF002B.UNIDADE,1,2) + REPLICATE(" ",2) + transform(TSF002B.QTDPROD,"99999.99") + "      "+transform(TSF002B.UNITARIO,"9,999.999")+"  "+space(7)+transform(TSF002B.TOTAL,"99,999.99") + space(1) + transform(TSF002B.ICMS,"99.99") + "" + TRANSFORM(TSF002B.IPI,"99.99") + "     " + TRANSFORM(cVipii,"9,999.99") + chr(13)+chr(10)
         nlin = nlin + 1

      skip IN TSF002B
      IF nLin = 47 
         EXIT
      ENDIF

      LOOP

   Enddo
   
   IF xyz < ccod2
      ??? "                  " + "**** Continua Proximo Formulario ****"+chr(10)+chr(13)
   else

      IF TSF002A.ESTATAL = 1
         ??? SPACE(10) + 'DESCONTO REF. ICMS: ' + TRANSFORM(TSF002A.TOTALICMS,"9,999,999.99") + CHR(13)+CHR(10)
         nLin = nLin + 1
      ENDIF

      IF TSF002A.DESCONTOS > 0
         ??? SPACE(10) + 'DESCONTO: ' + TRANSFORM(TSF002A.DESCONTOS,"9,999,999.99")+CHR(13)+CHR(10)
      ELSE
         ??? " " + chr(13)+chr(10)
      ENDIF
   endif

   For x = nlin to 48
      ??? " " +chr(13)+chr(10)
   Next
   
   IF xyz = cCod2
      ??? SPACE(11)+transform(tsf002a.baseicms,"9,999,999.99") + SPACE(15) + transform(TSF002A.TOTALICMS,"9,999,999.99")+space(7)+space(60)+transform(tsf002a.vproduto,"9,999,999.99")+chr(13)+chr(10)
      ??? chr(13)+chr(10)
      ??? chr(13)+chr(10)
      ??? "                                                          "+transform(tSf002a.VLR_IRRF,"9,999,999.99")+space(47)+transform(tsf002a.ttotal,"9,999,999.99")+chr(13)+chr(10)
   ELSE
      ??? " "+space(21)+space(20)+space(75)+"************"+chr(13)+chr(10)
      ??? chr(13)+chr(10)
      ??? "                                                                "+space(53)+"************"+chr(13)+chr(10)
   ENDIF
   ??? chr(13)+chr(10)
   ??? CHR(13)+ CHR(10)
   ??? chr(13)+chr(10)
*   Select Transp
*   Go Top
   IF xyz = cCod2
      ??? " "+ TSF002A.NOMTRA + space(51) + TSF002A.FRETE + space(7) + tsf002a.placa + space(05) + tsf002a.ufpt + space(04) + TSF002A.CNPJT + chr(13)+chr(10)      
      ??? chr(13)+chr(10)
*      ??? chr(13)+chr(10)
         ??? " "+ TSF002A.ENDT + space(38) + substr(TSF002A.MUNT,1,36) + space(15) + TSF002A.UFT + space(03) + TSF002A.IET + chr(13)+chr(10)      
   
      ??? chr(13)+chr(10)
      ??? chr(13)+chr(10)
      ??? " " + transform(tsf002a.QTDEMBA,"999999") + "    " + space(06) + tsf002a.especie + SPACE(10) + tsf002a.marca + space(40) + transform(tsf002a.pbruto,"99,999.99") + space(10) + transform(tsf002a.pliquido,"99,999.99") + chr(13)+chr(10)      
      ??? chr(13)+chr(10)
      ??? chr(13)+chr(10)
      ??? chr(13)+chr(10)
      ??? chr(13)+chr(10)
      ??? chr(13)+chr(10)
      ??? " " + space(14) + tsf002a.linha1+chr(13)+chr(10)
      ??? " " + space(14) + tsf002a.linha2+chr(13)+chr(10)
      ??? " " + space(14) + tsf002a.linha3+chr(13)+chr(10)
      ??? " " + space(14) + tsf002a.linha4+chr(13)+chr(10)
      ??? " " + space(14) + tsf002a.linha5+chr(13)+chr(10)
      ??? " " + space(14) + tsf002a.linha6+chr(13)+chr(10)
      ??? " " + space(14) + tsf002a.linha7+chr(13)+chr(10)
      ??? " " + space(14) + tsf002a.linha8+chr(13)+chr(10)
      IF cCod2 > 1
         ??? " Folha: " + STR(XYZ,1) + "/" + STR(cCod2,1) +chr(13)+chr(10)
      ELSE
         ??? " "+chr(13)+chr(10)
      ENDIF
   ELSE
      ??? chr(13)+chr(10)
      ??? " "+chr(13)+chr(10)      
      ??? chr(13)+chr(10)
      ??? " "+chr(13)+chr(10)      
      ??? chr(13)+chr(10)
      ??? " "+chr(13)+chr(10)      
      ??? chr(13)+chr(10)
      ??? chr(13)+chr(10)
      ??? " "+chr(13)+chr(10)
      ??? " "+chr(13)+chr(10)
      ??? " "+chr(13)+chr(10)
      ??? " "+chr(13)+chr(10)
      ??? " "+chr(13)+chr(10)
      ??? " "+chr(13)+chr(10)
      ??? " "+chr(13)+chr(10)
      ??? " "+chr(13)+chr(10)
      ??? " "+chr(13)+chr(10)
      ??? " "+chr(13)+chr(10)
      ??? " "+chr(13)+chr(10)
      IF cCod2 > 1
         ??? " Folha: " + STR(XYZ,1) + "/" + STR(cCod2,1) + chr(13)+chr(10)
      else
         ??? " "+chr(13)+chr(10)
      endif

   ENDIF
*   ??? " " +CHR(13)+CHR(10)
*   ??? " " +CHR(13)+CHR(10)
*   ??? " " +CHR(13)+CHR(10)
*   ??? " " +CHR(13)+CHR(10)
   ??? " " +CHR(13)+CHR(10)
   ??? " " +CHR(13)+CHR(10)
   ??? " " +CHR(13)+CHR(10)

*   IF cCod2 > 1
*      ??? space(121)+PADL(ALLTRIM(STR(tsf002a.nro_nf,6)),6,"0")+"  " + STR(XYZ,1) + "/" + STR(cCod2,1) + chr(13)+chr(10)
*   ELSE
      ??? space(121)+PADL(ALLTRIM(STR(tsf002a.nro_nf,6)),6,"0")+chr(13)+chr(10)
*   ENDIF

   ??? chr(12)
   set printer TO
   
   Xyz = Xyz + 1

   LOOP
ENDDO

SET PRINTER TO DEFAULT

cArq = FULLPATH(CURDIR()) + "IMPRESS\DUPLI_STAB.TXT"
ExecScript(FileToStr(cArq))
