Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

DADOS DE EXPORTAÇÃO NO CONTRATO

Características do Requisito

Linha de Produto:

Microsiga Protheus®

Segmento:

Gestão Agroindústria

Módulo:

SIGAAGR

Rotina:

Rotina

Nome Técnico

OGA290

Contrato de Venda

Cadastros Iniciais:

 

Parâmetro(s):

Não há.

Ponto de Entrada:

Não há.

Tickets relacionados

Não há.

Requisito/Story/Issue (informe o requisito relacionado):

DAGROGAP-994, DAGROGAP-995, DAGROGAP-996, DAGROGAP-1101

País(es):

Todos.

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

NJR, N7R

Sistema(s) Operacional(is):

Todos

 

Descrição

Foi identificado a necessidade de atualizar informações relacionadas a exportação nos processos de negociação, contrato de venda, instrução de embarque externo, para que seja possível gerar os pedidos de Exportação e Embarque de exportação por filial de origem.

 

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 UPDDISTR. 
  2. Logo após a execução desta rotina é alterado o dicionário de dados da base, conforme especificações abaixo:

1. Criação de tabela no arquivo SX2– Tabelas:

Chave

Nome

Modo

PYME

N7R

Rotas de Exportação

C

S

 

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

  • Tabela NJR - Contratos
CampoNJR_TIPMER
TipoC - Caractere
Tamanho1
Decimal0
Ordem05
Formato@!
TítuloTipo Mercado
DescriçãoTipo de Mercado
UsadoSim
ObrigatórioNão
BrowseSim
ValidaçãoPertence('12')
Cbox Port1=Interno; 2=Externo
Pasta1
HelpDefine o tipo de mercado do contrato: Interno ou Externo

Campo

NJR_CODEMB

Tipo

C

Tamanho

30

Decimal

0

Formato

@!

Título

Embalagem   

Descrição

Código da Embalagem

Nível

1

Usado

Sim

Obrigatório

Não

Browse

Não

Cons. PadrãoEE5   

Opções

 

When

 

Relação

 

Val. Sistema

vazio() .or. ExistCPO("EE5")

Pasta5

Help

Código da Embalagem.

Campo

NJR_DESEMB

Tipo

C

Tamanho

40

Decimal

0

Formato

@!

Título

Desc. Emb.

Descrição

Descrição da Embalagem  

Nível

1

Usado

Sim

Obrigatório

Não

Browse

Não

Cons. Padrão 

Opções

 

When

 

Inic. Padrao

IF(!inclui,Posicione('EE5',1,xFilial('EE5')+NJR->NJR_CODEMB,'EE5_DESC'),' ')

Val. Sistema

 

Pasta5
Inic. BrowserPOSICIONE('EE5',1,XFILIAL('EE5')+NJR->NJR_CODEMB,'EE5_DESC')

Help

Descrição da embalagem do produto.

Campo

NJR_CONDPA

Tipo

C

Tamanho

3

Decimal

0

Formato

@!

Título

Mod.Pgto.Exp

Descrição

Modalidade Pagamento     

Nível

1

Usado

Sim

Obrigatório

Não

Browse

Não

Cons. PadrãoEEF

Opções

 

When

M->NJR_TIPMER = "2"

Relação

 

Val. Sistema

vazio() .or. existCpo("EEF")

Pasta6

Help

Modalidade de Pagamento do Processo de Exportação.

Campo

NJR_DESCPA

Tipo

C

Tamanho

50

Decimal

0

Formato

@!

Título

Descr. Pagto

Descrição

Descrição Pagamento

Nível

1

Usado

Sim

Obrigatório

Não

Browse

Não

Cons. Padrão 

Opções

 

When

 

Inic. Padrão

IF(!INCLUI,POSICIONE('EEF',1,XFILIAL('EEF')+NJR->NJR_CONDPA,'EEF_DESC'),' ')

Val. Sistema

 

Pasta6

Help

Descrição da Modalidade de Pagamento de Exportação.
Inic. BrowsePOSICIONE('EEF',1,XFILIAL('EEF')+NJR->NJR_CONDPA,'EEF_DESC')

Campo

NJR_VIA

Tipo

C

Tamanho

2

Decimal

0

Formato

@!

Título

Via Transp.

Descrição

Via de Transporte

Nível

1

Usado

Sim

Obrigatório

Não

Browse

Não

Cons. PadrãoNJRSYQ

Opções

 

When

