FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour C贸mo grabar registro a modificar TDolphin....(Solucionado)
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM
C贸mo grabar registro a modificar TDolphin....(Solucionado)
Posted: Sun Nov 23, 2014 03:50 AM
Hola buenos dias de antemano les envio cordial saludos.

Mis estimados, requiero de la ayuda de ustedes
Paso 1
Me graba registro nuevo con su ID_CUENTA y Descripcio,no hay problema 1020-0001 y Proveedores RAVA
Paso 2
Al querer modificar registro por un error en la descripcion, no me hace el cambio,porque sera! o que otro metodo debo incluir o cual es la forma correcta del codigo.

Espero su ayuda, y comentarios con la clase TDolphin,adjunto codigo

Code (fw): Select all Collapse
IF lNew
聽 聽 聽base 聽 聽 聽 聽 聽 聽 聽 := oQryDB08:GetBlankRow(.F.) // Lo que seria un append blank
聽 聽 聽oQryDB08:ID_CUENTA := cCta 聽 聽 聽

聽 聽 聽MsgInfo("Vuelve a pasar de nuevo como registro nuevo?")
聽ELSE
聽 聽 聽base := oQryDB08:GetRowObj()
聽ENDIF

聽oQryDB08:oRow := base

聽TRY
聽 聽 聽MsgInfo("Pasa aqui al modificar?")
聽 聽 聽oQryDB08:DESCRIP 聽 聽:= cDescribe 聽 // Aqui no me hace el cambio de en la descripcion al querer modificar
聽 聽 聽oQryDB08:NIVSUM 聽 聽 := nNivel
聽 聽 聽oQryDB08:TIPONAT 聽 聽:= IF(nTCuenta 聽 聽== 1, "D", "A")
聽 聽 聽oQryDB08:GRUPOCTA 聽 := 0
聽 聽 聽oQryDB08:TIPOCLIPRV := IF(nTClieProv == 1, "C", "P")
聽 聽 聽oQryDB08:TIPOPERA 聽 := nTOperacion
聽 聽 聽oQryDB08:AP_IVA 聽 聽 := lIVA // 0 = .F. y/o 1 = .T.
聽 聽 聽oQryDB08:AP_SN 聽 聽 聽:= .T. //(S04)->AP_SEGNG 聽 聽 聽 聽 聽 聽 聽 聽 聽// Temporal, mientras se termine de programar... \\
聽 聽 聽oQryDB08:MOVSN 聽 聽 聽:= lSNMov //IF((S04)->AP_SEGNG, .T., .F.) // Temporal, mientras se termine de programar... \\

聽 聽 聽oQryDB08:FECALTA 聽 := DATE()

聽 聽 聽oQryDB08:Save() 聽// aqui me graba pero solo cuando es registro nuevo,y si quiero modificar, no me hace el efecto
聽 聽 聽oQryDB08:Refresh(.t.)
聽CATCH oError
聽 聽 聽MsgStop("Error al grabar"+CHR(10)+oError:description,"Error")
聽END TRY


Cualquier ayuda sera bienvenida.

Saludos y buen dia.

Atte: Adrian C. C.
acc69@hotmail.com
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM
Re: C贸mo grabar registro a modificar TDolphin....
Posted: Mon Nov 24, 2014 04:15 PM
ACC69 wrote:Hola buenos dias de antemano les envio cordial saludos.

Mis estimados, requiero de la ayuda de ustedes
Paso 1
Me graba registro nuevo con su ID_CUENTA y Descripcio,no hay problema 1020-0001 y Proveedores RAVA
Paso 2
Al querer modificar registro por un error en la descripcion, no me hace el cambio,porque sera! o que otro metodo debo incluir o cual es la forma correcta del codigo.

Espero su ayuda, y comentarios con la clase TDolphin,adjunto codigo

Code (fw): Select all Collapse
IF lNew
聽 聽 聽base 聽 聽 聽 聽 聽 聽 聽 := oQryDB08:GetBlankRow(.F.) // Lo que seria un append blank
聽 聽 聽oQryDB08:ID_CUENTA := cCta 聽 聽 聽

聽 聽 聽MsgInfo("Vuelve a pasar de nuevo como registro nuevo?")
聽ELSE
聽 聽 聽base := oQryDB08:GetRowObj()
聽ENDIF

聽oQryDB08:oRow := base

