From 8e8d3bcc87b7e2e0f382d36833e7e3f90cf6e914 Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 15 Nov 2007 12:55:13 +0000 Subject: [PATCH] Funcionando toda la parte de clientes (Falta repaso detallado) git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@98 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Base/Base.res | Bin 4748 -> 384 bytes Source/Base/Utiles/uDataTableUtils.pas | 13 +- Source/GUIBase/GUIBase.drc | 2 +- .../AlbaranesCliente_controller.drc | 2 +- .../uAlbaranesClienteController.pas | 2 +- .../Data/AlbaranesCliente_data.drc | 2 +- .../Model/AlbaranesCliente_model.drc | 2 +- .../Plugin/AlbaranesCliente_plugin.drc | 2 +- .../Views/AlbaranesCliente_view.drc | 2 +- .../Controller/uArticulosController.pas | 2 +- .../Controller/Contactos_controller.drc | 2 +- .../Controller/uClientesController.pas | 2 - .../Controller/uContactosController.pas | 2 +- .../Modulos/Contactos/Data/Contactos_data.drc | 2 +- .../Contactos/Model/Contactos_model.drc | 2 +- .../Contactos/Plugin/Contactos_plugin.drc | 2 +- .../Contactos/Views/Contactos_view.drc | 2 +- .../Controller/FacturasCliente_controller.drc | 2 +- .../Controller/uFacturasClienteController.pas | 2 +- .../Data/FacturasCliente_data.drc | 2 +- .../Model/FacturasCliente_model.drc | 2 +- .../Plugin/FacturasCliente_plugin.drc | 2 +- .../Views/FacturasCliente_view.drc | 2 +- .../PresupuestosCliente_controller.drc | 2 +- .../uDetallesPresupuestoClienteController.dcu | Bin 10359 -> 10359 bytes .../uPresupuestosClienteController.pas | 2 +- .../Data/PresupuestosCliente_data.drc | 2 +- .../Model/PresupuestosCliente_model.drc | 2 +- .../Plugin/PresupuestosCliente_plugin.drc | 2 +- .../Views/PresupuestosCliente_view.drc | 2 +- .../Controller/uRecibosClienteController.pas | 2 +- .../Data/RecibosCliente_data.drc | 4 +- .../Data/uDataModuleRecibosCliente.dfm | 158 ++- .../Data/uDataModuleRecibosCliente.pas | 9 +- .../Model/schRecibosClienteClient_Intf.pas | 8 +- .../Plugin/RecibosCliente_plugin.drc | 2 +- .../Views/uEditorReciboCliente.dfm | 15 +- .../Views/uEditorReciboCliente.pas | 3 +- .../Views/uViewPagosCliente.dfm | 9 +- .../Views/uViewPagosCliente.pas | 2 +- .../Views/uViewReciboCliente.pas | 3 +- .../Controller/uTiposIVAController.pas | 2 +- .../Tipos de IVA/Data/TiposIVA_data.drc | 2 +- .../Tipos de IVA/Model/TiposIVA_model.drc | 2 +- Source/Servidor/FactuGES_Server.RES | Bin 23216 -> 23208 bytes Source/Servidor/FactuGES_Server.dproj | 301 +++-- Source/Servidor/FactuGES_Server.drc | 1008 ++++++++--------- Source/Servidor/FactuGES_Server.rc | 2 +- 48 files changed, 884 insertions(+), 715 deletions(-) diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Base/Utiles/uDataTableUtils.pas b/Source/Base/Utiles/uDataTableUtils.pas index e485847c..610cafe4 100644 --- a/Source/Base/Utiles/uDataTableUtils.pas +++ b/Source/Base/Utiles/uDataTableUtils.pas @@ -19,10 +19,10 @@ function SetFieldNull(ATarget: TDADataTable; const FieldName: String): Boolean; procedure ConectarTabla (ATarget: TDADataTable); procedure DesconectarTabla (ATarget: TDADataTable); -procedure CopyDataTable(ASource : TDADataTable; ATarget: TDADataTable; +procedure CopyDataTableDA5(ASource : TDADataTable; ATarget: TDADataTable; const OnlySelectedRows : Boolean = False); -procedure CopyDataTable2(ASource : TDADataTable; ATarget : TDADataTable; +procedure CopyDataTableDA3(ASource : TDADataTable; ATarget : TDADataTable; const OnlySelectedRows : Boolean = False); procedure CloneDataTable(const ASource : TDACDSDataTable; @@ -58,11 +58,12 @@ uses Dialogs, Variants, uDBSelectionListUtils, uROClasses, uDADataStreamer, uDABin2DataStreamer; -procedure CopyDataTable(ASource : TDADataTable; +procedure CopyDataTableDA5(ASource : TDADataTable; ATarget: TDADataTable; const OnlySelectedRows : Boolean); var AStream : Binary; + AStream2 : Binary; AFilter : String; AFiltered : Boolean; AObj : ISeleccionable; @@ -113,8 +114,10 @@ begin DesconectarTabla(ATarget); try ASource.SaveToStream(AStream); + AStream2 := AStream.Clone; + // ShowMessage(AStream.ToReadableString); - ATarget.LoadFromStream(AStream.Clone); + ATarget.LoadFromStream(AStream2); ///->>>>>>>>>>>>>>>>>>>>>>>>>>ERRORRRR finally FreeAndNil(AStream); ConectarTabla(ATarget); @@ -434,7 +437,7 @@ begin end; -procedure CopyDataTable2(ASource : TDADataTable; ATarget : TDADataTable; +procedure CopyDataTableDA3(ASource : TDADataTable; ATarget : TDADataTable; const OnlySelectedRows : Boolean = False); var DABin: Binary; diff --git a/Source/GUIBase/GUIBase.drc b/Source/GUIBase/GUIBase.drc index 7da0e03f..4f57aa3b 100644 --- a/Source/GUIBase/GUIBase.drc +++ b/Source/GUIBase/GUIBase.drc @@ -35,4 +35,4 @@ END /* C:\Codigo Tecsitel\Source\GUIBase\uDialogBase.dfm */ /* C:\Codigo Tecsitel\Source\GUIBase\uViewGrid.dfm */ /* C:\Codigo Tecsitel\Source\GUIBase\GUIBase.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf92.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf7A.tmp */ diff --git a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc index dac32877..367beab6 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc +++ b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE6.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfCE.tmp */ diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas index 07d7452b..b5edd05a 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas @@ -828,7 +828,7 @@ var ASeleccionados : IBizAlbaranCliente; begin ASeleccionados := (Self.Buscar(ID_NULO) as IBizAlbaranCliente); - CopyDataTable(AAlbaran.DataTable, ASeleccionados.DataTable, True); + CopyDataTableDA3(AAlbaran.DataTable, ASeleccionados.DataTable, True); Result := ASeleccionados; end; diff --git a/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc b/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc index 8f28ebc5..fb2b7f9e 100644 --- a/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc +++ b/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Data\uDataModuleAlbaranesCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE4.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfCC.tmp */ diff --git a/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc b/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc index 5d7c0fe6..524a6baf 100644 --- a/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc +++ b/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE2.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfCA.tmp */ diff --git a/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc b/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc index bb089d84..615595a5 100644 --- a/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc +++ b/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Plugin\uPluginAlbaranesCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF4.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDC.tmp */ diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc index 5b9aea55..d75911b2 100644 --- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc +++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc @@ -27,4 +27,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranDevCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranDevCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF2.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDA.tmp */ diff --git a/Source/Modulos/Articulos/Controller/uArticulosController.pas b/Source/Modulos/Articulos/Controller/uArticulosController.pas index 9bae29ca..4e87b7f2 100644 --- a/Source/Modulos/Articulos/Controller/uArticulosController.pas +++ b/Source/Modulos/Articulos/Controller/uArticulosController.pas @@ -531,7 +531,7 @@ var ASeleccionados : IBizArticulo; begin ASeleccionados := (Self.Buscar(ID_NULO) as IBizArticulo); - CopyDataTable2(AArticulos.DataTable, ASeleccionados.DataTable, True); + CopyDataTableDA3(AArticulos.DataTable, ASeleccionados.DataTable, True); Result := ASeleccionados; end; diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.drc b/Source/Modulos/Contactos/Controller/Contactos_controller.drc index 4d91f50e..3d13ec8d 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.drc +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Controller\Contactos_controller.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfB8.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA0.tmp */ diff --git a/Source/Modulos/Contactos/Controller/uClientesController.pas b/Source/Modulos/Contactos/Controller/uClientesController.pas index b7ebadf8..e801e726 100644 --- a/Source/Modulos/Contactos/Controller/uClientesController.pas +++ b/Source/Modulos/Contactos/Controller/uClientesController.pas @@ -360,8 +360,6 @@ begin AItem := (FDataModule as IDataModuleClientes).GetItem(AContacto.ID); AItem.DataTable.Active := True; -// CopyDataTable(AContacto.DataTable, AItem.DataTable, True); - CreateEditor('EditorCliente', IEditorCliente, AEditor); with AEditor do begin diff --git a/Source/Modulos/Contactos/Controller/uContactosController.pas b/Source/Modulos/Contactos/Controller/uContactosController.pas index 816fb0a0..6dc0e6f2 100644 --- a/Source/Modulos/Contactos/Controller/uContactosController.pas +++ b/Source/Modulos/Contactos/Controller/uContactosController.pas @@ -181,7 +181,7 @@ var ASeleccionados : IBizContacto; begin ASeleccionados := Self.Buscar(ID_NULO); - CopyDataTable2(AContactos.DataTable, ASeleccionados.DataTable, True); + CopyDataTableDA3(AContactos.DataTable, ASeleccionados.DataTable, True); Result := ASeleccionados; end; diff --git a/Source/Modulos/Contactos/Data/Contactos_data.drc b/Source/Modulos/Contactos/Data/Contactos_data.drc index 24c9caef..d8ec29d8 100644 --- a/Source/Modulos/Contactos/Data/Contactos_data.drc +++ b/Source/Modulos/Contactos/Data/Contactos_data.drc @@ -17,4 +17,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleProveedores.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\Contactos_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfB6.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf9E.tmp */ diff --git a/Source/Modulos/Contactos/Model/Contactos_model.drc b/Source/Modulos/Contactos/Model/Contactos_model.drc index c832339f..bf0b9f28 100644 --- a/Source/Modulos/Contactos/Model/Contactos_model.drc +++ b/Source/Modulos/Contactos/Model/Contactos_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Model\Contactos_model.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfB4.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf9C.tmp */ diff --git a/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc b/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc index 268ce816..08236be0 100644 --- a/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc +++ b/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBC.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA4.tmp */ diff --git a/Source/Modulos/Contactos/Views/Contactos_view.drc b/Source/Modulos/Contactos/Views/Contactos_view.drc index 0e41c7d8..09b03030 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.drc +++ b/Source/Modulos/Contactos/Views/Contactos_view.drc @@ -45,4 +45,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionProveedor.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\Contactos_view.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBA.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA2.tmp */ diff --git a/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc b/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc index e2303f0e..04ffb794 100644 --- a/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc +++ b/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Controller\FacturasCliente_controller.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfEC.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfD4.tmp */ diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index bf9f9d4f..eb5d9ba8 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -828,7 +828,7 @@ var ASeleccionados : IBizFacturaCliente; begin ASeleccionados := (Self.Buscar(ID_NULO) as IBizFacturaCliente); - CopyDataTable(AFacturasCliente.DataTable, ASeleccionados.DataTable, True); + CopyDataTableDA3(AFacturasCliente.DataTable, ASeleccionados.DataTable, True); Result := ASeleccionados; end; diff --git a/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc b/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc index 3c62ca28..cb2a0515 100644 --- a/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc +++ b/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Data\uDataModuleFacturasCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfEA.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfD2.tmp */ diff --git a/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc b/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc index 7a6402c4..1cb53178 100644 --- a/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc +++ b/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE8.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfD0.tmp */ diff --git a/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc b/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc index 3d7ef1de..55089463 100644 --- a/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc +++ b/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\uPluginFacturasCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF8.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE0.tmp */ diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc index 14dccc03..651fc614 100644 --- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc +++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc @@ -22,4 +22,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirArticulosFacturaCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirFacturasCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF6.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDE.tmp */ diff --git a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc index 8a5bd60b..4280c719 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc +++ b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE0.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC8.tmp */ diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu index 0f72b654ce784c0c60f2b5c454c2ceebe9853205..787f8f450f03d9dfa3a1c59dd7db1b4605fa0dc2 100644 GIT binary patch delta 20 bcmew!@I8QAnSnv5T!Vo@HZOl8ca8=CL$3w6 delta 20 bcmew!@I8QAnSnv5T!VqZbY|X0?i>vOMN|d) diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index 02c077b6..f3cd075c 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -592,7 +592,7 @@ var ASeleccionados : IBizPresupuestoCliente; begin ASeleccionados := (Self.Buscar(ID_NULO) as IBizPresupuestoCliente); - CopyDataTable(APresupuesto.DataTable, ASeleccionados.DataTable, True); + CopyDataTableDA3(APresupuesto.DataTable, ASeleccionados.DataTable, True); Result := ASeleccionados; end; diff --git a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc index ed1fe3a3..2d27adef 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc +++ b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\uDataModulePresupuestosCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\PresupuestosCliente_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDE.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC6.tmp */ diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc index 7cafb9b8..4f543e0a 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc +++ b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Model\PresupuestosCliente_model.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDC.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC4.tmp */ diff --git a/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc b/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc index bf992639..f7f05428 100644 --- a/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc +++ b/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Plugin\uPluginPresupuestosCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Plugin\PresupuestosCliente_plugin.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF0.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfD8.tmp */ diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc index 402c9da2..3ff66b0d 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc +++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc @@ -23,4 +23,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\uEditorElegirArticulosPresupuestoCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\uEditorPresupuestosClienteReport.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\PresupuestosCliente_view.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfEE.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfD6.tmp */ diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas index a32d0e71..9404319d 100644 --- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas +++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas @@ -799,7 +799,7 @@ var ASeleccionados : IBizRecibosCliente; begin ASeleccionados := (Self.Buscar(ID_NULO) as IBizRecibosCliente); - CopyDataTable(ARecibosCliente.DataTable, ASeleccionados.DataTable, True); + CopyDataTableDA3(ARecibosCliente.DataTable, ASeleccionados.DataTable, True); Result := ASeleccionados; end; diff --git a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc index 3d03756a..a53314d3 100644 --- a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc +++ b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc @@ -12,6 +12,6 @@ STRINGTABLE BEGIN END -/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.DFM */ +/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.res */ -/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.drf */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBC.tmp */ diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm index b129bbc0..dc90623f 100644 --- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm @@ -119,13 +119,13 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'PagosCliente' IndexDefs = <> - Left = 352 + Left = 288 Top = 88 end object ds_PagosCliente: TDADataSource DataSet = tbl_PagosCliente.Dataset DataTable = tbl_PagosCliente - Left = 352 + Left = 288 Top = 32 end object tbl_RecibosCliente: TDAMemDataTable @@ -316,4 +316,158 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente Left = 168 Top = 32 end + object tbl_RecibosCompensadosCli: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datInteger + InPrimaryKey = True + end + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + end + item + Name = 'REFERENCIA_REC_COMPENSADO' + DataType = datString + Size = 255 + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + end + item + Name = 'SITUACION' + DataType = datString + Size = 9 + end + item + Name = 'ID_FACTURA' + DataType = datInteger + end + item + Name = 'ID_REMESA' + DataType = datInteger + end + item + Name = 'REFERENCIA_REMESA' + DataType = datString + Size = 255 + end + item + Name = 'FECHA_EMISION' + DataType = datDateTime + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + end + item + Name = 'OBSERVACIONES' + DataType = datString + Size = 255 + end + item + Name = 'IMPORTE' + DataType = datCurrency + end + item + Name = 'OTROS_GASTOS' + DataType = datCurrency + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + end + item + Name = 'FORMA_PAGO_FACTURA' + DataType = datString + Size = 255 + end + item + Name = 'IMPORTE_FACTURA' + DataType = datCurrency + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + end + item + Name = 'ID_CLIENTE' + DataType = datInteger + end + item + Name = 'NOMBRE_CLIENTE' + DataType = datString + Size = 255 + end + item + Name = 'NIF_CIF_CLIENTE' + DataType = datString + Size = 15 + end + item + Name = 'ENTIDAD_CLIENTE' + DataType = datString + Size = 15 + end + item + Name = 'SUCURSAL_CLIENTE' + DataType = datString + Size = 15 + end + item + Name = 'DC_CLIENTE' + DataType = datString + Size = 15 + end + item + Name = 'CUENTA_CLIENTE' + DataType = datString + Size = 15 + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + end + item + Name = 'USUARIO' + DataType = datString + Size = 30 + end> + Params = <> + MasterMappingMode = mmWhere + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_RecibosCliente + MasterSource = ds_RecibosCliente + MasterFields = 'ID' + DetailFields = 'ID_RECIBO_COMPENSADO' + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'RecibosCompensadosCli' + IndexDefs = <> + Left = 416 + Top = 88 + end + object ds_RecibosCompensadosCli: TDADataSource + DataSet = tbl_RecibosCompensadosCli.Dataset + DataTable = tbl_RecibosCompensadosCli + Left = 416 + Top = 32 + end end diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas index de8f6be1..ce79f6ab 100644 --- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas @@ -44,6 +44,8 @@ type ds_PagosCliente: TDADataSource; tbl_RecibosCliente: TDAMemDataTable; ds_RecibosCliente: TDADataSource; + tbl_RecibosCompensadosCli: TDAMemDataTable; + ds_RecibosCompensadosCli: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); protected function _GetPagos: IBizPagosCliente; @@ -100,7 +102,7 @@ function TDataModuleRecibosCliente._GetRecibosCompensados: IBizRecibosCompensado var ARecibosCompensados : TDAMemDataTable; begin -{ ShowHourglassCursor; + ShowHourglassCursor; try ARecibosCompensados := CloneDataTable(tbl_RecibosCompensadosCli); with ARecibosCompensados do @@ -112,7 +114,6 @@ begin finally HideHourglassCursor; end; -} end; function TDataModuleRecibosCliente.GetItems: IBizRecibosCliente; @@ -127,8 +128,8 @@ begin with TBizRecibosCliente(AIBizRecibosCliente.BusinessEventsObj) do Pagos := _GetPagos; -// with TBizRecibosCliente(AIBizRecibosCliente.BusinessEventsObj) do -// RecibosCompensados := _GetRecibosCompensados; + with TBizRecibosCliente(AIBizRecibosCliente.BusinessEventsObj) do + RecibosCompensados := _GetRecibosCompensados; Result := (AIBizRecibosCliente as IBizRecibosCliente); finally diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas index 1d973c41..7691331d 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas @@ -3,7 +3,7 @@ unit schRecibosClienteClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids @@ -355,7 +355,7 @@ type end; { TRecibosClienteDataTableRules } - TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente) + TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente) private protected { Property getters and setters } @@ -624,7 +624,7 @@ type end; { TPagosClienteDataTableRules } - TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente) + TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente) private protected { Property getters and setters } @@ -893,7 +893,7 @@ type end; { TRecibosCompensadosCliDataTableRules } - TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli) + TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli) private protected { Property getters and setters } diff --git a/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc index 361c1225..b7f90143 100644 --- a/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc +++ b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\uPluginRecibosCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.res */ -/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.drf */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC2.tmp */ diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm index 44a52704..205e5501 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm @@ -3,9 +3,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente ClientHeight = 530 ClientWidth = 691 OnClose = CustomEditorClose - ExplicitTop = -110 ExplicitWidth = 699 - ExplicitHeight = 564 + ExplicitHeight = 557 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -271,6 +270,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente inherited ToolBar1: TToolBar Width = 683 ExplicitWidth = 683 + inherited ToolButton1: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 113 + end inherited ToolButton3: TToolButton ExplicitWidth = 98 end diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas index 84e34ca3..1af39a13 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas @@ -10,7 +10,8 @@ uses pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorReciboCliente, uCustomView, uViewBase, uViewReciboCliente, uRecibosClienteController, uBizRecibosCliente, uViewPagosCliente, dxLayoutLookAndFeels, cxCustomData, - uViewDetallesGenerico, uViewReciboCliImportes, uViewRecibosCliCompensados; + uViewDetallesGenerico, uViewReciboCliImportes, uViewRecibosCliCompensados, + uDAInterfaces; type TfEditorReciboCliente = class(TfEditorDBItem, IEditorReciboCliente) diff --git a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm index 92b4ba8d..e302aad6 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm @@ -52,19 +52,19 @@ inherited frViewPagosCliente: TfrViewPagosCliente Transparent = True object ToolButton1: TToolButton Left = 0 - Top = 2 + Top = 0 Action = actAnadir AutoSize = True end object ToolButton4: TToolButton Left = 62 - Top = 2 + Top = 0 Action = actModificar AutoSize = True end object ToolButton5: TToolButton Left = 136 - Top = 2 + Top = 0 Width = 8 Caption = 'ToolButton5' ImageIndex = 2 @@ -72,7 +72,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente end object ToolButton2: TToolButton Left = 144 - Top = 2 + Top = 0 Action = actEliminar AutoSize = True end @@ -209,6 +209,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente end end object DADataSource: TDADataSource + DataSet = tbl_PagosCliente.Dataset DataTable = DataModuleRecibosCliente.tbl_PagosCliente Left = 8 Top = 8 diff --git a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas index fb2d23b6..82d7a07e 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas @@ -11,7 +11,7 @@ uses cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid, uBizPagosCliente, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, cxImageComboBox, dxLayoutLookAndFeels, ImgList, - PngImageList, ComCtrls, ToolWin; + PngImageList, ComCtrls, ToolWin, uDAInterfaces; type IViewPagosCliente = interface(IViewBase) diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas index 43826745..0bba6e79 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas @@ -6,7 +6,8 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uViewBase, uBizRecibosCliente, DB, uDADataTable, dxLayoutControl, cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit, - cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls; + cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls, + uDAInterfaces; type IViewReciboCliente = interface(IViewBase) diff --git a/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas b/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas index 3e81fad9..aa4279ff 100644 --- a/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas +++ b/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas @@ -312,7 +312,7 @@ var ASeleccionados : IBizTipoIVA; begin ASeleccionados := (Self.Buscar(ID_NULO) as IBizTipoIVA); - CopyDataTable2(ATipoIVA.DataTable, ASeleccionados.DataTable, True); + CopyDataTableDA3(ATipoIVA.DataTable, ASeleccionados.DataTable, True); Result := ASeleccionados; end; diff --git a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc index e0738217..7bc4a1f2 100644 --- a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc +++ b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\uDataModuleTiposIVA.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\TiposIVA_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA2.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf8A.tmp */ diff --git a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc index 8b4d2ef2..734a09f7 100644 --- a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc +++ b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Model\TiposIVA_model.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA0.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf88.tmp */ diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index ad97f2d45c51dd6c41538e1021bbf4ce46e9939b..069bcc1593e8dab5e72f1536c02f5d421a2787b2 100644 GIT binary patch delta 77 zcmdn6m2t&Z#tnBO7}rd`8zB!Q|3*YJ@=T75RAziJxi+$zIfp@Q^6yAl;VgzyhE#?! fATDOmVNhT&WH6m<7^Tl{%wWY}!eBl*Gs+zRVSyMZ delta 85 zcmZ3nm2m?Q-HBk_GWl+VJdpew5zQzxIWkh2@!jOw$ZF;y2F=O8BV{FX88R7OG88c+ nGvqVmFr+dRGw3iVFc>nJOxBLl=d@(7VlZGZXJD9|808KCL}wZO diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 604ba7a1..5b9756f8 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,155 +1,154 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - - - Delphi.Personality - - -FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0domingo, 30 de septiembre de 2007 20:47 - - RemObjects Pascal Script - RemObjects SDK 3.0 Integration - FactuGES_Server.dpr - - - - - MainSource - - - - -
srvEmpresas
- TDARemoteService - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - - - - - - - -
srvContactos
- TDARemoteService - - - - -
srvFacturasCliente
- TDataAbstractService - - - - - - - - - - - -
RptPresupuestosCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
srvRecibosCliente
- TDataAbstractService - - - - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + + + Delphi.Personality + + + FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0domingo, 30 de septiembre de 2007 20:47 + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + FactuGES_Server.dpr + + + + + MainSource + + + + +
srvEmpresas
+ TDARemoteService + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + + + + + + + +
srvContactos
+ TDARemoteService + + + + +
srvFacturasCliente
+ TDataAbstractService + + + + + + + + + + + +
RptPresupuestosCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
srvRecibosCliente
+ TDataAbstractService + + + + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + +