You are right

Now I did browse tests and find out the record are being appended
to the reemb table after the label in the last line



SELECT * FROM DIRETO INTO CURSOR MYCURSOR READWRITE WHERE DIRETO.ETI_PT = 0
SELECT MYCURSOR
APPEND FROM reembolso for reembolso.eti_pt = 0

SELECT REEMBOLSO

BROWSE FIELDS CL



** coloca a senha no cursor de etiquetas REEMBOLSO

SELECT REEMBOLSO
SCAN FOR REEMBOLSO.ETI_PT = 0


IF "CONTROL" $ UPPER(REEMBOLSO.prog_long) && caso encontre a expressão "CONTROL"


IF LEN (ALLTRIM(CPF)) # 11 .AND. LEN (ALLTRIM(CPF)) # 14
= MESSAGEBOX("Não foi possível gerar a senha do Assist Control. Cliente: " + Reembolso.cl)
ELSE
STORE reembolso.cpf TO CPF1
STORE reembolso.cl TO cl1
thisform.senha_assist
endif


ENDIF

ENDSCAN




SELECT DIRETO
REPLACE ALL COBRAR WITH 0 FOR DIRETO.ETI_PT = 0

SCAN FOR DIRETO.ETI_PT = 0

IF "CONTROL" $ UPPER(DIRETO.prog_long) && caso encontre a expressão "CONTROL"


IF LEN (ALLTRIM(CPF)) # 11 .AND. LEN (ALLTRIM(CPF)) # 14
= MESSAGEBOX("Não foi possível gerar a senha do Assist Control. Cliente: " + direto.cl)
ELSE
STORE direto.cpf TO CPF1
STORE direto.cl TO cl1
thisform.senha_assist
endif


ENDIF


endscan



select MYCURSOR
BROWSE FIELDS CL
LABEL FORM CL_ETI_MUI TO PRINT PROMPT PREVIEW