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:	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,3nOpc,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

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", 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,3nOpc,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

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,4nOpc,aEndereco,aTelefone, .F.) 

        If lMsErroAuto 
            MsgStop("Erro na alteração do contato") 
        Else 
            MsgAlert('Contato alterado com sucesso.') 
        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,5nOpc,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 50

Nova versão Atual

Chave