| Pagetitle |
|---|
| TMKA070 - Rotina Automatica de Contatos |
|---|
| TMKA070 - Rotina Automatica de Contatos |
|---|
|
Função: TMKA070 - Rotina Automática 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 Automática de Contatos ( [ aRotAuto ], nOpc, xAutoAGA, xAutoAGB, xPrefSU5 )
| Totvs custom tabs box items |
|---|
| default | yes |
|---|
| referencia | Exemplos |
|---|
| | Totvs custom tabs box items |
|---|
| default | yes |
|---|
| referencia | Inclusão |
|---|
| User Function MyTmk070() Local aContato := {}
Local aEndereco := {}
Local aTelefone := {}
Local aAuxDados := {}
Local aArea := {} Private lMsErroAuto := .F. RPCSetEnv("T1", "D MG 01", NIL, NIL, "TMK", NIL, {"SUS", "AGB"}) DbSelectArea("SUS")
DbSetOrder(1)
DbSeek(xFilial("SUS")+"000020"+"") aArea := GetArea() AAdd(aContato,{"U5_FILIAL", xFilial("SU5"),Nil})
AAdd(aContato,{"U5_CODCONT","000020", Nil})
AAdd(aContato,{"U5_CONTAT","Nome do contato TOTVS", Nil})
AAdd(aContato,{"U5_EMAIL","teste@totvs.com.br", Nil}) AAdd(aAuxDados,{"AGB_TIPO", "1", Nil})
AAdd(aAuxDados,{"AGB_PADRAO", "1", Nil})
AAdd(aAuxDados,{"AGB_DDI", "55", Nil})
AAdd(aAuxDados,{"AGB_DDD", "11", Nil})
AAdd(aAuxDados,{"AGB_TELEFO", "12349874", Nil}) AAdd(aTelefone, aAuxDados) aAuxDados := {} AAdd(aAuxDados,{"AGA_TIPO", "1", Nil})
AAdd(aAuxDados,{"AGA_PADRAO", "1", Nil})
AAdd(aAuxDados,{"AGA_END", "R. Totvs", Nil})
AAdd(aAuxDados,{"AGA_CEP", "12345123", Nil})
AAdd(aAuxDados,{"AGA_BAIRRO", "Bairro Totvs", Nil})
AAdd(aAuxDados,{"AGA_MUNDES", "Cidade Totvs", Nil})
AAdd(aAuxDados,{"AGA_EST", "SP", Nil}) AAdd(aEndereco, aAuxDados) MSExecAuto({|x,y,z,a,b|TMKA070(x,y,z,a,b)},aContato,5,aEndereco,aTelefone, .F.) If lMsErroAuto
MsgStop("Erro na gravação do contato")
Else
MsgAlert('Incluido contato com sucesso.')
EndIf RestArea(aArea) RPCClearEnv() Return |
| User Function MyTmk070()
Local aContato := {}
Local aEndereco := {}
Local aTelefone := {}
Local aAuxDados := {}
Private lMsErroAuto := .F. 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})
AAdd(aAuxDados, {“AGB_TIPO”, “1”, Nil})
AAdd(aAuxDados, {“AGB_PADRAO”, “1”, Nil})
AAdd(aAuxDados, {“AGB_DDI”, “55”, Nil})
AAdd(aAuxDados, {“AGB_DDD”, “11”, Nil})
AAdd(aAuxDados, {“AGB_TELEFO”, “12349874”, Nil})
AAdd(aTelefone, aAuxDados)
aAuxDados := {}
AAdd(aAuxDados, {“AGA_TIPO”, “1”, Nil})
AAdd(aAuxDados, {“AGA_PADRAO”, “1”, Nil})
AAdd(aAuxDados, {“AGA_END”, “R. Totvs”, Nil})
AAdd(aAuxDados, {“AGA_CEP”, “12345123”, Nil})
AAdd(aAuxDados, {“AGA_BAIRRO”, “Bairro Totvs”, Nil})
AAdd(aAuxDados, {“AGA_MUNDES”, “Cidade Totvs”, Nil})
AAdd(aAuxDados, {“AGA_EST”, “SP”, Nil})
AAdd(aEndereco, aAuxDados)
MSExecAuto({|x,y,z,a,b|TMKA070(x,y,z,a,b)},aContato,3,aEndereco,aTelefone, .F.)
If lMsErroAuto
MsgStop("Erro na gravação do contato")
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. |
| X |
| | nOpc | Numérico | Opção da rotina a ser executada |
|
|
| | xAutoAGA | Array of Record | Array contendo as informações de Endereço |
|
|
| | xAutoAGB | Array of Record | Array contendo as informações de Telefone |
|
|
| | xPrefSU5 | Lógico | Modo de Compatibilidade (Se habilitado, Preenche os dados da tabela AGA com dados da SU5) |
|
|
|
|
