Histórico da Página

01. DATOS GENERALES

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” “F998VISFP” el cual permite agregar columnas de visualización al GRID de las formas de pago.

...

04. INFORMACIÓN ADICIONAL

...

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

05. ASUNTOS RELACIONADOS

•  Puntos de entrada disponibleshttps://tdn.totvs.com/x/Zq97Jw