English
Español
LeMemlistAna
Informa em um relatório as informações da tela de Necessidades de Aumento.
Sintaxe: LeMemlistAna(Numero pPos,Numero End pFim,Numero End CC,Alfa End CF,Alfa end CP,Alfa End CD,Numero end V1,Numero End V2,Numero End V3,Numero End V4, Numero End V5,Numero End V6,Numero End V7,Alfa End DP);');
Parâmetros:
| Nome | Tipo | Descrição |
|---|---|---|
| pPos | Numero | Variável que retorna a posição da lista que se quer ler. |
| pfim | Numero | Variável que retorna 1 quando tiver acabado a lista. |
| CC | Numero | Flag de leitura: Se é 0 lê a primeira parte dos valores(Qtdpro, PreTab, ValCva, ValCdf, ValCif, PerDfi, PerRoy, PerDvv). |
| CF | Alfa | Variável que retorna a Família. |
| CP | Alfa | Variável que retorna o Produto. |
| CD | Alfa | Variável que retorna a Derivação. |
| V1,V2,V3,V4,V5,V6 e V7 | Numero | Valores (depende do flag, podem ser os valores acima citados ou os valores restantes, conforme tela de análise de necessidades de aumento). |
| DP | Alfa | Variável que retorna a descrição do produto. |
Tipo de retorno:
- pfim: Variável numérica que retorna 1 quando tiver acabado a lista.
- CC:Flag de leitura: Se é 0 lê a primeira parte dos valores(Qtdpro, PreTab, ValCva, ValCdf, ValCif, PerDfi, PerRoy, PerDvv).
- CF:Variável alfanumérica que retorna a Família.
- CP:Variável alfanumérica que retorna o Produto.
- CD:Variável alfanumérica que retorna a Derivação.
- V1,V2,V3,V4,V5,V6 e V7: Valores numéricos (depende do flag, podem ser os valores acima citados ou os valores restantes, conforme tela de análise de necessidades de aumento).
- DP:Variável alfanumérica que retorna a descrição do produto.
Exemplo: A Regra abaixo foi retirada do modelo CSFP001.GER - Análise de necessidades de aumento.
Definir Alfa DCodFam;
Definir Alfa DCodPro;
Definir Alfa DCodDer;
Definir Alfa DDesPro;
Definir Alfa CodFamAnt;
Definir Numero V1;
Definir Numero V2;
Definir Numero V3;
Definir Numero V4;
Definir Numero V5;
Definir Numero V6;
Definir Numero V7;
FimMemList = 0;
Pos = 0;
FlagLeitura = 0; @Este flag indica se vai ler a primeira ou a segunda parte do registro RegAna@
DCodFam = "";
DCodPro = "";
DCodDer = "";
DDesPro = "";
CodFamAnt = "";
PrimVez = 1;
Enquanto (FimMemList = 0)
inicio
CodFamAnt = DCodFam;
FlagLeitura = 0; @Este flag indica se vai ler a primeira ou a segunda parte do registro RegAna@
LeMemListAna(Pos,FimMemList,FlagLeitura,DCodFam,DCodPro,DCodDer,V1,V2,V3,V4,V5,V6,V7,DDesPro);
Se (FimMemList = 0)
Inicio
Se (DCodFam <> CodFamAnt)
Inicio
Se (PrimVez = 0)
ListaSecao("Adicional_SubtotalFamilia");
ListaSecao("Adicional_SubtituloFamilia");
Fim;
PrimVez = 0;
FQtdpro = V1;
FPreTab = V2;
FValCva = V3;
FValCdf = V4;
FValCif = V5;
FPerDfi = V6;
FPerRoy = V7;
FlagLeitura = 1; @Este flag indica se vai ler a primeira ou a segunda parte do registro RegAna@
LeMemListAna(Pos,FimMemList,FlagLeitura,DCodFam,DCodPro,DCodDer,V1,V2,V3,V4,V5,V6,V7,DDesPro);
FPerDvv = V1;
FSalImp = V2;
FVlrPri = V3;
FVlrSeg = V4;
FVlrNpv = V5;
FPerApv = V6;
FPreApr = V7;
ListaSecao("Adicional_Produto");
Pos = Pos + 1;
Fim;
Fim;
Utilização da Função (dependentes): Somente com a lista de necessidades de aumento carregada. Quem carrega esta é a tela de Necessidades de Aumento - Custos.
Observações: O modelo CSFP001.GER, que utiliza esta função, foi desenvolvido para ser chamado através da tela de necessidades de Aumento. Se for chamado pelo Gerador de relatórios não funciona, pois não há dados carregados.
English
Español
