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 |
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.
O sistema é atualizado logo após a aplicação do pacote de atualizações (Patch) deste chamado.
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:
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 | 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:
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:
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 | 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 |
1. Campo "Tipo de Mercado" no contrato de venda:
2. Pasta "Exportação" no contrato de venda: