** PORTO FER MATERIAIS DE CONSTRUO **

SYS(1037)

SELECT TSF002B
cCod1 = RECCOUNT()
cCod2 = cCod1 / 34
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)
   IF TSF002A.E_S = "E"
      IF cCod2 > 1
         ??? space(81)+"             XX                           "+PADL(ALLTRIM(STR(tsf002a.nnota,6)),6,"0")+"  " + STR(XYZ,1) + "/" + STR(cCod2,1) + chr(13)+chr(10)
      ELSE
         ??? space(81)+"             XX                           "+PADL(ALLTRIM(STR(tsf002a.nnota,6)),6,"0")+chr(13)+chr(10)
      ENDIF
   ELSE
      IF cCod2 > 1
         ??? space(81)+"      XX                                      "+PADL(ALLTRIM(STR(tsf002a.nnota,6)),6,"0")+"  " + chr(13)+chr(10)
      ELSE
         ??? space(81)+"      XX                                      "+PADL(ALLTRIM(STR(tsf002a.nnota,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(16)+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)
      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)
   ??? " "+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)
   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
   nLinChe = 0
   Do While !eof("TSF002B")

      ??? ""+SUBSTR(TSF002B.CODBAR,8,6)+"  "+TSF002B.NOMPROD+REPLICATE(" ",13)+TSF002B.ST + space(3) + substr(TSF002B.UNIDADE,1,2) + REPLICATE(" ",4) + transform(TSF002B.QTDPROD,"9999.99") + "  "+transform(TSF002B.UNITARIO,"9,999.999")+"  "+space(9)+transform(TSF002B.TOTAL,"99,999.99") + space(3) + transform(TSF002B.ICMS,"99.99") + chr(13)+chr(10)
         nlin = nlin + 1

      skip IN TSF002B
      nLinChe = nLinChe + 1
*      IF nlinChe = 20
*         WAIT WINDOW nLin
*      ENDIF
      *IF nLin = 57 && 59 ERA 62
      IF nLin = 43 && 59 ERA 62
         EXIT
      ENDIF

      LOOP

   Enddo
   
   IF xyz < ccod2
      ??? "                  " + "**** Continua Proximo Formulario ****"+chr(10)+chr(13)
   else
      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 59 && ERA 63
      ??? " " +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.ttotal,"9,999,999.99")+chr(13)+chr(10)
      ??? chr(13)+chr(10)
      ??? "                                                          "+transform(tSf002a.VLR_IRRF,"9,999,999.99")+space(47)+transform(tsf002a.liquido,"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)
*   Select Transp
*   Go Top
   IF xyz = cCod2
*      If Empty(Transp.cnpj)
*         ??? " "+transp.codigo+"-"+transp.descricao+space(25)+"1"+space(11)+tsf002a.placa+space(03)+tsf002a.ufpt+space(03)+transp.cnpj+chr(13)+chr(10)
*      Else
         ??? " "+ TSF002A.NOMTRA + space(25) + TSF002A.FRETE + space(11) + tsf002a.placa + space(03) + tsf002a.ufpt + space(03) + TSF002A.CNPJT + chr(13)+chr(10)      
*      EndIf   
      ??? chr(13)+chr(10)
*      If Empty(Transp.ie)
*         ??? " "+transp.endereco+space(13)+substr(transp.cidade,1,36)+space(01)+transp.uf_placa+space(03)+transp.ie+chr(13)+chr(10)
*      Else
         ??? " "+ TSF002A.ENDT + space(13) + substr(TSF002A.MUNT,1,36) + space(01) + TSF002A.UFT + space(03) + TSF002A.IET + chr(13)+chr(10)      
*      EndIf   
   
      ??? chr(13)+chr(10)
      ??? " " + transform(tsf002a.QTDEMBA,"999999") + "              " + space(06) + tsf002a.especie + space(51) + 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)
      ??? " " +tsf002a.linha1+chr(13)+chr(10)
      ??? " "+tsf002a.linha2+chr(13)+chr(10)
      ??? " "+tsf002a.linha3+chr(13)+chr(10)
      ??? " "+tsf002a.linha4+chr(13)+chr(10)
      ??? " "+tsf002a.linha5+chr(13)+chr(10)
      ??? " "+tsf002a.linha6+chr(13)+chr(10)
      ??? " "+tsf002a.linha7+chr(13)+chr(10)
      ??? " "+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)
      IF cCod2 > 1
         ??? " Folha: " + STR(XYZ,1) + "/" + STR(cCod2,1) + chr(13)+chr(10)
      else
         ??? " "+chr(13)+chr(10)
      endif
      ??? " "+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)
   ??? " " +CHR(13)+CHR(10)
   ??? " " +CHR(13)+CHR(10)

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

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

   LOOP
ENDDO

SET PRINTER TO DEFAULT