LerPedidosCanSub

Ler uma lista de memória criada e carregada no processamento no cancelamento e substituição dos itens (F120SIP).

Sintaxe: LerPedidosCanSub(Numero NPos,Numero End FLis,Numero End Emp,Numero End Fil,Numero End Ped,Numero End Seq,Alfa End Pro,Alfa End Der,Alfa End ProS,Alfa End DerS,Alfa End Dep,Numero End Qtd,Numero End Pre,Numero End Vlr,Alfa End Cse);

Parâmetros:

Nome	Tipo	Descrição
NPos	Numero	Variável que possui a posição atual em que se encontra a lista em memória.
FLis	Numero	Variável que indica o fim da lista.
Emp	Numero	Código da empresa.
Fil	Numero	Código da filial.
Ped	Numero	Número do pedido.
Seq	Numero	Sequência do pedido.
Pro	Alfa	Código do produto substituído.
Der	Alfa	Código da derivação substituída.
ProS	Alfa	Código do produto substituto.
DerS	Alfa	Código da derivação substituta.
Dep	Alfa	Código do depósito.
Qtd	Numero	Quantidade do item do pedido.
Pre	Numero	Preço do item do pedido.
Vlr	Numero	Valor do item do pedido.
Cse	Alfa	Indicativo de cancelamento, substituição ou exclusão do item (valores: “CAN”, “SUB” e “EXC”).

Exemplo:

Definir Numero NPos;

Definir Numero FLis;

Definir Numero Emp;

Definir Numero Fil;

Definir Numero Ped;

Definir Numero Seq;

Definir Alfa Pro;

Definir Alfa Der;

Definir Alfa ProS;

Definir Alfa DerS;

Definir Alfa Dep;

Definir Numero Qtd;

Definir Numero Pre;

Definir Numero Vlr;

Definir Alfa Cse;

FLis = 0;

NPos = 0;

Enquanto (FLis = 0)

Inicio

LerPedidosCanSub(NPos,FLis,Emp,Fil,Ped,Seq,Pro,Der,ProS,DerS,Dep,Qtd,Pre,Vlr,Cse);

Se (FLis = 0)

x=y;

senao

a=b;

NPos++;

Fim.

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