Identificador de Regra

GER-000VERLO01

Módulo: GER - Gerais.

Finalidade: Aplicar consistências ao informar um lote na tela "F000DLS" (distribuição de lotes)grid de distribuição.

Como esta tela é chamada de vários pontos do sistema, a rotina se comportará assim:

Pedidos..: quando for chamada das rotinas de pedidos, toda a chave do pedido será passada, e mais a data de previsão de entrega do item (DATENT).

Ordem de Compra..: quando for chamada das rotinas de ordens de compra, toda a chave da ordem será passada, e mais a data de previsão de entrega do item (DATENT).

Nota Fiscal de Saída..: quando for chamada das rotinas de notas fiscais de saída, toda a chave da nota fiscal será passada, e mais a data de emissão da nota (DATEMI).

Nota Fiscal de Entrada..: quando for chamada das rotinas de notas fiscais de entrada, toda a chave da nota fiscal será passada, e mais a data de entrada da nota (DATENT).

Cargas e Pré-faturas..: quando for chamada das rotinas de cargas - pré-faturas, toda a chave da carga será passada, e mais a data de previsão de faturamento (DATPPF).

Movimentos de Estoque..: quando for chamada das rotinas de movimentação, será passada a data do movimento de estoque (DATMOV).

Características: a) Para todas as outras chamadas (Ordem Produção, etc...) o identificador não será utilizado.

b) Para todos os lotes "já distribuídos", utilizando o "GER-000EUDLE01" por exemplo, o sistema não fará nenhuma consistência.

c) A validade correta do lote, o usuário terá que buscar da tabela "E210DLS", pois no momento da abertura da tela, não se tem essa informação ainda.

d) Em alguns casos, será passada a data de hoje para ser consistida, pois podem haver telas que as datas de previsão ainda não foram devidamente calculadas.

e) Se o usuário quizer mais alguma informação, basta fazer um cursor, nas devidas tabelas chave, pois para cada procedimento que chamou a tela, a chave está completa.

Tela: Distribuição de Lotes

Transação: Não se aplica.

Regra:

Definir Numero VSCodEmp;
Definir Numero VSCodFil;
Definir Alfa VSCodPro;
Definir Alfa VSCodDer;
Definir Alfa VSCodDep;
Definir Alfa VSCodLot;
Definir Data VSDatVlt;
Definir Data VSDatBas; @ DATA BASE PARA O CÁLCULO (MUDA CONFORME A ROTINA)@
@ odNFEntrada @
Definir Numero VSCodFor;
Definir Numero VSNumNfc;
Definir Alfa VSCodSnf; @ utilizado para odNFEntrada/odNFSaida @
Definir Numero VSSeqIpc;
@ odNFSaida @
Definir Numero VSNumNfv;
Definir Numero VSSeqIpv;
@ odPreFatura @
Definir Numero VSNumAne;
Definir Numero VSNumPfa;
Definir Numero VSSeqPes;
@ odPedido @
Definir Numero VSNumPed;
Definir Numero VSSeqIpd;
@ odOrdemCompra @
Definir Numero VSNumOcp;
Definir Numero VSSeqIpo;

@ GUARDA O PROCESSO QUE CHAMOU A REGRA @
@ odNFSaida,odNFEntrada,odPreFatura,odPedido,odMovimento,odOrdemCompra @
Definir Alfa VSOrigem;

@ RETORNO SIM / NÃO @
Definir Alfa VSPermite;

se ((VSDatVlt - VSDatBas) < 35)
VSPermite = "SIM";
senao VSPermite = "NÃO";

Variáveis Disponibilizadas: