Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 13

changes.mady.by.user Usuário desconhecido (eduardo.yamamoto)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (fernando.gabriel)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

 
Portuguese

Pagetitle
TMKA070 - Rotina Automatica de Contatos
TMKA070 - Rotina Automatica de Contatos

Função: TMKA070 - Rotina Automática de Cadastro de Contatos
 


Abrangências:Protheus 10
e Protheus 11
Versões:Protheus 10
e Protheus 11
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 manutenção inclusão, alteração e exclusão de Contatos.
Programa Fonte:
TMKA070.prw
Sintaxe: 
TMKA070 - Rotina Automática de Cadastro de Contatos ( [ aRotAuto ], nOpc, xAutoAGA, xAutoAGB, xPrefSU5 )
Retorno:
    ()
Observações
Exemplos
MSExecAuto({|x,y,z,a,b|TMKA070(x,y,z,a,b)},aContato,nOpc,aEndereco,aTelefone, .F.)
Retorno:
Nil

Parâmetros:


NomeTipoDescriçãoDefaultObrigatórioReferência
aRotAutoArray of RecordArray contendo os campos a serem preenchidos.
X
nOpcNuméricoOperação da rotina a ser executada, 3=inclusão 4=alteração 5=exclusão
X
xAutoAGAArray of RecordArray contendo as informações de Endereço
X
xAutoAGBArray of RecordArray contendo as informações de Telefone
X
xPrefSU5LógicoModo de Compatibilidade (Se habilitado, Preenche os dados da tabela AGA com dados da SU5)
X
Totvs custom tabs box
tabsInclusão, Alteração, Exclusão
ids01,02,03

Exemplo:

Totvs custom tabs box items
defaultyes
referencia01
Bloco de código
languageactionscript3
linenumberstrue
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.          
 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          

 

 
        EndIf

        RestArea(aArea)

    RPCClearEnv()

Return
Totvs custom tabs box items
defaultno
referencia02
Bloco de código
languageactionscript3
linenumberstrue
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
Totvs custom tabs box items
defaultno
referencia03
Bloco de código
languageactionscript3
linenumberstrue
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