Exibir origem

import.css=/download/attachments/327912/newLayout.css

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.

Programa Fonte:

TMKA070.prw

Sintaxe:

      TMKA070 - Rotina Automática de Contatos ( [ aRotAuto ], nOpc, xAutoAGA, xAutoAGB, xPrefSU5 )

Retorno:

Nil

Exemplos:

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)

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"})

        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","[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,5,aEndereco,aTelefone, .F.) 

        If lMsErroAuto 
            MsgStop("Erro na gravação do contato") 
        Else 
            MsgAlert('Incluido contato com sucesso.') 
        EndIf

        RestArea(aArea)

    RPCClearEnv()

Return