topic-43666

Posts: 155

Joined: Tue Dec 30, 2008 03:07 AM

Editar celdas en xbrowse
Posted: Thu Aug 31, 2023 01:49 PM

Hola gente, tengo un xbrowse de esta consulta:

cSQL := "SELECT s.Codigo, s.Codbarra, s.Descri, s.Precio_vta, s.Cantid, s.Cantid1, s.Cantid2, s.Cantid3, s.Cantid4, s.Rubro, s.Descri1, s.Marca, s.Costo, s.Minimo, s.Lote, s.Porc_iva, s.Gravado, s.Fec_alta, " + ;

" s.Fec_modi, s.Descu1, s.Descu2, s.Descu3, s.Descu4, s.Ult_prov, s.moneda, s.Disconti, m.Cotiza, dbo.Proveed.Nombre, dbo.Marcas.Nombre AS nommarca " + ;

"FROM dbo.Stock AS s INNER JOIN " + ;

" dbo.Monedas AS m ON s.moneda = m.Descri INNER JOIN " + ;

" dbo.Proveed ON s.Ult_prov = dbo.Proveed.Numero INNER JOIN " + ;

" dbo.Marcas ON s.Marca = dbo.Marcas.Numero "

Como puedo hacer una edición por celdas de los campos de la base Stock

intente con:

WITH OBJECT oLbx:Costo

  :bOnPostEdit  := { | o, x, k | oRSSTK:Fields( "costo" ):Value := x  } //PostEdit( o, x, k ) }  // EditaCelda( oaufactu, 1, x, k, lFirstEdit ) }  //  PostEdit(o,x,k) }

  :nEditType := EDIT_GET

END

pero no actualiza, seguro me falta algo.

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Editar celdas en xbrowse
Posted: Thu Aug 31, 2023 04:57 PM

Code (fw): Select all Collapse

WITH OBJECT oLbx:Costo
:nEditType := EDIT_GET
END

Please remove bPostEdit
Xbrowse internally prepares a better bPostEdit codeblock by default.

Regards

G. N. Rao.

Hyderabad, India

Anonymous

Posts: 155

Joined: Tue Dec 30, 2008 03:07 AM

Re: Editar celdas en xbrowse
Posted: Thu Aug 31, 2023 11:08 PM

No me funciono, falta algo?

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Editar celdas en xbrowse
Posted: Fri Sep 01, 2023 09:33 AM

I understand you are using ADO with MSSQL (Microsoft SQL).
Right?

We can not say why are you not able to save, unless we test your program at our end.

For this purpose, FWH provides an MSSQL server in the Cloud.
You can connect to this server by calling

Code (fw): Select all Collapse

oCn := FW_MSSQLDB

You can upload or create small sample tables of your own on this server.
Then we both can test the program on this databse.
That helps us to provide you the right support.

Regards

G. N. Rao.

Hyderabad, India

Anonymous

Posts: 155

Joined: Tue Dec 30, 2008 03:07 AM

Re: Editar celdas en xbrowse
Posted: Tue Sep 05, 2023 01:34 PM

Lo que está creando el conflicto es el INNER JOIN:

cSQL := "SELECT s.id, s.Codigo, s.Codbarra, s.Descri, s.Precio_vta, s.Cantid, s.Cantid1, s.Cantid2, s.Cantid3, s.Cantid4, s.Rubro, s.Descri1, s.Marca, s.Costo, s.Minimo, s.Lote, s.Porc_iva, s.Gravado, s.Fec_alta, " + ;

" s.Fec_modi, s.Descu1, s.Descu2, s.Descu3, s.Descu4, s.Ult_prov, s.moneda, s.Disconti, m.Cotiza, dbo.Proveed.Nombre, dbo.Marcas.Nombre AS nommarca " + ;

"FROM dbo.Stock AS s INNER JOIN " + ;

" dbo.Monedas AS m ON s.moneda = m.Descri INNER JOIN " + ;

" dbo.Proveed ON s.Ult_prov = dbo.Proveed.Numero INNER JOIN " + ;

" dbo.Marcas ON s.Marca = dbo.Marcas.Numero "

Si lo hago "select * from stock" funciona bien

cmsoft

Posts: 1344