Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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, DAGROGAP-1242, DAGROGAP-2587

País(es):

Todos.

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

NJR, N7R, N96, N97

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

N96Tipo de RemessaCS
N97Tp. Remessa x Modal Pag. Exp.CS


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')

Campo

NJR_CLASSQ

Tipo

C

Tamanho

1

Decimal

0

Formato

@!

Título

Contr. Quali

Descrição

Controle Qualidade

Nível

1

Usado

Sim

Obrigatório

Não

Browse

Não

Cons. Padrão

Opções

1=Origem;2=Destino

When


Inic. Padrão

'1'

Val. Sistema

Pertence('12')

Pasta6

Help

Indica se o controle de qualidade do contrato será na Origem ou no Destino.

(1=Origem;2=Destino)

Inic. Browse

Campo

NJR_TPSEVO

Tipo

C

Tamanho

1

Decimal

0

Formato

@!

Título

Tp Sel Volum

Descrição

Tipo Seleção de Volumes

Nível

1

Usado

Sim

Obrigatório

Não

Browse

Não

Cons. Padrão

Opções

1=Por Volume;2=Por Bloco;3=Por Fardo                                                                                            

When


Inic. Padrão

IIF( (M->NJR_INCOTE == 'CIF' .OR. M->NJR_INCOTE == 'CFR'),'1','2')       

Val. Sistema

Pertence('123')

Pasta

Help

Indica como selecionar Volumes na Instrução de Embarque, podendo ser:

1-Por Volume;

2-Por Blocos

3-Por Fardos


Inic. Browse



  • 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')           


  • Tabela N96 - Tipo de Remessa

Campo

N96_FILIAL

Tipo

C

Tamanho

02

Decimal

0

Formato

@!

Título

Filial

Descrição

Filial do Sistema

Nível

1

Usado

Não

Obrigatório

Não

Browse

Não

Cons. Padrão(X3_F3)

Opções

(X3_CBOX)

When

(X3_WHEN)

Val. Sistema

(X3_VALID)

Help

Filial do Sistema

Inic. Padrão(X3_RELACAO)
Inic. Browse(X3_INIBRW)        

Campo

N96_CODREM

Tipo

C

Tamanho

03

Decimal

0

Formato

@!

Título

Cod.Tp.Rem.

Descrição

Código Tipo Remessa

Nível

1

Usado

Sim

Obrigatório

Sim

Browse

Sim

Cons. Padrão(X3_F3)

Opções

(X3_CBOX)

When

(X3_WHEN)

Val. Sistema

(X3_VALID)

Help

Código do Tipo Remessa

Inic. Padrão(X3_RELACAO)
Inic. Browse(X3_INIBRW)

Campo

N96_DESREM

Tipo

C

Tamanho

30

Decimal

0

Formato

@!

Título

Des.Tp.Rem.

Descrição

Descrição Tipo Remessa

Nível

1

Usado

Sim

Obrigatório

Sim

Browse

Sim

Cons. Padrão(X3_F3)

Opções

(X3_CBOX)

When

(X3_WHEN)

Val. Sistema

(X3_VALID)

Help

Descrição do Tipo Remessa

Inic. Padrão(X3_RELACAO)
Inic. Browse(X3_INIBRW)


  • Tabela N97 - Tp. Remessa x Modal Pag. Exp.

Campo

N97_FILIAL

Tipo

C

Tamanho

02

Decimal

0

Formato

@!

Título

Filial

Descrição

Filial do Sistema

Nível

1

Usado

Não

Obrigatório

Não

Browse

Não

Cons. Padrão(X3_F3)

Opções

(X3_CBOX)

When

(X3_WHEN)

Val. Sistema

(X3_VALID)

Help

Filial do Sistema

Inic. Padrão(X3_RELACAO)
Inic. Browse(X3_INIBRW)

Campo

N97_CODREM

Tipo

C

Tamanho

03

Decimal

0

Formato

@!

Título

Cod.Tp.Rem.

Descrição

Código Tipo Remessa

Nível

1

Usado

Sim

Obrigatório

Sim

Browse

Não

Cons. Padrão(X3_F3)

Opções

(X3_CBOX)

When

(X3_WHEN)

Val. Sistema

(X3_VALID)

Help

Código do Tipo da Remessa

Inic. Padrão(X3_RELACAO)
Inic. Browse(X3_INIBRW)

Campo

N97_MODPAG

Tipo

C

Tamanho

03

Decimal

0

Formato

@!

Título

Cod.Mod.Pag.

Descrição

