lPortaArg = 1
lTabArg = "TMP_IMPRIMIR"

DECLARE integer A_CreatePrn in WINPPLA.DLL integer,string 
DECLARE integer A_CreateUSBPort in WINPPLA.DLL integer
DECLARE INTEGER A_GetUSBBufferLen IN WINPPLA.DLL
DECLARE INTEGER A_EnumUSB IN WINPPLA.DLL INTEGER
DECLARE integer A_Prn_Text_TrueType in WINPPLA.DLL integer,integer,integer,string,integer,integer,integer,integer,integer,string,string,integer
DECLARE integer A_Prn_Text in WINPPLA.DLL integer,integer,integer,integer,integer,integer,integer,short,integer,string
DECLARE integer A_Prn_Barcode in WINPPLA.DLL integer,integer,integer,short,integer,integer,integer,short,integer,string
DECLARE integer A_Get_Graphic in WINPPLA.DLL integer,integer,integer,short,string
DECLARE integer A_Set_Darkness in WINPPLA.DLL integer
DECLARE integer A_Print_Out in WINPPLA.DLL integer,integer,integer,integer
DECLARE A_ClosePrn in WINPPLA.DLL 

SELECT &lTabArg
GO TOP IN &lTabArg
DO WHILE ! EOF(lTabArg)

   *A_CreatePrn(lPortaArg,"PPLA.prn")
   cUsb = A_GetUSBBufferLen()
   A_CreateUSBPort(1)
   A_Set_Darkness(12)
   cCodBar1 = TMP_IMPRIMIR.CODIGO
   nSelect = "SELECT CODIGO FROM Tslc003 WHERE CODBAR = ?cCodBar1 "
   TSEXEC("T",nSelect,"TMP_COD")
   cCodProd = TMP_COD.CODIGO
   nSelect = "SELECT * FROM Tslc049b WHERE ?cCodProd = SEQ003 AND SEQ049 = 1 "
   TSEXEC("T",nSelect,"TMP_PRECO")
   cTextoAG1 = "R$: " + TRANSFORM(&lTabArg..PRECO1,"999,999.99")
   *cTextoAG1 = "R$:" + ALLTRIM(SUBSTR(STR(TMP_PRECO.VALOR,6,2),1,3) + SUBSTR(STR(TMP_PRECO.VALOR,6,2),5,2))
*   A_Prn_Text(15,30,1,9,0,1,1,78,2,cTexto1) && 78 = 110
   A_Prn_Text_TrueType(15,29,24,"Arial",1,400,0,0,0,"AA",cTextoAG1,1)
   cBarA1 = ALLTRIM(&lTabArg..CODBAR)
   A_Prn_Barcode(15,0,1,68,0,0,20,98,1,cBarA1)
   
   SKIP IN &lTabArg
   IF ! EOF(lTabArg)
      cCodBar1 = TMP_IMPRIMIR.CODIGO
      nSelect = "SELECT CODIGO FROM Tslc003 WHERE CODBAR = ?cCodBar1 "
      TSEXEC("T",nSelect,"TMP_COD")
      cCodProd = TMP_COD.CODIGO
      nSelect = "SELECT * FROM Tslc049b WHERE ?cCodProd = SEQ003 AND SEQ049 = 1 "
      TSEXEC("T",nSelect,"TMP_PRECO")
      cTextoAG2 = "R$: " + TRANSFORM(&lTabArg..PRECO1,"999,999.99")
*      A_Prn_Text(145,30,1,9,0,1,1,78,2,cTexto1) && 78 = 110
      A_Prn_Text_TrueType(145,29,24,"Arial",1,400,0,0,0,"AB",cTextoAG2,1)
      cBarA2 = ALLTRIM(&lTabArg..CODBAR)
      A_Prn_Barcode(145,0,1,68,0,0,20,98,1,cBarA2)
      
      SKIP IN &lTabArg
      
   ENDIF
   
   IF ! EOF(lTabArg)
      cCodBar1 = TMP_IMPRIMIR.CODIGO
      nSelect = "SELECT CODIGO FROM Tslc003 WHERE CODBAR = ?cCodBar1 "
      TSEXEC("T",nSelect,"TMP_COD")
      cCodProd = TMP_COD.CODIGO
      nSelect = "SELECT * FROM Tslc049b WHERE ?cCodProd = SEQ003 AND SEQ049 = 1 "
      TSEXEC("T",nSelect,"TMP_PRECO")
      cTextoAG3 = "R$: " + TRANSFORM(&lTabArg..PRECO1,"999,999.99")
*      A_Prn_Text(275,30,1,9,0,1,1,78,2,cTexto1) && 78 = 110
      A_Prn_Text_TrueType(275,29,24,"Arial",1,400,0,0,0,"AC",cTextoAG3,1)
      cBarA3 = ALLTRIM(&lTabArg..CODBAR)
      A_Prn_Barcode(275,0,1,68,0,0,20,98,1,cBarA3)
   ENDIF
   
   A_Print_Out(1,1,1,1)
   =A_ClosePrn()
   
   IF ! EOF(lTabArg)
      SKIP IN &lTabArg
   ENDIF
   LOOP
   
ENDDO