bk/2025-04-01-0015

Author: Cesar4D

ClientWeb/Src/Main.View.dfm

@@ -148,8 +148,7 @@ object MainView: TMainView
       ElementID = 'btnPost'
       HeightPercent = 100.000000000000000000
       WidthPercent = 100.000000000000000000
-      ExplicitLeft = 445
-      ExplicitTop = 3
+      OnClick = btnPostClick
     end
     object btnAlterar: TWebButton
       Left = 587
@@ -162,7 +161,6 @@ object MainView: TMainView
       ElementID = 'btnAlterar'
       HeightPercent = 100.000000000000000000
       WidthPercent = 100.000000000000000000
-      ExplicitLeft = 593
     end
     object btnDelete: TWebButton
       Left = 723
@@ -175,7 +173,6 @@ object MainView: TMainView
       ElementID = 'btnDelete'
       HeightPercent = 100.000000000000000000
       WidthPercent = 100.000000000000000000
-      ExplicitLeft = 729
     end
   end
   object mmTeste: TWebMemo

ClientWeb/Src/Main.View.pas

@@ -61,6 +61,8 @@   TMainView = class(TWebForm)
     procedure btnGetClick(Sender: TObject);
     [Async]
     procedure btnListarClick(Sender: TObject);
+    [Async]
+    procedure btnPostClick(Sender: TObject);
   private
 
   public
@@ -161,4 +163,23 @@ procedure TMainView.btnListarClick(Sender: TObject);
   end;
 end;
 
+procedure TMainView.btnPostClick(Sender: TObject);
+var
+  LResponse: TXDataClientResponse;
+  LCliente: TJSObject;
+begin
+  LCliente := TJSObject.new;
+  LCliente['IdCidade'] := 10;
+  LCliente['Nome'] := 'Nome teste ' + FormatDateTime('zzz', Now);
+  LCliente['Profissao'] := 'Dev';
+  LCliente['Limite'] := 1000;
+  LCliente['Porcentagem'] := 88;
+  LCliente['Ativo'] := True;
+
+  LResponse := TAwait.Exec<TXDataClientResponse>(
+    XDataWebClient1.RawInvokeAsync('IClientesService.Post', [LCliente]));
+
+  mmTeste.Lines.Text := LResponse.ResponseText;
+end;
+
 end.