聽TRY
聽 聽 聽MsgInfo("Pasa aqui al modificar?")
聽 聽 聽oQryDB08:DESCRIP 聽 聽:= cDescribe 聽 // Aqui no me hace el cambio de en la descripcion al querer modificar
聽 聽 聽oQryDB08:NIVSUM 聽 聽 := nNivel
聽 聽 聽oQryDB08:TIPONAT 聽 聽:= IF(nTCuenta 聽 聽== 1, "D", "A")
聽 聽 聽oQryDB08:GRUPOCTA 聽 := 0
聽 聽 聽oQryDB08:TIPOCLIPRV := IF(nTClieProv == 1, "C", "P")
聽 聽 聽oQryDB08:TIPOPERA 聽 := nTOperacion
聽 聽 聽oQryDB08:AP_IVA 聽 聽 := lIVA // 0 = .F. y/o 1 = .T.
聽 聽 聽oQryDB08:AP_SN 聽 聽 聽:= .T. //(S04)->AP_SEGNG 聽 聽 聽 聽 聽 聽 聽 聽 聽// Temporal, mientras se termine de programar... \\
聽 聽 聽oQryDB08:MOVSN 聽 聽 聽:= lSNMov //IF((S04)->AP_SEGNG, .T., .F.) // Temporal, mientras se termine de programar... \\

聽 聽 聽oQryDB08:FECALTA 聽 := DATE()

聽 聽 聽oQryDB08:Save() 聽// aqui me graba pero solo cuando es registro nuevo,y si quiero modificar, no me hace el efecto
聽 聽 聽oQryDB08:Refresh(.t.)
聽CATCH oError
聽 聽 聽MsgStop("Error al grabar"+CHR(10)+oError:description,"Error")
聽END TRY


Cualquier ayuda sera bienvenida.

Saludos y buen dia.

Atte: Adrian C. C.
acc69@hotmail.com



+1 UPS :-)
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM
Re: C贸mo grabar registro a modificar TDolphin.... (SOLUCIONADO)
Posted: Mon Nov 24, 2014 07:18 PM
Bueno al parecer ya quedo, mi error estaba en la parte del metodo oQryDB08:GetRow(),ya lo comente,solo que mi duda, para que servira !... :-) :-)

Por lo menos ya me deja hacer cambios en mi edicion de gets :-) , pero me falta mucho mas por avanzar y conocer mas esta clase .

Code (fw): Select all Collapse
TRY
聽 聽 IF lNew
聽 聽 聽 聽 oQryDB08:GetBlankRow(.F.) // Lo que seria un append blank
聽 聽 聽 聽 oQryDB08:ID_CUENTA := cCta 聽 聽 聽// Sin guion...
聽 聽 聽 聽 oQryDB08:lAppend 聽 := .T.


聽 聽 聽 聽 MsgInfo("Vuelve a pasar de nuevo como registro nuevo?")
聽 聽 ELSE
聽 聽 聽 聽* oQryDB08:GetRow()
聽 聽 聽 聽 oQryDB08:lAppend := .F.

聽 聽 聽 聽 MsgInfo("Pasa aqui al modificar GetRow()?")
聽 聽 ENDIF

聽 聽 聽MsgInfo("Pasa aqui al modificar?")
聽 聽 聽oQryDB08:DESCRIP 聽 聽:= cDescribe
聽 聽 聽oQryDB08:NIVSUM 聽 聽 := nNivel
聽 聽 聽oQryDB08:TIPONAT 聽 聽:= IF(nTCuenta 聽 聽== 1, "D", "A")
聽 聽 聽oQryDB08:GRUPOCTA 聽 := 0
聽 聽 聽oQryDB08:TIPOCLIPRV := IF(nTClieProv == 1, "C", "P")
聽 聽 聽oQryDB08:TIPOPERA 聽 := nTOperacion
聽 聽 聽oQryDB08:AP_IVA 聽 聽 := lIVA // 0 = .F. y/o 1 = .T.
聽 聽 聽oQryDB08:AP_SN 聽 聽 聽:= .T. //(S04)->AP_SEGNG 聽 聽 聽 聽 聽 聽 聽 聽 聽// Temporal, mientras se termine de programar... \\
聽 聽 聽oQryDB08:MOVSN 聽 聽 聽:= lSNMov //IF((S04)->AP_SEGNG, .T., .F.) // Temporal, mientras se termine de programar... \\
聽 聽 聽oQryDB08:FECALTA 聽 聽:= DATE()

聽 聽 聽oQryDB08:Save()
聽 聽 聽oQryDB08:Refresh(.t.)
聽CATCH oError
聽 聽 聽MsgStop("Error al grabar..."+CHR(10)+oError:description,"Error")
聽END TRY

聽oDlg:Update()



Saludos y buen dia!, continuare avanzando aunque tenga tropiezos.....

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions