alberteije · cleitonFranca · Oct 2, 2023
diff --git a/Retaguarda/Comum/Atributos.dcu b/Retaguarda/Comum/Atributos.dcu
diff --git a/Retaguarda/Comum/Biblioteca.dcu b/Retaguarda/Comum/Biblioteca.dcu
diff --git a/Retaguarda/Comum/Biblioteca.pas b/Retaguarda/Comum/Biblioteca.pas
diff --git a/Retaguarda/Comum/Constantes.dcu b/Retaguarda/Comum/Constantes.dcu
diff --git a/Retaguarda/Comum/Controller/AlmoxarifadoController.dcu b/Retaguarda/Comum/Controller/AlmoxarifadoController.dcu
diff --git a/Retaguarda/Comum/Controller/BancoController.dcu b/Retaguarda/Comum/Controller/BancoController.dcu
diff --git a/Retaguarda/Comum/Controller/CompraCotacaoController.dcu b/Retaguarda/Comum/Controller/CompraCotacaoController.dcu
diff --git a/Retaguarda/Comum/Controller/CompraCotacaoDetalheController.dcu b/Retaguarda/Comum/Controller/CompraCotacaoDetalheController.dcu
diff --git a/Retaguarda/Comum/Controller/CompraFornecedorCotacaoController.dcu b/Retaguarda/Comum/Controller/CompraFornecedorCotacaoController.dcu
diff --git a/Retaguarda/Comum/Controller/CompraPedidoController.dcu b/Retaguarda/Comum/Controller/CompraPedidoController.dcu
diff --git a/Retaguarda/Comum/Controller/CompraPedidoDetalheController.dcu b/Retaguarda/Comum/Controller/CompraPedidoDetalheController.dcu
diff --git a/Retaguarda/Comum/Controller/CompraRequisicaoController.dcu b/Retaguarda/Comum/Controller/CompraRequisicaoController.dcu
diff --git a/Retaguarda/Comum/Controller/CompraRequisicaoDetalheController.dcu b/Retaguarda/Comum/Controller/CompraRequisicaoDetalheController.dcu
diff --git a/Retaguarda/Comum/Controller/CompraTipoPedidoController.dcu b/Retaguarda/Comum/Controller/CompraTipoPedidoController.dcu
diff --git a/Retaguarda/Comum/Controller/CompraTipoRequisicaoController.dcu b/Retaguarda/Comum/Controller/CompraTipoRequisicaoController.dcu
diff --git a/Retaguarda/Comum/Controller/ContadorController.dcu b/Retaguarda/Comum/Controller/ContadorController.dcu
diff --git a/Retaguarda/Comum/Controller/ControleEstoqueController.dcu b/Retaguarda/Comum/Controller/ControleEstoqueController.dcu
diff --git a/Retaguarda/Comum/Controller/ControleEstoqueController.pas b/Retaguarda/Comum/Controller/ControleEstoqueController.pas
@@ -1,86 +1,85 @@
 { *******************************************************************************
-Title: T2Ti ERP
-Description: Unit que controla o estoque (incremento e decremento)
+  Title: T2Ti ERP
+  Description: Unit que controla o estoque (incremento e decremento)
 
-The MIT License
+  The MIT License
 
-Copyright: Copyright (C) 2014 T2Ti.COM
+  Copyright: Copyright (C) 2014 T2Ti.COM
 
-Permission is hereby granted, free of charge, to any person
-obtaining a copy of this software and associated documentation
-files (the "Software"), to deal in the Software without
-restriction, including without limitation the rights to use,
-copy, modify, merge, publish, distribute, sublicense, and/or sell
-copies of the Software, and to permit persons to whom the
-Software is furnished to do so, subject to the following
-conditions:
+  Permission is hereby granted, free of charge, to any person
+  obtaining a copy of this software and associated documentation
+  files (the "Software"), to deal in the Software without
+  restriction, including without limitation the rights to use,
+  copy, modify, merge, publish, distribute, sublicense, and/or sell
+  copies of the Software, and to permit persons to whom the
+  Software is furnished to do so, subject to the following
+  conditions:
 
-The above copyright notice and this permission notice shall be
-included in all copies or substantial portions of the Software.
+  The above copyright notice and this permission notice shall be
+  included in all copies or substantial portions of the Software.
 
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
-OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
-HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
-WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
-FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-OTHER DEALINGS IN THE SOFTWARE.
+  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+  FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+  OTHER DEALINGS IN THE SOFTWARE.
 
-The author may be contacted at:
-t2ti.com@gmail.com</p>
+  The author may be contacted at:
+  t2ti.com@gmail.com</p>
 
-@author Albert Eije (T2Ti.COM)
-@version 2.0
-******************************************************************************* }
+  @author Albert Eije (T2Ti.COM)
+  @version 2.0
+  ******************************************************************************* }
 unit ControleEstoqueController;
 
 interface
 
 uses
-  Classes, SQLExpr, SysUtils, Generics.Collections, Controller, DBXJSON, DBXCommon,
-  IWSystem;
+  Classes, SQLExpr, SysUtils, Generics.Collections, Controller, DBXJSON,
+  DBXCommon;
+// IWSystem;
 
 type
   TControleEstoqueController = class(TController)
   protected
   public
-    class function AtualizarEstoque(pQuantidade: Extended; pIdProduto: Integer; pIdEmpresa: Integer = 0; pTipoAtualizacaoEstoque: String = ''): Boolean;
+    class function AtualizarEstoque(pQuantidade: Extended; pIdProduto: Integer;
+      pIdEmpresa: Integer = 0; pTipoAtualizacaoEstoque: String = ''): Boolean;
   end;
 
 implementation
 
 uses
   T2TiORM;
 
-class function TControleEstoqueController.AtualizarEstoque(pQuantidade: Extended; pIdProduto: Integer; pIdEmpresa: Integer; pTipoAtualizacaoEstoque: String): Boolean;
+class function TControleEstoqueController.AtualizarEstoque
+  (pQuantidade: Extended; pIdProduto: Integer; pIdEmpresa: Integer;
+  pTipoAtualizacaoEstoque: String): Boolean;
 var
   ComandoSQL: String;
 begin
   try
     if (pTipoAtualizacaoEstoque <> '') and (pTipoAtualizacaoEstoque <> 'D') then
     begin
-      //atualiza tabela PRODUTO
-      ComandoSQL :=
-                    'update PRODUTO ' +
-                    'set QUANTIDADE_ESTOQUE = ' +
-                    'case ' +
-                    'when QUANTIDADE_ESTOQUE is null then ' + FloatToStr(pQuantidade) + ' ' +
-                    'when QUANTIDADE_ESTOQUE is not null then QUANTIDADE_ESTOQUE + ' + FloatToStr(pQuantidade) + ' ' +
-                    'end ' +
-                    'where ID= ' + IntToStr(pIdProduto);
+      // atualiza tabela PRODUTO
+      ComandoSQL := 'update PRODUTO ' + 'set QUANTIDADE_ESTOQUE = ' + 'case ' +
+        'when QUANTIDADE_ESTOQUE is null then ' + FloatToStr(pQuantidade) + ' '
+        + 'when QUANTIDADE_ESTOQUE is not null then QUANTIDADE_ESTOQUE + ' +
+        FloatToStr(pQuantidade) + ' ' + 'end ' + 'where ID= ' +
+        IntToStr(pIdProduto);
     end
     else if pTipoAtualizacaoEstoque = 'D' then
     begin
