Função: TMKA070 - Rotina Automatica de Contatos
| Abrangências: | Protheus 10 |
| Versões: | Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todas TotvsDbAccess |
| Nível de Acesso: | Nível 1 (Acesso Clientes) |
| Idiomas: | Português (Brasil) |
Descrição:A função TMKA070 permite efetuar a inclusão de Contatos.
Sintaxe:TMKA070 - Rotina Automatica de Contatos ( [ aRotAuto ] )
Observações
ExemplosUser Function MyTmk070()
Local aContato := {}
Private lMsErroAutoAAddlMsErroAuto
AAdd(aContato,{"U5_FILIAL", xFilial("SU5"), Nil})
AAdd(aContato,{"U5_CODCONT", "000020", Nil})
AAdd(aContato,{"U5_CONTAT", "Nome do contato", Nil})
AAdd(aContato,{"U5_EMAIL", "[email protected]", Nil})
MSExecAuto({|x,y|TMKA070(x,y)},aContato,3)
If lMsErroAuto
MsgStop("Erro na gravação do contato")
MostraErro()
Else
MsgAlert('Incluido contato com sucesso.') EndIfReturn
EndIf
Return
Parâmetros:
| | Nome | | | Tipo | | | Descrição | | | Default | | | Obrigatório | | | Referência | |
| | aRotAuto | | | Array of Record | | | Array contendo os campos a serem preenchidos. | | | | | | | | | | |
