XBROWSE NO Actualiza Campos Modificados

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

XBROWSE NO Actualiza Campos Modificados
Posted: Thu Oct 25, 2018 08:09 PM

Amigo

Buenas tardes.

He tenido que volver a publicar mi problema.

No logro que Xbrowse pueda actualizar las Modificaciones que se realizan a una Columna.

Agradeciendo su ayuda, les saluda.

Antonio.

Codigo del proceso:

Code (fw): Select all Collapse

             DEFINE DIALOG oDlg1 RESOURCE "#1008"     FONT oFont1   Title " "
     
             REDEFINE XBROWSE oBrow ALIAS "&nro_usu5" FIELDS ;
            OemToAnsi(Cod_det1),;
            OemToAnsi(Cod_res),;
            OemToAnsi(Cod_det2);
            HEADERS;
            "Detalle Examen",;
            "Resultado Examen",;
            "Referencias";
            PICTURES '@!','@!','@!';
            ID 609 OF oDlg1 ;
            FONT oFont1;
            FOOTERS LINES CELL
            oBrow:nFreeze:=2
            oBrow:bClrStd             := {|| { nRGB(  0,  0,  0), nRGB(255,248,220) } }
            oBrow:bClrSelFocus        := {|| { nRGB(  0,  0,  0), nRGB(137, 247, 33) } }
            oBrow:aCols[ 2 ]:lAutoSave  := .T.

            WITH OBJECT oBrow:aCols[ 2 ]
                 :nEditType  := EDIT_GET
                 :bEditWhen := {|| &nro_usu5->Est_inf = "S" }
                 oCol:bOnPostEdit := {|o, v, n| &nro_usu5->Cod_res:=v }
               
            END


           ACTIVATE DIALOG oDlg1 CENTERED

FWH 22.10 - HARBOUR - PELLES C

Hector Pedro Lerda

Posts: 46

Joined: Tue May 07, 2013 07:27 PM

Re: XBROWSE NO Actualiza Campos Modificados
Posted: Fri Oct 26, 2018 01:50 PM

Buen dia

prueba de hacer este cambio

:bEditWhen := {|| &nro_usu5->Est_inf = "S" }

por

:bEditWhen := {|| if(nro_usu5->Est_inf = "S",.t.,.f.) }

saludos

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: XBROWSE NO Actualiza Campos Modificados
Posted: Fri Oct 26, 2018 02:21 PM

Hola, Yo lo hago de esta forma y sin problemas

Code (fw): Select all Collapse

            oLbx:aCols[4]:nEditType    :=  EDIT_GET
            oLbx:aCols[4]:bEditValue   :=  { || PA94->CANT }
            oLbx:aCols[4]:cEditPicture :=  "######.####"
            oLbx:aCols[4]:bClrEdit     :=  { || { nRGB(121, 99,197), nRGB(239,228,176)} }
             oLbx:aCols[4]:bOnPostEdit  :=  { |  oCol,xVal, nKey |                       ;
                                                        IF( nKey == VK_RETURN                  ,;
                                                             IF( xVal  >= 0                         ,;
                                                                 ( GrabaEvento(  xVal  )         ,;
                                                                   oLbx:Refresh()                ,;
                                                                   oLbx:SetFocus()               ,; 
                                                                                         ),),)}

Funcion en donde grabo el evento, (sobre la dbf y en la tabla sql)

Code (fw): Select all Collapse

STATIC FUNCTION GrabaEvento( cVal )
...
                                PA94->CANT := cVal
                                oConnect:Execute("UPDATE CGE_PerdidaMaterial SET PM_Cantidad="+Transform(PA94->CANT,"99999.99")+" WHERE PM_NroProceso_FK='"+PA94->NPRO+"' ' " ) 

RETURN .T.

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: XBROWSE NO Actualiza Campos Modificados
Posted: Fri Oct 26, 2018 05:03 PM

Mil gracias a Armando y Hector.

