Histórico da Página

...

aArray[1] := Clave de Producto o Servicio
aArray[2] := No. Identificación
aArray[3] := Cantidad
aArray[4] := Clave de Unidad *Si es nulo omitir el atributo Unidad
aArray[5] := Unidad
aArray[6] := Descripción

Ejemplo 1

Se utiliza la tabla de Clientes (SA1)  en donde se agregá un nuevo campo llamado A1_IDENT.

...

User function LOCXCONCEP()
Local cArea := GetArea()
Local cCodProd := PARAMIXB[1] // Código del producto.
Local aDetFac := {"","",0,"","",""} // Arreglo que contiene la información del producto.
/*
aDetFac[1] := ClaveProdSer
aDetFac[2] := No. Identificación
aDetFac[3] := Cantidad
aDetFac[4] := ClaveUnidad
aDetFac[5] := Unidad
aDetFac[6] := Descripcion
*/

aDetFac[2] := AllTrim(SA1-> A1_IDENT)
aDetFac[6] := AllTrim(SA1 -> A1_IDENT)

RestArea(cArea)
Return aDetFac

Ejemplo 2 : Búsqueda en tabla SB1

#include 'protheus.ch'

User function LOCXCONCEP()
Local cArea := GetArea()
Local cCodProd := PARAMIXB[1] // Código del producto.
Local aDetFac := {"","","","","",""} // Arreglo que contiene la información del producto.
/*
aDetFac[1] := ClaveProdSer
aDetFac[2] := No. Identificación
aDetFac[3] := Cantidad
aDetFac[4] := ClaveUnidad *Si es nulo omitir el atributo Unidad
aDetFac[5] := Unidad
aDetFac[6] := Descripcion
*/

DbSelectArea("SB1")
SB1->(dbSetorder(1)) // B1_FILIAL + B1_COD
SB1->(Dbseek(XFilial("SB1")+cCodProd))
aDetFac[2] := AllTrim(SB1-> B1_ID)
aDetFac[6] := AllTrim(SB1 -> B1_ID)

RestArea(cArea)
Return aDetFac

En este ejemplo los ejemplos se observa que solo se informan el No.identificación y la Descripción del producto, si es requerido modificar algún otro campo sólo es necesario informar un valor en la posición del arreglo aDetFac dependiendo del campo que se quiera modificar.

NOTA: 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, Productos(SB1), Items de factura(SD2), 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 los atributos del nodo Conceptos.

...