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_CreatePort in WINPPLA.DLL integer, integer, string
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 

*cUsb = A_GetUSBBufferLen()

*A_CreateUSBPort(1)
*lPortaArg = A_CreatePort(1,1,NULL)
*wait window lportaarg

&& ETIQUETA TIPO 1

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

   *A_CreatePrn(lPortaArg,"PPLA.prn") && "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")

   cTextoAG1B = "A DOCELANDIA"

   *A_Prn_Text_TrueType(40,95,30,"Arial",1,400,0,0,0,"A4",cTextoAG1B,1) && DECRIO 02

   cTextoAG1 = SUBSTR(&lTabArg..DESC,1,30)

   A_Prn_Text_TrueType(20,65,50,"Arial",1,400,0,0,0,"AA",cTextoAG1,1) && DECRIO 01

   cTextoAG1 = SUBSTR(&lTabArg..DESC,31,30)

   A_Prn_Text_TrueType(20,45,50,"Arial",1,400,0,0,0,"AB",cTextoAG1,1) && DECRIO 02


   cTextoAG1A = "R$ " + ALLTRIM(TRANSFORM(&lTabArg..PRECO1,"999,999.99"))

   A_Prn_Text_TrueType(175,5,90,"Arial",1,400,0,0,0,"A1",cTextoAG1A,1) && vALOR

   cBarA1 = SUBSTR(&lTabArg..CODIGO,9,8)

   *A_Prn_Text_TrueType(90,0,30,"Arial",1,400,0,0,0,"A5",cBarA1,1) && DECRIO 02

*   A_Prn_Text_TrueType(40,95,20,"Arial",1,400,0,0,0,"A1",cBarA1,1) && CDIGO 03
   
   A_Print_Out(1,1,1,1)
   =A_ClosePrn()

   SKIP IN &lTabArg
   LOOP
   
ENDDO


