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 

cUsb = A_GetUSBBufferLen()

A_CreateUSBPort(1)
IF MESSAGEBOX("Deseja Imprimir Gondula ?",292,"Impresso") = 6

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 CODBAR,PRECO1 FROM Tslc003 WHERE CODBAR = ?cCodBar1 "
   TSEXEC("T",nSelect,"TMP_COD")
   
   cTextoAG2 = ALLTRIM(&lTabArg..DESC)
   cTextoAG3 = "R$: " + TRANSFORM(&lTabArg..PRECO1,"999.99")

   *cTextoAG1 = ALLTRIM(&lTabArg..DESC) + "" + 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(20,65,40,"Arial",1,400,0,0,0,"AA",cTextoAG1,1)
   A_Prn_Text_TrueType(20,70,40,"Arial",1,400,0,0,0,"AB",cTextoAG2,1)
   A_Prn_Text_TrueType(100,15,75,"Arial",1,400,0,0,0,"AC",cTextoAG3,1)
   *cBarA1 = SUBSTR(&lTabArg..CODIGO,9,8)
   *A_Prn_Barcode(15,0,1,68,0,0,20,98,1,cBarA1)
   
   A_Print_Out(1,1,1,1)
   =A_ClosePrn()
   
   IF ! EOF(lTabArg)
      SKIP IN &lTabArg
   ENDIF
   LOOP
   
ENDDO

ELSE

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 CODBAR,PRECO1 FROM Tslc003 WHERE CODBAR = ?cCodBar1 "
   TSEXEC("T",nSelect,"TMP_COD")
   
   cTextoAG2 = SUBSTR(ALLTRIM(&lTabArg..DESC),1,25)
   cTextoAG21 = SUBSTR(ALLTRIM(&lTabArg..DESC),26,25)

   cTextoAG3 = "R$: " + TRANSFORM(&lTabArg..PRECO1,"999.99")

   *cTextoAG1 = ALLTRIM(&lTabArg..DESC) + "" + 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(20,65,40,"Arial",1,400,0,0,0,"AA",cTextoAG1,1)
   A_Prn_Text_TrueType(20,70,29,"Arial",1,400,0,0,0,"AB",cTextoAG2,1)
   A_Prn_Text_TrueType(20,56,29,"Arial",1,400,0,0,0,"AC",cTextoAG21,1)
   A_Prn_Text_TrueType(55,15,60,"Arial",1,400,0,0,0,"AD",cTextoAG3,1)
   *cBarA1 = SUBSTR(&lTabArg..CODIGO,9,8)
   *A_Prn_Barcode(15,0,1,68,0,0,20,98,1,cBarA1)
   
   A_Print_Out(1,1,1,1)
   =A_ClosePrn()
   
   IF ! EOF(lTabArg)
      SKIP IN &lTabArg
   ENDIF
   LOOP
   
ENDDO



ENDIF