Cod. Mod. Pag. Exp.

Nível

1

Usado

Sim

Obrigatório

Sim

Browse

Sim

Cons. PadrãoEEF

Opções

(X3_CBOX)

When

(X3_WHEN)

Val. Sistema

ExistCpo("EEF")

Help

Código da Modalidade de Pagamento Exportação.

Inic. Padrão(X3_RELACAO)
Inic. Browse(X3_INIBRW)

Campo

N97_DESMOD

Tipo

C

Tamanho

50

Decimal

0

Formato

@!

Título

Desc.Mod.Pag

Descrição

Desc. Mod. Pag. Exp.

Nível

1

Usado

Sim

Obrigatório

Não

Browse

Sim

Cons. Padrão(X3_F3)

Opções

(X3_CBOX)

When

(X3_WHEN)

Val. Sistema

(X3_VALID)

Help

Descrição da Modalidade de Pagamento Exportação.

Inic. PadrãoIF(!INCLUI,POSICIONE('EEF',1,XFILIAL('EEF')+N97->N97_MODPAG,'EEF_DESC'),' ')
Inic. BrowsePOSICIONE('EEF',1,XFILIAL('EEF')+N97->N97_MODPAG,'EEF_DESC')


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

Índice

N96

Ordem

1

Chave

N96_FILIAL+N96_CODREM

Descrição

Filial+Cod.Tp.Rem.

Proprietário

S

Índice

N97

Ordem

1

Chave

N97_FILIAL+N97_CODREM+N97_MODPAG

Descrição

Filial+Cod.Tp.Rem. + Cod.Mod.Pag.

Proprietário

S

Índice

N97

Ordem

2

Chave

N97_FILIAL+N97_MODPAG+N97_CODREM

Descrição

Filial+Cod.Mod.Pag. + Cod.Tp.Rem.

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       


  • Pesquisa N96 - Tipo de Remessa.

Alias

N96

Tipo

1

Sequência

01

Coluna

N96_CODREM                                     

Descrição

Tipo de Remessa

Contém

N96→N96_CODREM 

Alias

N96

Tipo

1

Sequência

02

Coluna

N96_CODREM                                     

Descrição

Tipo de Remessa

Contém

N96→N96_DESREM


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


Campo

NJR_CODREM

Sequência

001

Campo Domínio

NJR_CODREM

Tipo

Primário

Regra

N96->N96_DESREM

Posiciona?

SIM

Chave

xFilial('N96')+M->NJR_CODREM

Condição


Proprietário


Campo

NJR_CONDPA

Sequência

003

Campo Domínio

NJR_DESREM

Tipo

Primário

Regra

N96->N96_DESREM

Posiciona?

NÃO

Chave

xFilial('N96')+M->NJR_CODREM

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



  • Tabela N97 – Tp. Remessa x Modal Pag. Exp.:

Campo

N97_MODPAG

Sequência

001

Campo Domínio

N97_DESMOD

Tipo

Primário

Regra

EEF->EEF_DESC

Posiciona?

Sim

Chave

xFilial('EEF')+M->N97_MODPAG

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), Tipo de Remessa(Cod.Tp.Rem.), Via de Transporte do Contrato para Mercado Externo(Via Transp.), Incoterm e os portos de origem e destino da viagem.


3. Pasta "Logística" 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 "Logística" será possível informar os dados do Controle de Qualidade, indicando se o mesmo será efetuado na Origem ou no Destino (1=Origem;2=Destino)


34. Pasta "Qualidade" no contrato de venda:

  1. No Gestão Agroindústria (SIGAAGR), acesse Atualizações / Originação / Controle de Venda / Contrato de Venda (OGA290).
    a. Somente quando o produto for Algodão, na nova pasta "Qualidade" será possível informar o Tipo de Seleção de Volumes que pode ser:

    1-Por Volume;

    2-Por Blocos

    3-Por Fardos


    Se o INCOTERM for CIF ou CFR, então o tipo de seleção é sugerido com o valor 1 - Por Volume. Senão, é sugerido o valor 2 - Por Bloco


                1 - No Gestão Agroindústria (SIGAAGR), acesse Atualizações / Originação / Contrato de Venda (OGA290)

                     Serão mostrados todos os contratos de vendas, que foram cadastrados

                     Ao pressionar o botão incluir será exibido a tela de cadastro de contratos: 

                     

                   

                    Informando o Código da Entidade, na aba Previsão de Entrega o campo Tipo de Cliente será preenchido automaticamente:  

                    

                    Esse procedimento ocorre também para contratos de compras: