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.
Programa Fonte:
TMKA070.prw
Sintaxe:
TMKA070 - Rotina Automatica de Contatos ( [ aRotAuto ] )
Retorno:
- ()
Observações
Exemplos
User Function MyTmk070()
Local aContato := {}
Private lMsErroAuto
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.')
EndIf
Return
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| aRotAuto | Array of Record | Array contendo os campos a serem preenchidos. |