English
Español
CarregaRoteiros
Esta função tem 2 objetivos: O de montar a lista de Roteiros, quando o parâmetro "Le" for igual a 0(zero) e a de retornar a concatenação das derivações do roteiro, quando o parâmetro "Le" for igual a 1(um).
Sintaxe: CarregaRoteiros(Numero End pPos, Numero End pFim, Numero Le,Alfa End CodRot, Alfa End Derivacoes);
Parâmetros:
| Nome | Tipo | Descrição |
|---|---|---|
| pPos | Numero | Posição da Lista de Roteiros. |
| pFim | Numero | Indica se é final da lista. |
| Le | Numero | Indica se a chamada é de leitura de um roteiro, ou para montar a lista de roteiros. |
| CodRot | Alfa |
Se a chamada for para montar a lista de roteiros, deve ser o código do produto. Se a chamada é de leitura da lista de roteiros, deve ser o código do roteiro. |
| Derivacoes | Alfa | Concatenação de todos os roteiros lidos. Só tem funcionalidade quando a função é utilizada para Leitura do roteiro("Le" = 1). |
Tipo de retorno:
- pPos: posição da Lista de Roteiros.
- pFim: indica se é final da lista.
- CodRot: retorna o Código do Roteiro lido se o parâmetro "Le" estiver igual a 1.
- Derivacoes: retorna as derivações de um roteiro.
Exemplo:
Definir Alfa CodRot[14];
Definir Alfa DCodRot[14];
Definir Alfa Derivacoes;
Definir Alfa DDeriva;
Definir Alfa ECodPro[14];
Definir Alfa CodPro[14];
FimMemList = 0;
Pos = 0;
Le = 0;
@Vai o CODPRO e retorna o CODROT@
CodPro = ECodpro;
CarregaRoteiros(Pos,FimMemList,Le,CodPro,Derivacoes);
Le = 1;
Pos = 0;
FimMemList = 0;
Enquanto (FimMemList = 0)
inicio
CarregaRoteiros(Pos,FimMemList,Le,CodRot,Derivacoes);
Se (FimMemList = 0)
Inicio
ListaSecao("Adicional_Roteiro");
Pos = Pos + 1;
Fim;
Fim;
Utilização da Função (dependentes): Nenhum dependente.
Observações: Esta função é utilizada no modelo de Ficha Técnica do produto - PRGE030.ger
English
Español
