IF MESSAGEBOX("Confirma Impresso   ",36,"Impresso") = 6

cValor1 = LEN(ALLTRIM("ORCAMENTO"))
cVal1 = 27 - cValor1

TSEXEC("T","SELECT * FROM Tsl ","TSL")

nSelect = "SELECT Tsm020.*,Tslc002.FORNOM,Tslc002.PESSOA,Tslc002.FOREND,Tslc002.FORBAI,Tslc002.FORCID,Tslc002.FORTEL,Tslc002.FORCPF,"
nSelect = nSelect + "Tslc002.FORCGC "
nSelect = nSelect + "FROM Tsm020 LEFT JOIN Tslc002 ON Tsm020.SEQ002 = Tslc002.FORCOD "
nSelect = nSelect + "WHERE ?cTabImp = Tsm020.SEQM020 "
TSEXEC("T",nSelect,"TSLV020")

nSelect = "SELECT Tsm021.*,Tslc003.CODBAR FROM Tsm021 LEFT JOIN Tslc003 ON Tsm021.SEQ003 = Tslc003.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = Tsm021.SEQM020 "
TSEXEC("T",nSelect,"TSLV021_1")

GERACURSOR("TSLV021_1","TSLV021")

SELECT TSLV021
UPDATE TSLV021 SET CODBAR = PADL(ALLTRIM(STR(SEQ003,16)),16,"0") WHERE EMPTY(ALLTRIM(CODBAR))

IF ! USED("PARAMETRO")
   USE PARAMETRO IN 44 SHARED
ENDIF

SELECT PARAMETRO
APRINTERS(cImp)
   
*SET PRINTER TO NAME cImp(PARAMETRO.IMPORC)

nPagina = 1

*DO WHILE nPagina < 2

nValPag = 1

CABECA = " " + space(int((70 - len(AllTrim(TSL.NOME))) / 2)) + alltrim(TSL.NOME)+space(int((70 - len(AllTrim(TSL.NOME))) / 2))+dToc(TSLV020.EMISSAO) + chr(13)
CABECA = CABECA + space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + alltrim(TSL.ENDERECO)+space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + TIME()+chr(13)
CABECA = CABECA + space(int((80 - len(Alltrim(TSL.FONE))) / 2)) + AllTrim(TSL.FONE)+chr(13)
CABECA = CABECA + "COM. N.: " + TSLV020.DOCUMENTO + Replicate(" ",11) + "< CUPOM SEM VALOR FISCAL >" + REPLICATE(" ",cVal1) + ALLTRIM("COMPRA")+CHR(13)
CABECA = CABECA + Replicate("-",80)+chr(13)
IF TSLV020.PESSOA = "FSICA"
   cCpfCgc = "CPF: " + TSLV020.FORCPF
ELSE
   cCpfCgc = "CNPJ: " + TSLV020.FORCGC
ENDIF
CABECA = CABECA + "Nome.....: " + PADL(ALLTRIM(STR(TSLV020.SEQ002,6)),6,"0") + " - " + TSLV020.FORNOM + cCpfCgc + CHR(13)
CABECA = CABECA + "Endereco.: " + AllTrim(TSLV020.FOREND) + " " + " Tel.: " + TSLV020.FORTEL + CHR(13)
CABECA = CABECA + "Bairro...: " + ALLTRIM(TSLV020.FORBAI) + "  Cidade.: " + ALLTRIM(TSLV020.FORCID) + CHR(13)
CABECA = CABECA + Replicate("-",80)+chr(13)

cImprimir = CABECA + "Cod.  Descricao                            UN          Qtde    Unit.R$  Valor R$"+chr(13)
cImprimir = cImprimir + Replicate("-",80)+chr(13)
Select TSLV021
Go Top IN TSLV021
nLinha = 9
cTotal = 0

Do While ! Eof("TSLV021")
   
*      If nLinha > 36
*         ??? Replicate("-",80)+chr(13)+chr(10)
*         ??? chr(12)
*         ??? cabeca + CHR(13)+CHR(10)
*         nLinha = 9
*      Endif
   
      nLinha = nLinha + 1
   
      SET DECIMALS TO 3
      cImprimir = cImprimir + Substr(TSLV021.CODBAR,12,5) + " " + Substr(TSLV021.PRODES,1,35) + "  " +;
      TSLV021.UNIDADE + "  " + "  " + TRANSFORM(TSLV021.QTDE,"999,999.99") + " "+;
      TRANSFORM(TSLV021.UNITARIO,"99,999.999") + " " + TRANSFORM(TSLV021.TOTAL,"99,999.99")+CHR(13)
      
      cTotal = cTotal + TSLV021.TOTAL
      
      Skip In TSLV021
   Loop
Enddo

cImprimir = cImprimir + Replicate("-",80)+chr(13)
cImprimir = cImprimir + Replicate(" ",60) + "Total R$: " + TRANSFORM(cTotal,"999,999.99")+chr(13)

cImprimir = cImprimir + Replicate("-",80)+chr(13)
cImprimir = cImprimir + space(int((80 - len(AllTrim(AllTrim(TSL.OMENS01) + " - " + AllTrim(TSL.OMENS02)))) / 2))+AllTrim(AllTrim(TSL.OMENS01) + " - " + AllTrim(TSL.OMENS02))+chr(13)
*cImprimir = cImprimir + space(int((80 - len(AllTrim(AllTrim(TSL.OMENS03)))) / 2))+AllTrim(AllTrim(TSL.OMENS03))+chr(13)
cImprimir = cImprimir + " " + CHR(13)
cImprimir = cImprimir + "  /    /       Ass.............................   RG........................"+chr(13)

*IF nPagina < 2
   cImprimir = cImprimir + REPLICATE("- ",40) + CHR(13)+CHR(10)
*ENDIF

nPagina = nPagina + 1
*LOOP
*ENDDO

CREATE CURSOR TMP_IMPRIMIR (CODIGO M(04))
SELECT TMP_IMPRIMIR
INSERT INTO TMP_IMPRIMIR (CODIGO) VALUES (cImprimir)
SELECT TSLV021
IF RECCOUNT() > 8
   cReim = 1
ELSE
   cReim = 0
   INSERT INTO TMP_IMPRIMIR (CODIGO) VALUES (cImprimir)
ENDIF

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR
cReport = FULLPATH(CURDIR()) + "IMPRESS\TSORC.FRX"

REPORT FORM &cReport TO PRINTER PROMPT PREVIEW

IF cReim = 1
   SELECT TMP_IMPRIMIR
   GO TOP IN TMP_IMPRIMIR
   cReport = FULLPATH(CURDIR()) + "IMPRESS\TSORC.FRX"
   
   REPORT FORM &cReport TO PRINTER PROMPT PREVIEW
ENDIF

ENDIF