Histórico da Página
...
Producto |
| ||||||
---|---|---|---|---|---|---|---|
Línea de producto: |
| ||||||
Segmento: |
| ||||||
Módulo: | SIGAFIN - FINANCIERO | ||||||
Función: |
| ||||||
País: | Todos | ||||||
Ticket: | N/A | ||||||
Requisito/Story/Issue (informe el requisito vinculado): | DMINA-20521 |
...
Totvs custom tabs box | |||||||
---|---|---|---|---|---|---|---|
| |||||||
|
04. INFORMACIÓN ADICIONAL
Descripción | Actualizaciones | ||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Punto de entrada: | F998VISFP | ||||||||||||||||||||
Nombre del programa fuente: | PAYMENT-FORM-DETAIL.DATA.TLPP | ||||||||||||||||||||
Parámetros recibidos: |
| ||||||||||||||||||||
Respuesta: | Arreglo de configuraciones para agregar a la lista de campos que se pueden visualizar en la lista de recibos.
|
#Include 'Protheus.ch'
User Function F998VISFP
Local aCampos := {}
Local cSerie := Paramixb[1]
Local cReceipt := Paramixb[2]
Local cClient := Paramixb[3]
Local cNumero := Paramixb[4]
Local cQueryFields As Character
Local cQueryWhere As Character
Local cAlias As Character
Local cQuery As Character
Local nCont As Numeric
Local aAux As Array
cAlias := GetNextAlias()
//En el arreglo de aCampos se agregan los campos a visualizar
//aCampos[1] -> Que campo se desea buscar
//aCampos[2] -> Nombre que se desea asignar a este campo para que lo visualice el cliente, ya sea fijo o que se obtenga de la SX3
//aCampos[3] -> .T. si se desea que este marcado por default y .F. si se desea que no este marcado por default en el GRID
//aCampos[4] -> Nombre campo formato camelCase ejemplo "valorUnit" , en vez de Valor Unitario
...
//Se estructura la parte de los campos a obtener
cQueryFields cQueryFields := " SELECT "
For For nCont := 1 to LEN(aCampos)
cQueryFields cQueryFields += " "+aCampos[nCont][1]+" "
If If nCont != LEN(aCampos)
cQueryFields cQueryFields += ","
EndIf
Next EndIf
Next nCont
//Se estructura todo el query
cQuery cQuery := cQueryFields + " FROM " + RetSqlName("SEL") + " WHERE " + cQueryWhere + " AND EL_NUMERO = '"+cNumero+"' "
MPSysOpenQuery MPSysOpenQuery(cQuery, cAlias)
aAux := {}
//Se asignan los campos deseados al arreglo a retornar
WHILE WHILE (cAlias)->(!EOF())
AADD AADD( aAux,{aCampos[2][2], (cAlias)->EL_TERCEIR ,aCampos[2][3], aCampos[2][4]})
AADD( aAux,{aCampos[1][2], (cAlias)->EL_TPCRED ,aCampos[1][3], aCampos[1][4]})
(cAlias)->(DbSkip())
END END
Return aAux
Card documentos Informacao La presente solución aplica para versión 12.1.33 o superior, siempre y cuando se tengan las rutinas actualizadas a la fecha de la expedición del issue. Titulo ¡IMPORTANTE!
...