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

[Milan Mehta]

We are taking the same project forward.
Please find attached the self contained small example, where we are able to browse the records.
But when we click on Edit button, nothing happens.
Please help us out.

TIA

Milan Mehta.

[Milan Mehta]

gentle reminder to reply to the above query. thank you

[ignacio]

Hi,

Sorry for the delay. Could you try to update this JS file and tell me your results?

Regards,

xa_backpack.zip

(6.76 KiB) Descargado 4 veces

[Milan Mehta]

Yes, we did put this file into xaweb\source\js folder. But the problem still persists.

Please help us out. We are eagerly awaiting for your guidance.

TIA
Milan.

[ignacio]

Hi,

- please pulse on the navigator: Shift+F5 serveral times.
- Push F12 and see if there is any error on the console. In case yes, send a screeen shoot
- Confirm on the navigator Dev tools this function source code:

Código: Seleccionar todo

function xa_disableTableControl(btn, value) {
   if (btn) {
      if (btn.nodeName == "BUTTON") {
         btn.disabled = value;
      } else {
         btn.classList.remove("disabled");
      }
      const syncro = document.getElementById(btn.dataset.syncro);
      if (syncro) {
         syncro.classList.remove("disabled");
      }
   }
}

[Milan Mehta]

Please see the attachment. This is the error we are getting.
Please help

TIA
Milan.