MTA650GEM - Explosão da Estrutura - Geração dos Empenhos

Ponto de Entrada

Ponto de Entrada

Escreva aqui a descrição da nova implementação ou melhoria.

Importante

(Apenas para Microsiga Protheus, versões anteriores à versão 12)

Antes de executar o compatibilizador informe o nome do compatibilizador é imprescindível:

• Realizar o backup da base de dados do produto que será executado o compatibilizador (diretório PROTHEUS_DATA\DATA, se versão 10, ou \PROTHEUS11_DATA\DATA, se versão 11) e dos dicionários de dados SXs (diretório PROTHEUS_DATA_SYSTEM, se versão 10, ou \PROTHEUS11_DATA\SYSTEM, se versão  11).
• Os diretórios acima mencionados correspondem à instalação padrão do Protheus, portanto, devem ser alterados conforme o produto instalado na empresa.
• Essa rotina deve ser executada em modo exclusivo, ou seja, nenhum usuário deve estar utilizando o sistema.
• Se os dicionários de dados possuírem índices personalizados (criados pelo usuário), antes de executar o compatibilizador, certifique-se de que estão identificados pelo nickname. Caso o compatibilizador necessite criar índices, irá adicioná-los a partir da ordem original instalada pelo Protheus, o que poderá sobrescrever índices personalizados, caso não estejam identificados pelo nickname.
• O compatibilizador deve ser executado com a Integridade Referencial desativada*.

1. Em Microsiga Protheus TOTVS Smart Client (se versão 10), digite o nome do compatibilizador no campo Programa Inicial. Descreva se o compatibilizador deve ter uma data específica ou superior para que a atualização nos dicionários seja efetuada corretamente. Importante: Para a correta atualização do dicionário de dados, certifique-se que a data do compatibilizador seja igual ou superior a ___/___/____.
2. Clique em OK para continuar.
3. Após a confirmação é exibida uma tela para a seleção da empresa em que o dicionário de dados será modificado ou é apresentada a janela para seleção do compatibilizador. Selecione o programa xxxx().
4. Ao confirmar é exibida uma mensagem de advertência sobre o backup e a necessidade de sua execução em modo exclusivo.
   1. Clique em Processar para iniciar o processamento. O primeiro passo da execução é a preparação dos arquivos.
      É apresentada uma mensagem explicativa na tela.
   2. Em seguida, é exibida a janela Atualização concluída com o histórico (log) de todas as atualizações processadas. Nesse log de atualização são apresentados somente os campos atualizados pelo programa. O compatibilizador cria os campos que ainda não existem no dicionário de dados.
   3. Clique em Gravar para salvar o histórico (log) apresentado.
   4. Clique em OK para encerrar o processamento.

Descreva se há algum procedimento necessário após a aplicação do compatibilizador.

Procedimento para Implantação

O sistema é atualizado logo após a aplicação do pacote de atualizações (Patch) deste chamado.

1. Aplique o patch do chamado e execute uma vez a rotina Informe o nome da rotina.
2. No módulo informe o nome do módulo acesse informe o caminho e verifique que o parâmetro informe o nome do parâmetro é criado conforme especificações abaixo:

Atualizações do Compatibilizador

(Apenas para Microsiga Protheus, versões anteriores à versão 12)

1. Criação ou Alteração de Perguntas no arquivo SX1 – Cadastro de Perguntes:

2.    Criação ou Alteração de tabela no arquivo SX2– Tabelas:

3.  Criação ou Alteração de Tabelas Genéricas no arquivo SX5 – Tabelas Genéricas:

4.  Criação ou Alteração (mantenha somente a instrução correspondente) de Campos no arquivo SX3 – Campos:

• Tabela BGD - Prod x Cob x Proc x Co-Part:

Importante:

O tamanho dos campos que possuem grupo pode variar conforme ambiente em uso.

5.  Criação ou Alteração de Consulta Padrão no arquivo SXB – Consulta Padrão:

• Pesquisa B05PLS:

6.  Criação ou Alteração de Índices no arquivo SIX – Índices:

7.  Criação ou Alteração de Parâmetros no arquivo SX6 – Parâmetros:

8.  Criação ou Alteração (mantenha somente a instrução correspondente) de Gatilhos no arquivo SX7 – Gatilhos:

• Tabela BD5 – Contas Médicas:

Procedimento para Configuração

(Estes procedimentos devem ser feitos quando for necessário configurar parâmetros e/ou  rotinas no menu).

CONFIGURAÇÃO DE PARÂMETROS

1. No Configurador (SIGACFG), acesse Ambientes/Cadastros/Parâmetros (CFGX017). Crie/configure (mantenha somente a instrução correspondente) o(s) parâmetro(s) a seguir:
   (É necessário criar uma tabela para cada parâmetro descrito no item Parâmetro(s), da tabela Características do Requisito)

CONFIGURAÇÃO DE MENUS

2.  No Configurador (SIGACFG), acesse Ambientes/Cadastro/Menu (CFGX013). Informe a nova opção de menu do informe o nome do módulo, conforme instruções a seguir:

Procedimento para Utilização

• Descreva os procedimentos, passo a passo (caso de uso), que serão realizados pelos usuários para que a melhoria seja visualizada identificando as seguintes informações:
• Localização da rotina no menu;
• Localização dos novos campos e/ou perguntas e respectivas pastas de cadastro que são visualizadas pelo usuário;
• Caso seja necessário ter algum cadastro feito previamente, faça uma observação.

Exemplo:

       1.            No Plano de Saúde (SIGAPLS), acesse Atualizações / Produto Saúde / Produto Saúde (PLSA800).

