FiveTech Software tech support forums

Rosa

En un archivo .RC
Debes poner esto

Code: Select all  Expand view

#ifdef __FLAT__
   1 24 "D:\FWH\INCLUDE\WindowsXP.Manifest"  // Colocar la ubicación donde lo tenés.
#endif  
ICON_1 ICON "SISTEMA.ICO"
 

Este archivo .RC lo agregas como un .PRG mas.

Saludos,

Adhemar

... algun valor del registro en modificacion, llamese cantidad o precio, entonces deberias eliminar del array el registro que editastes y luego agregas el mismo pero con los nuevos valores...espero no haberte confundido mas, o si algun otro colega tenga alguna explicacion o forma de hacerlo ...

... algun valor del registro en modificacion, llamese cantidad o precio, entonces deberias eliminar del array el registro que editastes y luego agregas el mismo pero con los nuevos valores...espero no haberte confundido mas, o si algun otro colega tenga alguna explicacion o forma de hacerlo ...

... para crear mi pantalla de recursos como el que tienes Jose Luis jajajaja mi estimado Jose Luis aun no me queda claroo, por lo que entiendo agregas tus registros pero a modo de edicion del browser amigo??? Dos a mi modo de editar desde boton de agregar registros puedo llamar a un dialogo ...

... probado, pero que tal si modificas el metodo SayTitle: ... ... ::nCurLine := nLine nWidth := ::oReport:oDevice:GetTextWidth(cTiTle, oFont) //aqui agregas esto //y aqui reemplazas ::nWidth por nWidth ::oReport:oDevice:Say(nRow, nCol, cTitle, oFont, ::nWidth,; ::oReport:aClrText[nFont],,::nPad-1) ...

Buenos dias
Estimado Armando Lagunas, quisiera saber como se obtiene el aspecto que tiene tu TTaskPanel. Agregas algun tema?

gracias

... clausula VALID en tu definicion del get) y emitir un pitido, por lo que usuario no deberia poder 'salir' del get si la fecha es erronea. Si vos le agregas clausula valid podes poner un cartel de aviso, cambiar el valor del get, etc. Si lo que queres es que se vacie el get por defecto deberias modificar ...

y si a esto le agregas un INDEX en la tabla por el campo "idarticulo", sera mucho mas rapido el procesamiento de la sumatoria y resultado, los index son IMPORTANTISIMOS...saludos...

Gus;
meto la cuchara en la parte de establecer Orden.
Si en la declaración del xBrowse agregas AUTOSORT, te aparecerá ordenado por la columna que indique el índice asociado y mostrará el triángulo sobre el header correspondiente.

Kleyber;
Podrias probar con un browse de array (visualizando un numero x de filas). Luego, agregas una fila vacia, rellenas los campos y lo guardas
Uso TDolphin, pero Agregar/Editar lo hago a traves del metodo clasico de abrir un Dlg.

Mario, si le agregas a METHOD CreateButtons() CLASS TXBrwColumn...@ 0,0 BTNBMP ::oBtnElip OF ::oBrw NOBORDER SIZE 0,0::oBtnElip:cCaption := IfNil( ::cBtnCaption, "..." )::oBtnElip:bAction := {|| ::RunBtnAction() ...

...  0x00010000L...redefine combobox oCombooCombo:nStyle := nOr( oCombo:nStyle, WS_TABSTOP )...  o desde el editor de recursos lo agregas.

Con respecto al cuelgue al cambiar el orden y volver al numerico: Armas el xbrowse con autocols o le agregas las columnas manualmente? Me parece que eso tiene mucho que ver, el comportamiento es distinto y creo que por ahi viene el problema. Saludos! Al principio de darme ...

... lo requieres puedo enviarte un exe contruido. Con respecto al cuelgue al cambiar el orden y volver al numerico: Armas el xbrowse con autocols o le agregas las columnas manualmente? Me parece que eso tiene mucho que ver, el comportamiento es distinto y creo que por ahi viene el problema. Saludos!

... te muestro mas abajo. En esto colaboramos Rolando y el suscrito, y posteriormente fue perfeccionado por Mr. Nages. Una vez sustituido el metodo, agregas el prg a tu compilacion y listo. METHOD GoLeft( lOffset, lRefresh )  CLASS TXBrowse   ::CancelEdit()   if ...