FiveTech Software tech support forums

Hola a todos: Como puedo saber si un Objeto Olbx tiene o no en un momento dado el foco es decir: tengo un ListBox con ciertos articulos cuando el usuario quiere eliminar uno de la lista debe de accionar el boton "borrar" necesito verificar si realmente selecciono un registro del listbox ...

Amigos: En un dialogo de carga de articulos a facturar, con cantidad, precio unitario, etc, necesito cambiar el picture del precio unitario de 2 o 4 digitos para los decimales segun el rubro que tenga el articulo que se esta facturando (si ...

... que se va tomando. El problema es que aveces no me graba todo. He puesto un contador, para que el usuario me grabe o se salga de la app cada 100 articulos y los suba a mi punto de venta. Me ha funcionado, pero de mi toma de inventario global creo que se pierde la lectura el 1 o 2 % Bueno, eso ...

... distinta, como te dijo antonio. Por ejemplo este boton lanza un browse con los movimientos de stock de un articulo estando en el browse del abm de articulos: REDEFINE SBUTTON oAg3 ID 107 FONT oFont3; RESOURCE "B_ART1";//, "B_REG2","B_REG2","B_REG2" ; OF oDlg ; NOBORDER ; LOOK W97 ; PROMPT "Movim." ...

... puedes optar por cualquiera. oTbCom := TdbOdbcDirect():New("SELECT * FROM comanda" , oOdbc) oTbCom:Open() oTbArt:=TDbOdbc():New( "articul", oDb,, "articulos", .t., .f. ) o tambien la uso cuando boy poner un listbox oSql:=oOdbc:query(" select * from empresas") oSql:open() oSql:complete() oSql:gotop() ...

Antonio gracias por responder pero el Listbox ahora me lo muestra en blanco pero igual me puedo mover en el Listbox si estubieran ahi los articulos incluso hago click y al salir me mustra el Detalle del producto
Saludos

Bueno amigos a lo mejor no me explique bien, resulta que tengo 2 base de datos una con bodegas otra con articulos, la base articulos la tengo definida asi con sus campos cod_Art,Det_Art,Pre_Art,Bod_001,Bod_002,Bod_003, hasta la Bod_010 y la base bodega Cod_Bod,Det_Bod en el ...

Bueno la idea que quiero es la siguiente: Tengo una Tabla : Bodegas (3Bodegas) Tabla : Stock Tabla : Articulos en el Listbox deberia quedar asi REDEFINE LISTBOX oLbx FELDS; (cArticulos)->Detalle,CargaStock((cArticulo)->Codigo,Bodega1),; CargaStock((cArticulo)->Codigo,Bodega2),; ...

... 30 ACTION revisar(cBarCode,nCant) @ 12,15 BUTTON "Terminar" SIZE 80, 30 ACTION oWnd:End() ACTIVATE WINDOW oWnd else msginfo("Error en apertura de articulos") endif ELSE msginfo("Error en apertura del diario") ENDIF return nil Saludos Osvaldo Ramirez

mi problema es que necesito mostrar en un folder la fotografia de articulos, este es parte de mi codigo: *** aqui tengo el nombre del archivo junto con su extension "JPG" Redefine GET aVars[15,1] VAR aVars[15,2] ID 102 OF aVars[1,1]:aDialogs[3] ON CHANGE(oBoton:Enable(),.T.) ...

... FILE CPath+ "bmp\users.bmp" ; PROMPT "Clientes" TOP ; SIZE 60, 60 ; ACTION Eligefichacli() @ 15, 90 BTNBMP FILE CPath+"bmp\search.bmp" ; PROMPT "Articulos" TOP ; SIZE 60, 60 ; ACTION msginfo("1") @ 15, 160 BTNBMP FILE Cpath+"bmp\pedidos.bmp" ; PROMPT "Pedidos" TOP ; SIZE 60, 60 ; ACTION msginfo("pedidos") ...

... esta en uso la base de datos de comandas") endif MSGINFO( GRUPOS->NOMGPO) DEFINE DIALOG oDlg RESOURCE "DLGART" TITLE "Mantenimiento de Articulos / " + ; if( nEvent == ID_AALT, "Altas", "Modificaciones" ) REDEFINE GET NumArt ID 101 PICTURE "@K!" WHEN nEvent==ID_AALT ; OF oDlg REDEFINE ...

... esta en uso la base de datos de comandas") endif MSGINFO( GRUPOS->NOMGPO) DEFINE DIALOG oDlg RESOURCE "DLGART" TITLE "Mantenimiento de Articulos / " + ; if( nEvent == ID_AALT, "Altas", "Modificaciones" ) REDEFINE GET NumArt ID 101 PICTURE "@K!" WHEN nEvent==ID_AALT ; OF oDlg REDEFINE ...

... ; COLOR CLR_BLACK, RGB(202, 197, 192) // This is the folder declaration REDEFINE FOLDER oFld ID 701 OF oDlg ; PROMPT "Datos Generales","Articulos","Vista Previa","Recibido del proveedor",; oemtoansi("Env¡os realizados"); DIALOGS "FOLDER_DATOSG" ,"FOLDER_OPMER","OPVPREVIA","ENTREGA3","ENVIOS" ...