Histórico da Página

...

...

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 esté marcado por default y .F. si se desea que no esté 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 aAuxReturn aCampos

...