M->NJR_TIPMER = "2"

Relação

 

Val. Sistema

vazio() .or. existCPO("SYQ")

Pasta6

Help

Via de Transporte do Contrato para Mercado Externo.

Campo

NJR_DESVIA

Tipo

C

Tamanho

30

Decimal

0

Formato

@!

Título

Descr. Via

Descrição

Descrição da Via

Nível

1

Usado

Sim

Obrigatório

Não

Browse

Não

Cons. Padrão 

Opções

 

When

 

Inic. Padrão

IF(!INCLUI,POSICIONE('SYQ',1,XFILIAL('SQY')+NJR->NJR_VIA,'YQ_DESCR'),' ')

Val. Sistema

 

Pasta6

Help

Descrição da Via de Transporte.
Inic. BrowsePOSICIONE('SYQ',1,XFILIAL('SYQ')+NJR->NJR_VIA,'YQ_DESCR')

Campo

NJR_INCOTE

Tipo

C

Tamanho

3

Decimal

0

Formato

@!

Título

Incoterm

Descrição

Código INCOTERM

Nível

1

Usado

Sim

Obrigatório

Não

Browse

Não

Cons. PadrãoSYJ

Opções

 

When

M->NJR_TIPMER = "2"

Relação

vazio() .or. existCPO("SYJ")

Val. Sistema

 

Pasta6

Help

Código do INCOTERM.

Campo

NJR_DESINC

Tipo

C

Tamanho

40

Decimal

0

Formato

@!

Título

Des INCOTERM

Descrição

Descrição do INCOTERM

Nível

1

Usado

Sim

Obrigatório

Não

Browse

Não

Cons. Padrão 

Opções

 

When

 

Inic. Padrão

IF(!INCLUI,POSICIONE('SYJ',1,XFILIAL('SYJ')+NJR->NJR_INCOTE,'YJ_DESCR'),' ')

Val. Sistema

 

Pasta6

Help

Descrição do INCOTERM.
Inic. BrowsePOSICIONE('SYJ',1,XFILIAL('SYJ')+NJR->NJR_INCOTE,'YJ_DESCR')

 

  • Tabela N7R - Rotas de Exportação

Campo

N7R_FILIAL

Tipo

C

Tamanho

2

Decimal

0

Formato

@!

Título

Filial

Descrição

Filial do Sistema

Nível

1

Usado

Sim

Obrigatório

Sim

Browse

Não

Cons. Padrão 

Opções

 

When

 

Relação

 

Val. Sistema

 

Help

Filial do sistema.

Campo

N7R_CODCTR

Tipo

C

Tamanho

6

Decimal

0

Formato

@!

Título

Contrato

Descrição

Código do Contrato

Nível

1

Usado

Sim

Obrigatório

Sim

Browse

Não

Cons. PadrãoNJR

Opções

 

When

 

Relação

 

Val. Sistema

ExistCPO("NJR")

Help

Código do Contrato.

Campo

N7R_TIPO

Tipo

C

Tamanho

1

Decimal

0

Formato

@

Título

Tipo

Descrição

Tipo da Rota

Nível

1

Usado

Sim

Obrigatório

Sim

Browse

Sim

Cons. Padrão 

Opções

1=Origem;2=Destino

When

M->NJR_TIPMER = "2"

Relação

'1'

Val. Sistema

Pertence('12')

Help

Tipo da Rota: 1=Origem;2=Destino

Campo

N7R_CODROT

Tipo

C

Tamanho

5

Decimal

0

Formato

@!

Título

Porto/Aeropo

Descrição

Código do Porto/Aeroporto

Nível

1

Usado

Sim

Obrigatório

Sim

Browse

Sim

Cons. PadrãoSY9

Opções

 

When

M->NJR_TIPMER = "2"      

Val. Sistema

ExistCPO("SY9")  

Help

Código do Porto/Aeroporto.

Campo

N7R_DESROT

Tipo

C

Tamanho

25

Decimal

0

Formato

@!

Título

Desc. Rota

Descrição

Descrição da Rota

Nível

1

Usado

Sim

Obrigatório

Não

Browse

Sim

Cons. Padrão 

Opções

 

When

 

Val. Sistema

 

Help

Descrição do Porto/Aeroporto.Descrição da Rota.

Inic. PadrãoIF(!INCLUI,POSICIONE('SY9',1,XFILIAL('SY9')+N7R->N7R_CODROT,'Y9_DESCR'),' ')
Inic. BrowsePOSICIONE('SY9',1,XFILIAL('SY9')+N7R->N7R_CODROT,'Y9_DESCR')           


