Search found 24 matches: lnuevo

Return to advanced search

Como Grabar desde una conexión local a una remota

... function main() //----------------------------------------------------------// local oDlg1,oError,lNuevo:=.F.,cText := "" local oGet := ARRAY(10) LOCAL lSalir := .F. LOCAL lSalvar := .F. local oBoton1,oBoton2,oBr,vFECHALIMI :=space(12),vINTMORA:=0,vDESIMPTO:=0,vDESMORA:=0,vANOVIG:=space(4) ...
by Adolfredo Martinez
Sat Feb 22, 2020 2:59 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Como Grabar desde una conexión local a una remota
Replies: 1
Views: 832

Re: Error al insertar registro con Clase MariaD

... CENTERED RELEASE FONT oFont oCn:Close() return nil //---------------------------------------------------------// static function Nuevocatas( oBrw, lNuevo,oRs ) //---------------------------------------------------------// local oDlg,lSalvar := .f.,vcodigo:=space(21),vnombre:=space(33) local lSaved ...
by Adolfredo Martinez
Tue Feb 19, 2019 12:07 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Error al insertar registro con Clase MariaD
Replies: 10
Views: 1252

Error al insertar registro con Clase MariaD

... El problema se presenta cuando estoy adicionando un registro. Cambio la estructura de los campos que estan en Null a Not Null tampoco. Asi: IF lNuevo oRsResolu:AddNew() ENDIF oRsResolu:Fields("CODIGO"):value :=oUni:vCodigo-------->AQUI GRABA BIEN ESTE CAMPO oRsResolu:Fields("NOMIP01"):value ...
by Adolfredo Martinez
Sat Feb 16, 2019 11:43 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Error al insertar registro con Clase MariaD
Replies: 10
Views: 1252

error al leer un campo tipo texto

... () ) ; Los campos que voy a editar son: @ 017, 052 GET oGet [ 01 ] VAR oQuery:nombres SIZE 150, 10 PIXEL FONT oFont OF oDlg UPDATE WHEN ( lNuevo .OR. lMod ) @ 030, 052 GET oGet [ 02 ] VAR oQuery:apellidos SIZE 150, 10 PIXEL FONT oFont OF oDlg UPDATE WHEN ( lNuevo .OR. lMod ) @ 043, 052 ...
by J. Ernesto
Tue Sep 02, 2014 9:04 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: error al leer un campo tipo texto
Replies: 5
Views: 731

Re: Clase TDb o TDatabase....cual usar?

... METHOD SaveObj( oData ) CLASS TDb ::GetBookMark() ::aBuffer := AClone( oData:aBuffer ) IF oData:lNuevo ::Append() ENDIF ::Save() RETURN NIL //----------------------------------------------------------------------------// METHOD SetBrowse(oLbx) ...
by Compuin
Thu Feb 28, 2013 6:28 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Clase TDb o TDatabase....cual usar?
Replies: 10
Views: 2774

Re: Programación en Red Local

... explico. Tengo una misma rutina para modificar/añadir un registro y dependiendo si es un registro a añadir o modificar hago el DbAppend(): // IF lNuevo TRABAJA->(DbAppend()) ENDIF // Pues bien, resulta que DbAppend() lo estaba haciendo con anteoridad, sin bloquear el fichero (Abriendo el fichero ...
by Manuel Aranda
Sat Jan 14, 2012 1:16 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Programación en Red Local
Replies: 10
Views: 3250

Re: Programación en Red Local

Un ejemplo con database

IF lNuevo
odata:append()
ENDIF
if reviso(odata)
odata:save()
odata:commit()
odata:unlock()
endif

Luis
by surGom
Sat Jan 14, 2012 10:54 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Programación en Red Local
Replies: 10
Views: 3250

No funciona codigo entre Clase y Funcion (2 PRG diferentes)

