FiveTech Software tech support forums

Code: Select all

   cQryProvee := "SELECT * FROM proveedores ORDER BY pro_codigo ASC"

   TRY
     oQryProvee := TDolphinQry():New( cQryProvee, oDatos:oConex )

   CATCH oError
      MSGALERT( oError:description() + CRLF + CRLF + ;
               "Error Ejecución de Sentencia en Tabla (proveedores): " + ;
               CRLF + CRLF + cQryProvee, oDatos:cTitMsg )
      RETURN

   END
 

Code: Select all

   REDEFINE GET aGet[2] VAR aVar[2] ID 102 OF oFldx:aDialogs[1] UPDATE PICT "@!" ; // COD.PROVEEDOR
      ACTION ( oQBtn := llamabrow( aVar[2], "proveedores", "pro_codigo" ,;
                                   {"pro_codigo", "pro_nombre"} ,;
                                   {"Código", "Nombre"} ) ,;
               IIF( !oQBtn[1] ,;
                  ( alert("DEBE SELECCIONAR PROVEEDOR...") ,;
                    aVar[3] := NIL, aGet[3]:REFRESH(), .f. ) ,;
                  ( aVar[2] := oQBtn[2]:pro_codigo, aGet[2]:REFRESH() ,;
                    aVar[3] := oQBtn[2]:pro_nombre, aGet[3]:REFRESH() ,;
                    aGet[4]:SetFocus(), .t. ) ) ) ;
      VALID ( IIF( oQryProvee:Seek(aVar[2], "pro_codigo") == 0 ,;
                 ( oQBtn := llamabrow( aVar[2], "proveedores", "pro_codigo" ,;
                                       {"pro_codigo", "pro_nombre"} ,;
                                       {"Código", "Nombre"} ) ,;
                 ( IIF( !oQBtn[1] ,;
                 ( alert("DEBE SELECCIONAR PROVEEDOR...") ,;
                   aVar[3] := NIL, aGet[3]:REFRESH(), .f. ) ,;
                 ( aVar[2] := oQBtn[2]:pro_codigo, aGet[2]:REFRESH() ,;
                   aVar[3] := oQBtn[2]:pro_nombre, aGet[3]:REFRESH(), .t. ) ) ) ) ,;
                 ( alert("ENTRO VALOR QUE EXISTE") ,;
                   aVar[2] := oQryProvee:pro_codigo, aGet[2]:REFRESH() ,;
                   aVar[3] := oQryProvee:pro_nombre, aGet[3]:REFRESH(), .t. ) ) )
 

Code: Select all