Probe ambas soluciones, la unica que resulto perfecta fue la de Armando.

Muy agradecido por su ayuda.

Muchos Saludos.

Antonio

Dejo el Codigo Funcional:

Code (fw): Select all Collapse

            WITH OBJECT oBrow:aCols[ 2 ]
                     oBrow:aCols[2]:nEditType    :=  EDIT_GET
                     :bEditWhen := {|| &nro_usu5->Est_inf = "S" }

                     oBrow:aCols[2]:bEditValue   :=  { || &nro_usu5->Cod_res }
                     oBrow:aCols[2]:cEditPicture :=  "@!"
                     oBrow:aCols[2]:bClrEdit     :=  { || { nRGB(121, 99,197), nRGB(239,228,176)} }

                     oBrow:aCols[2]:bOnPostEdit  :=  { |  oCol,xVal, nKey |IF( nKey == VK_RETURN ,;
                                                                 IF( xVal  = spac(29) ,;
                                                                 ( GrabaEvento( xVal ),oBrow:Refresh(),;
                                                                   oBrow:SetFocus()),),)}


            END


       ACTIVATE DIALOG oDlg1 CENTERED


    Return nil

STATIC FUNCTION GrabaEvento( cVal )
       &nro_usu5->Cod_res:= cVal
            
RETURN .T.

FWH 22.10 - HARBOUR - PELLES C

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: XBROWSE NO Actualiza Campos Modificados
Posted: Sun Nov 04, 2018 07:31 AM

Create XBrowse like this:

Code (fw): Select all Collapse

REDEFINE XBROWSE oBrow ALIAS "& nro_usu5" ;
   COLUMNS COD_DET1, COD_RES, COD_DET2 ;
   HEADERS  "Review Detail", "Test Result", "References" ; 
   PICTURES '@!' , '@!', '@!' ; 
   ID 609 OF oDlg1; 
   FONT oFont1; 
   FOOTERS LINES CELL 

oBrw:lOemAnsi := .T.
oBrw:nEditTypes := EDIT_GET

Do not use FIELDS clause. Use COLUMNS clause.
Use oBrw:lOemAnsi or oCol:lOemAnsi

Now you can inline-edit the fields and save modifications.

Regards

G. N. Rao.

Hyderabad, India

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: XBROWSE NO Actualiza Campos Modificados
Posted: Wed Nov 07, 2018 01:36 PM

Well.
bOnPostEdit is deprecated.
FWH recommends usage of COLUMNS clause instead of FIELDS clause.
We posted the recommended code.

Regards

G. N. Rao.

Hyderabad, India

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: XBROWSE NO Actualiza Campos Modificados
Posted: Thu Nov 08, 2018 11:29 AM

no todos podemos tener las ultimas versiones de fivewin

:cry: :cry:

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: XBROWSE NO Actualiza Campos Modificados
Posted: Fri Nov 09, 2018 03:03 PM

Amigos

Muchas gracias por estar presente cuando requerimos de ayuda de los que saben, particularmente he vuelto a Fivewin despues de un tiempo y me ha pasado la cuenta, pero soy eternamente agradecido por su incondicional ayuda.

He aplicado sus consejos y esta funcionando perfecto.

Muchos Saludos.

Antonio.

FWH 22.10 - HARBOUR - PELLES C

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: XBROWSE NO Actualiza Campos Modificados
Posted: Fri Nov 09, 2018 08:07 PM

Regards

Hola muy agradecido por tu ayuda, pero tu ultima recomendación sobre usar COLUMNAS en ves de FIELDS, como Amando bien dice, no todos podemos obtener las ultimas versiones de Fivewin, digo esto ya que aplicarlo en la version que tengo, no funciona, por lo que he vuelto a dejarlo a la recomendación anterior.

Muchas gracias.

Saludos

Antonio.

FWH 22.10 - HARBOUR - PELLES C

FiveTech Support Forums

Continue the discussion