Como criar transações específicas do Multiplanta

Como criar transações específicas do Multiplanta?

Como criar transações específicas do Multiplanta?

1) Criar uma transação no cadastro de transações, MP0114.P;

2) Criar um programa que crie o registro para a tabela LOG-ENV e MP-MENSAGEM como abaixo:

/* PROGRAMA DE GERAÇÃO MGXX10 */

/* TEBELA CAPA DE LOTE */

create log-env.

assign log-env.cd-msg = NÚMERO SEQUENCIAL
log-env.cd-trans = NOME DA TANSAÇÃO CADASTRADA
log-env.cd-programa = NOME PRINCIPAL DO PROGRAMA ex:(XX10)
log-env.dt-geracao = today
log-env.hr-geracao = string(time,"HH:MM:SS")
log-env.usuario = userid("mgadm"). /* USUÁRIO */


/* TABELA QUE ARMAZENA DADOS */

create mp-mensagem.

assign mp-mensagem.tp-msg = yes /* envio */
mp-mensagem.cd-maq-origem = 0
mp-mensagem.cd-trans = log-env.cd-trans
mp-mensagem.cd-msg = log-env.cd-msg
mp-mensagem.num-seq = NÚMERO SEQUENCIAL
mp-mensagem.tp-movto = TIPO DE MOVIMENTO
mp-mensagem.char-1 = DESCRIÇÃO DA TRANSÇÃO.

assign mp-mensagem.lin-msg[1] = DADOS A SEREM TRANSFERIDOS.

/* FIM */

3) Na base que receberá as informações, deverá existir o seguinte programa:

- Este programa deverá estar no diretório MAP.

- Com base no exemplo supracitado o nome do programa deverá ser MAXX10.P.

- No programa MAXX10.P deverá ter a seguinte estrutura:


/* PROGRAMA DE ATUALIZAÇÃO MAXX10.P */

def shared buffer b-log-rec for log-rec.

for each mp-mensagem
where mp-mensagem.tp-msg = no /* recepção */
and mp-mensagem.cd-maq-origem = b-log-rec.cd-maq-origem
and mp-mensagem.cd-msg = b-log-rec.cd-msg
and mp-mensagem.cd-trans = b-log-rec.cd-trans:

ATUALIZAÇÃO DOS DADOS.

If "erros"
then
Assign
Mp-mensagem.mensagem[1] = "mensagem de erro"
MP-mensagem.sit-msg = 3
b-log-rec.erro-msg = 3.
end.

assign b-log-rec.situacao = yes
b-log-rec.dt-atualiza = today
b-log-rec.hr-atualiza = string(time,"HH:MM:SS").

/* FIM */


Segue também a lista de programas tratados por transação atualmente no Magnus I :

- MCB - cb1201
cb1202
cb1209
cb1203
cb1210

- MCD - cd0407
cd0906
cd0920
cd1121
cd1406
cd1502
cd1504
cd9111

- MCQ - cq0113

- MCR - cr0503

- MFT - ft0603

- MPM - pm0506

- MRE - re0106
re0404
re0304

- MIN - todos os programas do investimento tratados pelo MP.

Qualquer outra dúvida entrar em contato com o nosso suporte tecnologia via o telefone (047) 2101-7400.


OBS: PARA QUE UMA TRANSAÇÃO SEJA ENVIADA E ATUALIZADA É NECESSÁRIO:

*** ENVIO

- CADASTRAR UM CÓDIGO DE TRANSFERÊNCIA COM UMA SEQÜÊNCIA INDICANDO ENVIO DE TRANSAÇÃO, ISTO VIA MP0112;
- CADASTRAR UM DESTINO DE PROGRAMA PARA O PROGRAMA DA TRANSAÇÃO, (PROGRAMA DA TRANSAÇÃO É O NOME INFORMADO NO CAMPO CD-PROGRAMA DA TABELA LOG-ENV), VIA MP0103.

*** ATUALIZAÇÃO

- PARA ATUALIZAR O LOG DE RECEBIMENTO DE TRANSAÇÃO É NECESSÁRIO UTILIZAR O MP0303.