Acordo de Trocas
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||||||||||||||
Segmento: | Agroindústria | ||||||||||||||||||||
Módulo: | SIGAAGR | ||||||||||||||||||||
Rotina: |
| ||||||||||||||||||||
Cadastros Iniciais: | MATA010 - Cadastro de Produto e sua respectiva Unidade de Medida de Preço; AGRA060 - Conversão de Unidades de Medidas. | ||||||||||||||||||||
Parâmetro(s): | Não se aplica | ||||||||||||||||||||
Ponto de Entrada: | OG300CTR - Ponto de Entrada que permite adicionar campos do usuário antes de gerar o contrato de parceria. | ||||||||||||||||||||
Chamados relacionados | Não se aplica | ||||||||||||||||||||
Requisito (ISSUE): | Não se aplica | ||||||||||||||||||||
País(es): | Brasil | ||||||||||||||||||||
Tabelas utilizadas: | NKT, NKO, NJR, ADA | ||||||||||||||||||||
Versões/Release: | 11.80.14 |
Descrição
O Acordo de Trocas consiste em gerir as informações sobre o Processo de Trocas.
O Processo de Trocas ocorre da seguinte forma, em determinado momento é realizada a venda de um ou mais produtos no intuito de receber um produto no futuro como pagamento pela venda.
O Processo de Trocas pode ocorrer por paridade de Preço ou por paridade de Unidade de Medida.
Importante
Antes de executar o compatibilizador UPDARM é 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*.
Atenção O procedimento a seguir deve ser realizado por um profissional qualificado como Administrador de Banco de Dados (DBA) ou equivalente! A ativação indevida da Integridade Referencial pode alterar drasticamente o relacionamento entre tabelas no banco de dados. Portanto, antes de utilizá-la, observe atentamente os procedimentos a seguir:
Contate o Help Desk Framework EM CASO DE DÚVIDAS! |
---|
- Em Microsiga Protheus TOTVS Smart Client (se versão 10) ou ByYou Smart Client (se versão 11), informe o nome do compatibilizador no campo Programa Inicial.
- Clique em OK para continuar.
- 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 a seleção do compatibilizador.
- Ao confirmar, é exibida uma mensagem de advertência sobre o backup e a necessidade de sua execução em modo exclusivo.
- Clique em Processar para iniciar o processamento. O primeiro passo da execução é a preparação dos arquivos.
É apresentada uma mensagem explicativa na tela. - 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.
- Clique em Gravar para salvar o histórico (log) apresentado.
- Clique em OK para encerrar o processamento.
- Clique em Processar para iniciar o processamento. O primeiro passo da execução é a preparação dos arquivos.
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.
- Aplique o patch do chamado e execute uma vez a rotina UPDARM, e escolha as tabelas NKT e NKO.
- No módulo de Gestão Agroindústria acesse Atualização/ Originação/ Comercialização/ Acordo de Trocas.
Atualizações do Compatibilizador
O Compatibilizador criará as tabelas (conforme acima especificado):
NKT ->(Acordo de Trocas);
NKO->(Itens do Acordo de Trocas);
E ajustará as tabelas:
ADA ->(Contrato de Parceria);
Procedimento para Configuração
(Estes procedimentos devem ser feitos quando for necessário configurar parâmetros e/ou rotinas no menu).
CONFIGURAÇÃO DE MENUS
1. No Configurador (SIGACFG), acesse Ambientes/ Cadastro/ Menu (CFGX013). Informe a nova opção de menu, conforme instruções a seguir:
Menu | SIGAAGR |
Submenu | Atualizações\Originação\Comercialização |
Nome da Rotina | Acordo de Trocas |
Programa | OGA300 |
Módulo | SIGAAGR |
Tipo | Função Protheus |
Procedimento para Utilização
Exemplo:
1. Registrar um Contrato de Compra de Grãos no OGA280 - Contrato de Compra;.
2. Registrar um Acordo de Trocas no OGA300, que irá gerar um contrato de parceria FATA400;
3. Faturar utilizando o contrato de parceria.
Ponto de Entrada
Localização: | No meio da Transação de Gravação do OGA300 | ||||||||
Programa Fonte: | OGA300 | ||||||||
Função: | Permitir manipular os dados do contrato de parceria que será gerado. | ||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
#include "fwmvcdef.ch"
User Function OG300CTR()
Local oModel := PARAMIXB[1]
Local aCab := aClone(PARAMIXB[2])
Local aItens := aClone(PARAMIXB[3])
Local oModeLNKT := oModel:GetModel("NKTUNICO")
Local oModelNKO := oModel:GetModel("NKOGRID")
Local aRet := {} //Customizações do usuário
Local aSaveLines := FWSaveRows()
Local nX := 0
aAdd( aCab, {"CAMPO_ESPECIFICO", oModelNkt:GetValue('CAMPO_ESPECIFICO'), Nil } )
aAdd( aCab, {"CAMPO_ESPECIFICO", oModelNkt:GetValue('CAMPO_ESPECIFICO'), Nil } )
For nX := 1 to oModelNKO:Length()
oModelNKO:GoLine( nX )
If .Not. oModelNKO:IsDeleted()
aAux := aItens[nX]
aadd(aAux, {"CAMPO_ESPECIFICO", FWFLDGET( "NKO_XPOPPL", nX ),nil})
aadd(aAux, {"CAMPO_ESPECIFICO" , FWFLDGET( "NKO_XAREA" , nX ),nil})
aItens[nX] := aAux
Endif
nExt Nx
FWRestRows(aSaveLines)
aRet := {aCab,aItens}
Return aRet