FiveTech Software tech support forums

... caracteres como valor lógico. A mi browse le hago un filtro luego de creado para filtrar los clientes de una base de datos de acuerdo a lo que se ingrese, detallo mi función. La función DelRePos() está correcta con el & *************************** Static Function FiltroCO(oBrw,nCual) *************************** ...

... FONT oFont1 NAME GetSysFont() SIZE 0,-14 BOLD DEFINE DIALOG oDlg RESOURCE "DIALOG_2" TITLE " Información IP" TRANSPARENT REDEFINE SAY PROMPT "INGRESE IP" ID 101 OF oDlg FONT oFont1 REDEFINE BUTTON PROMPT "&Ok" ID 201 OF oDlg ACTION (oDlg:End()) oDlg:lHelpIcon:=.F. ACTIVATE DIALOG oDlg ...

... cargado en el area "+ltrim(str(select())),"Error" ) endif Select(buf) retu .t. //27/06/2005 STATIC FUNCTION vealalinea Local nLin:=1 If MsgGet("Ingrese","Nº Linea",@nLin) oMemo:GoLine( nLin ) Endif retu .t. //27/06/2005 Static Function veaestafunc(UserFunc) if valtype(aFuncLin)="A" if len(aFuncLin)>0 ...

... cargado en el area "+ltrim(str(select())),"Error" ) endif Select(buf) retu .t. //27/06/2005 STATIC FUNCTION vealalinea Local nLin:=1 If MsgGet("Ingrese","Nº Linea",@nLin) oMemo:GoLine( nLin ) Endif retu .t. //27/06/2005 Static Function veaestafunc(UserFunc) if valtype(aFuncLin)="A" if len(aFuncLin)>0 ...

... pict '99' color color28 @ 15,27 get nro_con1 pict '9999999999' color color28 @ 17,27 get rut_cli pict '!!!!!!!!!!!!' read cor=1 cor:=ale(" INGRESE OPCION , GRABA , MODIFICA , ") @ 24,20 say spac(58) endif if cor=1 ** GRABA endif

... WS_GROUP, 288, 4, 148, 12 CONTROL "", 102, "Static", WS_GROUP, 288, 16, 148, 16 CONTROL "", 146, "Timage", 0x00000000, 288, 40, 132, 124 CONTROL "Ingrese Codigo :", 4006, "Static", WS_GROUP, 96, 16, 56, 8 CONTROL "", 4011, "Button", BS_GROUPBOX, 12, 28, 268, 120 CONTROL "", 4004, "Button", WS_TABSTOP, ...

... := 0 Local oGet Local oDlg Local lSalgo := .f. Define Dialog oDlg From 10, 10 To 50, 180 Pixel Style nOr( WS_POPUP, WS_THICKFRAME ) @ 06, 05 Say 'Ingrese Valor' Of oDlg Size 50, 10 Pixel @ 05, 40 Get oGet Var nValor Size 35, 10 Pixel Of oDlg Picture '999999.99' oGet : bKeyDown := { | nKey | If( ...

... de nacimiento y numero de cargas. Pero debo tener un browse en la misma pantalla que me permita ingresar los hijos. Lo mismo debe hacer cuando ingrese un codigo existente, debe mostrar los datos, incluyendo los hijos ingresados en el browse. Se puede hacer de esta forma? Favor Ayuda. Antonio ...

Hola Fernando

Gracias por el dato, sabes de donde puedo descargar los archivos, ingrese a
http://www.geocities.com/SiliconValley/Board/5300/
Contribuciones a Harbour
Pero no funcionan los link para HBZLIB.ZIP HBZLIBSRC.ZIP

Saludos,

Marcelo

... Function Check_clav() Local _Log:=.F.,oDlg,_Clav _Clav:=Space(6) Define Dialog oDlg Title 'Clave De Acceso' ; From 05,04 To 10,40 @ 01,02 Say 'Ingrese Clave :' @ 01,08 Get _Clav Picture'@!' Password ; Valid( Verif_cla( @_Log, _Clav, oDlg ) ) Activate Dialog oDlg Center Return(_Log) static function ...

... Function Check_clav() Local _Log:=.F.,oDlg,_Clav _Clav:=Space(6) Define Dialog oDlg Title 'Clave De Acceso' ; From 05,04 To 10,40 @ 01,02 Say 'Ingrese Clave :' @ 01,08 Get _Clav Picture'@!' Password Valid(Verif_cla(@_Log)) Activate Dialog oDlg Center Return(_Log) *********************************************************

... hasta en máquinas PENTIUM I...!!! Mil disculpas, ahi esta una parte del fuente, lo que necesito es que despues de poner la cantidad y la clave, ingrese el dato al listbox, pero q regrese al Get2,y no lo hace se queda en el listbox, esto lo programe bien pero usando un objeo WINDOW y no un DIALOG ...

Mil disculpas, ahi esta una parte del fuente, lo que necesito es que despues de poner la cantidad y la clave, ingrese el dato al listbox, pero q regrese al Get2,y no lo hace se queda en el listbox, esto lo programe bien pero usando un objeo WINDOW y no un DIALOG como aqui, gracias ...

... nCol == 2 cBuffer:=val( left( Personas->C4, 2 )) //C41 bValid:= {|| If( cBuffer < 0 , ; (MsgStop( "Numero de Nucleos Familiares Incorrecto, ingrese: "+CRLF+CRLF+; "un valor",oemtoansi("Dato Inv lido") ),.f.), .T. ) } If lContinue:= oLbx:lEditCol( nColReal, @cBuffer, "@ZE 99", bValid,,CLR_YELLOW ...

... "SELECT * FROM ventas" , oOdbc) oDbf:Open() oDbf:Complete() Browse() cnombre:= oDbf:FieldName(1) ?? cnombre sele 1 do while !eof() ?? 'ingrese' oDbf:AddNew() oDbf:tpIdCliente := tventas->tpidclien oDbf:update() sele 1 dbskip() enddo oDbf:End() oOdbc:End() return nil