DADOS DE EXPORTAÇÃO NO CONTRATO
Características do Requisito
Linha de Produto: | Microsiga Protheus® | ||||
Segmento: | Gestão Agroindústria | ||||
Módulo: | SIGAAGR | ||||
Rotina: |
| ||||
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') |
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 |
- 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.
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)