Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • GAC010Exem - Código do exemplar -- 13167

Ponto-de-Entrada: GAC010Exem - Código do exemplar
Versões: Microsiga Protheus 8.11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Criado ponto de entrada para gravar no código do exemplar um valor a ser definido pelo cliente. Atualmente este campo é preenchido automaticamente por auto-incremento.
Eventos

O Ponto de entrada é chamado na gravação do campo JM1_EXEMPL.
 

Programa Fonte 
GACA010.PRW
Sintaxe

GAC010Exem - Código do exemplar ( < aColsAux> , < nY> , < aHeaderAux> ) --> cExemplar

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aColsAux Array of Record Array contendo a informação da aCols do folder de Exemplares X
nY Numérico Linha da aCols posicionada X
aHeaderAux Array of Record Array do Header da aCols do folder de Exemplares X
Retorno
    cExemplar(caracter)
  • Novo código do exemplar
Observações


 

Exemplos 
// Neste exemplo, iremos retornar o mesmo código do tombo para gravar no código do exemplarUser function GAC010Exem()Local aColsAux := Paramixb[1] // Conteúdo do aCols       Local nLin	   := Paramixb[2]  // linha do aCols posicionada       Local aHeader  := Paramixb[3]  // Cabeçalho do aColsLocal nPosTombo := Ascan( aHeader , {|x| x[2] == "JM1_TOMBO " } )   // Localiza posição do campo  tomboLocal cExemplar := aColsAux[nLin][nPosTombo]   //recebe conteudo do tomboReturn cExemplar