VB_ASS;Associados da Empresa;skip_blk(x); 7; 5;18;77;psq_ass;;
:SKEL
VARIAVEL w_mensagem = "Sem mais Associados desta Empresa"
VARIAVEL w_chave := if(type("w_chave")<>"C",Str(m_fcli,6),w_chave)
VARIAVEL w_block := {|| w_chave <> Str(Cr_Cod_Cli,6) }
COMANDO ANTES Z_NIL := ( OrdSetFocus("VB_ASSM"), dbSetFilter({||m_fcli=cr_cod_cli},'m_fcli=cr_cod_cli'), dbGOTOP() )
:TBMT
 13;(OrdSetFocus(1),psq_enter());Enter-Aceita Campo;
 80;psq_n_ass(d_ob);P-Pesquisa Nome;
 77;psq_m_ass(D_oB);M-Psq_Matricula;
 22;tb_insert(D_OB);Ins-Inclui Associado;
 65;tb_update(D_OB);A-Altera Ficha;
  7;tb_del(D_ob);DEL-DELeta ;
 73;Lst_alias(D_OB);I-Imprime Listagem;
: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;;