

** Barraco **



SYS(1037)



SELECT TSF002B

SELECT * FROM TSF002B WHERE TSF002B.ST = "SSS" INTO CURSOR TSF002B2

SELECT * FROM TSF002B WHERE TSF002B.ST != "SSS" INTO CURSOR TSF002B1

SELECT TSF002B1

IF RECCOUNT() = 0

   cCod1 = 1

ELSE

   cCod1 = RECCOUNT()

ENDIF

cCod2 = cCod1 / 14

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(68)

   ??? chr(15)

   ??? chr(13)+chr(10)
   IF TSF002A.E_S = "E"

      IF cCod2 > 1

         ??? space(68)+"  XX                             "+PADL(ALLTRIM(STR(tsf002a.nnota,6)),6,"0")+"  " + STR(XYZ,1) + "/" + STR(cCod2,1) + chr(13)+chr(10)

      ELSE

         ??? space(68)+"  XX                             "+PADL(ALLTRIM(STR(tsf002a.nnota,6)),6,"0")+chr(13)+chr(10)

      ENDIF

   ELSE

      IF cCod2 > 1

         ??? space(68)+"XX                                   "+PADL(ALLTRIM(STR(tsf002a.nnota,6)),6,"0")+"  " + STR(XYZ,1) + "/" + STR(cCod2,1) + chr(13)+chr(10)

      ELSE

         ??? space(68)+"XX                                   "+PADL(ALLTRIM(STR(tsf002a.nnota,6)),6,"0")+chr(13)+chr(10)

      ENDIF

   ENDIF

   ??? chr(13)+chr(10)

   ??? chr(13)+chr(10)

   ??? SPACE(133) + chr(13)+chr(10)

   ??? SPACE(133) + chr(13)+chr(10)

   ??? " "+tsf002a.natoper+space(10)+tsf002a.cfop + chr(13)+chr(10)

   IF cCod2 > 1

      ??? SPACE(133) + STR(XYZ,1) + "/" + STR(cCod2,1) + chr(13)+chr(10)

   ELSE

      ??? SPACE(133) + CHR(10)+CHR(13)

   ENDIF

   ??? SPACE(133) + chr(13)+chr(10)

      If LEN(ALLTRIM(TSF002A.CNPJ)) = 11

         ??? " " + PADL(ALLTRIM(STR(tsf002a.ncliente,6)),6,"0") + " - " + 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(10) + chr(13)+chr(10)

      Else

         ??? " " + PADL(ALLTRIM(STR(tsf002a.ncliente,6)),6,"0") + " - " + 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(12) + chr(13)+chr(10)

      EndIf



   ??? chr(13)+chr(10)

   ??? " "+SUBSTR((ALLTRIM(TSF002A.ENDERECO) + SPACE(50)),1,40) + "                "+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)

*   ??? chr(13)+chr(10)

*   ??? chr(13)+chr(10)

*   ??? chr(13)+chr(10)

*   ??? chr(13)+chr(10)



   ??? chr(15)

   nlin = 24 

   && PRODUTOS



   SELECT TSF002B1

   Do While !eof("TSF002B1")

         ??? ""+SUBSTR(TSF002B1.CODBAR,8,6)+"  "+TSF002B1.NOMPROD+REPLICATE(" ",3) +TSF002B1.st+space(2)+substr(TSF002B1.unIDADE,1,2)+REPLICATE(" ",9)+transform(TSF002B1.qtdPROD,"9999.99")+"      "+transform(TSF002B1.unitARIO,"9,999.999")+" "+space(11)+transform(TSF002B1.total,"99,999.99")+" "+transform(TSF002B1.icms,"99.99")+chr(13)+chr(10)

         nlin = nlin + 1



      Select TSF002B1

      if eof()

         exit

      endif

      skip 1

      IF nLin = 43

         EXIT

      ENDIF

   Enddo

   

   IF xyz < ccod2

      ??? "                  " + "**** Continua Proximo Formulario ****"+chr(10)+chr(13)

   else

      ??? " " + chr(13)+chr(10)

   endif



   DO WHILE nlin < 43

      ??? " " +chr(13)+chr(10)

      nLin = nLin + 1

      loop

   ENDDO

   nLin2 = 1

   

   ??? chr(13)+chr(10)

   ??? chr(13)+chr(10)

*   ??? chr(13)+chr(10)

*   ??? chr(13)+chr(10)



   IF xyz = cCod2

      ??? SPACE(7)+transform(tsf002a.baseicms,"9,999,999.99") + SPACE(12) + transform(TSF002A.TOTALICMS,"9,999,999.99")+space(7)+space(57)+transform(tsf002a.vproduto,"9,999,999.99")+chr(13)+chr(10)

*      ??? SPACE(7)+"            " + SPACE(15) + "            "+space(7)+space(57)+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(41)+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)

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

   IF xyz = cCod2

      ??? " " + TSF002A.TRANSP + "-" + TSF002A.NOMTRA + space(26) + TSF002A.FRETE + space(6) + tsf002a.placa + space(07) + tsf002a.ufpt + space(05) + TSF002A.CNPJT + chr(13)+chr(10)



      ??? chr(13)+chr(10)

      ??? " " + TSF002A.ENDT + space(23) + substr(TSF002A.MUNT,1,36) + space(12) + TSF002A.UFT + space(05) + TSF002A.iet + chr(13)+chr(10)

   

      ??? chr(13)+chr(10)

      ??? " "+transform(tsf002a.emb,"999999")+"    "+space(06)+tsf002a.especie + SPACE(1) + TSF002A.MARCA + space(35)+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)

*      ??? " "+chr(13)+chr(10)

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

   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)

   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)

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

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



   IF cCod2 > 1

      ??? space(110) + PADL(ALLTRIM(STR(tsf002a.nnota,6)),6,"0") + "  " + STR(XYZ,1) + "/" + STR(cCod2,1) + chr(13)+chr(10)

   ELSE

      ??? space(110) + 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