Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: M030SAO - Gravação das Referências do Cliente


Descrição:

Este ponto de entrada é executado no momento da gravação das "Referências" do Cadastro de Clientes, que se encontra no botão "Outras Ações\Referências".

Programa Fonte:
MATN030.PRW

Sintaxe:

M030SAO ( [ nOpcao ] ) --> Nil


Parâmetros:


NomeTipoDescrição
nOpcaoNuméricoTipo de Operação, sendo: 3- Inclusão, 4- Alteração e 5- Exclusão.


Retorno:
Nil - Nenhum

Exemplo:


User Function M030SAO()

Local _nOpcao := PARAMIXB[1]    //Tipo de Operação: 3- Inclusão, 4- Alteração e 5- Exclusão

//Gravando uma observação na inclusão de uma referência do tipo "2-Empresa".
If _nOpcao == 3 .And. SAO->AO_TIPO == "2"   //1=Instituição, 2=Empresa e 3=Banco
    RecLock("SAO",.F.)
    SAO->AO_OBSERV := "GRAVANDO A REFERÊNCIA DE EMPRESA"
    MsUnlock()
EndIf

Return Nil