Help us give Edit and Delete Option in this project.

[Milan Mehta]

Dear Sir,

We are trying to follow the sample project given by you on this link : https://xaweb.ozs.es/cgi-bin/tablescrud.xaweb.
We tried to replicate the same with Maria data source (Backup of the same is there in the attached project).
Append facility is working fine. But Edit and Delete is not working.

Kindly help us to kick start the process of development in xaWeb.
TIA
Milan Mehta.

[ignacio]

Hi,

//:OnSubmit := :SubmitToService( "Srv_TableEdit", .T. )

With this code commented is impossible to edit.

Regards,

[Milan Mehta]

We get error while we try to delete. It deletes the record in the database. But failes to refresh the screen, giving out following error :

Error on D:\Project\xaweb_Bansel\Bansal.xaweb: Argument error / + - BASE [1081]

Called from:
WDOCMAIN:RENDER(500)
WENGINE:RENDER(471)
(b)ZENGINE(121)
WENGINE:END(0)
WAPP:END(139)
(b)ZAPP(90)
WAPP:RUN(0)
MAIN(13)
Execute time in milliseconds: 22

[ignacio]

Hi,

Sorry for the delay. Please confirm you are using the latest version 1.0.3 of xaWeb since the line 500 on zDoc.prg module is not on Render() method and is impossible to trace the error.

BTW, I highly appreciate if you can do a very little sample showing the problem. In any case I will try to create a version of the sample 73 using MariaDB.

Regards,

[Milan Mehta]

We are using version 1.0.3.
Please find attached a small self-contained example.
The database dump is also there in the attached file.
Kindly help us out.

TIA
Milan

[ignacio]

Hello,

2025-08-28 18 20 26.png (21.07 KiB) Visto 158 veces

IMPORTANT NOTE: xaWeb services only return JSON strings.

Try this:

Código: Seleccionar todo

METHOD Srv_TableDelete( hPost ) CLASS WDocMain
   LOCAL hData := Engine:hCargo
   LOCAL nId := 0, cSql
   LOCAL hResult := {=>}

   IF HB_HHasKey( hData, "Vou. No." )
      nId := Val( hData[ "Vou. No." ] )
      IF nId > 0
         cSql := "DELETE FROM do WHERE vno = " + HB_ValToExp(nId)
         IF ::oDs:Execute(cSql)
            HB_HSet( hResult, "pass", .T. )
         ENDIF
      ENDIF
   ENDIF

RETURN HB_JsonEncode( hResult )

[Milan Mehta]

Thanks a lot. The problem is solved!
Just help a bit more. It did delete the record from the database.
However, browse still shows the record. How to refresh the screen ?

TIA
Milan.

[ignacio]

You need a TRUE web server. This video is done with XAMPP+Windows.

Regards

NOTE: Xailer IDE navigator does not support FETCH operations.