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 
MSExecAuto({|x,y,z,a,b|TMKA070(x,y,z,a,b)},aContato,nOpc,aEndereco,aTelefone, .F.)

Retorno:

Nil

Exemplos:

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

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

Totvs custom tabs box

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

tabs

01,02,03

ids

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	yesno
referencia	Inclusão02

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 TOTVSalteraçã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çãoalteração do contato") 
        Else 
            MsgAlert('IncluidoContato contatoalterado com sucesso.') 
        EndIf

        RestArea(aArea)

    RPCClearEnv()

Return

Totvs custom tabs box items

default	no
referencia	0203

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

Árvore de páginas

Versões comparadas

Versão antiga 31

Nova versão Atual

Chave