diff --git a/Build/Build.fbp5 b/Build/Build.fbp5 index 78ffa941..16442548 100644 --- a/Build/Build.fbp5 +++ b/Build/Build.fbp5 @@ -5035,7 +5035,7 @@ Comments= False False - False + True True False False @@ -5045,7 +5045,7 @@ Comments= False False False - 3081 + 3082 1 0 @@ -5068,7 +5068,16 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -7607,7 +7616,7 @@ Comments= False False - False + True True False False @@ -7617,7 +7626,7 @@ Comments= False False False - 3081 + 3082 1 0 @@ -7640,7 +7649,16 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -9014,6 +9032,385 @@ Comments= + + + + 0 + + + + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 1 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 1 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + @@ -9645,6 +10042,403 @@ Comments= + + + + 0 + + + + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + Logística @@ -10471,791 +11265,6 @@ Comments= - - - - 0 - - - - True - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - 0 - - True - False - False - True - True - 0 - 1252 - 12 - Release - False - - - True - True - - False - - False - False - False - True - False - False - False - False - False - False - False - False - 3081 - - 1 - 0 - 0 - False - 0 - - - True - 0 - - - rcBorland - 1000 - - False - False - False - False - [usPackages,usCompiler,usLinker,usVersionInfo] - False - False - - - - False - False - False - False - True - True - False - False - %package_path% - - - - False - %modules_dcp_path% - False - - False - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - False - 3 - 1048576 - 16384 - - True - True - %output_path% - False - - False - fa8 - False - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 12 - Release - False - - - True - True - - False - - False - False - False - True - False - False - False - False - False - False - False - False - 3081 - - 1 - 0 - 0 - False - 0 - - - True - 0 - - - rcBorland - 1000 - - False - False - False - False - [usPackages,usCompiler,usLinker,usVersionInfo] - False - False - - - - False - False - False - False - True - True - False - False - %package_path% - - - - False - %modules_dcp_path% - False - - False - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - False - 3 - 1048576 - 16384 - - True - True - %output_path% - False - - False - fa8 - False - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 12 - Release - False - - - True - True - - False - - False - False - True - True - False - False - False - False - False - False - False - False - 3082 - - 1 - 0 - 0 - False - 0 - - - True - 0 - - - rcBorland - 1000 - - False - False - False - False - [usPackages,usCompiler,usLinker,usVersionInfo] - False - False - - - - False - False - False - False - True - True - False - False - %package_path% - - - - False - %modules_dcp_path% - False - - False - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - False - 3 - 1048576 - 16384 - - True - True - %output_path% - False - - False - fa8 - False - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - - - 0 - - - - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - - False - False - False - True - False - False - False - False - False - False - False - False - 3081 - - 0 - 0 - 0 - False - 0 - - - True - 0 - - - rcBorland - 1000 - - False - False - False - False - [] - False - False - - - - False - False - False - True - True - True - False - False - %package_path% - - - - False - %modules_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path% - False - - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - - False - False - False - True - False - False - False - False - False - False - False - False - 3081 - - 0 - 0 - 0 - False - 0 - - - True - 0 - - - rcBorland - 1000 - - False - False - False - False - [] - False - False - - - - False - False - False - True - True - True - False - False - %package_path% - - - - False - %modules_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path% - False - - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - - False - False - False - True - False - False - False - False - False - False - False - False - 3081 - - 0 - 0 - 0 - False - 0 - - - True - 0 - - - rcBorland - 1000 - - False - False - False - False - [] - False - False - - - - False - False - False - True - True - True - False - False - %package_path% - - - - False - %modules_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path% - False - - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - Relaciones @@ -15140,12 +15149,12 @@ Comments= True 0 1252 - 11 + 12 Release False - False + True True False @@ -15182,7 +15191,7 @@ Comments= False False False - [] + [usPackages,usCompiler,usLinker,usVersionInfo] False False False False False - True + False True True False @@ -15232,7 +15241,7 @@ Comments= %library_path% 0 True - 0 + 3 1048576 16384 @@ -15269,12 +15278,12 @@ Comments= True 0 1252 - 11 + 12 Release False - False + True True False @@ -15311,7 +15320,7 @@ Comments= False False False - [] + [usPackages,usCompiler,usLinker,usVersionInfo] False False False False False - True + False True True False @@ -15361,7 +15370,7 @@ Comments= %library_path% 0 True - 0 + 3 1048576 16384 diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index f3588d42..ac85e14e 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,13 +44,6 @@ Package FalseTrueFalseLibreria base de FactuGESTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - - - - - VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -65,57 +58,57 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas index be5b59a7..73e44e34 100644 --- a/Source/Cliente/uBootStrap.pas +++ b/Source/Cliente/uBootStrap.pas @@ -36,9 +36,9 @@ begin LoadModule('PedidosProveedor_plugin.bpl'); LoadModule('AlbaranesProveedor_plugin.bpl'); - - LoadModule('RecibosProveedor_plugin.bpl'); + LoadModule('RecibosProveedor_plugin.bpl'); + LoadModule('FacturasProveedor_plugin.bpl'); end; end; diff --git a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.identcache b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.identcache index fcb70591..30b32fc5 100644 Binary files a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.identcache and b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.identcache differ diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm index 08bbfa22..667de217 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm @@ -120,12 +120,6 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor Left = 239 ExplicitLeft = 239 end - inherited Button1: TBitBtn - OnClick = frViewProveedorAlbaranButton1Click - end - inherited Button2: TBitBtn - OnClick = frViewProveedorAlbaranButton2Click - end inherited Button3: TBitBtn Left = 123 ExplicitLeft = 123 diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas index e0c80218..4e871317 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas @@ -12,7 +12,8 @@ uses cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo, uViewDireccionEntregaAlbaranProv, Buttons, ActnList, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, - uBizPedidosProveedor, uPedidosProveedorController; + uBizPedidosProveedor, uPedidosProveedorController, uBizFormasPago, + uDAInterfaces; type IViewAlbaranProveedor = interface(IViewBase) @@ -82,6 +83,7 @@ type protected FAlbaran : IBizAlbaranProveedor; FViewProveedorAlbaran : TfrViewDatosYSeleccionProveedor; + FFormasPago : IBizFormaPago; FFormasPagoController : IFormasPagoController; FPedidoAsociado : IBizPedidoProveedor; FPedidoController : IPedidosProveedorController; @@ -104,7 +106,7 @@ implementation uses uProveedoresController, uBizDireccionesContacto, uAlbaranesProveedorController, - uBizFormasPago, schAlbaranesProveedorClient_Intf; + schAlbaranesProveedorClient_Intf; procedure TfrViewAlbaranProveedor.actElegirDireccionExecute(Sender: TObject); @@ -159,14 +161,16 @@ end; procedure TfrViewAlbaranProveedor.bFormasPagoClick(Sender: TObject); begin inherited; - FFormasPagoController.VerTodos((dsFormaPago.DataTable) as IBizFormaPago); + if Assigned(FFormasPago) then + FFormasPagoController.VerTodos(FFormasPago); end; procedure TfrViewAlbaranProveedor.CustomViewCreate(Sender: TObject); begin inherited; FPedidoAsociado := NIL; - FPedidoController := TPedidosProveedorController.Create; + FPedidoController := TPedidosProveedorController.Create; + FFormasPago := Nil; FFormasPagoController := TFormasPagoController.Create; FViewProveedorAlbaran := frViewProveedorAlbaran; FViewProveedorAlbaran.MsgElegirProveedor := 'Elija el proveedor de este albarán.'; @@ -177,6 +181,7 @@ end; procedure TfrViewAlbaranProveedor.CustomViewDestroy(Sender: TObject); begin FPedidoController := NIL; + FFormasPago := Nil; FFormasPagoController := NIL; FPedidoAsociado := NIL; FViewProveedorAlbaran := Nil; @@ -233,8 +238,11 @@ begin if Assigned(FAlbaran) then begin DADataSource.DataTable := FAlbaran.DataTable; - dsFormaPago.DataTable := FFormasPagoController.BuscarTodos.DataTable; + + FFormasPago := FFormasPagoController.BuscarTodos; + dsFormaPago.DataTable := FFormasPago.DataTable; dsFormaPago.DataTable.Active := True; + frViewProveedorAlbaran.Proveedor := FAlbaran.Proveedor; frViewDireccionEntregaAlbaranProv1.AlbaranProveedor := FAlbaran; diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.identcache b/Source/Modulos/Contactos/Controller/Contactos_controller.identcache index 2ac351aa..eb5f1875 100644 Binary files a/Source/Modulos/Contactos/Controller/Contactos_controller.identcache and b/Source/Modulos/Contactos/Controller/Contactos_controller.identcache differ diff --git a/Source/Modulos/Contactos/Views/Contactos_view.identcache b/Source/Modulos/Contactos/Views/Contactos_view.identcache index 75324b6a..9a87d2bd 100644 Binary files a/Source/Modulos/Contactos/Views/Contactos_view.identcache and b/Source/Modulos/Contactos/Views/Contactos_view.identcache differ diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm index ad84dcdf..ef350f91 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm @@ -1,6 +1,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente - Width = 754 - Height = 333 + Width = 451 + Height = 304 Align = alClient OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy @@ -9,18 +9,16 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 754 - Height = 333 + Width = 451 + Height = 304 Align = alClient ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 - ExplicitWidth = 451 - ExplicitHeight = 304 DesignSize = ( - 754 - 333) + 451 + 304) object eReferencia: TcxDBTextEdit Left = 124 Top = 30 @@ -81,7 +79,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 301 end inline frViewClienteFactura: TfrViewDatosYSeleccionCliente - Left = 393 + Left = 310 Top = 30 Width = 314 Height = 215 @@ -93,7 +91,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente ParentFont = False TabOrder = 5 ReadOnly = False - ExplicitLeft = 393 + ExplicitLeft = 310 ExplicitTop = 30 ExplicitWidth = 314 ExplicitHeight = 215 @@ -128,13 +126,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 327 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 247 + Left = 192 DataBinding.DataSource = DADataSource - ExplicitLeft = 247 + ExplicitLeft = 192 end inherited Button3: TBitBtn - Left = 137 - ExplicitLeft = 137 + Left = 82 + ExplicitLeft = 82 end end end @@ -170,7 +168,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 78 end object bFormasPago: TButton - Left = 233 + Left = 150 Top = 84 Width = 132 Height = 23 diff --git a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk index fef85d36..3c5addee 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk +++ b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk @@ -22,28 +22,17 @@ package FacturasProveedor_controller; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - dbrtl, - cxLibraryD10, - dxThemeD10, - dsnap, - vcldb, - adortl, - GUIBase, - ControllerBase, - Usuarios, - Contactos_controller, - Articulos_controller, - FormasPago_controller, FacturasProveedor_model, FacturasProveedor_data, - RecibosProveedor_controller, + Contactos_controller, + Articulos_controller, + AlbaranesProveedor_model, AlbaranesProveedor_controller, - AlbaranesProveedor_model; + RecibosProveedor_controller, + FormasPago_controller; contains uFacturasProveedorController in 'uFacturasProveedorController.pas', diff --git a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj index 430a839c..c1bd8f33 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj +++ b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj @@ -36,78 +36,26 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - FacturasProveedor_controller.dpk - - +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0FacturasProveedor_controller.dpk - + MainSource - - - - - - - - - - - - - - - - - - - + + + + + + + + @@ -117,5 +65,488 @@ - - \ No newline at end of file + + + diff --git a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.rc b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.rc +++ b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.res b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.res and b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.res differ diff --git a/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas index d0314270..f63870ce 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas @@ -20,7 +20,6 @@ type private FDataModule : IDataModuleFacturasProveedor; protected - procedure AsignarDatos(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer); override; procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); overload; override; procedure RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override; @@ -90,19 +89,6 @@ begin FArticulosController := TArticulosFacturaProveedorController.Create; end; -procedure TDetallesFacturaProveedorController.AsignarDatos(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer); -begin - inherited; - - with (ADetalles as IBizDetallesFacturaProveedor) do - begin - Edit; - ID := FDataModule.GetNextID(DataTable.LogicalName); - ID_FACTURA := IDCabecera; - Post - end; -end; - function TDetallesFacturaProveedorController.CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; begin Result := CalcularLineaConcepto(DataTable); diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 365909f8..d392b2bd 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -61,7 +61,6 @@ type function GetDetallesController: IDetallesFacturaProveedorController; procedure SetDetallesController(const Value: IDetallesFacturaProveedorController); - procedure AsignarID(AFactura: IBizFacturaProveedor; const IDNuevo : Integer); function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean; function _Vacio : IBizFacturaProveedor; @@ -410,28 +409,6 @@ begin AFactura.TIPO := CTE_TIPO_ABONO; end; -procedure TFacturasProveedorController.AsignarID(AFactura: IBizFacturaProveedor; const IDNuevo: Integer); -begin - if not Assigned(AFactura) then - raise Exception.Create ('Factura no asignada'); - - if not Assigned(AFactura.Detalles) then - raise Exception.Create ('Detalles de factura no asignados'); - - if not Assigned(FDetallesController) then - raise Exception.Create ('Controller detalles no asignado'); - - { Los detalles siempre hay que comprobarlos } - FDetallesController.AsignarID(AFactura.Detalles, IDNuevo, AFactura.EsNuevo); - - if AFactura.EsNuevo then - begin - AFactura.Edit; - AFactura.ID := IDNuevo; - AFactura.Post; - end; -end; - function TFacturasProveedorController.Buscar(const ID: Integer): IBizFacturaProveedor; begin Result := (FDataModule as IDataModuleFacturasProveedor).GetItem(ID); @@ -557,8 +534,8 @@ begin Result.Edit; with Result do begin - ID_EMPRESA := dmUsuarios.IDEmpresaActual; - USUARIO := dmUsuarios.LoginInfo.Usuario; + ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; +// USUARIO := dmUsuarios.LoginInfo.Usuario; REFERENCIA := ''; //Para que se asigne una nueva SITUACION := CTE_PENDIENTE; //Una factura nueva debe estar pendiente FECHA_FACTURA := DateOf(Now); @@ -611,7 +588,7 @@ begin en MODIFICACIÓN como en INSERCIÓN. } AFactura.Edit; try - AFactura.USUARIO := dmUsuarios.LoginInfo.Usuario; +// AFactura.USUARIO := dmUsuarios.LoginInfo.Usuario; if Assigned(AFactura.Proveedor) and (AFactura.ID_Proveedor <> AFactura.Proveedor.ID) then @@ -866,12 +843,13 @@ begin AFactura.DataTable.Active := False; // Filtrar las facturas actuales por empresa - with AFactura.DataTable.Where do +{ with AFactura.DataTable.Where do begin if NotEmpty then AddOperator(opAND); AddCondition(fld_FacturasProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual); end; +} end; procedure TFacturasProveedorController.SetProveedorController(const Value: IProveedoresController); @@ -904,13 +882,6 @@ begin RecalcularImportes(AFactura); try - if (AFactura.EsNuevo) then - IDNuevo := FDataModule.GetNextID(AFactura.DataTable.LogicalName) - else - IDNuevo := AFactura.ID; - - AsignarID(AFactura, IDNuevo); - AFactura.DataTable.ApplyUpdates; //Se generan los recibos automáticamente a partir de la forma de pago diff --git a/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.dpk b/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.dpk index 0350aad4..ba45f5cc 100644 --- a/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.dpk +++ b/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.dpk @@ -22,17 +22,11 @@ package FacturasProveedor_data; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - dbrtl, - dsnap, - vcldb, - vcl, - adortl, - Contactos_model, - FacturasProveedor_model; + FacturasProveedor_model, + Base; contains uDataModuleFacturasProveedor in 'uDataModuleFacturasProveedor.pas' {DataModuleFacturasProveedor: TDAClientDataModule}; diff --git a/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.dproj b/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.dproj index 33d1c14d..5d94bae9 100644 --- a/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.dproj +++ b/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.dproj @@ -36,71 +36,506 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - FacturasProveedor_data.dpk - - +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0FacturasProveedor_data.dpk - + MainSource - - - - - - - - + +
DataModuleFacturasProveedor
TDAClientDataModule - - \ No newline at end of file + + diff --git a/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.rc b/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.rc +++ b/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.res b/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.res and b/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.res differ diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm index 9f645a85..7c57819a 100644 --- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm @@ -3,31 +3,49 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor Height = 246 Width = 518 object RORemoteService: TRORemoteService + Message = dmConexion.ROMessage + Channel = dmConexion.ROChannel ServiceName = 'srvFacturasProveedor' Left = 48 Top = 24 end - object tbl_FacturasProveedor: TDACDSDataTable + object Bin2DataStreamer: TDABin2DataStreamer + Left = 48 + Top = 84 + end + object rda_FacturasProveedor: TDARemoteDataAdapter + GetSchemaCall.RemoteService = RORemoteService + GetDataCall.RemoteService = RORemoteService + UpdateDataCall.RemoteService = RORemoteService + GetScriptsCall.RemoteService = RORemoteService + RemoteService = RORemoteService + DataStreamer = Bin2DataStreamer + Left = 51 + Top = 151 + end + object tbl_FacturasProveedor: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc + GeneratorName = 'GEN_FACTURAS_PROVEEDOR_ID' Required = True - DictionaryEntry = 'FacturasCliente_ID' + ServerAutoRefresh = True + DictionaryEntry = 'FacturasProveedor_ID' InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger - DictionaryEntry = 'FacturasCliente_ID_EMPRESA' + DictionaryEntry = 'FacturasProveedor_ID_EMPRESA' end item Name = 'REFERENCIA' DataType = datString Size = 20 DisplayLabel = 'Referencia' - DictionaryEntry = 'FacturasCliente_REFERENCIA' + DictionaryEntry = 'FacturasProveedor_REFERENCIA' end item Name = 'TIPO' @@ -46,74 +64,74 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor Name = 'FECHA_FACTURA' DataType = datDateTime DisplayLabel = 'Fecha de las factura' - DictionaryEntry = 'FacturasCliente_FECHA_FACTURA' + DictionaryEntry = 'FacturasProveedor_FECHA_FACTURA' end item Name = 'SITUACION' DataType = datString Size = 255 - DisplayLabel = 'Situaci'#243'n' - DictionaryEntry = 'FacturasCliente_SITUACION' + DisplayLabel = 'Situaci'#195#179'n' + DictionaryEntry = 'FacturasProveedor_SITUACION' end item Name = 'BASE_IMPONIBLE' DataType = datCurrency DisplayLabel = 'Base imponible' Alignment = taRightJustify - DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE' + DictionaryEntry = 'FacturasProveedor_BASE_IMPONIBLE' end item Name = 'DESCUENTO' DataType = datFloat DisplayLabel = 'Dto.' Alignment = taRightJustify - DictionaryEntry = 'FacturasCliente_DESCUENTO' + DictionaryEntry = 'FacturasProveedor_DESCUENTO' end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency DisplayLabel = 'Importe dto.' Alignment = taRightJustify - DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO' + DictionaryEntry = 'FacturasProveedor_IMPORTE_DESCUENTO' end item Name = 'IVA' DataType = datFloat Alignment = taRightJustify - DictionaryEntry = 'FacturasCliente_IVA' + DictionaryEntry = 'FacturasProveedor_IVA' end item Name = 'IMPORTE_IVA' DataType = datCurrency DisplayLabel = 'Importe IVA' Alignment = taRightJustify - DictionaryEntry = 'FacturasCliente_IMPORTE_IVA' + DictionaryEntry = 'FacturasProveedor_IMPORTE_IVA' end item Name = 'RE' DataType = datFloat Alignment = taRightJustify - DictionaryEntry = 'FacturasCliente_RE' + DictionaryEntry = 'FacturasProveedor_RE' end item Name = 'IMPORTE_RE' DataType = datCurrency DisplayLabel = 'Importe RE' Alignment = taRightJustify - DictionaryEntry = 'FacturasCliente_IMPORTE_RE' + DictionaryEntry = 'FacturasProveedor_IMPORTE_RE' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify - DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL' + DictionaryEntry = 'FacturasProveedor_IMPORTE_TOTAL' end item Name = 'OBSERVACIONES' DataType = datMemo DisplayLabel = 'Observaciones' - DictionaryEntry = 'FacturasCliente_OBSERVACIONES' + DictionaryEntry = 'FacturasProveedor_OBSERVACIONES' end item Name = 'ID_PROVEEDOR' @@ -126,70 +144,70 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor DataType = datString Size = 15 DisplayLabel = 'NIF/CIF' - DictionaryEntry = 'FacturasCliente_NIF_CIF' + DictionaryEntry = 'FacturasProveedor_NIF_CIF' end item Name = 'NOMBRE' DataType = datString Size = 100 DisplayLabel = 'Cliente' - DictionaryEntry = 'FacturasCliente_NOMBRE' + DictionaryEntry = 'FacturasProveedor_NOMBRE' end item Name = 'CALLE' DataType = datString Size = 150 - DisplayLabel = 'Direcci'#243'n' - DictionaryEntry = 'FacturasCliente_CALLE' + DisplayLabel = 'Direcci'#195#179'n' + DictionaryEntry = 'FacturasProveedor_CALLE' end item Name = 'POBLACION' DataType = datString Size = 150 - DisplayLabel = 'Poblaci'#243'n' - DictionaryEntry = 'FacturasCliente_POBLACION' + DisplayLabel = 'Poblaci'#195#179'n' + DictionaryEntry = 'FacturasProveedor_POBLACION' end item Name = 'PROVINCIA' DataType = datString Size = 30 DisplayLabel = 'Provincia' - DictionaryEntry = 'FacturasCliente_PROVINCIA' + DictionaryEntry = 'FacturasProveedor_PROVINCIA' end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 - DisplayLabel = 'C'#243'd. postal' - DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL' + DisplayLabel = 'C'#195#179'd. postal' + DictionaryEntry = 'FacturasProveedor_CODIGO_POSTAL' end item Name = 'FECHA_ALTA' DataType = datDateTime - DictionaryEntry = 'FacturasCliente_FECHA_ALTA' + DictionaryEntry = 'FacturasProveedor_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime - DictionaryEntry = 'FacturasCliente_FECHA_MODIFICACION' + DictionaryEntry = 'FacturasProveedor_FECHA_MODIFICACION' end item Name = 'USUARIO' DataType = datString Size = 100 - DictionaryEntry = 'FacturasCliente_USUARIO' + DictionaryEntry = 'FacturasProveedor_USUARIO' end item Name = 'ID_FORMA_PAGO' DataType = datInteger - DisplayLabel = 'FacturasCliente_ID_FORMA_PAGO' - DictionaryEntry = 'FacturasCliente_ID_FORMA_PAGO' + DisplayLabel = 'FacturasProveedor_ID_FORMA_PAGO' + DictionaryEntry = 'FacturasProveedor_ID_FORMA_PAGO' end item Name = 'RECARGO_EQUIVALENCIA' DataType = datInteger - DisplayLabel = #191'Con R.E.?' - DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA' + DisplayLabel = #194#191'Con R.E.?' + DictionaryEntry = 'FacturasProveedor_RECARGO_EQUIVALENCIA' end item Name = 'ID_TIPO_IVA' @@ -201,98 +219,93 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor DataType = datCurrency DisplayLabel = 'Importe neto' Alignment = taRightJustify - DictionaryEntry = 'FacturasCliente_IMPORTE_NETO' + DictionaryEntry = 'FacturasProveedor_IMPORTE_NETO' end item Name = 'IMPORTE_PORTE' DataType = datCurrency DisplayLabel = 'Importe del porte' Alignment = taRightJustify - DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE' - end - item - Name = 'FECHA_VENCIMIENTO' - DataType = datDateTime - LogChanges = False - DisplayLabel = 'Fecha de vencimiento' - DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO' - Calculated = True + DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE' end> Params = <> - MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_FacturasProveedor DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'FacturasProveedor' IndexDefs = <> - Left = 224 - Top = 160 + Left = 208 + Top = 112 end object ds_FacturasProveedor: TDADataSource DataSet = tbl_FacturasProveedor.Dataset DataTable = tbl_FacturasProveedor - Left = 224 - Top = 104 + Left = 208 + Top = 48 end - object tbl_FacturasProveedor_Detalles: TDACDSDataTable + object tbl_FacturasProveedor_Detalles: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc + GeneratorName = 'GEN_FACTURA_PROV_DETALLES_ID' Required = True - DictionaryEntry = 'FacturasCliente_Detalles_ID' + ServerAutoRefresh = True + DictionaryEntry = 'FacturasProveedor_Detalles_ID' InPrimaryKey = True end item Name = 'ID_FACTURA' DataType = datInteger - DictionaryEntry = 'FacturasCliente_Detalles_ID_FACTURA' + DictionaryEntry = 'FacturasProveedor_Detalles_ID_FACTURA' end item Name = 'POSICION' DataType = datInteger - DisplayLabel = 'Posici'#243'n' - DictionaryEntry = 'FacturasCliente_Detalles_POSICION' + DisplayLabel = 'Posici'#195#179'n' + DictionaryEntry = 'FacturasProveedor_Detalles_POSICION' end item Name = 'TIPO_DETALLE' DataType = datString Size = 10 DisplayLabel = 'Tipo detalle' - DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE' + DictionaryEntry = 'FacturasProveedor_Detalles_TIPO_DETALLE' end item Name = 'CONCEPTO' DataType = datString Size = 2000 DisplayLabel = 'Concepto' - DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO' + DictionaryEntry = 'FacturasProveedor_Detalles_CONCEPTO' end item Name = 'CANTIDAD' DataType = datInteger DisplayLabel = 'Cantidad' - DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' + DictionaryEntry = 'FacturasProveedor_Detalles_CANTIDAD' end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency DisplayLabel = 'Importe unidad' Alignment = taRightJustify - DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' - end - item - Name = 'DESCUENTO' - DataType = datFloat - DictionaryEntry = 'FacturasProveedor_Detalles_DESCUENTO' + DictionaryEntry = 'FacturasProveedor_Detalles_IMPORTE_UNIDAD' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify - DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL' + DictionaryEntry = 'FacturasProveedor_Detalles_IMPORTE_TOTAL' + end + item + Name = 'VISIBLE' + DataType = datInteger + DisplayLabel = #194#191'Visible?' + DictionaryEntry = 'FacturasProveedor_Detalles_VISIBLE' end item Name = 'ID_ARTICULO' @@ -300,10 +313,9 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor DictionaryEntry = 'FacturasProveedor_Detalles_ID_ARTICULO' end item - Name = 'VISIBLE' - DataType = datInteger - DisplayLabel = #191'Visible?' - DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE' + Name = 'DESCUENTO' + DataType = datFloat + DictionaryEntry = 'FacturasProveedor_Detalles_DESCUENTO' end item Name = 'IMPORTE_PORTE' @@ -322,16 +334,10 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor Size = 255 DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA_PROVEEDOR' end> - Params = < - item - Name = 'ID_FACTURA' - DataType = datInteger - Value = '' - ParamType = daptInput - end> - MasterParamsMappings.Strings = ( - 'ID_FACTURA=ID') + Params = <> + MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_FacturasProveedor MasterSource = ds_FacturasProveedor MasterFields = 'ID' DetailFields = 'ID_FACTURA' @@ -340,26 +346,12 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor LogicalName = 'FacturasProveedor_Detalles' IndexDefs = <> Left = 400 - Top = 160 + Top = 112 end object ds_FacturasProveedor_Detalles: TDADataSource DataSet = tbl_FacturasProveedor_Detalles.Dataset DataTable = tbl_FacturasProveedor_Detalles Left = 400 - Top = 104 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 48 - Top = 84 - end - object rda_FacturasProveedor: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetDataCall.RemoteService = RORemoteService - UpdateDataCall.RemoteService = RORemoteService - GetScriptsCall.RemoteService = RORemoteService - RemoteService = RORemoteService - DataStreamer = Bin2DataStreamer - Left = 51 - Top = 151 + Top = 40 end end diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas index 7d259655..27a852af 100644 --- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas @@ -9,17 +9,17 @@ uses uDataModuleBase, uIDataModuleFacturasProveedor, uBizFacturasProveedor, uBizDetallesFacturaProveedor, uDADesigntimeCall, uIDataModuleFacturasProveedorReport, uDARemoteDataAdapter, - uDADataStreamer, uDABin2DataStreamer, uDAInterfaces; + uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable; type TDataModuleFacturasProveedor = class(TDataModuleBase, IDataModuleFacturasProveedor, IDataModuleFacturasProveedorReport) RORemoteService: TRORemoteService; - tbl_FacturasProveedor: TDACDSDataTable; - ds_FacturasProveedor: TDADataSource; - tbl_FacturasProveedor_Detalles: TDACDSDataTable; - ds_FacturasProveedor_Detalles: TDADataSource; Bin2DataStreamer: TDABin2DataStreamer; rda_FacturasProveedor: TDARemoteDataAdapter; + tbl_FacturasProveedor: TDAMemDataTable; + ds_FacturasProveedor: TDADataSource; + tbl_FacturasProveedor_Detalles: TDAMemDataTable; + ds_FacturasProveedor_Detalles: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); private function _GetDetalles : IBizDetallesFacturaProveedor; @@ -37,7 +37,7 @@ implementation {$R *.DFM} uses - FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces, + FactuGES_Intf, uDataTableUtils, uDataModuleConexion, cxControls, schFacturasProveedorClient_Intf, uBizContactos; { TdmFacturasProveedor } diff --git a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj index 770c4de1..01270199 100644 --- a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj +++ b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj @@ -6,9 +6,11 @@ + + @@ -19,7 +21,7 @@ Default.Personality - + @@ -30,6 +32,15 @@ + + + + + + + + + @@ -111,14 +122,23 @@ + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedor.pas index eec61a03..763c4989 100644 --- a/Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedor.pas @@ -11,7 +11,6 @@ type ['{FD0F5B2F-5556-4031-86F0-EFF96805FD66}'] function GetItems: IBizFacturaProveedor; function GetItem(const ID : Integer) : IBizFacturaProveedor; - function GetNextID(const DataSetName : String) : Integer; function NewItem : IBizFacturaProveedor; end; diff --git a/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.dpk b/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.dpk index fb18d45f..701c372d 100644 --- a/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.dpk +++ b/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.dpk @@ -22,28 +22,10 @@ package FacturasProveedor_model; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} -{%TogetherDiagram 'ModelSupport_FacturasProveedor_model\default.txaPackage'} +{$IMPLICITBUILD ON} requires - rtl, - dbrtl, - vcl, - DataAbstract_D10, - dsnap, - vcldb, - adortl, - vcljpg, - cxLibraryD10, - dxThemeD10, - cxEditorsD10, - cxDataD10, - cxExtEditorsD10, - cxGridD10, - cxPageControlD10, Base, - Empresas_controller, - Usuarios, Contactos_model, TiposIVA_model, TiposIVA_controller; diff --git a/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.dproj b/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.dproj index 214165aa..5665d3d0 100644 --- a/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.dproj +++ b/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.dproj @@ -36,95 +36,529 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + + + + + + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration EurekaLog 5.1.9 - - - FacturasProveedor_model.dpk - - + FacturasProveedor_model.dpk - + MainSource - - - - - - - - - - - - - - - - - - - - - - + + + + + - - \ No newline at end of file + + + diff --git a/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.rc b/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.rc +++ b/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.res b/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.res and b/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.res differ diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas index 947c2a19..fd782743 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas @@ -9,9 +9,9 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_DarReferencia = '{6452FBCD-8B19-4AC7-B625-81EAEE1EE013}'; - RID_FacturasProveedor = '{EA176D20-40F9-4AB6-84E8-5EFD9076D9D5}'; - RID_FacturasProveedor_Detalles = '{84042E24-AA76-49D4-8166-45DD26C31019}'; + RID_DarReferencia = '{56BD23E4-C4B1-4330-BA93-6ABE078D7890}'; + RID_FacturasProveedor = '{C5251FED-8060-492E-BE27-0374DB7C03BF}'; + RID_FacturasProveedor_Detalles = '{430708DE-0382-4AD6-9973-D44B84BCFB13}'; { Data table names } nme_DarReferencia = 'DarReferencia'; @@ -56,7 +56,6 @@ const fld_FacturasProveedorID_TIPO_IVA = 'ID_TIPO_IVA'; fld_FacturasProveedorIMPORTE_NETO = 'IMPORTE_NETO'; fld_FacturasProveedorIMPORTE_PORTE = 'IMPORTE_PORTE'; - fld_FacturasProveedorFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO'; { FacturasProveedor field indexes } idx_FacturasProveedorID = 0; @@ -90,7 +89,6 @@ const idx_FacturasProveedorID_TIPO_IVA = 28; idx_FacturasProveedorIMPORTE_NETO = 29; idx_FacturasProveedorIMPORTE_PORTE = 30; - idx_FacturasProveedorFECHA_VENCIMIENTO = 31; { FacturasProveedor_Detalles fields } fld_FacturasProveedor_DetallesID = 'ID'; @@ -127,7 +125,7 @@ const type { IDarReferencia } IDarReferencia = interface(IDAStronglyTypedDataTable) - ['{90E7233B-3C93-46A1-950D-E9C49D940E70}'] + ['{60AE026D-F31D-4387-9EDC-FC7A49B19194}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); @@ -162,7 +160,7 @@ type { IFacturasProveedor } IFacturasProveedor = interface(IDAStronglyTypedDataTable) - ['{8FD69ADA-BBA8-4B9F-9900-6B58A1B0A6CB}'] + ['{A5C77209-2C1B-4526-8C24-54CCFB5A6311}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -287,10 +285,6 @@ type procedure SetIMPORTE_PORTEValue(const aValue: Currency); function GetIMPORTE_PORTEIsNull: Boolean; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); - function GetFECHA_VENCIMIENTOValue: DateTime; - procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); - function GetFECHA_VENCIMIENTOIsNull: Boolean; - procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); { Properties } @@ -356,8 +350,6 @@ type property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; - property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; end; { TFacturasProveedorDataTableRules } @@ -490,10 +482,6 @@ type procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; function GetIMPORTE_PORTEIsNull: Boolean; virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; - function GetFECHA_VENCIMIENTOValue: DateTime; virtual; - procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; - function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual; - procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -558,8 +546,6 @@ type property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; - property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -569,7 +555,7 @@ type { IFacturasProveedor_Detalles } IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{29A191D1-5840-4BB2-AFD4-0CBD28DA4AAE}'] + ['{8C3B5CD4-29A7-4243-AD27-E53D419F0D26}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1464,27 +1450,6 @@ begin DataTable.Fields[idx_FacturasProveedorIMPORTE_PORTE].AsVariant := Null; end; -function TFacturasProveedorDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime; -begin - result := DataTable.Fields[idx_FacturasProveedorFECHA_VENCIMIENTO].AsDateTime; -end; - -procedure TFacturasProveedorDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); -begin - DataTable.Fields[idx_FacturasProveedorFECHA_VENCIMIENTO].AsDateTime := aValue; -end; - -function TFacturasProveedorDataTableRules.GetFECHA_VENCIMIENTOIsNull: boolean; -begin - result := DataTable.Fields[idx_FacturasProveedorFECHA_VENCIMIENTO].IsNull; -end; - -procedure TFacturasProveedorDataTableRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_FacturasProveedorFECHA_VENCIMIENTO].AsVariant := Null; -end; - { TFacturasProveedor_DetallesDataTableRules } constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas index 95ff1836..10262689 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas @@ -9,14 +9,14 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_DarReferenciaDelta = '{49261723-9F29-4180-961E-CF5DC3ECDF7B}'; - RID_FacturasProveedorDelta = '{32A15ED5-3D19-4330-B634-0DE47FA6CEB5}'; - RID_FacturasProveedor_DetallesDelta = '{2192D4C0-E42E-42BC-8B97-3CC0C62B7C41}'; + RID_DarReferenciaDelta = '{63FA0002-1E1F-4066-B76C-877FD4BE86CD}'; + RID_FacturasProveedorDelta = '{5C96E61B-5758-411C-B93D-8AC0229A8C40}'; + RID_FacturasProveedor_DetallesDelta = '{514C8A59-C317-4816-AF2D-8168382A6DA9}'; type { IDarReferenciaDelta } IDarReferenciaDelta = interface(IDarReferencia) - ['{49261723-9F29-4180-961E-CF5DC3ECDF7B}'] + ['{63FA0002-1E1F-4066-B76C-877FD4BE86CD}'] { Property getters and setters } function GetOldVALORValue : String; @@ -50,7 +50,7 @@ type { IFacturasProveedorDelta } IFacturasProveedorDelta = interface(IFacturasProveedor) - ['{32A15ED5-3D19-4330-B634-0DE47FA6CEB5}'] + ['{5C96E61B-5758-411C-B93D-8AC0229A8C40}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -83,7 +83,6 @@ type function GetOldID_TIPO_IVAValue : Integer; function GetOldIMPORTE_NETOValue : Currency; function GetOldIMPORTE_PORTEValue : Currency; - function GetOldFECHA_VENCIMIENTOValue : DateTime; { Properties } property OldID : Integer read GetOldIDValue; @@ -117,7 +116,6 @@ type property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; - property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; end; { TFacturasProveedorBusinessProcessorRules } @@ -312,12 +310,6 @@ type function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; - function GetFECHA_VENCIMIENTOValue: DateTime; virtual; - function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual; - function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual; - function GetOldFECHA_VENCIMIENTOIsNull: Boolean; virtual; - procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; - procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -444,10 +436,6 @@ type property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; - property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; - property FECHA_VENCIMIENTOIsNull : Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; - property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; - property OldFECHA_VENCIMIENTOIsNull : Boolean read GetOldFECHA_VENCIMIENTOIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -457,7 +445,7 @@ type { IFacturasProveedor_DetallesDelta } IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) - ['{2192D4C0-E42E-42BC-8B97-3CC0C62B7C41}'] + ['{514C8A59-C317-4816-AF2D-8168382A6DA9}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -1673,37 +1661,6 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_PORTE] := Null; end; -function TFacturasProveedorBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_VENCIMIENTO]; -end; - -function TFacturasProveedorBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_VENCIMIENTO]); -end; - -function TFacturasProveedorBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorFECHA_VENCIMIENTO]; -end; - -function TFacturasProveedorBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorFECHA_VENCIMIENTO]); -end; - -procedure TFacturasProveedorBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_VENCIMIENTO] := aValue; -end; - -procedure TFacturasProveedorBusinessProcessorRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_VENCIMIENTO] := Null; -end; - { TFacturasProveedor_DetallesBusinessProcessorRules } constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas index f071a21c..f459f01b 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas @@ -236,8 +236,8 @@ end; procedure TBizFacturaProveedor.IniciarValoresFacturaNueva; begin - ID_EMPRESA := dmUsuarios.IDEmpresaActual; - USUARIO := dmUsuarios.LoginInfo.Usuario; + ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; +// USUARIO := dmUsuarios.LoginInfo.Usuario; FECHA_FACTURA := DateOf(Now); ID_PROVEEDOR := ID_NULO; TIPO := CTE_TIPO_FACTURA; @@ -292,7 +292,7 @@ begin PROVINCIA := FProveedor.PROVINCIA; POBLACION := FProveedor.POBLACION; ID_FORMA_PAGO := FProveedor.ID_FORMA_PAGO; - ID_TIPO_IVA := FProveedor.ID_TIPO_IVA; +// ID_TIPO_IVA := FProveedor.ID_TIPO_IVA; //REPASAR DA UN PETE QUE TE CAGAS // RECARGO_EQUIVALENCIA := FProveedor.RECARGO_EQUIVALENCIA; Post; diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas index 5feae92d..1a28edd4 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas @@ -41,16 +41,16 @@ begin case Sender.CurrentChange.ChangeType of ctInsert, ctUpdate: begin //Si la referencia no ha sido asignada le asignamos una nosotros - if (VarIsNull(aChange.Sender.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA])) - or (VarToStr(aChange.Sender.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA]) = '') then + if (VarIsNull(Sender.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA])) + or (VarToStr(Sender.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA]) = '') then begin ASchema := BusinessProcessor.Schema; ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); try //Siempre va a estar rellena - Empresa := aChange.Sender.CurrentChange.NewValueByName[fld_FacturasProveedorID_EMPRESA]; - Tipo := aChange.Sender.CurrentChange.NewValueByName[fld_FacturasProveedorTIPO]; + Empresa := Sender.CurrentChange.NewValueByName[fld_FacturasProveedorID_EMPRESA]; + Tipo := Sender.CurrentChange.NewValueByName[fld_FacturasProveedorTIPO]; if Tipo = CTE_TIPO_FACTURA then dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_FACTURAS_PROVEEDOR, Empresa]) @@ -70,9 +70,9 @@ begin try if Tipo = CTE_TIPO_FACTURA then - ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_FACTURAS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]) + ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'EMPRESA'], [REF_FACTURAS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]) else - ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_ABONOS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]); + ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'EMPRESA'], [REF_ABONOS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]); except RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla'); diff --git a/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.dpk b/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.dpk index 17b0a563..f9219a58 100644 --- a/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.dpk +++ b/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.dpk @@ -22,18 +22,9 @@ package FacturasProveedor_plugin; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - PluginSDK_D10R, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, - Empresas_controller, - Familias_controller, FacturasProveedor_view, FacturasProveedor_controller; diff --git a/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.dproj b/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.dproj index 1f04e9cd..6d588471 100644 --- a/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.dproj +++ b/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.dproj @@ -36,81 +36,517 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration EurekaLog 5.1.9 - - - FacturasProveedor_plugin.dpk - - + FacturasProveedor_plugin.dpk - + MainSource - - - - - - - - - - - + +
PluginFacturasProveedor
 - - \ No newline at end of file + + + diff --git a/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.rc b/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.rc +++ b/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.res b/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.res and b/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.res differ diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm index 91ba96c7..92095477 100644 --- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm +++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm @@ -190,6 +190,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_FACTURAS_PROVEEDOR_ID' + ServerAutoRefresh = True DictionaryEntry = 'FacturasProveedor_ID' InPrimaryKey = True end @@ -353,12 +354,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor Name = 'IMPORTE_PORTE' DataType = datCurrency DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE' - end - item - Name = 'FECHA_VENCIMIENTO' - DataType = datDateTime - DictionaryEntry = 'FacturasProveedor_FECHA_VENCIMIENTO' - Calculated = True end> end item @@ -447,6 +442,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_FACTURA_PROV_DETALLES_ID' + ServerAutoRefresh = True DictionaryEntry = 'FacturasProveedor_Detalles_ID' InPrimaryKey = True end @@ -552,9 +548,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor Params = < item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -570,77 +564,53 @@ object srvFacturasProveedor: TsrvFacturasProveedor Params = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_FACTURA_PROV_DETALLES_ID' Value = '' - ParamType = daptInput end item Name = 'CANTIDAD' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'POSICION' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_FACTURA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'TIPO_DETALLE' - DataType = datString - Size = 10 Value = '' - ParamType = daptInput end item Name = 'CONCEPTO' - DataType = datString - Size = 2000 Value = '' - ParamType = daptInput end item Name = 'IMPORTE_UNIDAD' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_TOTAL' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'VISIBLE' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_ARTICULO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_PORTE' - DataType = datFloat Value = '' - ParamType = daptInput end> Statements = < item @@ -662,9 +632,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor Params = < item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -682,77 +650,51 @@ object srvFacturasProveedor: TsrvFacturasProveedor Params = < item Name = 'CANTIDAD' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'POSICION' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_FACTURA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'TIPO_DETALLE' - DataType = datString - Size = 10 Value = '' - ParamType = daptInput end item Name = 'CONCEPTO' - DataType = datString - Size = 2000 Value = '' - ParamType = daptInput end item Name = 'IMPORTE_UNIDAD' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_TOTAL' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'VISIBLE' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_ARTICULO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_PORTE' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -775,186 +717,121 @@ object srvFacturasProveedor: TsrvFacturasProveedor Params = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_FACTURAS_PROVEEDOR_ID' Value = '' - ParamType = daptInput end item Name = 'ID_EMPRESA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'REFERENCIA' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'REFERENCIA_PROVEEDOR' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'FECHA_FACTURA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'BASE_IMPONIBLE' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IVA' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_IVA' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'RE' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_RE' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_TOTAL' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'OBSERVACIONES' - DataType = datMemo Value = '' - ParamType = daptInput end item Name = 'ID_PROVEEDOR' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'NIF_CIF' - DataType = datString - Size = 15 Value = '' - ParamType = daptInput end item Name = 'NOMBRE' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'CALLE' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'POBLACION' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'PROVINCIA' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'CODIGO_POSTAL' - DataType = datString - Size = 10 Value = '' - ParamType = daptInput end item Name = 'FECHA_ALTA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'FECHA_MODIFICACION' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'USUARIO' - DataType = datString - Size = 20 Value = '' - ParamType = daptInput end item Name = 'ID_FORMA_PAGO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'RECARGO_EQUIVALENCIA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_TIPO_IVA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'IMPORTE_NETO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_PORTE' - DataType = datFloat Value = '' - ParamType = daptInput end> Statements = < item diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas index 94873381..0f1ff7fa 100644 --- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas +++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas @@ -43,7 +43,7 @@ implementation uses {Generated:} FactuGES_Invk, Dialogs, uDataModuleServer, uDatabaseUtils, uUsersManager, schFacturasProveedorClient_Intf, - uRestriccionesUsuarioUtils; //uBizFacturasProveedorServer, + uRestriccionesUsuarioUtils, uBizFacturasProveedorServer; // uRptFacturasProveedor_Server; procedure Create_srvFacturasProveedor(out anInstance : IUnknown); @@ -70,7 +70,7 @@ end; procedure TsrvFacturasProveedor.DARemoteServiceCreate(Sender: TObject); begin SessionManager := dmServer.SessionManager; -// bpFacturasProveedor.BusinessRulesID := BIZ_SERVER_FACTURAS_PROVEEDOR; + bpFacturasProveedor.BusinessRulesID := BIZ_SERVER_FACTURAS_PROVEEDOR; end; procedure TsrvFacturasProveedor.DataAbstractServiceBeforeAcquireConnection( diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk index 1ffc1515..74e9aaf3 100644 --- a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk +++ b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk @@ -22,71 +22,13 @@ package FacturasProveedor_view; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - FacturasProveedor_model, FacturasProveedor_controller, - FacturasProveedor_data, - vcl, - dbrtl, - vcldb, - cxLibraryD10, - dxThemeD10, - cxEditorsD10, - cxDataD10, - vcljpg, - cxGridD10, - cxPageControlD10, - cxExtEditorsD10, - vclx, - cxExportD10, - dxPSCoreD10, - dxComnD10, - dxPScxCommonD10, - dxPSLnksD10, - designide, - xmlrtl, - vclactnband, - vclshlctrls, - dxPScxGridLnkD10, - dclcxLibraryD10, - dsnap, - adortl, + FacturasProveedor_model, GUIBase, - tbx_d10, - tb2k_d10, - JvCoreD10R, - Jcl, - JclVcl, - JvSystemD10R, - JvStdCtrlsD10R, - JvPageCompsD10R, - PNG_D10, - Base, - DataAbstract_D10, - dxLayoutControlD10, - Contactos_view, - PngComponentsD10, - Articulos_view, - JvGlobusD10R, - VclSmp, - bdertl, - vclie, - frx10, - fs10, - fqb100, - frxe10, - frxTee10, - fsTee10, - tee, - teeui, - teedb, - PedidosProveedor_controller, - PedidosProveedor_model, - AlbaranesProveedor_model, - AlbProv_FacProv_relation; + Articulos_view; contains uFacturasProveedorViewRegister in 'uFacturasProveedorViewRegister.pas', diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj index 8af19d86..7eb9d900 100644 --- a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj +++ b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj @@ -34,126 +34,28 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration - - - FacturasProveedor_view.dpk - - + FacturasProveedor_view.dpk - + MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fEditorElegirArticulosFacturaProveedor
