*cReport = FULLPATH(CURDIR()) + "IMPRESS\TSPED_1.FRX"

*MODI REPORT &cReport

*RETURN .F.


TSEXEC("T","Select * From Tsc008a Where Empcod = ?cCodEmp ","TSC008A")

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

cReport = FULLPATH(CURDIR()) + "IMPRESS\TSPED_1.FRX"

cLogo = FULLPATH(CURDIR()) + "IMPRESS\LOGO.JPG"

CHAMAIMP2("TMP_IMPRIMIR",cReport)


IF MESSAGEBOX("Deseja Imprimir com os Dados dos Cliente  ",292,"Pedido de Compra") = 7
   RETURN .F.
ENDIF 

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

cCodPedc = TMP_IMPRIMIR.SEQPED01

SELECT TMP_IMPRIMIR
USE IN TMP_IMPRIMIR

nSelect = "SELECT Tsped01.*,Tsped02.SEQ003,Tsped02.DESCRICAO,Tsped02.QTD,Tsped02.UNITARIO,Tsped02.TOTAL as TOTAL_PRO,"
nSelect = nSelect + "Tslc003.CODBAR,Tslc002.FORNOM,Tslc002.FOREND,Tslc002.FORBAI,Tslc002.FORCID,Tslc002.FOREST,Tslc002.FORCEP,Tslc002.FORCGC,"
nSelect = nSelect + "Tslc002.FORINS,Tslc002.FORTEL,Tslc002.FORFAX,Tslc002.FORCON,Tslv020.Seq as NumOrc,Tslc001.CliNom FROM Tsped01 "
nSelect = nSelect + "LEFT JOIN Tsped02 ON Tsped01.SEQPED01 = Tsped02.SEQPED01 "
nSelect = nSelect + "LEFT JOIN Tslc003 ON Tsped02.SEQ003 = Tslc003.CODIGO "
nSelect = nSelect + "LEFT JOIN Tslc002 ON Tsped01.SEQ002 = Tslc002.FORCOD "
nSelect = nSelect + "LEFT JOIN Tslv021 ON Tsped02.SEQitem = Tslv021.SEQ "
nSelect = nSelect + "LEFT JOIN Tslv020 ON Tslv021.Cupom = Tslv020.Seq "
nSelect = nSelect + "LEFT JOIN TslC001 ON Tslv020.CodCli = Tslc001.Clicod "
nSelect = nSelect + "WHERE ?cCodPedc = Tsped01.SEQPED01 And Tsped02.Exclui <> 'S' "
TSEXEC("T",nSelect,"TMP_IMPRIMIR1")

GERACURSOR("TMP_IMPRIMIR1","TMP_IMPRIMIR")

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

cReport = FULLPATH(CURDIR()) + "IMPRESS\TSPED_2.FRX"

cLogo = FULLPATH(CURDIR()) + "IMPRESS\LOGO.JPG"

CHAMAIMP2("TMP_IMPRIMIR",cReport)