Árvore de páginas

Versões comparadas

Chave

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

01. DATOS GENERALES


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


02. SITUACIÓN/REQUISITO


Se hace necesario activar un punto de entrada denominado "F998VISFP". La función principal de este punto de entrada es permitir la adición de columnas al GRID que corresponde a las formas de pago. Esto es particularmente útil cuando se examina en detalle un recibo previamente almacenado, y esto se lleva a cabo en la sección designada "Buscar recibo".

03. SOLUCIÓN

Se habilita el punto de entrada “F998VISFP” F998VISFPel cual permite agregar columnas de visualización al GRID de las formas de pago.

...

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 F998VISFP 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:

No aplica

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.Nombre del campo a buscar. Ejemplo (EL_TIPODOC)Si
aRet[2]CValor del campo. Nombre que se desea colocar a la columna y este sea visible en el GRID, El nombre puede ser fijo u obtener por medio de la SX3.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

...

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    aCampos := {{"EL_TPCRED",GetSx3Cache("EL_TPCRED","X3_TITULO"),.F.,"tipoCred"},{"EL_TERCEIR",'Aprobado',.T.,"terCeir"}}

    //Se forman las condicionales de la consulta
    cQueryWhere := " EL_FILIAL = '"+xFilial("SEL")+"' AND EL_SERIE = '"+cSerie+"' AND EL_RECIBO = '"+cReceipt+"' AND EL_CLIENTE = '"+cClient+"' "  

    //Se estructura la parte de los campos a obtener
   cQueryFields := " SELECT "
    For nCont := 1 to LEN(aCampos)
       cQueryFields += " "+aCampos[nCont][1]+" "
       If nCont != LEN(aCampos)
          cQueryFields += ","
       EndIf
    Next nCont

    //Se estructura todo el query
    cQuery := cQueryFields + " FROM " + RetSqlName("SEL") + " WHERE " + cQueryWhere + " AND EL_NUMERO = '"+cNumero+"' "
    MPSysOpenQuery(cQuery, cAlias)

    aAux  := {}

    //Se asignan los campos deseados al arreglo a retornar
    WHILE (cAlias)->(!EOF())
           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

Return aAux

Return aCampos



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!

05. ASUNTOS RELACIONADOS