TfEditorElegirArticulosFacturaProveedor @@ -188,5 +90,487 @@ TFrame - - \ No newline at end of file + + diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.rc b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.rc +++ b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.res b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.res and b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.res differ diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm index 7dc4f89e..83afbdc2 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm @@ -7,7 +7,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor Position = poScreenCenter OnClose = CustomEditorClose ExplicitWidth = 796 - ExplicitHeight = 607 + ExplicitHeight = 600 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -71,7 +71,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor inherited pgPaginas: TPageControl Width = 788 Height = 315 - ActivePage = pagContenido OnChanging = pgPaginasChanging ExplicitWidth = 788 ExplicitHeight = 315 @@ -123,6 +122,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor Left = 234 ExplicitLeft = 234 end + inherited eReferenciaProveedor: TcxDBTextEdit + ExplicitWidth = 158 + Width = 158 + end inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor Left = 394 Width = 350 @@ -198,54 +201,56 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor end inherited ToolButton14: TToolButton Left = 334 - Top = 2 + Top = 0 Wrap = True ExplicitLeft = 334 - ExplicitTop = 2 + ExplicitTop = 0 end - inherited FontSize: TEdit [5] + inherited FontName: TJvFontComboBox Left = 0 ExplicitLeft = 0 end - inherited UpDown1: TUpDown [6] - Left = 42 - ExplicitLeft = 42 + inherited FontSize: TEdit + Left = 145 + Width = 57 + ExplicitLeft = 145 + ExplicitWidth = 57 end - inherited FontName: TJvFontComboBox [7] - Left = 59 - ExplicitLeft = 59 + inherited UpDown1: TUpDown + Left = 202 + ExplicitLeft = 202 end inherited ToolButton13: TToolButton - Left = 204 - ExplicitLeft = 204 + Left = 219 + ExplicitLeft = 219 end inherited ToolButton6: TToolButton - Left = 212 - ExplicitLeft = 212 + Left = 227 + ExplicitLeft = 227 end inherited ToolButton7: TToolButton - Left = 246 - ExplicitLeft = 246 + Left = 261 + ExplicitLeft = 261 end inherited ToolButton8: TToolButton - Left = 280 - ExplicitLeft = 280 + Left = 295 + ExplicitLeft = 295 end inherited ToolButton12: TToolButton - Left = 314 - ExplicitLeft = 314 + Left = 329 + ExplicitLeft = 329 end inherited ToolButton9: TToolButton - Left = 322 - ExplicitLeft = 322 + Left = 337 + ExplicitLeft = 337 end inherited ToolButton10: TToolButton - Left = 356 - ExplicitLeft = 356 + Left = 371 + ExplicitLeft = 371 end inherited ToolButton11: TToolButton - Left = 390 - ExplicitLeft = 390 + Left = 405 + ExplicitLeft = 405 end end inherited cxGrid: TcxGrid diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas index 964abeab..a9365bc6 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas @@ -13,7 +13,7 @@ uses uBizFacturasProveedor, uIEditorFacturaProveedor, uFacturasProveedorController, uViewDetallesBase, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, - uViewDetallesFacturaProveedor, uViewFacturaProveedor; + uViewDetallesFacturaProveedor, uViewFacturaProveedor, uDAInterfaces; type @@ -75,8 +75,8 @@ implementation uses cxDBEdit, uBizContactos, uDataModuleUsuarios, cxControls, uBizTiposIVA, - uDetallesFacturaProveedorController, uDialogUtils, uDataTableUtils, - uGenerarAlbaranesProvFacProvUtils; + uDetallesFacturaProveedorController, uDialogUtils, uDataTableUtils; +// uGenerarAlbaranesProvFacProvUtils; { TfEditorFacturaProveedor } @@ -256,7 +256,7 @@ begin ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA); //Preguntamos is desea hacer una orden de devolución asociada if (Application.MessageBox('¿Desea crear una orden de devolución para el abono?', 'Atención', MB_YESNO) = IDYES) then - GenerarAlbaranProv(FFactura); +// GenerarAlbaranProv(FFactura); end; end; Modified := False; @@ -340,7 +340,7 @@ begin inherited PonerTitulos(FTitulo); - Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')'; + Self.Caption := FTitulo + ' ('; // + dmUsuarios.EmpresaActual.NOMBRE + ')'; end; procedure TfEditorFacturaProveedor.PrevisualizarInterno; diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas index 19d2cb2a..e035b068 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas @@ -65,7 +65,9 @@ uses uDataModuleFacturasProveedor, uDataModuleUsuarios, uGridUtils, uDBSelectionListUtils, uAlbaranesProveedorController, uBizAlbaranesProveedor, - uEditorBase, uGenerarFacturasProvAlbProvUtils; + uEditorBase; + +// , uGenerarFacturasProvAlbProvUtils; {$R *.dfm} @@ -305,7 +307,7 @@ begin end;} end; 200 : begin // Utilizar albaranes - GenerarFacturaProv; +// GenerarFacturaProv; actRefrescar.Execute; end; 100 : begin // Factura nuevo vacio @@ -320,7 +322,7 @@ procedure TfEditorFacturasProveedor.PonerTitulos(const ATitulo: string); var FTitulo : String; begin - FTitulo := 'Lista de facturas de proveedor - ' + dmUsuarios.EmpresaActual.NOMBRE; + FTitulo := 'Lista de facturas de proveedor - '; // + dmUsuarios.EmpresaActual.NOMBRE; inherited PonerTitulos(FTitulo); end; diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedorReport.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedorReport.pas index 03406c12..f8b11266 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedorReport.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedorReport.pas @@ -4,9 +4,7 @@ interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl, frxClass, - frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE, - frxBarcode, JvAppStorage, JvAppRegistryStorage, JvComponentBase, + Dialogs, uEditorPreview, JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorFacturasProveedorPreview, diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.pas index 89c0ab0c..b80080fa 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.pas @@ -11,7 +11,8 @@ uses cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox, cxCurrencyEdit, Grids, DBGrids, StdCtrls, ExtCtrls, cxRichEdit, StdActns, ExtActns, JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, TBX, TB2Dock, TB2Toolbar, - uControllerDetallesArticulos, uViewDetallesArticulos, uBizFacturasProveedor; + uControllerDetallesArticulos, uViewDetallesArticulos, uBizFacturasProveedor, + uDAInterfaces; type IViewDetallesFacturaProveedor = interface(IViewDetallesArticulos) diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm index 5ef0b5d5..b11ff59d 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm @@ -1,6 +1,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor - Width = 668 - Height = 304 + Width = 743 + Height = 303 Align = alClient OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy @@ -9,17 +9,18 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 668 - Height = 304 + Width = 743 + Height = 303 Align = alClient ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 ExplicitWidth = 451 + ExplicitHeight = 304 DesignSize = ( - 668 - 304) + 743 + 303) object eReferencia: TcxDBTextEdit Left = 136 Top = 30 @@ -112,7 +113,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor Width = 78 end object bFormasPago: TButton - Left = 179 + Left = 216 Top = 111 Width = 132 Height = 23 @@ -120,62 +121,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor TabOrder = 4 OnClick = bFormasPagoClick end - inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor - Left = 339 - Top = 30 - Width = 350 - Height = 202 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 6 - ReadOnly = False - ExplicitLeft = 339 - ExplicitTop = 30 - inherited dxLayoutControl1: TdxLayoutControl - inherited edtlNombre: TcxDBTextEdit - DataBinding.DataSource = DADataSource - end - inherited edtNIFCIF: TcxDBTextEdit - DataBinding.DataSource = DADataSource - ExplicitWidth = 562 - Width = 562 - end - inherited edtCalle: TcxDBTextEdit - DataBinding.DataSource = DADataSource - ExplicitWidth = 562 - Width = 562 - end - inherited edtPoblacion: TcxDBTextEdit - DataBinding.DataSource = DADataSource - ExplicitWidth = 177 - Width = 177 - end - inherited edtProvincia: TcxDBTextEdit - DataBinding.DataSource = DADataSource - ExplicitWidth = 327 - Width = 327 - end - inherited edtCodigoPostal: TcxDBTextEdit - Left = 215 - DataBinding.DataSource = DADataSource - ExplicitLeft = 215 - end - inherited Button1: TBitBtn - OnClick = frViewProveedorFacturaButton1Click - end - inherited Button2: TBitBtn - OnClick = frViewProveedorFacturaButton2Click - end - inherited Button3: TBitBtn - Left = 99 - ExplicitLeft = 99 - end - end - end object eReferenciaProveedor: TcxDBTextEdit Left = 136 Top = 57 @@ -196,6 +141,48 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor TabOrder = 1 Width = 158 end + inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor + Left = 376 + Top = 30 + Width = 350 + Height = 202 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 6 + ReadOnly = False + ExplicitLeft = 376 + ExplicitTop = 30 + inherited dxLayoutControl1: TdxLayoutControl + inherited edtNIFCIF: TcxDBTextEdit + ExplicitWidth = 562 + Width = 562 + end + inherited edtCalle: TcxDBTextEdit + ExplicitWidth = 562 + Width = 562 + end + inherited edtPoblacion: TcxDBTextEdit + ExplicitWidth = 177 + Width = 177 + end + inherited edtProvincia: TcxDBTextEdit + ExplicitWidth = 327 + Width = 327 + end + inherited edtCodigoPostal: TcxDBTextEdit + Left = 253 + ExplicitLeft = 253 + end + inherited Button3: TBitBtn + Left = 137 + ExplicitLeft = 137 + end + end + end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas index 23d59acc..ef29f3b2 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas @@ -9,7 +9,8 @@ uses cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, dxLayoutControl, cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxSpinEdit, StdCtrls, Mask, DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, - cxDBLookupComboBox, uFormasPagoController, uViewDatosYSeleccionProveedor; + cxDBLookupComboBox, uFormasPagoController, uViewDatosYSeleccionProveedor, + uDAInterfaces, uBizFormasPago; type IViewFacturaProveedor = interface(IViewBase) @@ -41,10 +42,10 @@ type bFormasPago: TButton; dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Group6: TdxLayoutGroup; - dxLayoutControl1Item3: TdxLayoutItem; - frViewProveedorFactura: TfrViewDatosYSeleccionProveedor; dxLayoutControl1Item6: TdxLayoutItem; eReferenciaProveedor: TcxDBTextEdit; + dxLayoutControl1Item3: TdxLayoutItem; + frViewProveedorFactura: TfrViewDatosYSeleccionProveedor; procedure bFormasPagoClick(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure CustomViewCreate(Sender: TObject); @@ -52,6 +53,7 @@ type procedure frViewProveedorFacturaButton2Click(Sender: TObject); protected FFactura : IBizFacturaProveedor; + FFormasPago : IBizFormaPago; FFormasPagoController : IFormasPagoController; function GetFactura: IBizFacturaProveedor; procedure SetFactura(const Value: IBizFacturaProveedor); @@ -63,8 +65,7 @@ type implementation uses - uDataModuleContactos, schFacturasProveedorClient_Intf, - uBizFormasPago; + uDataModuleContactos, schFacturasProveedorClient_Intf; {$R *.dfm} @@ -73,12 +74,14 @@ uses procedure TfrViewFacturaProveedor.bFormasPagoClick(Sender: TObject); begin inherited; - FFormasPagoController.VerTodos((dsFormaPago.DataTable) as IBizFormaPago); + if Assigned(FFormasPago) then + FFormasPagoController.VerTodos(FFormasPago); end; procedure TfrViewFacturaProveedor.CustomViewCreate(Sender: TObject); begin inherited; + FFormasPago := Nil; FFormasPagoController := TFormasPagoController.Create; frViewProveedorFactura.MsgElegirProveedor := 'Elija el proveedor al que se le realizará la factura.'; end; @@ -86,6 +89,7 @@ end; procedure TfrViewFacturaProveedor.CustomViewDestroy(Sender: TObject); begin inherited; + FFormasPago := Nil; FFormasPagoController := NIL; end; @@ -124,7 +128,8 @@ begin begin DADataSource.DataTable := FFactura.DataTable; - dsFormaPago.DataTable := FFormasPagoController.BuscarTodos.DataTable; + FFormasPago := FFormasPagoController.BuscarTodos; + dsFormaPago.DataTable := FFormasPago.DataTable; dsFormaPago.DataTable.Active := True; //Solo se deshabilita al insertar, luego la referencia será modificable diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm index df207353..fd609269 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm @@ -38,7 +38,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Width = 310 Height = 215 Align = alClient - ExplicitWidth = 343 + ExplicitWidth = 310 ExplicitHeight = 215 inherited edtlNombre: TcxDBTextEdit ExplicitWidth = 185 @@ -194,7 +194,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor inherited dxLayoutControl1: TdxLayoutControl Width = 445 Height = 166 - ExplicitWidth = 287 + ExplicitWidth = 445 ExplicitHeight = 166 inherited rdxDestino1: TRadioButton Width = 255 diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas index 5d1d4e86..5ae1a507 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas @@ -12,7 +12,7 @@ uses cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo, uViewDireccionEntregaPedidoProv, cxLookupEdit, cxDBLookupEdit, // uBizPedidosCliente, uPedidosClienteController, - cxDBLookupComboBox, uFormasPagoController, ActnList, uDAInterfaces; + cxDBLookupComboBox, uFormasPagoController, ActnList, uDAInterfaces, uBizFormasPago; type IViewPedidoProveedor = interface(IViewBase) @@ -77,10 +77,11 @@ type protected FPedido : IBizPedidoProveedor; FViewProveedorPedido : TfrViewDatosYSeleccionProveedor; + FFormasPago : IBizFormaPago; FFormasPagoController : IFormasPagoController; // FPedidoCliAsociado : IBizPedidoCliente; // FPedidoCliController : IPedidosClienteController; - + function GetPedido: IBizPedidoProveedor; procedure SetPedido(const Value: IBizPedidoProveedor); virtual; function GetViewProveedorPedido: TfrViewDatosYSeleccionProveedor; @@ -97,10 +98,6 @@ implementation { TfrViewPedidoProveedor } -uses - uBizFormasPago; - - procedure TfrViewPedidoProveedor.actVerPedidoCliExecute(Sender: TObject); begin inherited; @@ -117,12 +114,14 @@ end; procedure TfrViewPedidoProveedor.bFormasPagoClick(Sender: TObject); begin inherited; - FFormasPagoController.VerTodos((dsFormaPago.DataTable) as IBizFormaPago); + if Assigned(FFormasPago) then + FFormasPagoController.VerTodos(FFormasPago); end; procedure TfrViewPedidoProveedor.CustomViewCreate(Sender: TObject); begin inherited; + FFormasPago := Nil; FFormasPagoController := TFormasPagoController.Create; FViewProveedorPedido := frViewProveedorPedido; FViewProveedorPedido.MsgElegirProveedor := 'Elija el proveedor al que se le realizará el pedido.'; @@ -135,6 +134,7 @@ end; procedure TfrViewPedidoProveedor.CustomViewDestroy(Sender: TObject); begin FViewProveedorPedido := Nil; + FFormasPago := Nil; FFormasPagoController := NIL; inherited; end; @@ -178,7 +178,9 @@ begin if Assigned(FPedido) then begin DADataSource.DataTable := FPedido.DataTable; - dsFormaPago.DataTable := FFormasPagoController.BuscarTodos.DataTable; + + FFormasPago := FFormasPagoController.BuscarTodos; + dsFormaPago.DataTable := FFormasPago.DataTable; dsFormaPago.DataTable.Active := True; // FPedidoCliAsociado := NIL; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 66013928..16ae3e2f 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index ac4d4e99..165cd8b5 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -73,8 +73,6 @@ uses schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', uBizFacturasClienteServer in '..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas', srvFacturasProveedor_Impl in '..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas' {srvFacturasProveedor: TDataAbstractService}, - schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', - schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', srvAlbaranesProveedor_Impl in '..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas' {srvAlbaranesProveedor: TDataAbstractService}, srvPedidosProveedor_Impl in '..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas' {srvPedidosProveedor: TDataAbstractService}, uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas', @@ -82,7 +80,10 @@ uses schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas', schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', - uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS'; + uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS', + uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas', + schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', + schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 90c0a33e..e8e6e45b 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -89,6 +89,7 @@ +
srvFacturasProveedor
TDataAbstractService diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 7866430f..7d5481e8 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -14,7 +14,7 @@ BEGIN BEGIN VALUE "FileVersion", "3.0.0.0\0" VALUE "ProductVersion", "3.0.0.0\0" - VALUE "CompileDate", "sábado, 17 de noviembre de 2007 14:10\0" + VALUE "CompileDate", "sábado, 17 de noviembre de 2007 18:30\0" END END BLOCK "VarFileInfo"