Identificador de Regra

VEN_135GNACGP

Módulo
VEN - Vendas

Finalidade
Executar a rotina após clicar no botão Processar da tela F135GNA.

Características
O identificador não gera nenhum retorno para o sistema, apenas leva informação ao cliente para que ele, de forma personalizada, possa tomar decisões sobre essas informações, eventualmente até parando o processamento com alguma consistência lançada pela regra personalizada por ele desenvolvida. Esse identificador contém uma lista com informações das pré-faturas selecionados na grid no momento que o usuário dispara a ação Processar.

Regra

Definir Numero ObterNumero_NCodEmp;

Definir Numero ObterNumero_NCodFil;

Definir Numero ObterNumero_NNumAne;

Definir Numero ObterNumero_NNumPfa;

Definir Numero ObterNumero_NSugTns;

Definir Numero ObterNumero_NTnsPro;

Definir Numero ObterNumero_NCodCli;

Definir Alfa ObterAlfa_AApeCli;

Definir Numero ObterNumero_NVlrPfa;

Definir Numero ObterNumero_NCodRep;

Definir Alfa ObterAlfa_AApeRep;

Definir Alfa ObterAlfa_ACodCpg;

Definir Numero ObterNumero_DatAge;

Definir Numero ObterNumero_NCodRed;

Definir Numero ObterNumero_NQtdItp;

Definir Alfa ObterAlfa_AUfsEbq;

Definir Alfa ObterAlfa_ALocEmb;

Definir Alfa ObterAlfa_APlaVei;

Definir Numero VenNLista;

Definir Alfa VenA_S_N;

ListaRegraPrimeiro(VenNLista, VenA_S_N); /*Posiciona no primeiro registro da lista*/

se (VenA_S_N = "S")

inicio

VenA_S_N = "N";

enquanto (VenA_S_N <> "S") /*Enquanto não estiver no final da lista entra no laço.*/

inicio

ListaRegraObterValorNumero(VenNLista, "NCodEmp", ObterNumero_NCodEmp, VenA_S_N);

ListaRegraObterValorNumero(VenNLista, "NCodFil", ObterNumero_NCodFil, VenA_S_N);

ListaRegraObterValorNumero(VenNLista, "NNumAne", ObterNumero_NNumAne, VenA_S_N);

ListaRegraObterValorNumero(VenNLista, "NNumPfa", ObterNumero_NNumPfa, VenA_S_N);

ListaRegraObterValorNumero(VenNLista, "NSugTns", ObterNumero_NSugTns, VenA_S_N);

ListaRegraObterValorNumero(VenNLista, "NTnsPro", ObterNumero_NTnsPro, VenA_S_N);

ListaRegraObterValorNumero(VenNLista, "NCodCli", ObterNumero_NCodCli, VenA_S_N);

ListaRegraObterValorNumero(VenNLista, "NVlrPfa", ObterNumero_NVlrPfa, VenA_S_N);

ListaRegraObterValorNumero(VenNLista, "NCodRep", ObterNumero_NCodRep, VenA_S_N);

ListaRegraObterValorNumero(VenNLista, "DatAge", ObterNumero_DatAge, VenA_S_N);

ListaRegraObterValorNumero(VenNLista, "NCodRed", ObterNumero_NCodRed, VenA_S_N);

ListaRegraObterValorNumero(VenNLista, "NQtdItp", ObterNumero_NQtdItp, VenA_S_N);

ListaRegraObterValorAlfa(VenNLista, "AApeCli", ObterAlfa_AApeCli, VenA_S_N);

ListaRegraObterValorAlfa(VenNLista, "AApeRep", ObterAlfa_AApeRep, VenA_S_N);

ListaRegraObterValorAlfa(VenNLista, "ACodCpg", ObterAlfa_ACodCpg, VenA_S_N);

ListaRegraObterValorAlfa(VenNLista, "AUfsEbq", ObterAlfa_AUfsEbq, VenA_S_N);

ListaRegraObterValorAlfa(VenNLista, "ALocEmb", ObterAlfa_ALocEmb, VenA_S_N);

ListaRegraObterValorAlfa(VenNLista, "APlaVei", ObterAlfa_APlaVei, VenA_S_N);

ListaRegraProximo(VenNLista, VenA_S_N); /*Posiciona no próximo registro;*/

ListaRegraFim(VenNLista, VenA_S_N); /*Atualiza variável final de lista*/

fim

ListaRegraSalvarLista(VenNLista, "C:\\ERP", "listaCSV", "C");

x=y;

Variáveis disponibilizadas

Nome	Tipo	Observações	Retorna Valor
ObterNumero_NCodEmp	Número	Código da empresa onde a pré-fatura foi feita	N - Não
ObterNumero_NCodFil	Número	Código da filial onde a pré-fatura foi feita	N - Não
ObterNumero_NNumAne	Número	Código da Análise de embarque	N - Não
ObterNumero_NNumPfa	Número	Número da pré-fatura	N - Não
ObterNumero_NSugTns	Número	Indicativo se deve ser sugerida a transação dos dados gerais nos itens	N - Não
ObterNumero_NTnsPro	Número	Código Transação de faturamento para produtos	N - Não
ObterNumero_NCodCli	Número	Código do cliente	N - Não
ObterAlfa_ANomCli	Alfa	Nome fantasia do Cliente	N - Não
ObterNumero_NVlrPfa	Número	Valor da pré fatura	N - Não
ObterNumero_NCodRep	Número	Código do representante	N - Não
ObterAlfa_AApeRep	Número	Nome/Apelido do representante	N - Não
ObterAlfa_ACodCpg	Alfa	Código da condição de pagamento	N - Não
ObterNumero_DatAge	Número	Data de agendamento	N - Não
ObterNumero_NCodRed	Número	Código da transportadora de redespacho	N - Não
ObterNumero_NQtdItp	Número	Quantidade de Itens de produtos	N - Não
ObterAlfa_AUfsEbq	Alfa	UF de embarque	N - Não
ObterAlfa_ALocEmb	Alfa	Local de embarque	N - Não
ObterAlfa_APlaVei	Alfa	Placa do veículo	N - Não

PORTAL DE DOCUMENTAÇÃO
Gestão Empresarial \| ERP - versão 5.10.2 (XTended)