feature/add-produto-funciton-calling

Author: Cesar4D

Samples/BD/dados.db

@@ -46,7 +46,6 @@ object MainView: TMainView
       Height = 23
       Style = csDropDownList
       TabOrder = 0
-      OnChange = cBoxIAServiceChange
     end
     object TMSFNCCloudAI1: TTMSFNCCloudAI
       Left = 480
@@ -67,30 +66,30 @@ object MainView: TMainView
       Settings.MistralModel = 'mistral-large-latest'
       Tools = <
         item
-          Name = 'IdCliente'
-          Description = 'Retorne os dados do cliente pelo ID informado'
+          Name = 'GetEstoqueProduto'
+          Description = 'Retorne o estoque do produto informado'
           Parameters = <
             item
               ArrayProperties = <>
-              Name = 'IdCliente'
+              Name = 'IdProduto'
               Type = ptNumber
-              Description = 'Id do cliente'
+              Description = 'Id do produto'
               Properties = <>
             end>
-          OnExecute = TMSFNCCloudAI1Tools3Execute
+          OnExecute = TMSFNCCloudAI1Tools0Execute
         end
         item
-          Name = 'GetEstoqueProduto'
-          Description = 'Retorne o estoque do produto informado'
+          Name = 'IdCliente'
+          Description = 'Retorne os dados do cliente pelo ID informado'
           Parameters = <
             item
               ArrayProperties = <>
-              Name = 'IdProduto'
+              Name = 'IdCliente'
               Type = ptNumber
-              Description = 'Id do produto'
+              Description = 'Id do cliente'
               Properties = <>
             end>
-          OnExecute = TMSFNCCloudAI1Tools0Execute
+          OnExecute = TMSFNCCloudAI1Tools3Execute
         end
         item
           Name = 'GetEndereco'
@@ -150,73 +149,101 @@ object MainView: TMainView
         Left = 3
         Top = 17
         Width = 734
-        Height = 143
+        Height = 127
         Align = alClient
         BorderStyle = bsNone
         Lines.Strings = (
           'Retorne os dados das vendas do periodo 01/06/2025 a 24/06/2025')
         TabOrder = 0
         ExplicitLeft = 2
         ExplicitTop = 11
+        ExplicitHeight = 143
       end
       object gBoxDefaultsPrompts: TGroupBox
         Left = 3
-        Top = 160
+        Top = 144
         Width = 734
-        Height = 59
+        Height = 75
         Align = alBottom
         Caption = ' Defaults  Prompts '
         TabOrder = 1
         object pnDefaultsPrompts01: TPanel
           Left = 2
           Top = 17
           Width = 730
-          Height = 24
+          Height = 27
           Align = alTop
           BevelOuter = bvNone
+          Padding.Bottom = 3
           TabOrder = 0
-          ExplicitLeft = 1
-          ExplicitTop = 1
-          ExplicitWidth = 732
-          object Button1: TButton
-            Left = 198
+          ExplicitTop = 11
+          object Button3: TButton
+            Left = 182
             Top = 0
-            Width = 99
+            Width = 182
             Height = 24
             Align = alLeft
-            Caption = 'Vendas per'#237'odo'
+            Caption = 'Dados cliente'
             TabOrder = 0
-            OnClick = Button1Click
+            OnClick = Button3Click
+            ExplicitLeft = -6
+            ExplicitTop = -3
           end
-          object Button2: TButton
-            Left = 297
+          object Button4: TButton
+            Left = 364
             Top = 0
             Width = 182
             Height = 24
             Align = alLeft
-            Caption = 'Vendas per'#237'odo (detalhando)'
+            Caption = 'Email cliente'
             TabOrder = 1
-            OnClick = Button2Click
+            OnClick = Button4Click
+            ExplicitLeft = 182
           end
-          object Button3: TButton
+          object Button5: TButton
             Left = 0
             Top = 0
-            Width = 99
+            Width = 182
             Height = 24
             Align = alLeft
-            Caption = 'Dados cliente'
+            Caption = 'Dados produto'
             TabOrder = 2
-            OnClick = Button3Click
+            OnClick = Button5Click
+            ExplicitLeft = -6
+            ExplicitTop = -3
           end
-          object Button4: TButton
-            Left = 99
+        end
+        object pnDefaultsPrompts02: TPanel
+          Left = 2
+          Top = 44
+          Width = 730
+          Height = 24
+          Align = alTop
+          BevelOuter = bvNone
+          Padding.Bottom = 3
+          TabOrder = 1
+          ExplicitTop = 41
+          object Button1: TButton
+            Left = 0
             Top = 0
-            Width = 99
-            Height = 24
+            Width = 182
+            Height = 21
             Align = alLeft
-            Caption = 'Email cliente'
-            TabOrder = 3
-            OnClick = Button4Click
+            Caption = 'Vendas per'#237'odo'
+            TabOrder = 0
+            OnClick = Button1Click
+          end
+          object Button2: TButton
+            Left = 182
+            Top = 0
+            Width = 182
+            Height = 21
+            Align = alLeft
+            Caption = 'Vendas per'#237'odo (detalhando)'
+            TabOrder = 1
+            OnClick = Button2Click
+            ExplicitLeft = 107
+            ExplicitTop = 3
           end
         end
       end

Samples/FunctionCalling/Src/Main.View.dfm

@@ -40,12 +40,13 @@   TMainView = class(TForm)
     TMSFNCCloudAI1: TTMSFNCCloudAI;
     gBoxDefaultsPrompts: TGroupBox;
     pnDefaultsPrompts01: TPanel;
-    Button1: TButton;
-    Button2: TButton;
     Button3: TButton;
     Button4: TButton;
+    pnDefaultsPrompts02: TPanel;
+    Button1: TButton;
+    Button2: TButton;
+    Button5: TButton;
     procedure FormCreate(Sender: TObject);
-    procedure cBoxIAServiceChange(Sender: TObject);
     procedure btnExecuteClick(Sender: TObject);
     procedure TMSFNCCloudAI1Executed(Sender: TObject; AResponse: TTMSFNCCloudAIResponse; AHttpStatusCode: Integer;
       AHttpResult: string);
@@ -57,6 +58,7 @@   TMainView = class(TForm)
     procedure TMSFNCCloudAI1Tools3Execute(Sender: TObject; Args: TJSONObject; var Result: string);
     procedure Button3Click(Sender: TObject);
     procedure Button4Click(Sender: TObject);
+    procedure Button5Click(Sender: TObject);
   private
     function GetEndereco(const ACEP: string): string;
   public
@@ -78,14 +80,12 @@ procedure TMainView.FormCreate(Sender: TObject);
   TMSFNCCloudAI1.Settings.WebSearch := True;
 
   cBoxIAService.Items.Assign(TMSFNCCloudAI1.GetServices(True));
-  cBoxIAService.ItemIndex := 2; //6
-  cBoxIAServiceChange(cBoxIAService);
+  cBoxIAService.ItemIndex := 0;
 end;
 
-procedure TMainView.cBoxIAServiceChange(Sender: TObject);
+procedure TMainView.Button5Click(Sender: TObject);
 begin
-  var i := Integer(cBoxIAService.Items.Objects[cBoxIAService.ItemIndex]);
-  TMSFNCCloudAI1.Service := TTMSFNCCloudAIService(i);
+  mmQuestion.Text := 'Retorne o estoque do produto informado id 10';
 end;
 
 procedure TMainView.Button3Click(Sender: TObject);
@@ -107,12 +107,15 @@ procedure TMainView.Button1Click(Sender: TObject);
 
 procedure TMainView.Button2Click(Sender: TObject);
 begin
-  mmQuestion.Text := 'Retorne os dados das vendas do periodo 01/06/2025 a 24/06/2025' + sLineBreak +
+  cBoxIAService.ItemIndex := 0;
+  mmQuestion.Text := 'Retorne os dados das vendas do periodo 01/06/2025 a 25/06/2025' + sLineBreak +
     'Mostre as 5 primeiras vendas';
 end;
 
 procedure TMainView.btnExecuteClick(Sender: TObject);
 begin
+  TMSFNCCloudAI1.Service := TTMSFNCCloudAIService(cBoxIAService.Items.Objects[cBoxIAService.ItemIndex]);
+
   TMSFNCCloudAI1.Context := mmQuestion.Lines;
   TMSFNCCloudAI1.Execute();
   ProgressBar1.State := pbsNormal;
