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, DAGROGAP-1242, DAGROGAP-2587 | ||||
País(es): | Todos. | ||||
Banco(s) de Dados: | Todos | ||||
Tabelas Utilizadas: | NJR, N7R, N96, N97 | ||||
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 |
N96 | Tipo de Remessa | C | S |
N97 | Tp. Remessa x Modal Pag. Exp. | 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 | 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 |
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') |
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) |
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:
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 |
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:
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 |
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 |
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 |
1. Campo "Tipo de Mercado" no contrato de venda:
2. Pasta "Exportação" no contrato de venda:
3. Pasta "Logística" no contrato de venda:
4. Pasta "Qualidade" no contrato de venda:
1-Por Volume;
2-Por Blocos
3-Por Fardos
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: