
** COMACOLA **

SYS(1037)

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(68)
   ??? chr(15)
*   ??? chr(13)+chr(10)
   ??? chr(13)+chr(10)
   ??? chr(13)+chr(10)
   ??? chr(13)+chr(10)
   ??? 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)
   ??? 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(11)+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)
   ??? 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) + 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)
*   If empty(ALLTRIM(substr(TSF002A.CNPJ,1,2)))
      ??? " "+TSF002A.MUNICIPIO + "                     " + TSF002A.FONE + "         " + TSF002A.UF + "      " + TSF002A.IE + "                      "+time()+chr(13)+chr(10)
*   ELSE
*      ??? " "+TSF002A.clicid+"                     "+TSF002A.clitel+"    "+TSF002A.cliest+"       "+TSF002A.cliINS+"         *           "+time()+chr(13)+chr(10)
*   ENDIF
   ??? chr(13)+chr(10)
   ??? chr(13)+chr(10)
   ??? " "+CHR(10)+CHR(13)
*   IF xyz = cCod2
*      ??? 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)
   ??? chr(13)+chr(10)
*   ??? chr(13)+chr(10)
*   ??? chr(13)+chr(10)
*   ??? chr(13)+chr(10)
   ??? chr(15)
   nlin = 24 && era 27
   && PRODUTOS

*   SELECT TSF002B1
*   BROW
*   Go Top
   SELECT TSF002B1
   Do While !eof("TSF002B1")
         ??? ""+SUBSTR(TSF002B1.CODBAR,8,6)+"  "+TSF002B1.NOMPROD+REPLICATE(" ",25) +TSF002B1.st+space(3)+substr(TSF002B1.unIDADE,1,2)+REPLICATE(" ",7)+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

      Select TSF002B1
      if eof()
         exit
      endif
      skip 1
      IF nLin = 54 && 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 45 && 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)
      ??? 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(39) + TSF002A.FRETE + space(8) + tsf002a.placa + space(04) + tsf002a.ufpt + space(05) + TSF002A.CNPJT + chr(13)+chr(10)

      ??? chr(13)+chr(10)
      ??? " " + TSF002A.ENDT + space(29) + substr(TSF002A.MUNT,1,36) + space(19) + TSF002A.UFT + space(05) + TSF002A.iet + chr(13)+chr(10)
   
      ??? chr(13)+chr(10)
      ??? " "+transform(tsf002a.emb,"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)
      ??? " " + "ALTERADA PELA LEI COMPL 127/07"+CHR(13)+CHR(10)
*      ??? " "+tsf002a.linha5+chr(13)+chr(10)
      ??? " " + "ESTE DOCUMENTO NAO GERA CREDITO DE ICMS" + 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