Acordo de Trocas

Características do Requisito

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

1. 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.
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 a seleção do compatibilizador.
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 UPDARM, e escolha as tabelas NKT e NKO.
2. 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:

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

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