-      //atualiza tabela EMPRESA_PRODUTO
-      ComandoSQL :=
-                    'update EMPRESA_PRODUTO ' +
-                    'set QUANTIDADE_ESTOQUE = ' +
-                    'case ' +
-                    'when QUANTIDADE_ESTOQUE is null then ' + FloatToStr(pQuantidade) + ' ' +
-                    'when QUANTIDADE_ESTOQUE is not null then QUANTIDADE_ESTOQUE + ' + FloatToStr(pQuantidade) + ' ' +
-                    'end ' +
-                    'where ID_PRODUTO= ' + IntToStr(pIdProduto) + ' and ID_EMPRESA= ' + IntToStr(pIdEmpresa);
+      // atualiza tabela EMPRESA_PRODUTO
+      ComandoSQL := 'update EMPRESA_PRODUTO ' + 'set QUANTIDADE_ESTOQUE = ' +
+        'case ' + 'when QUANTIDADE_ESTOQUE is null then ' +
+        FloatToStr(pQuantidade) + ' ' +
+        'when QUANTIDADE_ESTOQUE is not null then QUANTIDADE_ESTOQUE + ' +
+        FloatToStr(pQuantidade) + ' ' + 'end ' + 'where ID_PRODUTO= ' +
+        IntToStr(pIdProduto) + ' and ID_EMPRESA= ' + IntToStr(pIdEmpresa);
     end;
 
     Result := TT2TiORM.ComandoSQL(ComandoSQL);