O sistema apresenta a janela de produtos cadastrados.

       2.            Posicione o cursor em um produto e clique em Alterar.

       3.            Na pasta Cobertura/Carências selecione a subpasta Tipo de Prestador.

       4.            Dê duplo clique no campo TP Prestador (BCW_TIPPRE).

O sistema apresenta a janela Tipo de Prestador – Coparticipação – Alterar.

       5.            Informe os dados conforme orientação do help de campo e observe o preenchimento do novo campo:

                      Som. p/Compra (BCW_SOMCOM): selecione Sim para indicar se a coparticipação cadastrada será válida somente para efeito de compra de procedimentos ou Não, caso contrário.

       6.            Confira os dados e confirme.

Vídeo

• Vídeo hospedado no youtube e inserido no template por meio da macro Widget Connector.

** Canal do youtube e software de vídeoem definição.

Exemplo:

Estrutura:

                   TST-PA

                         |

    |----------------------------------------|

TST-PI1                             TST-PI2

    |                                       |

TST-PI3                            TST-MP2

    |

TST-PI4

    |

TST-MP1

#INCLUDE "PROTHEUS.CH"
/////////////////////////////////
USER Function MTA650GEM()
/////////////////////////////////
Local cTipo := PARAMIXB[1]
Local c2filial := PARAMIXB[2]
Local c2num := PARAMIXB[3]
Local c2item := PARAMIXB[4]
Local c2sequen := PARAMIXB[5]
Local c2itemgrd := PARAMIXB[6]
Local c2prod := PARAMIXB[7]

Local aArrayProd
Local aArrayOps

Local lRet
Local i

Local aVetor := {}
Local dData
Local nOpc := 3

PRIVATE lMsErroAuto := .f.

DO CASE

//Quando cTipo == '1'
//É possível varrer a estrutura da OP principal para selecionar
//quais Produtos deverão ser geradas as OPs intermediárias.
//Poderá ser criada uma tela para selecionar esses produtos
//Esses produtos poderão ser armazenados em uma tabela específica ou em um array, contendo os campos necessários.
//O recomendável é que seja criada uma tabela específica

//Neste exemplo passarei fixo para o array aArrayProd quais produtos intermediários
//serão e não geradas as OPS.

//Também estarei alimentando o array aArrayOps com as ordens que terão esse tratamento especial
//Para que as demais OPs sejam criadas normalmente

CASE cTipo == '1'

aArrayProd := {}
aArrayOps := {}

Mta650GrAr(c2num,c2prod)

Return Nil


//Quando cTipo == '2'
//Retornará se a Ordem terá o tratamento especial ou não.
//Se retornar .T é porque NÃO terá um tratamento especial e serão processadas normalmente,
//Gerando todas OPs intermediárias automaticamente.

//Se retornar .F. é porque possui um tratamento especial e as ordens não serão geradas neste momento.

CASE cTipo == '2'
aArrayProd := Mta650BAPr()
aArrayOps := Mta650BAOp()

lRet := .T.
For i:=1 to Len(aArrayOps)
If aArrayProd[i,1] == c2num
lRet := aArrayOps[i,3]
Exit
EndIf
Next i

Return lRet

//Quando cTipo == '3'
//No final do processamento dos empenhos será chamado essa Opção 3 para criar as OPs intermediárias.
//Através de um EXECAUTO
CASE cTipo == '3'
MsErroAuto := .F.
RpcSetEnv( "99","01",,,,,,,,,)
dData:=dDataBase

aArrayProd := Mta650BAPr()
aArrayOps := Mta650BAOp()

For i:=1 to Len(aArrayProd)
If aArrayProd[i,4] == .T.
aVetor := {{"C2_PRODUTO",aArrayProd[i,2], NIL},;
{"C2_LOCAL","01" , NIL},;
{"C2_QUANT",aArrayProd[i,3] , NIL},;
{"C2_DATPRI", dDataBase , NIL},;
{"C2_DATPRF", dDataBase , NIL},;
{"C2_EMISSAO", dDataBase , NIL},;
{"C2_TPOP", "F" , NIL},;
{"AUTEXPLODE", "S" , NIL}}

msExecAuto({|x,y| MATA650(x,y)},aVetor,3)

If lMsErroAuto
Mostraerro()
else
CONOUT ("Inclusão OK")
Endif
EndIf
Next i

Return Nil
ENDCASE

/////////////////////////////////
Function Mta650GrAr(c2num,c2prod)
/////////////////////////////////

If c2prod == "TST-PA "
aadd(aArrayPro1,{c2num,"TST-PI1 ",20,.T.}) //OP - Produto intermediário - QTD - Gera ou não gera OP
aadd(aArrayPro1,{c2num,"TST-PI2 ",10,.F.})
aadd(aArrayPro1,{c2num,"TST-PI3 ",20,.F.})
aadd(aArrayPro1,{c2num,"TST-PI4 ",20,.T.})

aadd(aArrayOps1,{c2num,c2prod ,.F.}) // OP - Produto Acabado - .F. possui tratamento especial
Else
aadd(aArrayOps1,{c2num,c2prod ,.T.}) // OP - Produto Acabado - .T. não possui tratamento especial
EndIf

Return Nil

/////////////////////////////////
Function Mta650BAPr()
/////////////////////////////////

Return aArrayPro1

/////////////////////////////////
Function Mta650BAOp()
/////////////////////////////////

Return aArrayOps1

Ponto de Entrada

Exemplo:

#Include 'Protheus.ch'

User Function CN120ALT()

Local aCab:= PARAMIXB[1]

Local cTipo:= PARAMIXB[2]

If cTipo == '1'

    aCab[4][2]:= 'NF' //Validações do usuário

EndIf