FiveTech Software tech support forums

... }; HEADERAPPEAR BOLD_ON; HEADERHALIGN CENTER ; HEADERFONTSIZE 10 HEADERSHADE 0; HEADERJOIN {{1,6},{7,9} },{}; // Aqui cascaba el MSWORD. Las celdas DEFINE CELL FORMAT oRTF ; CELLSHADE aMarc1 lFormato:=.F. // Use this to write the next cell in a table For i=1 to 3 WRITE NEWCELL oRTF TEXT "cell ...

... }; HEADERAPPEAR BOLD_ON; HEADERHALIGN CENTER ; HEADERFONTSIZE 10 HEADERSHADE 0; HEADERJOIN {{1,6},{7,9} },{}; // Aqui cascaba el MSWORD. Las celdas DEFINE CELL FORMAT oRTF ; CELLSHADE aMarc1 lFormato:=.F. // Use this to write the next cell in a table For i=1 to 3 WRITE NEWCELL oRTF TEXT "cell ...

... }; HEADERAPPEAR BOLD_ON; HEADERHALIGN CENTER ; HEADERFONTSIZE 10 HEADERSHADE 0; HEADERJOIN {{1,6},{7,9} },{}; // Aqui cascaba el MSWORD. Las celdas DEFINE CELL FORMAT oRTF ; CELLSHADE aMarc1 lFormato:=.F. // Use this to write the next cell in a table For i=1 to 3 WRITE NEWCELL oRTF TEXT "cell ...

Si uso ADO, es microsoft sql.

Usage of "dbo." and " oRSSTK:Fields( "costo" ):Value := x" indicates that it is MS SQL with ADO.

Jorge, que usas para conectarte con MySql?
La clase nativa?
Dolphin?
ADO?

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...

Krinha:

Mouto obrigado

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 oCn := FW_MSSQLDB You can upload or create sma...

No me funciono, falta algo?

Mira con

Code: Select all  Expand view

Set :nEditType := 0
 

.or.

Code: Select all  Expand view

oCol:nEditType := 0
 

si funciona.

Salu2

Code: Select all  Expand view

WITH OBJECT oLbx:Costo
:nEditType := EDIT_GET
END
 

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

... 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 := ...

Amigos del foro: Tengo un xBrowse con FASTEDIT, algunas celdas debo permitir editarlas y otras no, para las editables uso nEditType := EDIT_GET, para las que no debo permitir editarlas utilizo nEditType := EDIT_NONE pero aún así si oprimo la tecla RETURN ...

... debo crear el Browse (xBrowse) llenando los renglones y columnas en blanco y mostrarlo en un dialogo. Tercero, el usuario deberá poder llenar las celdas a sus necesidades, tal vez una sí dos no, etc. Mi duda, hasta ahora he creado los Browse tomando renglones y columnas desde una Tabla de MySql ...