FiveTech Software tech support forums

buen día: yo utilizo esta función para hacer transparentes los diálogos , en la clausula ON INIT coloca SetTransparent( oDlg, 238 ) ngrado va desde 0 a 255 donde si es menor el dialogo se hace mas invisible junto a todos los controles que esten dentro del dialogo #define AW_BLEND 524288 #define GWL_...

Ejemplo funcional probado con excel 2013, base de datos sql server 2012 express como se usa: STATIC FUNCTION TablaDinamica() LOCAL Conn, cSql Conn := "OLEDB;Provider=SQLOLEDB;Data Source=SERVER\SQLEXPRESS;Initial Catalog=VIKING_SYSTEM;User Id='user';Password='admin';" cSql := "SELECT...

Buen dia:

prueba con esto

oBrw:gotop()
oBrw:UpStable()
oBrw:Refresh(.t.)

Saludos

Hola Adolfo, solo como un tips, en mi caso genero un archivo txt y lo imprimo en una impresora de vales. oApp:cStampa := 'cmd /C COPY .\Works\Template.txt "\\ARMANDO_PC\STAMPA TX-400" '    IF MsgYesNo("Está seguro que desea imprimir las etiquetas del pallet N° "+AllTrim(cPallet),...

Hola, para dirigir la impresión a una impresora especifica, donde <Nombre Impresora> es la que tienes definida en Windows
Saludos

lo que pasa es que al ingresar en el get en forma directa (sin pasar por el browse), lo que escribes debes "Validarlo" con ::bChange y hacer la búsqueda en el xbrowse, me paso lo mismo hace mucho tiempo, lo cual lo sustituí con un "say" y solucione mi problema de la forma mas sen...

Hola, en ves de llamar otro Dialog, coloca un Say en el Dialog Principal, a mi me funciona muy bien  REDEFINE  SAY oBrw:oSeek ID -11 PROMPT oBrw:cSeek  PICTURE "@!" OF oDlg FONT xFont COLOR CLR_HRED                                    oBrw:bChange   := {|| oBrw:oSeek:Refresh() }     solo un...

vi tu código, por lo visto estas usando dbCommit(), sacalos todos, ese es el primer punto a corregir, esa instrucción en redes novell produce una tremenda lentitud inexplicablemente, que en forma local no se percibe, por otro lado, el xbrowse hace búsqueda incremental desde la primera letra del camp...

generalmente los valores verdaderos o falsos de una base de datos son con un campo "BIT", en donde es:

0 = FALSE
1 = VERDADERO

entonces para que el check del oBrw funcione debes convertir el campo a .T. o .F.

0 = .F.
1 = .T.

Hola Armando yo lo usaba asi: nHis :=  oSql:QueryData("SELECT COUNT(*) FROM TablaHistorial") cHis := TRANSFORM(VAL(nHis)+1,"99999999") fue lo único que encontré para determinar cual era el siguiente incremental de es tabla, si hay otra opción mejor, favor que la publique. saludos

funciones de fecha en xHarbour AddMonth() Adds or subtracts a number of months to/from a Date value. BoM() Returns the date of the first day of a month. BoQ() Returns the date of the first day of a quarter. BoY() Returns the date of the first day of a year. CDoW() Returns the name of a week day from...

hola para mi es mas practico archivo PDF generado directo y abierto con el acro..., lo defino de esta forma: QuitProgamLoad( "AcroRd32.EXE" )  // Verifica si esta abierto el Acro...  cFile := ".\Informes\Cierre Productor CSG N° "+AllTrim(PA18->CCSG)+".PDF"  SET 3DLOOK O...

primero que nada ejecuta esta instrucción para la sesión mysql aumentando el tiempo de espera: oConn:Execute("SET SESSION wait_timeout = 86400;" ) PD: el mismo problema me afectaba, pero yo me conecto a la db por ODBC, tuve que modificar la clase original tOdbc.prg para que capturar el err...

genera el pdf y lo provisualizas con el reader lo hago asi:  QuitProgamLoad( "AcroRd32.EXE" )  // Verifica si esta abierto el Acrobat Reader Genera un GPF al estar abierto  PRINTER oPrn TO cPrintPDF FILE ".\Temp\Cierre Proceso Productor.PDF"  PREVIEW  IF EMPTY( oPrn:hDC )      RE...

mmm.... otra cosa que realizo es lo siguiente: yo utilizo una impresora virtual PDF ( DoPDF v 7 ), que la instalo en todo computador en donde se utiliza el sistema, la utilizo siempre en el interior de la aplicación, esto es para evitar reconfiguraciones especiales en el sistema por cada modelo de i...