Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Producto

Solucoes_espanhol
SolucaoTOTVS Backoffice

Línea de producto: 

Linhas_totvs_espanhol
LinhaLínea Protheus

Segmento:

Segmentos_totvs_espanhol
SegmentoServicios

Módulo:SIGAFIN - FINANCIERO
Función:
RutinaNombre TécnicoFecha
PAYMENT-FORM-DETAIL.DATA.TLPPData del servicio, detalle de las formas de pago24/08/2023
País:Todos
Ticket:N/A
Requisito/Story/Issue (informe el requisito vinculado):DMINA-20521

...

Totvs custom tabs box
tabsProcedimiento de utilización
idsProcedimiento de utilización
Totvs custom tabs box items
defaultyes
referenciaProcedimiento de utilización
  1. Crear la función de usuario F998VISFP para agregar columnas e información que se desea visualizar en el GRID de las formas de pago al momento de visualizar el recibo a detalle desde la opción de "Buscar recibo".
    - La rutina efectuará las validaciones correspondientes y debe retornar un objeto con las columnas y los valores determinados por el usuario, para agregar al GRID.
  2. Dentro del módulo Financiero ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar).
  3. En la sección Buscar recibo, especifique los criterios de consulta.
  4. Aplicar el filtro y posicionarse en el recibo a visualizar.
  5. Al momento de dar clic en "Visualizar" el punto de entrada F998BRMCOL será ejecutado.
  6. Haga clic en el ícono con la imagen del engrane que se encuentra a la derecha de las formas de pago.
  7. En la lista de campos a visualizar serán agregados los definidos por el usuario a través del punto de entrada.
  8. Seleccione y deseleccione los campos requeridos, a continuación, confirme.
  9. Se visualizarán las columnas e información de acuerdo a los campos seleccionados.



04. INFORMACIÓN ADICIONAL


DescripciónActualizaciones
Punto de entrada:F998VISFP
Nombre del programa fuente:PAYMENT-FORM-DETAIL.DATA.TLPP
Parámetros recibidos:
NombreTipoDescripción
PARAMIXB[1]CSerie del recibo
PARAMIXB[2]CNúmero del recibo
PARAMIXB[3]CCliente
PARAMIXB[4]CNumero de forma de pago
Respuesta:Arreglo de configuraciones para agregar a la lista de campos que se pueden visualizar en la lista de recibos.


NombreTipoDescripciónObligatorio
aRet[1]CTítulo de la columna que se desea agregar en la lista de recibos.Si
aRet[2]CValor del campo. Si
aRet[3]LMostrar marca de seleccionado en la lista de campos a visualizar:  .T. = Sí,  .F. = No.Si
aRet[4]C

Nombre para asignar al campo a visualizar, debe ser con estilo de escritura "camelCase".

Comienza con minúscula, puede tener mayúsculas intermedias, no permite espacios ni signos especiales.

Si

#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
InformacaoLa 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!

...