Histórico da Página

...

El siguiente ejemplo esta hecho utilizando la tabla SEL  en donde se agrego un nuevo campo.

#include 'protheus.ch'

User function F087ANUMOP()
Local cNumOp := ""
Local aPagosRec := PARAMIXB[1] // Pagos del recibo de cobro
Local nNumPago := PARAMIXB[2] // Numero de pago

DbSelectArea("SEL") //Selección de la tabla de la cual se quiere buscar el campo de usuario.
SEL->(DBGoTop())
SEL->(DbSetOrder(8))//EL_FILIAL+EL_SERIE+EL_RECIBO+EL_TIPODOC+EL_PREFIXO+EL_NUMERO+EL_PARCELA+EL_TIPO
SEL->(DbSeek(xFilial("SEL") + aPagosRec[nNumPago][24] + aPagosRec[nNumPago][2]+ aPagosRec[nNumPago][7]+aPagosRec[nNumPago][4]+aPagosRec[nNumPago][3]+aPagosRec[nNumPago][5]+aPagosRec[nNumPago][6])) //Posicionamiento en el registro usando un indice único
cNumOp := AllTrim(SEL→EL_NUMOP)  //Se obtiene el valor del campo de usuario

Return cNumOp

NOTA: En el Punto de Entrada de ejemplo se indica que la cadena que se retornará será el campo de usuario Número Operación (EL_NUMOP) . Cabe mencionar que al momento de la ejecución del punto de entrada se puede posicionar en algunas tablas como de Clientes(SA1) y de Recibos de cobro (SEL), por lo que se podrán utilizar campos que ya existen de estas tablas  o campos nuevos que sean agregados y definir la regla para el armado del tributo NumOperacion. 

...