@@ -131,6 +134,30 @@ procedure TMainView.TMSFNCCloudAI1Executed(Sender: TObject; AResponse: TTMSFNCCl
   mmResponse.Lines.Text := AResponse.Content.Text;
 end;
 
+procedure TMainView.TMSFNCCloudAI1Tools0Execute(Sender: TObject; Args: TJSONObject; var Result: string);
+var
+  LIdProduto: Integer;
+begin
+  LIdProduto := Args.GetValue<Integer>('IdProduto', 0);
+  if LIdProduto <= 0 then
+  begin
+    Result := 'Código do produto não pode ser recuperado';
+    Exit;
+  end;
+
+  DM.ProdutosGet(LIdProduto);
+  if dm.TBProdutos.IsEmpty then
+  begin
+    Result := 'Nenhum produto foi encontrado com o código: ' + LIdProduto.ToString;
+    Exit;
+  end;
+
+  Result := DM.TBProdutosid.AsString + sLineBreak +
+    'Nome: ' + DM.TBProdutosnome.AsString + sLineBreak +
+    'Estoque: ' + DM.TBProdutosestoque.AsString + sLineBreak +
+    'Preço: ' + DM.TBProdutospreco.AsString;
+end;
+
 procedure TMainView.TMSFNCCloudAI1Tools3Execute(Sender: TObject; Args: TJSONObject; var Result: string);
 var
   LIdCLiente: Integer;
@@ -152,11 +179,6 @@ procedure TMainView.TMSFNCCloudAI1Tools3Execute(Sender: TObject; Args: TJSONObje
   Result := DM.TBClientesId.AsString + ' - ' +  DM.TBClientesnome.AsString;
 end;
 
-procedure TMainView.TMSFNCCloudAI1Tools0Execute(Sender: TObject; Args: TJSONObject; var Result: string);
-begin
-  Result := FloatToStr(Args.GetValue<Integer>('IdProduto') * 10);
-end;
-
 procedure TMainView.TMSFNCCloudAI1Tools1Execute(Sender: TObject; Args: TJSONObject; var Result: string);
 begin
   Result := Self.GetEndereco(Args.GetValue<string>('CEP'));

Samples/FunctionCalling/Src/Main.View.pas

@@ -25,8 +25,8 @@ object DM: TDM
       'from vendas'
       'left join clientes on clientes.id = vendas.id_cliente'
       '')
-    Left = 128
-    Top = 216
+    Left = 120
+    Top = 280
     object TBVendasId: TFDAutoIncField
       FieldName = 'Id'
       Origin = 'Id'
@@ -65,7 +65,7 @@ object DM: TDM
       'where id = :IdCliente '
       'limit 1')
     Left = 120
-    Top = 152
+    Top = 216
     ParamData = <
       item
         Name = 'IDCLIENTE'
@@ -86,4 +86,37 @@ object DM: TDM
       Size = 50
     end
   end
+  object TBProdutos: TFDQuery
+    Connection = FDConnection1
+    SQL.Strings = (
+      'select *'
+      'from produtos')
+    Left = 120
+    Top = 152
+    object TBProdutosid: TFDAutoIncField
+      FieldName = 'id'
+      Origin = 'id'
+      ProviderFlags = [pfInWhere, pfInKey]
+      ReadOnly = False
+    end
+    object TBProdutosnome: TWideStringField
+      FieldName = 'nome'
+      Origin = 'nome'
+      Size = 40
+    end
+    object TBProdutosestoque: TFloatField
+      FieldName = 'estoque'
+      Origin = 'estoque'
+      DisplayFormat = ',,0.00'
+    end
+    object TBProdutospreco: TFloatField
+      FieldName = 'preco'
+      Origin = 'preco'
+      DisplayFormat = ',,0.00'
+    end
+    object TBProdutosregistro: TIntegerField
+      FieldName = 'registro'
+      Origin = 'registro'
+    end
+  end
 end

Samples/FunctionCalling/Src/uDM.dfm

@@ -39,10 +39,18 @@   TDM = class(TDataModule)
     TBClientes: TFDQuery;
     TBClientesId: TFDAutoIncField;
     TBClientesnome: TWideStringField;
+    TBProdutos: TFDQuery;
+    TBProdutosid: TFDAutoIncField;
+    TBProdutosnome: TWideStringField;
+    TBProdutosestoque: TFloatField;
+    TBProdutospreco: TFloatField;
+    TBProdutosregistro: TIntegerField;
     procedure DataModuleCreate(Sender: TObject);
   private
+    FSqlTBProdutos: string;
     FSqlTBVendas: string;
   public
+    procedure ProdutosGet(const AId: Integer);
     procedure ClienteGet(const AId: Integer);
     procedure VendasListar(ADataIni, ADataFim: TDate);
   end;
@@ -58,13 +66,23 @@ implementation
 
 procedure TDM.DataModuleCreate(Sender: TObject);
 begin
+  FSqlTBProdutos := TBProdutos.SQL.Text;
   FSqlTBVendas := TBVendas.SQL.Text;
 end;
 
+procedure TDM.ProdutosGet(const AId: Integer);
+begin
+  TBProdutos.Close;
+  TBProdutos.SQL.Text := FSqlTBProdutos;
+  TBProdutos.SQL.Add('where id = :IdProduto');
+  TBProdutos.ParamByName('IdProduto').AsInteger := AId;
+  TBProdutos.Open;
+end;
+
 procedure TDM.ClienteGet(const AId: Integer);
 begin
   TBClientes.Close;
-  TBClientes.ParamByName('IdCLiente').AsInteger := AId;
+  TBClientes.ParamByName('IdCliente').AsInteger := AId;
   TBClientes.Open;
 end;