diff --git a/Retaguarda/Comum/Controller/CstCofinsController.dcu b/Retaguarda/Comum/Controller/CstCofinsController.dcu
diff --git a/Retaguarda/Comum/Controller/CstIpiController.dcu b/Retaguarda/Comum/Controller/CstIpiController.dcu
diff --git a/Retaguarda/Comum/Controller/CstPisController.dcu b/Retaguarda/Comum/Controller/CstPisController.dcu
diff --git a/Retaguarda/Comum/Controller/DAVController.dcu b/Retaguarda/Comum/Controller/DAVController.dcu
diff --git a/Retaguarda/Comum/Controller/DavDetalheController.dcu b/Retaguarda/Comum/Controller/DavDetalheController.dcu
diff --git a/Retaguarda/Comum/Controller/EfdTabela435Controller.dcu b/Retaguarda/Comum/Controller/EfdTabela435Controller.dcu
diff --git a/Retaguarda/Comum/Controller/EmpresaController.dcu b/Retaguarda/Comum/Controller/EmpresaController.dcu
diff --git a/Retaguarda/Comum/Controller/EstadoCivilController.dcu b/Retaguarda/Comum/Controller/EstadoCivilController.dcu
diff --git a/Retaguarda/Comum/Controller/NFeCalculoController.dcu b/Retaguarda/Comum/Controller/NFeCalculoController.dcu
diff --git a/Retaguarda/Comum/Controller/NcmController.dcu b/Retaguarda/Comum/Controller/NcmController.dcu
diff --git a/Retaguarda/Comum/Controller/NfeCabecalhoController.dcu b/Retaguarda/Comum/Controller/NfeCabecalhoController.dcu
diff --git a/Retaguarda/Comum/Controller/NfeConfiguracaoController.dcu b/Retaguarda/Comum/Controller/NfeConfiguracaoController.dcu
diff --git a/Retaguarda/Comum/Controller/NfeNumeroController.dcu b/Retaguarda/Comum/Controller/NfeNumeroController.dcu
diff --git a/Retaguarda/Comum/Controller/PessoaController.dcu b/Retaguarda/Comum/Controller/PessoaController.dcu
diff --git a/Retaguarda/Comum/Controller/PreVendaController.dcu b/Retaguarda/Comum/Controller/PreVendaController.dcu
diff --git a/Retaguarda/Comum/Controller/PreVendaDetalheController.dcu b/Retaguarda/Comum/Controller/PreVendaDetalheController.dcu
diff --git a/Retaguarda/Comum/Controller/ProdutoController.dcu b/Retaguarda/Comum/Controller/ProdutoController.dcu
diff --git a/Retaguarda/Comum/Controller/ProdutoMarcaController.dcu b/Retaguarda/Comum/Controller/ProdutoMarcaController.dcu
diff --git a/Retaguarda/Comum/Controller/ProdutoSubGrupoController.dcu b/Retaguarda/Comum/Controller/ProdutoSubGrupoController.dcu
diff --git a/Retaguarda/Comum/Controller/SintegraController.dcu b/Retaguarda/Comum/Controller/SintegraController.dcu
diff --git a/Retaguarda/Comum/Controller/SpedFiscalController.dcu b/Retaguarda/Comum/Controller/SpedFiscalController.dcu
diff --git a/Retaguarda/Comum/Controller/TipoReceitaDipiController.dcu b/Retaguarda/Comum/Controller/TipoReceitaDipiController.dcu
diff --git a/Retaguarda/Comum/Controller/TributConfiguraOfGtController.dcu b/Retaguarda/Comum/Controller/TributConfiguraOfGtController.dcu
diff --git a/Retaguarda/Comum/Controller/TributGrupoTributarioController.dcu b/Retaguarda/Comum/Controller/TributGrupoTributarioController.dcu
diff --git a/Retaguarda/Comum/Controller/TributIcmsCustomCabController.dcu b/Retaguarda/Comum/Controller/TributIcmsCustomCabController.dcu
diff --git a/Retaguarda/Comum/Controller/TributOperacaoFiscalController.dcu b/Retaguarda/Comum/Controller/TributOperacaoFiscalController.dcu
diff --git a/Retaguarda/Comum/Controller/UnidadeProdutoController.dcu b/Retaguarda/Comum/Controller/UnidadeProdutoController.dcu
diff --git a/Retaguarda/Comum/Controller/UsuarioController.dcu b/Retaguarda/Comum/Controller/UsuarioController.dcu
diff --git a/Retaguarda/Comum/Controller/VendaCabecalhoController.dcu b/Retaguarda/Comum/Controller/VendaCabecalhoController.dcu
diff --git a/Retaguarda/Comum/Controller/VendedorController.dcu b/Retaguarda/Comum/Controller/VendedorController.dcu
diff --git a/Retaguarda/Comum/Controller/ViewCompraMapaComparativoController.dcu b/Retaguarda/Comum/Controller/ViewCompraMapaComparativoController.dcu
diff --git a/Retaguarda/Comum/Controller/ViewCompraReqItemCotadoController.dcu b/Retaguarda/Comum/Controller/ViewCompraReqItemCotadoController.dcu
diff --git a/Retaguarda/Comum/Controller/ViewPessoaClienteController.dcu b/Retaguarda/Comum/Controller/ViewPessoaClienteController.dcu
diff --git a/Retaguarda/Comum/Controller/ViewPessoaFornecedorController.dcu b/Retaguarda/Comum/Controller/ViewPessoaFornecedorController.dcu
diff --git a/Retaguarda/Comum/Controller/ViewPessoaTransportadoraController.dcu b/Retaguarda/Comum/Controller/ViewPessoaTransportadoraController.dcu
diff --git a/Retaguarda/Comum/Controller/ViewSessaoEmpresaController.dcu b/Retaguarda/Comum/Controller/ViewSessaoEmpresaController.dcu
diff --git a/Retaguarda/Comum/Controller/ViewTributacaoCofinsController.dcu b/Retaguarda/Comum/Controller/ViewTributacaoCofinsController.dcu
diff --git a/Retaguarda/Comum/Controller/ViewTributacaoIcmsController.dcu b/Retaguarda/Comum/Controller/ViewTributacaoIcmsController.dcu
diff --git a/Retaguarda/Comum/Controller/ViewTributacaoIcmsCustomController.dcu b/Retaguarda/Comum/Controller/ViewTributacaoIcmsCustomController.dcu
diff --git a/Retaguarda/Comum/Controller/ViewTributacaoIpiController.dcu b/Retaguarda/Comum/Controller/ViewTributacaoIpiController.dcu
diff --git a/Retaguarda/Comum/Controller/ViewTributacaoIssController.dcu b/Retaguarda/Comum/Controller/ViewTributacaoIssController.dcu
diff --git a/Retaguarda/Comum/Controller/ViewTributacaoPisController.dcu b/Retaguarda/Comum/Controller/ViewTributacaoPisController.dcu
diff --git a/Retaguarda/Comum/Controller/__history/ControleEstoqueController.pas.~1~ b/Retaguarda/Comum/Controller/__history/ControleEstoqueController.pas.~1~
@@ -0,0 +1,91 @@
+{ *******************************************************************************
+Title: T2Ti ERP
+Description: Unit que controla o estoque (incremento e decremento)
+
+The MIT License
+
+Copyright: Copyright (C) 2014 T2Ti.COM
+
+Permission is hereby granted, free of charge, to any person
+obtaining a copy of this software and associated documentation
+files (the "Software"), to deal in the Software without
+restriction, including without limitation the rights to use,
+copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the
+Software is furnished to do so, subject to the following
+conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+OTHER DEALINGS IN THE SOFTWARE.
+
+The author may be contacted at:
+t2ti.com@gmail.com</p>
+
+@author Albert Eije (T2Ti.COM)
+@version 2.0
+******************************************************************************* }
+unit ControleEstoqueController;
+
+interface
+
+uses
+  Classes, SQLExpr, SysUtils, Generics.Collections, Controller, DBXJSON, DBXCommon,
+  IWSystem;
+
+type
+  TControleEstoqueController = class(TController)
+  protected
+  public
+    class function AtualizarEstoque(pQuantidade: Extended; pIdProduto: Integer; pIdEmpresa: Integer = 0; pTipoAtualizacaoEstoque: String = ''): Boolean;
+  end;
+
+implementation
+
+uses
+  T2TiORM;
+
+class function TControleEstoqueController.AtualizarEstoque(pQuantidade: Extended; pIdProduto: Integer; pIdEmpresa: Integer; pTipoAtualizacaoEstoque: String): Boolean;
+var
+  ComandoSQL: String;
+begin
+  try
+    if (pTipoAtualizacaoEstoque <> '') and (pTipoAtualizacaoEstoque <> 'D') then
+    begin
+      //atualiza tabela PRODUTO
+      ComandoSQL :=
+                    'update PRODUTO ' +
+                    'set QUANTIDADE_ESTOQUE = ' +
+                    'case ' +
+                    'when QUANTIDADE_ESTOQUE is null then ' + FloatToStr(pQuantidade) + ' ' +
+                    'when QUANTIDADE_ESTOQUE is not null then QUANTIDADE_ESTOQUE + ' + FloatToStr(pQuantidade) + ' ' +
+                    'end ' +
+                    'where ID= ' + IntToStr(pIdProduto);
+    end
+    else if pTipoAtualizacaoEstoque = 'D' then
+    begin
+      //atualiza tabela EMPRESA_PRODUTO
+      ComandoSQL :=
+                    'update EMPRESA_PRODUTO ' +
+                    'set QUANTIDADE_ESTOQUE = ' +
+                    'case ' +
+                    'when QUANTIDADE_ESTOQUE is null then ' + FloatToStr(pQuantidade) + ' ' +
+                    'when QUANTIDADE_ESTOQUE is not null then QUANTIDADE_ESTOQUE + ' + FloatToStr(pQuantidade) + ' ' +
+                    'end ' +
+                    'where ID_PRODUTO= ' + IntToStr(pIdProduto) + ' and ID_EMPRESA= ' + IntToStr(pIdEmpresa);
+    end;
+
+    Result := TT2TiORM.ComandoSQL(ComandoSQL);
+  finally
+  end;
+end;
+
+end.
diff --git a/Retaguarda/Comum/Conversor.dcu b/Retaguarda/Comum/Conversor.dcu
diff --git a/Retaguarda/Comum/Conversor.pas b/Retaguarda/Comum/Conversor.pas
@@ -2,7 +2,7 @@
 
 interface
 
-uses Classes, DBXJSON, SysUtils;
+uses Classes, DBXJSON, SysUtils, System.JSON;
 
 type
   TConversor = class

diff --git a/Retaguarda/Comum/DataModule/UDataModuleConexao.dcu b/Retaguarda/Comum/DataModule/UDataModuleConexao.dcu
diff --git a/Retaguarda/Comum/DataModule/UDataModuleConexao.dfm b/Retaguarda/Comum/DataModule/UDataModuleConexao.dfm
@@ -1,5 +1,4 @@
 object FDataModuleConexao: TFDataModuleConexao
-  OldCreateOrder = False
   OnCreate = DataModuleCreate
   Height = 150
   Width = 215