Identificador de Regra

VEN-140PARMA01

Módulo: VEN - Vendas.

Finalidade: manipular as parcelas da nota no momento do fechamento, em forma de lista.

Características: atende clientes que têm integração com outro sistema onde nem sempre as parcelas vêm calculadas corretamente, permitindo manipular seus campos e ordenação.

Telas:

F140LOT - Faturamento de Pedidos Agrupado;
F140DSI - Digitação Simplificada de Notas Fiscais de Saída;
F140VCB - Pedidos e Notas Fiscais via Código de Barras;
F140CCB - Faturamento - NF Via C. Barras;
F140NCP - Notas Fiscais de Remessa via Carregamentos;
F140FGR - Faturamento em Grade (Análise de Embalagens);
F135GNA - Geração de Notas Fiscais via Pré-faturas;
F140PRE - Preparação da Nota Fiscal de Saída;
F140GNF - Notas Fiscais de Saída;
F161GPD - Geração de Notas Fiscais de Saída via Contratos;
F161FCV - Faturamento de Contratos Variáveis;
F149GNC - Faturamento Individual de Cargas e Pedidos
F149GNA - Faturamento Agrupado de Cargas
Web service com.senior.g5.co.mcm.ven.notafiscal, porta GravarNotasFiscaisSaida

Transação: não se aplica.

Variáveis disponibilizadas:

Campo	Tipo	Descrição	Retorna Valor
VenNCodEmp	Número	Código da Empresa	N
VenNCodFil	Número	Código da Filial	N
VenNNumNfv	Número	Número da Nota Fiscal	N
VenACodSnf	Alfa	Série da Nota Fiscal	N
IntNListaParcelasAtuais		Lista de Parcelas Atuais	N
IntNListaParcelasNovas		Lista de Parcelas Novas	S

Campos encontrados nas listas

Campo	Tipo	Descrição
CodSnf	Alfa	Código da Série da nota fiscal
CodPar	Número	Sequência de parcelas da nota fiscal de saída
CodCrp	Alfa	Código do grupo a receber
NumTit	Alfa	Número do título a ser gerado no contas a receber
CodTpt	Alfa	Código do tipo de título a ser gerado no contas a receber
CodFcr	Alfa	Código da moeda ou índice como fator de correção (financeiro)
DatFcr	Data	Data da cotação da moeda ou índice para o fator de correção (financeiro)
VctPar	Data	Data de vencimento da parcela da nota fiscal de saída
VlrPar	Número	Valor da parcela da nota fiscal de saída
PerDdp	Número	Percentual de desconto da parcela da nota fiscal de saída
CodPor	Número	Quantidade de dias de tolerância para o desconto da parcela
CodCrt	Alfa	Código do portador a ser lançado o título no contas a receber
CodNtg	Número	Código da natureza de gasto
ObsPar	Alfa	Texto da observação
UsuGer	Número	Usuário responsável pela geração do registro
DatGer	Data	Data da geração do registro
HorGer	Número	Hora da geração do registro
CodFpg	Número	Forma Pagamento
GerBai	Alfa	Indicativo se, no momento da geração do título, ele é baixado automaticamente.
TnsBai	Alfa	Código da Transação de Baixa Automática
DatNeg	Data	Data base dos valores negociados (data até)
DscNeg	Número	Valor do desconto negociado a ser concedido ao título a receber
CatTef	Alfa	Código de Autorização da Transação (TEF - Sitef)
NsuTef	Alfa	Número Sequencial Único da Transação TEF (Host - Operadora)
CodSac	Número	Código do sacado
CheBan	Alfa	Número do banco na FEBRABAN do cheque
CheAge	Alfa	Número da agência do banco do cheque
CheCta	Alfa	Número da conta no banco do cheque
CheNum	Alfa	Número do cheque no banco
CodBar	Alfa	Código de barras do cheque (CMC7)
CatExt	Alfa	Código de autorização externo
CodOpe	Número	Código da Operadora
CarCov	Alfa	Número do cartão convênio
CarPre	Alfa	Código do Cartão Presente
CodCnv	Número	Código do convênio
VlrTro	Número	Valor do troco dado ao cliente da venda
FpgTro	Número	Código da forma de pagamento
DepCnv	Número	Código do Dependente
VlrDdp	Número	Valor do desconto da parcela da nota fiscal
DscAnt	Número	Percentual de desconto por antecipação para os títulos gerados
DscPon	Número	Percentual de desconto por pontualidade para os títulos gerados
JurVen	Alfa	Indicativo se o sistema deve calcular juros/multa desde a data da venda
DatPpt	Data	Data do provável pagamento do título
LocTit	Alfa	Localizador do título para retaguarda/loja
VlrInt	Número	Valor de intermediação de serviços da parcela
NumPfi	Alfa	Número da proposta da financeira que originou o título
QtdPar	Número	Quantidade de parcelas escolhidas no cartão
TipCar	Alfa	Tipo do cartão utilizado pela operadora
ParTit	Número	Número da parcela
CodFin	Número	Código da financeira que é a detentora da parcela
EntPar	Alfa	Parcela é uma entrada
TitBan	Alfa	Número do título no banco (nosso número)
JrsNeg	Número	Valor dos juros negociados
MulNeg	Número	Valor da multa negociada
OutNeg	Número	Valor de outros valores negociados
TipInt	Alfa	Tipo de integração do processo de pagamento com o sistema de automação da empresa
CgcCre	Alfa	CNPJ da credenciadora de cartão de crédito e/ou débito
BanOpe	Alfa	Bandeira da operadora de cartão de crédito e/ou débito
IndPag	Alfa	Indicativo da forma de pagamento
IdeTxi	Alfa	Identificação da Transação - TXID PIX (exclusivo para integração Varejo/GS)
QtdDdd	Número	Quantidade de dias de tolerância para desconto da parcela
CgcBpr	Número	CNPJ do estabelecimento onde o pagamento foi processado
IdeTpg	Alfa	Identificador do terminal de pagamento

