SELECT TMP_IMPRIMIR
GO TOP in TMP_IMPRIMIR
GERACURSOR("TMP_IMPRIMIR","TMP_IMPRIMIR1")
ALTER TABLE TMP_IMPRIMIR1 ADD COLUMN PRECO2 N(12,2)
cReport = FULLPATH(CURDIR()) + "IMPRESS\ETIQUETAS.FRX"

*TSEXEC("T","Select * From Tslc003","TSLC003")

SELECT TMP_IMPRIMIR1
GO TOP IN TMP_IMPRIMIR1
DO WHILE ! EOF("TMP_IMPRIMIR1")

   cCodBar = TMP_IMPRIMIR1.CODIGO

   TSEXEC("T","Select Preco2 From Tslc003 Where Codbar = ?cCodBar ","TMP_PRECO")
   SELECT TMP_IMPRIMIR1
   REPLACE TMP_IMPRIMIR1.PRECO2 WITH TMP_PRECO.PRECO2

   SELECT TMP_IMPRIMIR1
   SKIP IN TMP_IMPRIMIR1
   LOOP
ENDDO

*SELECT TMP_IMPRIMIR.*,TSLC003.PRECO2 FROM TMP_IMPRIMIR LEFT JOIN TSLC003 ON TMP_IMPRIMIR.CODIGO = TSLC003.CODBAR INTO CURSOR TMP_IMPRIMIR

SELECT * FROM TMP_IMPRIMIR1 INTO CURSOR TMP_IMPRIMIR

SELECT TMP_IMPRIMIR
GO TOP in TMP_IMPRIMIR

CHAMAIMP2("TMP_IMPRIMIR",cReport)
*SET PRINTER TO NAME "ETIQUETAS"
*REPORT FORM &cReport TO PRINTER NOCONSOLE
