Histórico da Página

...

Portuguese

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.

Programa Fonte:

TMKA070.prw
Sintaxe:

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

Retorno: Nil

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)

Totvs custom tabs box

tabs	Inclusão01, Alteração02, Exclusão03
ids	Inclusão, Alteração, Exclusão

Totvs custom tabs box items

default	yes
referencia	Inclusão

Bloco de código

language	actionscript3
linenumbers	true

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

Totvs custom tabs box items

default	no
referencia	Alteração02

Bloco de código

language	actionscript3
linenumbers	true

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","[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

Árvore de páginas

Versões comparadas

Versão antiga 30

Nova versão 31

Chave