Exemplo de regra para inverter a ordem das parcelas usando todos os campos:

Definir numero IntNListaParcelasAtuais;
Definir numero IntNListaParcelasNovas;
Definir alfa S_N;
Definir alfa S_N_Campo;
Definir alfa LeuPrimeiro;
Definir alfa aValorCampo;
Definir numero nValorCampo;
Definir numero codigoparcela;

LeuPrimeiro = "N";
ListaRegraPrimeiro(IntNListaParcelasAtuais, S_N); @Posiciona no primeiro registro da lista {Colunas(NomeAtributo | ValorAtributo)} @
Se (S_N = "S"){
  LeuPrimeiro = "S";
  S_N = "N";  
  enquanto (S_N <> "S") { @Lista Preenchida / recebeu atributos@ 
  ListaRegraProximo(IntNListaParcelasAtuais, S_N); @Posiciona no próximo registro@
  ListaRegraFim(IntNListaParcelasAtuais, S_N); @Atualiza variável final de lista@
  }
}
  
Se (LeuPrimeiro = "S"){  
  S_N = "N";      
  codigoparcela = 1;
  enquanto (S_N <> "S"){  
    ListaRegraNovaLinha(IntNListaParcelasNovas);
    
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodSnf", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodSnf",aValorCampo,S_N_Campo);  
    }    
            
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodPar", aValorCampo, S_N_Campo); 
    IntParaStr(codigoparcela,aValorCampo);
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodPar",aValorCampo,S_N_Campo);  
    }
    codigoparcela = codigoparcela + 1;
    
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodCrp", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodCrp",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "NumTit", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"NumTit",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodTpt", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodTpt",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodFcr", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodFcr",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "DatFcr", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"DatFcr",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "VctPar", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"VctPar",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "VlrPar", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"VlrPar",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "PerDdp", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"PerDdp",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodPor", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodPor",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodCrt", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodCrt",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodNtg", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodNtg",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "ObsPar", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"ObsPar",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "UsuGer", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"UsuGer",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "DatGer", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"DatGer",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "HorGer", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"HorGer",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodFpg", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodFpg",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "GerBai", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"GerBai",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "DatNeg", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"DatNeg",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "DscNeg", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"DscNeg",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CatTef", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CatTef",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "NsuTef", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"NsuTef",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodSac", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodSac",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CheBan", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CheBan",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CheAge", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CheAge",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CheCta", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CheCta",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CheNum", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CheNum",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodBar", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodBar",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CatExt", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CatExt",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodOpe", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodOpe",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CarCov", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CarCov",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CarPre", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CarPre",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodCnv", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodCnv",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "VlrTro", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"VlrTro",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "FpgTro", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"FpgTro",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "DepCnv", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"DepCnv",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "VlrDdp", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"VlrDdp",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "DscAnt", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"DscAnt",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "DscPon", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"DscPon",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "JurVen", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"JurVen",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "DatPpt", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"DatPpt",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "LocTit", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"LocTit",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "VlrInt", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"VlrInt",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "NumPfi", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"NumPfi",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "QtdPar", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"QtdPar",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "TipCar", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"TipCar",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "ParTit", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"ParTit",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodFin", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodFin",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "EntPar", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"EntPar",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "TitBan", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"TitBan",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "JrsNeg", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"JrsNeg",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "MulNeg", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"MulNeg",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "OutNeg", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"OutNeg",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "TipInt", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"TipInt",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CgcCre", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CgcCre",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "BanOpe", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"BanOpe",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "IndPag", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"IndPag",aValorCampo,S_N_Campo);  
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "IdeTxi", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"IdeTxi",aValorCampo,S_N_Campo);  
    }  
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "QtdDdd", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){  
      ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"QtdDdd",aValorCampo,S_N_Campo);  
    }  
	
  
    ListaRegraSalvarLinha(IntNListaParcelasNovas);
    ListaRegraAnterior(IntNListaParcelasAtuais, S_N); @Posiciona no próximo registro@ 
    ListaRegraInicio(IntNListaParcelasAtuais, S_N); @Atualiza variável final de lista@
  }
}

