Observaciones | Punto de entrada utilizado para agregar campos y visualizar en la interfaz de vínculo de la factura con el pedido de compras.
UBICACIÓN: ProcPCxNFe e MarkBrwPC
EN QUE PUNTO: Al hacer clic en la opción Pedido por Ítem, después de seleccionar la opción Vincular Documento.
------------------------------------------------------------------------------------------
Disponible solamente para Top Connect y solamente para la opción Pedido por Ítem.
Este punto de entrada se ejecuta dos veces en el programa.
La primera vez, cuando recibe el primer parámetro igual a 1, debe devolver un array con los campos de la tabla SC7 para incluir en la query de búsqueda de pedidos, para montar la tabla de trabajo.
La segunda vez, cuando recibe el primer parámetro igual a 2, debe devolver un array en 3 dimensiones:
La primera dimensión debe devolver nuevamente los campos de la tabla SC7.
La segunda dimensión debe devolver un array con la estructura [CAMPO,TIPO,TAMAÑO,DECIMALES].
La tercera dimensión debe devolver un array con la estructura [CAMPO, EN BLANCO, TÍTULO DE LA COLUMNA POR PRESENTAR EN LA PANTALLA, PICTURE DEL CAMPO].
ATENCIÓN: El nombre del campo debe obligatoriamente seguir el estándar CAMPO1, CAMPO2, CAMPO3... En esta secuencia, agregando 1 al final del nombre en cada campo por incluir, para que el programa comprenda la inclusión de los campos en el browse. |
Ejemplos | User Function A140IPED
Local nSeq := PARAMIXB[1]
Local alEstru := PARAMIXB[2]
Local alCampos:= PARAMIXB[3]
Local aRet := {}
If nSeq == 1
// Campos por agregar en la query de búsqueda de pedidos
AADD(aRet,{"C7_DATPRF","C7_QUJE"})
Else
// Campos por agregar en la query de búsqueda de pedidos
AADD(aRet,{"C7_DATPRF","C7_QUJE"})
// Campos que compondrán la tabla temporal
AADD(alEstru,{"CAMPO1", "D", TamSx3("C7_DATPRF")[1], 0 })
AADD(alEstru,{"CAMPO2", "N", TamSx3("C7_QUJE")[1] , TamSx3("C7_QUJE")[2] })
AADD(aRet,{alEstru})
// Campos que aparecerán en la pantalla
aAdd(alCampos,{"CAMPO1" , , "Fch.Entrega" ,PesqPict("SC7","C7_DATPRF") })
aAdd(alCampos,{"CAMPO2" , , "Cant.Entregada",PesqPict("SC7","C7_QUJE") })
AADD(aRet,{alCampos})
EndIf
Return aRet |
