LeListaItmCalExp

Alimenta modelos ligados a tela F813PRO.

Sintaxe: Funcao LeListaItmCalExp (Numero pPos, Numero End pFim,Numero SelIpd,Alfa TipNec, Alfa CodPvp, Numero CodFil, Numero NumPed, Numero SeqIpd, Alfa CodPro,Alfa CodDer, Numero QtdNec, Alfa UniMed).

Parâmetros:

Nome Tipo Descrição
pPos Numero Posição inicial pela qual a lista deve começar a ser lida.
pFim Numero Posição final a ser lida na lista.
SelIpd Numero Indica se o registro foi selecionado na grade.
TipNec Alfa Indica o tipo de necessidade.
CodPvp Alfa Código do período.
CodFil Numero Código da filial.
NumPed Numero Número do pedido.
SeqIpd Numero Sequência do item do pedido.
CodPro Alfa Código do produto.
CodDer Alfa Código da derivação.
QtdNec Numero Quantidade necessária a produzir.
UniMed Alfa Unidade de medida. 

Exemplo:

definir numero vSelIpd;
definir alfa vTipNec;
definir alfa vCodPvp;
definir numero vCodFil;
definir numero vNumPed;
definir numero vSeqIpd;
definir alfa vCodPro;
definir alfa vCodDer;
definir numero vQtdNec;
definir alfa vUniMed;

PosMemList = 0;

enquanto (FimMemList = 0) {
@ LÊ OS REGISTROS ORIUNDO DA TELA DE CONSULTA @ LeListaItmCalExp(PosMemList,FimMemList,vSelIpd,vTipNec,vCodPvp,vCodFil,vNumPed,vSeqIpd,vCodPro,vCodDer,vQtdNec,vUniMed);
se (FimMemList = 0)
{
PosMemList++;
ListaSecao("Adicional_1");

}
}

Este artigo ajudou você?