** PORTO FER MATERIAIS DE CONSTRUO **

SYS(1037)

SELECT TMP_NOTA
SELECT * FROM Tmp_Nota WHERE TMP_NOTA.ST != "SS" INTO CURSOR TMP_NOTA1
SELECT TMP_NOTA1
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)
   ??? 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                                      "+tsf002a.nnota+"  " + chr(13)+chr(10)
      ELSE
         ??? space(81)+"     XX                                      "+tsf002a.nnota+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)
   select tslc001
   go top
   Locate for alltrim(tslc001.clicod) = alltrim(tsf002a.ncliente)
   If Found()
      If empty(ALLTRIM(substr(tslc001.clicgc,1,2)))
         ??? "         - "+tsf002a.cliente+"                                   "+SUBSTR(tslc001.clicpf,1,3) + "." + SUBSTR(TSLC001.CLICPF,4,3) + "." + SUBSTR(TSLC001.CLICPF,7,3) + "-" + SUBSTR(TSLC001.CLICPF,10,2)+"               "+space(06)+dtoc(tsf002a.emissao)+SPACE(13)  + chr(13)+chr(10)
      Else
         ??? "         - "+tsf002a.cliente+"                                   "+SUBSTR(tslc001.clicgc,1,2) + "." + SUBSTR(tslc001.clicgc,3,3) + "." + SUBSTR(tslc001.clicgc,6,3) + "/" + SUBSTR(tslc001.clicgc,9,4) + "-" + SUBSTR(tslc001.clicgc,13,2)+"                 "+dtoc(tsf002a.emissao)+SPACE(10)  + chr(13)+chr(10)
      EndIf
   EndIf
*   ??? chr(13)+chr(10)
   ??? " "+tslc001.cliend+"                        "+substr(tslc001.clibai,1,15)+"                  "+substr(tslc001.clicep,1,5) + "-" + substr(tslc001.clicep,6,3)+"              "+dtoc(tsf002a.datasaida)+chr(13)+chr(10)
   ??? chr(13)+chr(10)
   If empty(ALLTRIM(substr(tslc001.clicgc,1,2)))
      ??? " "+tslc001.clicid+"                     "+tslc001.clitel+"        "+tslc001.cliest+"      "+tslc001.cliRG+"                    "+time()+chr(13)+chr(10)
   ELSE
      ??? " "+tslc001.clicid+"                     "+tslc001.clitel+"        "+tslc001.cliest+"       "+tslc001.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 = 23
   && PRODUTOS

*   SELECT TMP_NOTA1
*   BROW
*   Go Top
   SELECT TMP_NOTA1
   Do While !eof("TMP_NOTA1")
      If !empty(Tmp_Nota1.produto)
         ??? ""+SUBSTR(Tmp_Nota1.produto,8,6)+"  "+Tmp_Nota1.dproduto+REPLICATE(" ",13)+Tmp_Nota1.st+space(3)+substr(Tmp_Nota1.un,1,2)+REPLICATE(" ",4)+transform(Tmp_Nota1.qtde,"9999.99")+"  "+transform(Tmp_Nota1.unit,"9,999.999")+"  "+space(9)+transform(Tmp_Nota1.total,"99,999.99")+space(3)+transform(tmp_nota1.icms,"99.99")+chr(13)+chr(10)
         nlin = nlin + 1
      EndIf
      Select Tmp_Nota1
      if eof()
         exit
      endif
      skip 1
      IF nLin = 57 && 59 ERA 62
         EXIT
      ENDIF
   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
   
*!*	   ??? " "+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)
   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
         ??? " "+transp.codigo+"-"+transp.descricao+space(25)+"1"+space(11)+tsf002a.placa+space(03)+tsf002a.ufpt+space(03)+transp.cpf+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
         ??? " "+transp.endereco+space(13)+substr(transp.cidade,1,36)+space(01)+transp.uf_placa+space(03)+transp.rg+chr(13)+chr(10)      
      EndIf   
   
      ??? 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)
      ??? " "+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)+tsf002a.nnota+"  " + STR(XYZ,1) + "/" + STR(cCod2,1) + chr(13)+chr(10)
*   ELSE
      ??? space(121)+tsf002a.nnota+chr(13)+chr(10)
*   ENDIF

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

   LOOP
ENDDO

SET PRINTER TO DEFAULT