FiveTech Software tech support forums

YO TENGO DEFINIDA UNA CLASE: **************************************************************************** CLASS TVKEY  // Clase para controlar teclas de funcion ****************************************************************************       DATA OldKeys       INIT {SETKEY(VK_F1    ),;            ...

ESPERO TE SIRVA DE ALGO

COMO ESTAS COMPILANDO @ECHO OFF call clear.bat set harbour=c:\xBase\xHarbour\1.01\ set fwh=c:\xbase\fwh0810 %harbour%bin\harbour tmultise /n /a /w /es1 /i%fwh%\include;%harbour%include >log.log %harbour%bin\harbour wbrowse  /n /a /w /es1 /i%fwh%\include;%harbour%include >log.log if errorlevel 1 goto...

SEPARA TU RC EN DOS, UNO CON EL NOMBRE ORIGINAL Y OTRO CON OTRO NOMBRE (OTRO NOMBRE) EN EL RC ORIGINAL COLOCA AL PRINCIPIO #include "OTRO NOMBRE" Y VOALÁ NOTA: RECOMIENDO QUE EN EL 'OTRO NOMBRE' COLOQUES RECURSOS QUE NO VAYAN A SER MODIFICADOS YA QUE NO LOS COMPILARÁ AUTOMÁTICAMENTE CON RM...

Y aquí está el caso contrario :roll: ******************************************************************************************************* STATIC PROCEDURE ENVIAR()                             // lee un dbf y genera una tabla excell *****************************************************************...

Te refieres a algo como esto??? :lol: ******************************************************************************************************* STATIC PROCEDURE LEER()                                // lee una tabla excell y crea un archivo dbf *********************************************************...

SIMPLEMENTE HAZ ESTO (ES SOLO UN EJEMPLO) DEFINE DIALOG oDlg size 770,580 @2,2 FOLDER oFld OF oDlg PROMPT "General","Fotos","Tareas" size 380,260 pixel ; DIALOGS "SSN25A","SSN25B","SSN25C" DONDE LOS DIALOGOS SON LOS RECURSOS QUE SE VAN A IN...

Puedes probar a ver si te traban cosas como estas       REDEFINE LISTBOX oLbx                                                              ;       FIELDS  STRZERO(TMDEENC   -> ANODEM,2) +'-'+ STRZERO(TMDEENC -> NUMDEM,3),;       TRANSFORM(TMDEENC -> FECAPER,'99')                               ,;    ...

Cual LISTBOX utilizas tu, Yo me quedé con la clase TwBrowse, por eso no se si lo que respondo puede servirte.

o:bKeyDown:= {|nKey| IIF(nKey==VK_RETURN,EVAL(bButModif),)} // enter en el listbox

o:bLDblClick := {|| EVAL(bButModif)} // doble click en el listbox

Intenta

o[1]:nRowPos:=4

No se, Sería algo Como Esto :oops: Local VecComp:={{"TICKET","TI"},{"FACTURA","FA"},{"CREDITO","CR"},{"REMITO","RE"}} REDEFINE LISTBOX oLbxT;          FIELDS VecComp[oLbxT:nAt,1],;                     VecComp[oLbxT:nAt,2...

Por alguna extraña razón no me trabaja, Me explico, ya compila, pero no surte efecto en el sistema,
Sin embargo el ejemplo que tu mandastes si corrige la resolución de pantalla, pero en ningún sistema de los de nosotros lo hace,
Lo estoy colocando en el On Init

la display no me compila me arroja

Ambiguous reference: 'STRETCHCOL_LAST'

prueba con


&NomVariResu. := (MUESRESU)->&NomCampResu