Exemplo de Regra herdando os campos CgcBpr, IdeTpg, CatTef e NsuTef da Parcela do Pedido para as Parcelas da Nota:

Definir numero IntNListaParcelasAtuais;
Definir numero IntNListaParcelasNovas;
Definir alfa S_N;
Definir alfa S_N_Campo;
Definir alfa LeuPrimeiro;
Definir alfa aValorCampo;
Definir numero nValorCampo;
Definir numero codigoparcela;
Definir Numero CodigoParcelaAtual;
Definir Alfa xSql;
Definir Alfa xCursor;
Definir Alfa xAlfaAux;
Definir Numero xNumeroAux;
Definir Numero xCgcBprAux;
Definir Alfa xIdeTpgAux;
Definir Alfa xCatTefAux;
Definir Alfa xNsuTefAux;
Definir Numero VenNCodEmp;
Definir Numero VenNCodFil;
Definir Alfa   VenACodSnf;
Definir Numero VenNNumNfv;
Definir Alfa   VenANomeForm;

LeuPrimeiro = "N";
ListaRegraPrimeiro(IntNListaParcelasAtuais, S_N); @Posiciona no primeiro registro da lista {Colunas(NomeAtributo | ValorAtributo)} @
Se (S_N = "S"){
  LeuPrimeiro = "S";
  S_N = "N";
  enquanto (S_N <> "S") { @Lista Preenchida / recebeu atributos@
  ListaRegraProximo(IntNListaParcelasAtuais, S_N); @Posiciona no próximo registro@
  ListaRegraFim(IntNListaParcelasAtuais, S_N); @Atualiza variável final de lista@
 }
}

Se (LeuPrimeiro = "S"){
  S_N = "N";
  codigoparcela = 1;
  enquanto (S_N <> "S"){
    ListaRegraNovaLinha(IntNListaParcelasNovas);

    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodSnf", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodSnf",aValorCampo,S_N_Campo);
    }

    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodPar", aValorCampo, S_N_Campo);
    AlfaParaInt(aValorCampo, CodigoParcelaAtual);
@    IntParaStr(codigoparcela,aValorCampo);@

    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodPar",aValorCampo,S_N_Campo);
    }
@    codigoparcela = codigoparcela + 1;    @

    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodCrp", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodCrp",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "NumTit", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"NumTit",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodTpt", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodTpt",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodFcr", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodFcr",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "DatFcr", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"DatFcr",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "VctPar", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"VctPar",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "VlrPar", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"VlrPar",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "PerDdp", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"PerDdp",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodPor", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodPor",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodCrt", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodCrt",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodNtg", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodNtg",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "ObsPar", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"ObsPar",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "UsuGer", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"UsuGer",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "DatGer", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"DatGer",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "HorGer", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"HorGer",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodFpg", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodFpg",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "GerBai", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"GerBai",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "DatNeg", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"DatNeg",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "DscNeg", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"DscNeg",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CatTef", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CatTef",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "NsuTef", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"NsuTef",aValorCampo,S_N_Campo);
    } */
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodSac", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodSac",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CheBan", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CheBan",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CheAge", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CheAge",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CheCta", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CheCta",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CheNum", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CheNum",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodBar", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodBar",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CatExt", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CatExt",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodOpe", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodOpe",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CarCov", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CarCov",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CarPre", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CarPre",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodCnv", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodCnv",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "VlrTro", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"VlrTro",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "FpgTro", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"FpgTro",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "DepCnv", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"DepCnv",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "VlrDdp", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"VlrDdp",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "DscAnt", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"DscAnt",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "DscPon", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"DscPon",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "JurVen", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"JurVen",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "DatPpt", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"DatPpt",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "LocTit", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"LocTit",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "VlrInt", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"VlrInt",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "NumPfi", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"NumPfi",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "QtdPar", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"QtdPar",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "TipCar", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"TipCar",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "ParTit", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"ParTit",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CodFin", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CodFin",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "EntPar", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"EntPar",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "TitBan", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"TitBan",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "JrsNeg", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"JrsNeg",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "MulNeg", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"MulNeg",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "OutNeg", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"OutNeg",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "TipInt", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"TipInt",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CgcCre", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CgcCre",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "BanOpe", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"BanOpe",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "IndPag", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"IndPag",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "IdeTxi", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"IdeTxi",aValorCampo,S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "QtdDdd", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"QtdDdd",aValorCampo,S_N_Campo);
    }
