Tipos de Amostras Avulsas 

Características do Requisito

Descrição

Foi desenvolvida uma rotina para os Tipos de Amostras Avulsas, a fim de que ocorra um melhor controle das amostras.

Importante

Antes de executar o compatibilizador UPDARM/UPDOG é 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) ou ByYou Smart Client (se versão 11), informe UPDARM no campo Programa Inicial.
   
   
   
   
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.
   
   
   
   
4. Após a confirmação, é exibida uma tela para a seleção das tabelas que serão executadas, selecione as tabelas NKI e NJF. 
   
   

1. 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.

1. Em Microsiga Protheus TOTVS Smart Client (se versão 10) ou ByYou Smart Client (se versão 11), digite UPDOG no campo Programa Inicial.
2. Clique em OK para continuar.
3. Ao confirmar, é exibida uma mensagem de advertência sobre o backup e a necessidade de sua execução em modo exclusivo. 
   
   
   
4. Após a confirmação, é exibida uma tela para a seleção da empresa em que o dicionário de dados será modificado. 
   .
5. Clique em Processar para iniciar o processamento. O primeiro passo da execução é a preparação dos arquivos.

1. É 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.

Atualizações do Compatibilizador

1. Criação de Campos no arquivo SX3 – Campos:

• Tabela NKI - Tipos de Amostras Avulsas:

• Tabela NJF - Cadastros de Amostra:

Importante:

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

2. Criação de Índices no arquivo SIX – Índices:

Ponto de Entrada

Exemplo:

#Include 'Protheus.ch'
#include "fwmvcdef.ch"
User Function OG180LIB()
Local lRetorno := .T.

If !NJF->NJF_CODAMO == '99'
ALERT( "TESTE " )
lRetorno := .F.
ENDIF
Return (lRetorno)

Exemplo:

#Include 'Protheus.ch'
#include "fwmvcdef.ch"
User Function OG180REJ()
Local lRetorno := .T.

If !NJF->NJF_CODAMO == '99'
ALERT( "TESTE " )
lRetorno := .F.
ENDIF
Return (lRetorno)

Exemplo:

#Include 'Protheus.ch'
#include "fwmvcdef.ch"
User Function OG180CAN()
Local lRetorno := .T.

If !NJF->NJF_CODAMO == '99'
ALERT( "TESTE " )
lRetorno := .F.
ENDIF
Return (lRetorno)

Procedimento para Utilização

1. No Gestão Agroindústria (SIGAAGR), acesse Atualizações/ Originação/ Cadastros Básicos/ Tipos de Amostras Avulsas (OGA181);
   O sistema apresenta a janela de tipo de amostras já cadastradas.
2. Na opção Incluir, clique e cadastre um tipo de amostra avulsa;

3. Não é possível incluir dois registros idênticos.