Public cImpressas

cImpressas = 0

cForm = FULLPATH(CURDIR()) + "IMPRESS\ETIQ_IMPRESSAS.SCX"

CREATE CURSOR TMP_IMPRESS(CLINOM C(50),CLIEND C(50),NUMERO C(5),CLIBAI C(30),CLICID C(30),CLIEST C(2),CLICEP C(9))

DO FORM &cForm

if cImpressas > 0

FOR nIdx = 1 to cImpressas

   SELECT TMP_IMPRESS
   APPEND BLANK IN TMP_IMPRESS

NEXT

endif 

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

   SELECT TMP_IMPRESS
   INSERT INTO TMP_IMPRESS(CLINOM,CLIEND,NUMERO,CLIBAI,CLICID,CLIEST,CLICEP) VALUES(TMP_CLIENTE.CLINOM,TMP_CLIENTE.CLIEND,TMP_CLIENTE.NUMERO,TMP_CLIENTE.CLIBAI,TMP_CLIENTE.CLICID,TMP_CLIENTE.CLIEST,TMP_CLIENTE.CLICEP)

   SELECT TMP_CLIENTE
   SKIP IN TMP_CLIENTE
   LOOP
ENDDO

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

SELECT TMP_IMPRESS
GO TOP IN TMP_IMPRESS

CHAMAIMP2("TMP_IMPRESS",cReport)