@------------------------------------------------------------------------------@
Sql_Criar(xCursor);
xSql = "SELECT e120par.CodEmp,                         \	
		e120par.CodFil,                         \
		e120par.NumPed,                         \
		e120par.SeqPar,                         \
		e120par.CatTef,                         \
		e120par.NsuTef,                          \
		e120par.Usu_CgcBpr,                     \
       	e120par.Usu_IdeTpg                      \
  	   FROM e120par, e140ipv                        \
  	   WHERE e120par.codemp = e140ipv.codemp         \
  	   AND e120par.codfil = e140ipv.filped         \
	   AND e120par.numped = e140ipv.numped         \
	   AND e140ipv.codemp = :VSIntCodEmp           \
	   AND e140ipv.codfil = :VSIntCodFil           \		
	   AND e140ipv.codsnf = :VSIntCodSnf           \
	   AND e140ipv.numnfv = :VsIntNumNfv           \
	   AND e120par.seqpar = :VsIntSeqPar           \
	   GROUP BY e120par.CodEmp,                         \
		e120par.CodFil,                         \
	 	e120par.NumPed,                         \
		e120par.SeqPar,                         \
		e120par.CatTef,                         \
		e120par.NsuTef,                         \			
		e120par.usu_cgcbpr,                     \
		e120par.usu_idetpg";

Sql_DefinirComando(xCursor, xSql);
Sql_DefinirInteiro(xCursor, "VSIntCodEmp", VenNCodEmp);
Sql_DefinirInteiro(xCursor, "VSIntCodFil", VenNCodFil);
Sql_DefinirAlfa(xCursor,    "VSIntCodSnf", VenACodSnf);
Sql_DefinirInteiro(xCursor, "VsIntNumNfv", VenNNumNfv);
Sql_DefinirInteiro(xCursor, "VsIntSeqPar", CodigoParcelaAtual);
Sql_AbrirCursor(xCursor);


Se (Sql_EOF(xCursor) = 0)
Inicio
	Sql_RetornarInteiro(xCursor,"usu_cgcbpr", xCgcBprAux);
	Sql_RetornarAlfa(xCursor,"usu_idetpg", xIdeTpgAux);
	Sql_RetornarAlfa(xCursor,"CatTef", xCatTefAux);
       Sql_RetornarAlfa(xCursor,"NsuTef", xNsuTefAux);
Fim
Sql_FecharCursor(xCursor);
Sql_Destruir(xCursor);

@------------------------------------------------------------------------------@
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CgcBpr", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaNumero(IntNListaParcelasNovas,"CgcBpr", xCgcBprAux, S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "IdeTpg", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"IdeTpg", xIdeTpgAux, S_N_Campo);
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "CatTef", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@ 
    se (S_N_Campo = "S"){
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"CatTef", xCatTefAux, S_N_Campo
    }
    ListaRegraObterValorAlfa(IntNListaParcelasAtuais, "NsuTef", aValorCampo, S_N_Campo); @Verifica se a linha é de um item de produto.@
    se (S_N_Campo = "S"){	
	ListaRegraAddValorLinhaAlfa(IntNListaParcelasNovas,"NsuTef", xNsuTefAux, S_N_Campo);
    }
    ListaRegraSalvarLinha(IntNListaParcelasNovas);
    ListaRegraAnterior(IntNListaParcelasAtuais, S_N); @Posiciona no próximo registro@
    ListaRegraInicio(IntNListaParcelasAtuais, S_N); @Atualiza variável final de lista@
    }
}
x = y;

Atenção

Caso o parâmetro global LisVarReg esteja habilitado, a variável ListaVariaveis estará disponível em todos os identificadores de regras do sistema. O conteúdo desta variável lista os campos disponibilizados no identificador de regras em questão.

Não é aconselhada a ativação desse parâmetro global para o uso cotidiano. Esse recurso de listagem dos campos de identificadores auxilia a construção de regras e o Suporte para, por exemplo, depuração ou quando não houver acesso à documentação dos identificadores de regras.

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