Importante:

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


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

Índice

N7R

Ordem

1

Chave

N7R_FILIAL+N7R_CODCTR+N7R_TIPO+N7R_CODROT

Descrição

Filial+Contrato+Tipo+Código

Proprietário

S

 

4. Alteração de Consulta Padrão no arquivo SXB – Consulta Padrão:

  • Pesquisa NJRSYQ - Vias Transporte Exp.

Alias

NJRSYQ

Tipo

1

Sequência

01

Coluna

DB                                                         

Descrição

Vias Transporte Exp.

Contém

SYQ

Alias

NJRSYQ

Tipo

2

Sequência

01

Coluna

01                                                     

Descrição

Código

Contém

 

Alias

NJRSYQ

Tipo

4

Sequência

01

Coluna

01                                                        

Descrição

Descrição          

Contém

YQ_DESCR  

Alias

NJRSYQ

Tipo

4

Sequência

01

Coluna

02                                                   

Descrição

Código da Via       

Contém

YQ_VIA

Alias

NJRSYQ

Tipo

5

Sequência

01

Coluna

                                       

Descrição

 

Contém

SYQ->YQ_VIA       

 

5.  Criação de Gatilhos no arquivo SX7 – Gatilhos:

  • Tabela NJR – Contratos

 

Campo

NJR_CODPRO

Sequência

004

Campo Domínio

NJR_CODEMB

Tipo

Primário

Regra

SB1->B1_CODEMB

Posiciona?

SIM

Chave

xFilial('SB1')+M->NJR_CODPRO  

Condição

 

Proprietário

 

Campo

NJR_CODPRO

Sequência

005

Campo Domínio

NJR_DESEMB

Tipo

Primário

Regra

EE5->EE5_DESC                        

Posiciona?

SIM

Chave

xFilial('EE5')+M->NJR_CODEMB  

Condição

 

Proprietário

 

Campo

NJR_CODEMB

Sequência

001

Campo Domínio

NJR_DESEMB

Tipo

Primário

Regra

EE5->EE5_DESC

Posiciona?

NÃO

Chave

xFilial('EE5")+M->NJR_CODEMB

Condição

 

Proprietário

 

Campo

NJR_CONDPA

Sequência

001

Campo Domínio

NJR_DESCPA

Tipo

Primário

Regra

EEF->EEF_DESC

Posiciona?

NÃO

Chave

xFilial('EEF')+M->NJR_CONDPA

Condição

 

Proprietário

 

Campo

NJR_VIA

Sequência

001

Campo Domínio

NJR_DESVIA

Tipo

Primário

Regra

SYQ->YQ_DESCR

Posiciona?

NÃO

Chave

xFilial('SYQ')+M->NJR_VIA

Condição

 

Proprietário

 

Campo

NJR_INCOTE

Sequência

001

Campo Domínio

NJR_DESINC

Tipo

Primário

Regra

SYJ->YJ_DESCR

Posiciona?

NÃO

Chave

xFilial('SYJ')+M->NJR_INCOTE

Condição

 

Proprietário

 

 

  • Tabela N7R – Rotas de Exportação:

Campo

N7R_CODROT

Sequência

001

Campo Domínio

N7R_DESROT

Tipo

Primário

Regra

SY9->Y9_DESCR     

Posiciona?

NÃO

Chave

xFilial("SY9")+M->N7R_CODROT  

Condição

 

Proprietário

 

Procedimento para Utilização

1.  Campo "Tipo de Mercado" no contrato de venda:

  1. No Gestão Agroindústria (SIGAAGR), acesse Atualizações / Originação / Controle de Venda / Contrato de Venda (OGA290).
    a. Na aba "Principal" será possível informar se o contrato é tipo "Interno" ou "Externo". Caso seja "Externo" será habilitado os campos da aba de "Exportação".

2.  Pasta "Exportação" no contrato de venda:

  1. No Gestão Agroindústria (SIGAAGR), acesse Atualizações / Originação / Controle de Venda / Contrato de Venda (OGA290).
    a. Na nova pasta "Exportação" será possível informar os dados da Modalidade de Pagamento do Processo de Exportação(Cond Pagto), Via de Transporte do Contrato para Mercado Externo(Via Transp.), Incoterm e os portos de origem e destino da viagem.