... un dialogo para Incluir y Modificar los registros, el cual se va a encontrar en otro .PRG como una funcion, de esta forma: FUNCTION Clientes ( lNuevo ) LOCAL oDlg, oFont, oFld, oGet[30] LOCAL cTitle, cAlias, oFecha LOCAL aStatus := { "ACTIVO", "INACTIVO", "SUSPENDIDO" ...
by Compuin
Thu Dec 08, 2011 6:38 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: No funciona codigo entre Clase y Funcion (2 PRG diferentes)
Replies: 0
Views: 461

Re: Clase Database trae todos los campos del registro

Hola Si lo quieres hace como lo tenías al principio IF lNuevo oDbf:GOBOTTOM() BCO_CODIGO := StrZero((VAL(oDbf:BCO_CODIGO) +1), 12) oDbf:BLANK() oDbf:BCO_CODIGO := BCO_CODIGO ELSE oDbf:LOAD() ENDIF Una vez rellenado los campos haces el oDbf:Append() ...
by Pedro
Sun Aug 21, 2011 4:18 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Clase Database trae todos los campos del registro(SOLUCION)
Replies: 7
Views: 1087

Clase Database trae todos los campos del registro(SOLUCION)

Saludos grupo, Estoy usando la clase Tdatabase para mantener un archivo oDbf:=tDatabase():New() Al llamar el dialogo de carga uso este codigo IF lNuevo oDbf:BLANK() oDbf:GOBOTTOM() oDbf:BCO_CODIGO := StrZero((VAL(oDbf:BCO_CODIGO) +1), 12) ELSE oDbf:LOAD() ENDIF Si el registro es nuevo, agrega ...
by Compuin
Sun Aug 21, 2011 5:46 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Clase Database trae todos los campos del registro(SOLUCION)
Replies: 7
Views: 1087

Re: problema con database 2

... de este archivo por el cliente en cuestión ya que en ningún momento cambiaba el puntero en maeclie (oMae) IF lSalvar .AND. !EMPTY( odata:nape) IF lnuevo oData:append() else oData:goto(nRecno) endif Gracias. Igual me gustaría saber en que fallaba el código.
by surGom
Fri Mar 26, 2010 11:41 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: problema con database 2
Replies: 2
Views: 1154

problema con database 2

... function clientes(olbx,lnuevo,oMae,oMemos,oDomcli,oClitrans,oHasedro) LOCAL oBrw oData:=oClone(oMae) oHasedro:setfilter() oHasedro:setfilter({ || (oHasedro:cAlias)->ncli ...
by surGom
Fri Mar 26, 2010 12:59 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: problema con database 2
Replies: 2
Views: 1154

database y browse

... prg. El problema es que no me muestra nada en el browse. Ahora si abro la base de datos en la función secundaria(en este caso function provee(olbx,lnuevo,oMae)) funciona perfectamente. Alguien sabe el porque de este comportamiento?? Uso fwh 2.6 xharbour 99.61 y borland Luis Ejemplo ( no funciona ...
by surGom
Sun May 24, 2009 8:51 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: database y browse
Replies: 9
Views: 1230

Re: error en tsbutton

Exactamente esto me pasa a mi. yo manejo unos botones con un WHEN lNuevo, cuando lnuevo es falso, el boton parpadea continuamente. hasta qeu le asigno un valor de verdadero a lNuevo, me inmagino que en igual forma es con los metodos disable y enable. manuel ...
by carlos vargas
Thu Apr 16, 2009 3:14 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: error en tsbutton
Replies: 13
Views: 1266

... a la funcion clientes en el listbox ON LEFT DBLCLICK clientes( oLbx, .F. ); pero clientes recibe de esta manera FUNCTION Clientes(ologro1, oLbx, lNuevo ) asi los parametro pasan oLbx a oLogro1 y .F. a oLbx cambialo asi en el listbox ON LEFT DBLCLICK clientes( ,oLbx, .F. ); o asi ON LEFT DBLCLICK ...
by joseluisysturiz
Sat Oct 25, 2008 5:17 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Necesito ayuda urgente
Replies: 9
Views: 1816
Next

Return to advanced search