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: 
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

Modo de Compatibilidade (Se habilitado, Preenche os dados da tabela AGA com dados da SU5

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

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

Retorno:

Nil

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 inclusão do contato") 
        Else 
            MsgAlert('Contato incluído com sucesso.') 
        EndIf

        RestArea(aArea)

    RPCClearEnv()

Return

Totvs custom tabs box items

default	no
referencia	02

Bloco de código

language	actionscript3
linenumbers	true

Exemplos:

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

"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

alteração do contato")

Else

 
        Else 
            MsgAlert('

Incluido

Contato

contato

alterado 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


        EndIf

        RestArea(aArea)

    RPCClearEnv()

Return

Totvs custom tabs box items

default	no
referencia	03

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 exclusã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 exclusão do contato") 
        Else 
            MsgAlert('Contato excluído com sucesso.') 
        EndIf

        RestArea(aArea)

    RPCClearEnv()

Return

)

Árvore de páginas

Versões comparadas

Versão antiga 20

Nova versão Atual

Chave