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)

Todos

Descrição:

A função TMKA070 permite efetuar a inclusão, alteração e exclusão de Contatos.
Programa Fonte:

TMKA070.prw
Sintaxe:

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

Retorno:

Nil

Exemplos:

 
MSExecAuto({|x,y,z,a,b|TMKA070(x,y,z,a,b)},aContato,nOpc,aEndereco,aTelefone, .F.)

Retorno:

Nil

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	Operação da rotina a ser executada, 3=inclusão 4=alteração 5=exclusão		X
xAutoAGA	Array of Record	Array contendo as informações de Endereço		X
xAutoAGB	Array of Record	Array contendo as informações de Telefone		X
xPrefSU5	Lógico	Modo de Compatibilidade (Se habilitado, Preenche os dados da tabela AGA com dados da SU5)		X

Exemplos

Totvs custom tabs box

tabs	Inclusão, Alteração, Exclusão
ids	01,02,03

Exemplo:

Totvs custom tabs box items

default	yes
referencia	01

Bloco de código

language	actionscript3
linenumbers	true

User Function MyTmk070()



    Local aContato := {}


    Local aEndereco := {}


    Local aTelefone := {}


    Local aAuxDados := {}


    Local aArea := {}
	Local nOpc  := 3

    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 inclusão", Nil})


        AAdd(aContato,{"U5_EMAIL","[email protected]", Nil})



        AAdd(aAuxDados,

“AGB

"AGB_

TIPO”

TIPO",

“1”

"1", Nil})


        AAdd(aAuxDados,

“AGB

"AGB_

PADRAO”

PADRAO",

“1”

"1", Nil})


        AAdd(aAuxDados,

“AGB

"AGB_

DDI”

DDI",

“55”

"55", Nil})


        AAdd(aAuxDados,

“AGB

"AGB_

DDD”

DDD",

“11”

"11", Nil})


        AAdd(aAuxDados,

“AGB

"AGB_

TELEFO”

TELEFO",

“12349874”

"12349874", Nil})



        AAdd(aTelefone, aAuxDados)



        aAuxDados := {}



        AAdd(aAuxDados,

“AGA

"AGA_

TIPO”

TIPO",

“1”

"1", Nil})


        AAdd(aAuxDados,

“AGA

"AGA_

PADRAO”

PADRAO",

“1”

"1", Nil})


        AAdd(aAuxDados,

“AGA

"AGA_

END”

END",

“R

"R.

Totvs”

Totvs", Nil})


        AAdd(aAuxDados,

“AGA

"AGA_

CEP”

CEP",

“12345123”

"12345123", Nil})


        AAdd(aAuxDados,

“AGA

"AGA_

BAIRRO”

BAIRRO",

“Bairro

"Bairro

Totvs”

Totvs", Nil})


        AAdd(aAuxDados,

“AGA

"AGA_

MUNDES”

MUNDES",

“Cidade

"Cidade

Totvs”

Totvs", Nil})


        AAdd(aAuxDados,

“AGA

"AGA_

EST”

EST",

“SP”

"SP", Nil})



        AAdd(aEndereco, aAuxDados)



        MSExecAuto({|x,y,z,a,b|TMKA070(x,y,z,a,b)},aContato,

3

nOpc,aEndereco,aTelefone, .F.)

 

        If lMsErroAuto


            MsgStop("Erro na

gravação

inclusão do contato")

Else

 
        Else 
            MsgAlert('

Incluido

Contato

contato

incluído 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

 
        EndIf

        RestArea(aArea)

    RPCClearEnv()

Return

Totvs custom tabs box items

default	no
referencia	02

Bloco de código

language	actionscript3
linenumbers	true

User Function MyTmk070()

    Local aContato := {}
    Local aEndereco := {}
    Local aTelefone := {}
    Local aAuxDados := {}
    Local aArea := {}
	Local nOpc  := 4

    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 alteração", 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,nOpc,aEndereco,aTelefone, .F.) 

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

        RestArea(aArea)

    RPCClearEnv()

Return

tabs

Inclusão, Alteração, Exclusão

ids

Alteração

Totvs custom tabs box items

default	yesno
referencia	Inclusão03

Bloco de código

language	actionscript3
linenumbers	true

User Function MyTmk070()

    Local aContato := {}
    Local aEndereco := {}
    Local aTelefone := {}
    Local aAuxDados := {}
    Local aArea := {}
	Local nOpc  := 5

    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 TOTVSexclusão", 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,5nOpc,aEndereco,aTelefone, .F.) 

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

        RestArea(aArea)

    RPCClearEnv()

Return

Totvs custom tabs box items

default

yes

referencia

Árvore de páginas

Versões comparadas

Versão antiga 26

Nova versão Atual

Chave