Identificador de Regra

Definir Numero CprNCodEmp;

Definir Numero CprNCodFil;

Definir Numero CprNNumNfc;

Definir Numero CprACodSnf;

Definir Numero CprNCodFor;

Definir Numero CprNTotRoy;

Definir Numero CprNDesRoy;

Definir Numero CprNForRoy;

Definir Numero CprNLista;

Definir Alfa CprA_S_N;

ListaRegraPrimeiro(CprNLista, CprA_S_N); /*Posiciona no primeiro registro da lista*/

se (CprA_S_N = "S")

inicio

CprA_S_N = "N";

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

inicio

ListaRegraObterValorNumero(CprNLista, "CprNCodEmp", CprNCodEmp, CprA_S_N);

ListaRegraObterValorNumero(CprNLista, "CprNCodFil", CprNCodFil, CprA_S_N);

ListaRegraObterValorNumero(CprNLista, "CprNNumNfc", CprNNumNfc, CprA_S_N);

ListaRegraObterValorNumero(CprNLista, "CprNCodFor", CprNCodFor, CprA_S_N);

ListaRegraObterValorNumero(CprNLista, "CprNTotRoy", CprNTotRoy, CprA_S_N);

ListaRegraObterValorNumero(CprNLista, "CprNDesRoy", CprNDesRoy, CprA_S_N);

ListaRegraObterValorNumero(CprNLista, "CprNForRoy", CprNForRoy, CprA_S_N);

ListaRegraObterValorAlfa(CprNLista, "CprACodSnf", CprACodSnf, CprA_S_N);

ListaRegraProximo(CprNLista, CprA_S_N); /*Posiciona no próximo registro;*/

ListaRegraFim(CprNLista, CprA_S_N); /*Atualiza variável final de lista*/

fim

fim

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

Nome	Tipo	Observações	Retorna Valor
CprNLista	Número	Lista de notas fiscais e valores descontados.	N
CprNCodEmp	Número	Código da empresa onde foi gerada a nota fiscal.	N
CprNCodFil	Número	Codigo da filial onde foi gerada a nota fiscal.	N
CprNNumNfc	Número	Número da nota fiscal.	N
CprACodSnf	Número	Série da nota fiscal.	N
CprNCodFor	Número	Código do fornecedor da nota fiscal.	N
CprNTotRoy	Número	Total de royalties da operação.	N
CprNDesRoy	Número	Valor do royalties descontado do financeiro da nota fiscal.	N
CprNForRoy	Número	Código do fornecedor que irá receber o royalties.	N