VB_ASS;Associados da Empresa;skip_blk(x); 7; 5;18;77;psq_ass;;
:SKEL
COMANDO ANTES W_CR_COD_CLI = M_FCLI
COMANDO ANTES VB_ASS->(DBCLOSEAREA())
COMANDO ANTES ABRA("0RO",R_SIGA,"VB_ASS","VB_ASS","VB_ASSEN","STR(CR_COD_CLI,5)+STR(MATRICULA,7)","VB_ASSM","STR(CR_COD_CLI,5)+NOME")
VARIAVEL w_mensagem = "Sem mais Associados desta Empresa"
VARIAVEL w_chave    = Str(m_fcli,5)
VARIAVEL w_block    = {|| w_chave <> Str(Cr_Cod_Cli,5) }
COMANDO ANTES Z_NIL = dbSetFilter( {||m_fcli=cr_cod_cli}, 'm_fcli=cr_cod_cli' )
COMANDO ANTES Z_NIL = dbGOTOP()
:TBMT
 13;ret_mat_ass();Enter-Confirma ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 22;tb_insert(D_OB);Ins-Inclui ;
 65;tb_update(D_OB);A-Altera ;
  7;tb_del(D_ob);DEL-Deleta ;
 73;Lst_alias(D_OB);I-Imprime ;
:TBFI
Empr;CR_COD_CLI;N;99999;  5;N;
Matric;MATRICULA;N;9999999;  7;;
Nome;NOME;C;@s30; 30;;
Dt Cad;DATA_CAD;D;;  8;;
Ult Comp;ULT_COMPRA;D;;  8;;
