
** Bertoni **

SELECT TSF002B
SELECT * FROM TSF002B WHERE TSF002B.ST != "SS" INTO CURSOR TSF002B1
SELECT TSF002B1
cCod1 = RECCOUNT()
cCod2 = cCod1 / 28
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)
   ??? chr(13)+chr(10)
   IF cCod2 > 1
      ??? space(126)+PADL(ALLTRIM(STR(tsf002a.nnota,6)),6,"0")+"  " + STR(XYZ,1) + "/" + STR(cCod2,1) + chr(13)+chr(10)
   ELSE
      ??? space(126)+PADL(ALLTRIM(STR(tsf002a.nnota,6)),6,"0")+chr(13)+chr(10)
   ENDIF
   
   ??? chr(13)+chr(10)

   IF TSF002A.E_S = "E"
      ??? space(81)+"    XX" + chr(13)+chr(10)
   ELSE
      ??? space(81)+"           XX" + chr(13)+chr(10)
   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(20)+tsf002a.cfop+ chr(13)+chr(10)
   ??? " " + CHR(10)+CHR(13)
   ??? chr(13)+chr(10)
   ??? SPACE(132)  + 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(13)  + 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(10)  + chr(13)+chr(10)
   EndIf
   ??? chr(13)+chr(10)
   ??? " "+SUBSTR((ALLTRIM(TSF002A.ENDERECO)),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)
   ??? 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(15)
   nlin = 24 && era 27
   && PRODUTOS

*   SELECT TSF002B1
*   BROW
*   Go Top
   SELECT TSF002B1
   Do While !eof("TSF002B1")
      If !empty(TSF002B1.CODBAR)
         ??? " "+SUBSTR(TSF002B1.CODBAR,8,6)+"  "+TSF002B1.NOMPROD+REPLICATE(" ",30)+TSF002B1.st+space(3)+substr(TSF002B1.unIDADE,1,2)+REPLICATE(" ",4)+transform(TSF002B1.qtdPROD,"9999.99")+"   "+transform(TSF002B1.unitARIO,"9,999.999")+" "+space(6)+transform(TSF002B1.total,"99,999.99")+" "+transform(TSF002B1.icms,"99.99")+chr(13)+chr(10)
         nlin = nlin + 1
      EndIf
      Select TSF002B1
      if eof()
         exit
      endif
      skip 1
      IF nLin = 70 && era 62
         EXIT
      ENDIF
   Enddo
   
   IF xyz < ccod2
      ??? "                  " + "**** Continua Proximo Formulario ****"+chr(10)+chr(13)
   else
      ??? " " + chr(13)+chr(10)
   endif

   For x = nlin to 61 && ERA 63
      ??? " " +chr(13)+chr(10)
   Next
   
*!*	   ??? " "+tsf002a.pserv01+space(39)+chr(13)+chr(10)
*!*	   ??? " "+tsf002a.pserv02+space(39)+chr(13)+chr(10)
*!*	   if tsf002a.vlr_serv > 0 && Tiver Servios
*!*	      ??? " "+tsf002a.pserv03+space(55)+transform(ThisForm.Ts_pages1.PAGE2.aliiss.Value,"999.99")+chr(13)+chr(10)
*!*	   else
*!*	      ??? " "+tsf002a.pserv03+space(55)+transform(0,"999.99")+chr(13)+chr(10)
*!*	   endif
*!*	   ??? " "+tsf002a.pserv03+space(49)+chr(13)+chr(10)
*!*	   ??? " "+tsf002a.pserv04+space(49)+transform(tsf002a.vlr_issQN,"9,999,999.99")+chr(13)+chr(10)
*!*	   ??? " "+??? " "+tsf002a.pserv05+chr(13)+chr(10)
*!*	   ??? "   "+space(107)+transform(tsf002a.vlr_serv,"9,999,999.99")+chr(13)+chr(10)
   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)
   ??? CHR(13)+ CHR(10)
   IF xyz = cCod2
      ??? " "+TSF002A.TRANSP+"-"+TSF002A.NOMTRA+space(46)+"1"+space(8)+tsf002a.placa+space(08)+tsf002a.ufpt+space(03)+TSF002A.CNPJT+chr(13)+chr(10)
      ??? chr(13)+chr(10)
      ??? CHR(13)+ CHR(10)
         ??? " "+TSF002A.ENDT+space(38)+substr(TSF002A.MUNT,1,36)+space(20)+TSF002A.UFT+space(03)+TSF002A.IET+chr(13)+chr(10)
   
      ??? chr(13)+chr(10)
      ??? " "+transform(tsf002a.emb,"999999")+"              "+space(06)+tsf002a.especie+space(56)+transform(tsf002a.pbruto,"99,999.99")+space(12)+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)
   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(126)+PADL(ALLTRIM(STR(tsf002a.nnota,6)),6,"0")+"  " + STR(XYZ,1) + "/" + STR(cCod2,1) + chr(13)+chr(10)
   ELSE
      ??? space(126)+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