
** Elmo **

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(81)+"         XX                             "+tsf002a.nnota+"  " + STR(XYZ,1) + "/" + STR(cCod2,1) + chr(13)+chr(10)
      ELSE
         ??? space(81)+"         XX                             "+tsf002a.nnota+chr(13)+chr(10)
      ENDIF
   ELSE
      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
   ENDIF
   ??? chr(13)+chr(10)
   ??? chr(13)+chr(10)
   ??? SPACE(133) + chr(13)+chr(10)
   ??? SPACE(133) + 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
      ??? 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(" ",23) +TSF002B1.st+space(3)+substr(TSF002B1.unIDADE,1,2)+REPLICATE(" ",3)+transform(TSF002B1.qtdPROD,"9999.99")+"      "+transform(TSF002B1.unitARIO,"9,999.999")+" "+space(8)+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 = 38
         EXIT
      ENDIF
   Enddo
   
   IF xyz < ccod2
      ??? "                  " + "**** Continua Proximo Formulario ****"+chr(10)+chr(13)
   else
      ??? " " + chr(13)+chr(10)
   endif

   DO WHILE nlin < 38
      ??? " " +chr(13)+chr(10)
      nLin = nLin + 1
      loop
   ENDDO
   
   SELECT TSF002B2
   GO TOP IN TSF002B2
   DO WHILE ! EOF("TSF002B2")
      
      ??? TSF002B2.NOMPROD + SPACE(55) + transform(TSF002B1.total,"99,999.99") + CHR(13)+CHR(10)

      nlin = nLin + 1

      SKIP IN TSF002B2
      LOOP

   ENDDO
   
   DO WHILE nLin < 41
      ??? " " +chr(13)+chr(10)
      nLin = nLin + 1
      loop
   ENDDO

   ??? space(120) + transform(TSF002A.VLR_SERV,"9,999,999.99") + CHR(13)+CHR(10)

   ??? 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(15) + transform(TSF002A.TOTALICMS,"9,999,999.99")+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(44)+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) + TSF002A.FRETE + space(8) + tsf002a.placa + space(07) + tsf002a.ufpt + space(05) + TSF002A.CNPJT + chr(13)+chr(10)

      ??? chr(13)+chr(10)
      ??? " " + TSF002A.ENDT + space(45) + substr(TSF002A.MUNT,1,36) + space(13) + 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(55)+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(120) + PADL(ALLTRIM(STR(tsf002a.nnota,6)),6,"0") + "  " + STR(XYZ,1) + "/" + STR(cCod2,1) + chr(13)+chr(10)
   ELSE
      ??? space(120) + 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