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.

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
N96	Tipo de Remessa	C	S
N97	Tp. Remessa x Modal Pag. Exp.	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')

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')
Pasta	6
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ã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')

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ão	EEF
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ão	IF(!INCLUI,POSICIONE('EEF',1,XFILIAL('EEF')+N97->N97_MODPAG,'EEF_DESC'),' ')
Inic. Browse	POSICIONE('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:

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), 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:

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)

4. Pasta "Qualidade" no contrato de venda:

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:

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

3 - Esse procedimento ocorre também para contratos de compras:

5. Melhorias Contratos

Alteração na consulta de portos.
Quando o contrato da IE não possuir porto de origem e/ou destino cadastrado, o sistema irá trazer todos os portos cadastrados.

O sistema não permitirá:

Portos cadastrados no contrato como origem no campo "Porto Destino" na IE
Portos cadastrados no contrato como Destino no campo "Porto Origem" na IE
Instrução de Embarque com mesmo codigo nos campos "Porto Origem" e "Porto Destino"

Caso o contrato da IE não possua portos cadastrados, o sistema permitirá informar qualquer porto desde que respeite a seguinte regra: "Instrução de Embarque com mesmo código nos campos "Porto Origem" e "Porto Destino" "

Alterado regra de validação para que seja realizado a conferência dos campos de Exportação ( "Modalidade Pagamento Exportação", "INCOTERM", "Via de Transporte", "Embalagem" ) apenas na confirmação do Contrato, agrupando todas as inconsistências em uma tela.

Image Added

Árvore de páginas

Versões comparadas

Versão antiga 52

Nova versão 53

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 52

Nova versão 53

Chave

DADOS DE EXPORTAÇÃO NO CONTRATO

Características do Requisito

Descrição

Procedimento para Implantação

Procedimento para Utilização