FUNCTION llamabrow( aVar, cTabla, cCampo, aCampos, aTitulos ) // FUNCION PARA LLAMAR BROWSE EN BOTON DE GET...
// DEVUELVE ARRA
// aVar -> contenedora del valor entrado (puede llegar vacio solo para seleccionar)
// cTabla -> nombre de la tabla para hacer el query
// cCampo -> nombre del campo para ordenar el query y hacer comparacion con aVar ((puede llegar vacio solo para seleccionar))
// aCampos -> contenedor de las var para el browse
// aTitulos -> contenedor de los titulos de las columnas

   LOCAL oWnd, oDlg, oBrow, cSqlCmd, oQry, oError, ;
         aBtn[2] ,;
         lSelec := .f.

   cSqlCmd := "SELECT * FROM " + cTabla + " ORDER BY " + cCampo + " ASC"

   TRY
     oQry := TDolphinQry():New( cSqlCmd, oDatos:oConex )

   CATCH oError
      MSGALERT( oError:description + CRLF + CRLF +;
                "Error en Consulta, Sentencia: " + CRLF + CRLF + cSqlCmd, oDatos:cTitMsg )
      RETURN( {.f., NIL} )

   END

   IF oQry:LastRec() = 0
      MSGINFO( "No hay _ en Tabla..." + cTabla, oDatos:cTitMsg )
      RETURN( {.f., NIL} )

   ENDIF


   DEFINE DIALOG oDlg RESOURCE "DLG_BRW" of oWnd ;
      TITLE " Seleccione " + aTitulos[1]

   oBrow := TXBrowse():New( oDlg )

   WITH OBJECT oBrow
      :SetDolphin( oQry, .t., .t., aCampos )
      :nMarqueeStyle    := MARQSTYLE_HIGHLROW
      :nColDividerStyle := LINESTYLE_BLACK
      :nStretchCol      := STRETCHCOL_LAST
      :lColDividerComplete := .t.
      :nHeaderHeight := 30
      :l2007 := .t.
      :lFooter := .t.
      :lRecordSelector := .t.
      :bClrStd := {|| IF(  oQry:RecNo() % 2 == 0, {CLR_BLACK, CLR_WHITE}, {0, RGB(203,226,254)} ) }

      :bKeyDown := {|nKey| IIF( nkey == 13 ,; // Si Pulsa ENTER
                              ( lSelec := .t., oDlg:End() ), ) }

      :bLDblClick := {|| ( lSelec := .t., oDlg:End() ) }

   END WITH

   oBrow:aCols[1]:cHeader       := aTitulos[1]
   oBrow:aCols[1]:bStrData      := {|| IIF( oQry:LastRec() > 0, cValToChar( oQry:FieldGet( aCampos[1] ) ), ) }
   oBrow:aCols[1]:nHeadStrAlign := AL_LEFT
   oBrow:aCols[1]:nDataStrAlign := AL_LEFT

   oBrow:aCols[2]:cHeader       := aTitulos[2]
   oBrow:aCols[2]:bStrData      := {|| IIF( oQry:LastRec() > 0, cValToChar( oQry:FieldGet( aCampos[2] ) ), ) }
   oBrow:aCols[2]:nHeadStrAlign := AL_LEFT
   oBrow:aCols[2]:nDataStrAlign := AL_LEFT

   oBrow:CreateFromResource(100)

// BOTON SELECCIONAR
   REDEFINE BUTTONBMP aBtn[1] ID 201 OF oDlg UPDATE ;
      ACTION ( lSelec := .t., oDlg:End() ) ;
      BITMAP 2006 PROMPT "Seleccionar"

// BOTON CALCELAR
   REDEFINE BUTTONBMP aBtn[2] ID 202 OF oDlg UPDATE ;
      ACTION ( lSelec := .f., oDlg:End() ) ;
      BITMAP 2004 PROMPT "Cancelar"

   aBtn[2]:lCancel := .t.

   ACTIVATE DIALOG oDlg CENTER

   oQry:End()

RETURN( {lSelec, oQry} ) // FIN FUNCION PARA LLAMAR BROWSE EN BOTON DE GET...
 

Code: Select all

//---------------------------------
STATIC FUNCTION Busca(cBuscar,oRs)
   LOCAL nLen:=Len(cBuscar)
   STATIC nLenAnt
   DEFAULT nLenAnt:=0
   IF Len(cBuscar)>1
      IF(nLenAnt>nLen,oRs:MoveFirst(),)
      //oRs:Find( "t_codigo LIKE '"+cBuscar+"*'",,1)
      oRs:Find( vOrden+" LIKE '"+cBuscar+"*'",,1)
   ELSE
      oRs:MoveFirst()
      IF !Empty(cBuscar)
         //oRs:Find( "t_codigo LIKE '"+cBuscar+"*'",,1)
         oRs:Find( vOrden+" LIKE '"+cBuscar+"*'",,1)
      ENDIF
   ENDIF
   nLenAnt:=nLen
RETURN !(oRs:Eof.OR.oRs:Bof)
 

Code: Select all

 oBrw:bSeek            := { | c | Busca(c,oRs) }
  oBrw:oSeek               := oSay