FiveTech Software tech support forums

Solucionado! En principio, decidí separar apellido y nombres, el problema que tenía lo pude solucionar de la siguiente manera y dejé de tener el error TYPE MISMATCH    aCols     := { "legajo",;                      "apellido",;  ...

... REDEFINE XBROWSE oRApertur ID 10 OF ofld1:aDialogs[ 2 ] FIELDS ; RApertur->nombre, ; RApertur->apellido, ; RApertur->CargoArea ; headers "Nombre", "Apellido", ; "CargoArea" ; Sizes 250, 250, 250 ; ALIAS AliasRA ...

... con el nombre harbour32.env) los que quieran colaborar bienvenido sean. La idea del Tree: 1) poder insertar ramas con los datos: Fecha, Nombre y Apellido 2) poder modificar los datos que se ingresaron 2) poder eliminar una rama 3) mantener ordenado el arbol. 4) poder guardar en un .txt el arbol ...

... REDEFINE LISTBOX oLbx FIELDS str(@oPaci:Codigo,6), @oPaci:Apynom,; @oPaci:Documento, @oPaci:Obrasoci; HEADERS "Código", "Apellido y Nombre", "Documento", "Obra Social" ; FIELDSIZES 60,320,110,180 ; ALIAS oPaci:cAlias ; ID 650 OF oDlg COLOR CLR_BLACK, ...

... REDEFINE LISTBOX oLbx FIELDS str(@oPaci:Codigo,6), @oPaci:Apynom,; @oPaci:Documento, @oPaci:Obrasoci; HEADERS "Código", "Apellido y Nombre", "Documento", "Obra Social" ; FIELDSIZES 60,320,110,180 ; ALIAS oPaci:cAlias ; ID 650 OF oDlg COLOR CLR_BLACK, ...

... REDEFINE LISTBOX oLbx FIELDS str(@oPaci:Codigo,6), @oPaci:Apynom,; @oPaci:Documento, @oPaci:Obrasoci; HEADERS "Código", "Apellido y Nombre", "Documento", "Obra Social" ; FIELDSIZES 60,320,110,180 ; ALIAS oPaci:cAlias ; ID 650 OF oDlg COLOR CLR_BLACK, ...

... * redefine LISTBOX oRApertur ; FIELDS ; RApertur->nombre, ; RApertur->apellido, ; RApertur->CargoArea ; headers "Nombre", "Apellido", ; "Cargo" ; SIZES 200, 200, 100 ; id 215 OF ofld1:aDialogs[ ...

... _Tpr_:=_Rds_:Fields('Tipo'):Value _Obs_:=_Rds_:Fields('Observa'):Value Aadd(Arayx,{_Rds_:Fields('Documento'):Value, ; _Rds_:Fields('Apellido'):Value, ; _Rds_:Fields('Nombre'):Value, ; _Rds_:Fields('_'):Value}) _Rds_:MoveNext() Enddo _Rds_:Close() _Cnx_:Close() Return(Nil) // **********************[ ...

Hola, yo lo hago así.... Es un ejemplo funcionando, con mis datos. oCol:=xbr:AddCol() oCol:cHeader := "Nombre y Apellido" oCol:cFooter := "Nombre y Apellido" oCol:bStrData:= {|| rtrim(lTrim(oClientes:NOM)) + "/"+rtrim(lTrim( oClientes:APE)) +"-"+ ...

Hola, yo lo hago así.... Es un ejemplo funcionando, con mis datos. oCol:=xbr:AddCol() oCol:cHeader := "Nombre y Apellido" oCol:cFooter := "Nombre y Apellido" oCol:bStrData:= {|| rtrim(lTrim(oClientes:NOM)) + "/"+rtrim(lTrim( oClientes:APE)) +"-"+ ...

... comento un poco más, este programa es solo de consulta y consta de tres archivos CG_000 que contiene los datos básicos de búsqueda : Nro. CUIL , Apellido y Nombre , Nro. de documento Las otras dos (CG_001 y CG_002) contienen los datos adicionales de cada uno de los que figuran en CG_000 CG_000 ...

... (HEADER) ? Algo Asi : REDEFINE LISTBOX oLbx FIELDS M->Campo1, M->Campo2, M->Campo3 ; HEADERS "Codigo","Nombre" ,"Apellido"; FIELDSIZES 25, 90, 90 ; ON DBLCLICK MISCAMPOS( oLbx) ; ID 990 OF oDlg ..... ..... FUNCTION MISCAMPOS(oLbx) *============================= ...

... Alguien me puede decir como validar que un string no contenga caracteres invalidos ( por ejemplo la comilla simple ' , " , etc. , ejemplo apellido O'hara ) pues al querer recuperar un respaldo , esos caracteres invalidos cortar el proceso de recuperacion , pues se confunde cual es el final ...

... Alguien me puede decir como validar que un string no contenga caracteres invalidos ( por ejemplo la comilla simple ' , " , etc. , ejemplo apellido O'hara ) pues al querer recuperar un respaldo , esos caracteres invalidos cortar el proceso de recuperacion , pues se confunde cual es el final ...

... graba( cNombre, oNombre, cApellido, oApellido, cNombre2, oNombre2, ; cApellido2, oApellido2, ofld ) TEST2->nombre := cNombre2 TEST2->apellido := cApellido2 cNombre := cNombre2 oNombre:varput( cNombre2 ) oNombre:refresh() cApellido := cApellido2 oApellido:varput( cApellido2 ) oApellido:refresh() ...