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.

Aplique o patch do chamado e execute uma vez a rotina UPDDISTR.
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

Campo	NJR_TIPMER
Tipo	C - Caractere
Tamanho	1
Decimal	0
Ordem	05
Formato	@!
Título	Tipo Mercado
Descrição	Tipo de Mercado
Usado	Sim
Obrigatório	Não
Browse	Sim
Validação	Pertence('12')
Cbox Port	1=Interno; 2=Externo
Pasta	1
Help	Define 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ão	EE5
Opções
When
Relação
Val. Sistema	vazio() .or. ExistCPO("EE5")
Pasta	5
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
Pasta	5
Inic. Browser	POSICIONE('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ão	EEF
Opções
When	M->NJR_TIPMER = "2"
Relação
Val. Sistema	vazio() .or. existCpo("EEF")
Pasta	6
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
Pasta	6
Help	Descrição da Modalidade de Pagamento de Exportação.
Inic. Browse	POSICIONE('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ão	NJRSYQ
Opções
When	M->NJR_TIPMER = "2"
Relação
Val. Sistema	vazio() .or. existCPO("SYQ")
Pasta	6
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
Pasta	6
Help	Descrição da Via de Transporte.
Inic. Browse	POSICIONE('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ão	SYJ
Opções
When	M->NJR_TIPMER = "2"
Relação	vazio() .or. existCPO("SYJ")
Val. Sistema
Pasta	6
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
Pasta	6
Help	Descrição do INCOTERM.
Inic. Browse	POSICIONE('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ão	NJR
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ão	SY9
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ão	IF(!INCLUI,POSICIONE('SY9',1,XFILIAL('SY9')+N7R->N7R_CODROT,'Y9_DESCR'),' ')
Inic. Browse	POSICIONE('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:

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:

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.

Árvore de páginas

Versões comparadas

Versão antiga 31

Nova versão 32

Chave

DADOS DE EXPORTAÇÃO NO CONTRATO

Características do Requisito

Descrição

Procedimento para Implantação

Procedimento para Utilização

Árvore de páginas

Histórico da Página

Versões comparadas

Versão antiga 31

Nova versão 32

Chave

DADOS DE EXPORTAÇÃO NO CONTRATO

Características do Requisito

Descrição

Procedimento para Implantação

Procedimento para Utilização