Histórico da Página

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.

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

GACA010.PRW

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

cExemplar(caracter)
• Novo código do exemplar

// 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