diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj index 11fb6b8b..6621f0e6 100644 --- a/Source/ApplicationBase/ApplicationBase.dproj +++ b/Source/ApplicationBase/ApplicationBase.dproj @@ -52,6 +52,20 @@ + + + + + + + + + + + + + + VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components @@ -67,6 +81,53 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -110,46 +171,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fEditorDatosBancariosEmpresa
TCustomEditor @@ -179,13 +200,6 @@
frViewTiendas
TCustomView - - - - - - - diff --git a/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm b/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm index 2fdd8ae8..0425eb90 100644 --- a/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm +++ b/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm @@ -32,7 +32,6 @@ inherited DataModuleEmpresas: TDataModuleEmpresas GeneratorName = 'GEN_EMPRESAS_ID' LogChanges = False Required = True - ReadOnly = True ServerAutoRefresh = True DictionaryEntry = 'Empresas_ID' InPrimaryKey = True @@ -211,7 +210,6 @@ inherited DataModuleEmpresas: TDataModuleEmpresas GeneratorName = 'GEN_EMPRESAS_DATOS_BANCO_ID' LogChanges = False Required = True - ReadOnly = True ServerAutoRefresh = True DictionaryEntry = 'EmpresasDatosBanco_ID' InPrimaryKey = True diff --git a/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas b/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas index 3a3650d2..11958316 100644 --- a/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas +++ b/Source/ApplicationBase/Empresas/Model/schEmpresasClient_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_EmpresasTiendas = '{8D3E024C-5C96-4AF7-A33B-7CC4047916D1}'; - RID_Empresas = '{50B239EA-4065-446C-BFD0-3DD435D688DB}'; - RID_EmpresasDatosBanco = '{81489D87-3186-41E9-957C-EE42B0DF9818}'; + RID_EmpresasTiendas = '{BD78E5F1-4636-43A0-9362-F3F4CDC322CF}'; + RID_Empresas = '{B8C14C6F-BCE5-4346-ABEC-0DADBCA0B194}'; + RID_EmpresasDatosBanco = '{002C9069-240E-40BA-8F11-221B263BAB3C}'; { Data table names } nme_EmpresasTiendas = 'EmpresasTiendas'; @@ -127,7 +127,7 @@ const type { IEmpresasTiendas } IEmpresasTiendas = interface(IDAStronglyTypedDataTable) - ['{F40A766E-1197-4AE4-A918-C93A5AFE174E}'] + ['{B2D64357-38DD-4359-9187-E02D72E066E8}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -330,7 +330,7 @@ type { IEmpresas } IEmpresas = interface(IDAStronglyTypedDataTable) - ['{52463D68-269D-4495-ADC0-FEC7A805FA00}'] + ['{FBFC4B93-8590-476D-A138-576E2114B398}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -629,7 +629,7 @@ type { IEmpresasDatosBanco } IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable) - ['{7D7F3648-2B22-4803-BF32-2B1A639EFBAD}'] + ['{4C8B86F3-910E-49AF-A8B5-C4DA14DDE605}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); diff --git a/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas b/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas index 65a37e29..5282051e 100644 --- a/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas +++ b/Source/ApplicationBase/Empresas/Model/schEmpresasServer_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_EmpresasTiendasDelta = '{EB9F203C-168E-44C1-BA0B-E4516034F67B}'; - RID_EmpresasDelta = '{78E591E0-1DDD-44B8-94C5-195FB5F4CA1D}'; - RID_EmpresasDatosBancoDelta = '{DAFAC177-CB3E-4600-930E-AE27099FD1C7}'; + RID_EmpresasTiendasDelta = '{C646565C-D76B-4982-B86D-D3557DDE1E0C}'; + RID_EmpresasDelta = '{8A74346F-1F18-4ABC-9BAA-602FDF120909}'; + RID_EmpresasDatosBancoDelta = '{8F716BEB-5AC5-43F9-BA1B-6B2066216331}'; type { IEmpresasTiendasDelta } IEmpresasTiendasDelta = interface(IEmpresasTiendas) - ['{EB9F203C-168E-44C1-BA0B-E4516034F67B}'] + ['{C646565C-D76B-4982-B86D-D3557DDE1E0C}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -219,7 +219,7 @@ type { IEmpresasDelta } IEmpresasDelta = interface(IEmpresas) - ['{78E591E0-1DDD-44B8-94C5-195FB5F4CA1D}'] + ['{8A74346F-1F18-4ABC-9BAA-602FDF120909}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldNIF_CIFValue : String; @@ -519,7 +519,7 @@ type { IEmpresasDatosBancoDelta } IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco) - ['{DAFAC177-CB3E-4600-930E-AE27099FD1C7}'] + ['{8F716BEB-5AC5-43F9-BA1B-6B2066216331}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; diff --git a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm index db3ecfaa..c7712ccf 100644 --- a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm +++ b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm @@ -786,16 +786,6 @@ object srvEmpresas: TsrvEmpresas Size = 3 DisplayLabel = 'Sufijo 58' end - item - Name = 'Empresas_ID' - DataType = datAutoInc - GeneratorName = 'GEN_EMPRESAS_ID' - LogChanges = False - Required = True - DisplayLabel = 'ID' - ReadOnly = True - ServerAutoRefresh = True - end item Name = 'EmpresasDatosBanco_ID' DataType = datAutoInc @@ -803,7 +793,15 @@ object srvEmpresas: TsrvEmpresas LogChanges = False Required = True DisplayLabel = 'ID' - ReadOnly = True + ServerAutoRefresh = True + end + item + Name = 'Empresas_ID' + DataType = datAutoInc + GeneratorName = 'GEN_EMPRESAS_ID' + LogChanges = False + Required = True + DisplayLabel = 'ID' ServerAutoRefresh = True end item @@ -889,9 +887,9 @@ object srvEmpresas: TsrvEmpresas Top = 90 DiagramData = ''#13#10' '#13#10' '#13#10' '#13#10' '#13#10''#13#10 + 'idth="400" Height="300">'#13#10' '#13#10' '#13#10' '#13#10''#13#10 end object DABin2DataStreamer: TDABin2DataStreamer Left = 48 diff --git a/Source/ApplicationBase/Empresas/Views/uViewTienda.dfm b/Source/ApplicationBase/Empresas/Views/uViewTienda.dfm index 65484e4e..4028f1ee 100644 --- a/Source/ApplicationBase/Empresas/Views/uViewTienda.dfm +++ b/Source/ApplicationBase/Empresas/Views/uViewTienda.dfm @@ -1,16 +1,16 @@ inherited frViewTienda: TfrViewTienda Width = 451 - Height = 46 + Height = 72 Align = alBottom OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy ExplicitWidth = 451 - ExplicitHeight = 46 + ExplicitHeight = 72 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 451 - Height = 46 + Height = 72 Margins.Left = 0 Margins.Top = 0 Margins.Right = 0 @@ -20,9 +20,9 @@ inherited frViewTienda: TfrViewTienda AutoContentSizes = [acsWidth, acsHeight] DesignSize = ( 451 - 46) + 72) object cbTienda: TcxDBComboBox - Left = 51 + Left = 65 Top = 10 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'TIENDA' @@ -42,7 +42,37 @@ inherited frViewTienda: TfrViewTienda StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 0 - Width = 412 + Width = 376 + end + object cbVendedor: TcxDBLookupComboBox + Left = 65 + Top = 37 + DataBinding.DataField = 'ID_VENDEDOR' + Properties.DropDownListStyle = lsFixedList + Properties.KeyFieldNames = 'ID' + Properties.ListColumns = < + item + FieldName = 'NOMBRE' + end> + Properties.ListOptions.GridLines = glNone + Properties.ListOptions.ShowHeader = False + Properties.ListOptions.SyncMode = True + Properties.ListSource = dsVendedores + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = bts3D + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 1 + Width = 376 end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False @@ -53,6 +83,15 @@ inherited frViewTienda: TfrViewTienda Control = cbTienda ControlOptions.ShowBorder = False end + object dxLayoutControl1Item2: TdxLayoutItem + Caption = 'Vendedor:' + Control = cbVendedor + ControlOptions.ShowBorder = False + end end end + object dsVendedores: TDADataSource + Left = 400 + Top = 40 + end end diff --git a/Source/ApplicationBase/Empresas/Views/uViewTienda.pas b/Source/ApplicationBase/Empresas/Views/uViewTienda.pas index f2777210..24f61a07 100644 --- a/Source/ApplicationBase/Empresas/Views/uViewTienda.pas +++ b/Source/ApplicationBase/Empresas/Views/uViewTienda.pas @@ -17,6 +17,9 @@ type dxLayoutControl1Group_Root: TdxLayoutGroup; dxLayoutControl1: TdxLayoutControl; dxLayoutControl1Item1: TdxLayoutItem; + dxLayoutControl1Item2: TdxLayoutItem; + cbVendedor: TcxDBLookupComboBox; + dsVendedores: TDADataSource; procedure CustomViewCreate(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk index 15edc505..2a10c07c 100644 --- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk +++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk @@ -28,7 +28,8 @@ requires AlbaranesCliente_model, AlbaranesCliente_controller, Articulos_view, - Almacenes_controller; + Almacenes_controller, + AlbCli_FacCli_relation; contains uAlbaranesClienteViewRegister in 'uAlbaranesClienteViewRegister.pas', diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj index bc409ea6..71ac34d8 100644 --- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj +++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj @@ -41,60 +41,7 @@ Delphi.Personality Package - - False - True - False - - - True - 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 @@ -107,11 +54,7 @@ File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found File c:\archivos de programa\borland\delphi10\Bin\dclie100.bpl not found - - - AlbaranesCliente_view.dpk - - + AlbaranesCliente_view.dpk @@ -120,54 +63,68 @@ +
fEditorAlbaranCliente
+ TfEditorAlbaranCliente
fEditorAlbaranDevCliente
+ TCustomEditor
fEditorAlbaranesCliente
+ TfEditorPedidosCliente
fEditorAlbaranesClienteReport
+ TfEditorAlbaranesClienteReport
fEditorAlbaranesDevCliente
+ TCustomEditor
fEditorElegirAlbaranesCliente
+ TfEditorElegirAlbaranesCliente
fEditorElegirArticulosAlbaranCliente
+ TfEditorElegirArticulosAlbaranCliente
frViewAlbaranCliente
+ TFrame
frViewAlbaranDevCliente
+ TCustomView
frViewAlbaranesCliente
+ TFrame
frViewAlbaranesDevCliente
+ TCustomView
frViewDetallesAlbaranCliente
+ TFrame
frViewDireccionEntregaAlbaranCliente
+ TFrame
frViewElegirArticulosAlbaranesCliente
+ TFrame - \ No newline at end of file +EurekaLog Last Line --> diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm index 5a504c95..02180be5 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm @@ -1,22 +1,23 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente - Width = 694 - Height = 513 + Width = 985 + Height = 473 OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy - ExplicitWidth = 694 - ExplicitHeight = 513 + ExplicitWidth = 985 + ExplicitHeight = 473 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 694 - Height = 513 + Width = 985 + Height = 473 Align = alClient ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] + ExplicitHeight = 629 DesignSize = ( - 694 - 513) + 985 + 473) object edtFechaPresupuesto: TcxDBDateEdit Left = 123 Top = 109 @@ -42,7 +43,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente end object memObservaciones: TcxDBMemo Left = 22 - Top = 329 + Top = 351 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource @@ -55,8 +56,8 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True TabOrder = 10 - Height = 253 - Width = 186 + Height = 100 + Width = 941 end object eReferencia: TcxDBTextEdit Left = 123 @@ -85,7 +86,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente Width = 143 end inline frViewClientePresupuesto: TfrViewDatosYSeleccionCliente - Left = 481 + Left = 679 Top = 28 Width = 350 Height = 212 @@ -97,7 +98,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente ParentFont = False TabOrder = 9 ReadOnly = False - ExplicitLeft = 481 + ExplicitLeft = 679 ExplicitTop = 28 inherited dxLayoutControl1: TdxLayoutControl inherited edtlNombre: TcxDBTextEdit @@ -170,7 +171,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente Width = 101 end object bFormasPago: TButton - Left = 319 + Left = 517 Top = 190 Width = 132 Height = 21 @@ -294,15 +295,21 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente ExplicitLeft = 22 ExplicitTop = 247 ExplicitWidth = 766 + ExplicitHeight = 46 inherited dxLayoutControl1: TdxLayoutControl Width = 766 + Height = 46 ExplicitWidth = 766 + ExplicitHeight = 46 inherited cbTienda: TcxDBComboBox DataBinding.DataSource = DADataSource Properties.OnChange = frViewTienda1cbTiendaPropertiesChange ExplicitWidth = 412 Width = 412 end + inherited cbVendedor: TcxDBLookupComboBox + DataBinding.DataSource = DADataSource + end end end object dxLayoutControl1Group_Root: TdxLayoutGroup @@ -310,6 +317,8 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente Hidden = True ShowBorder = False object dxLayoutControl1Group10: TdxLayoutGroup + AutoAligns = [aaHorizontal] + AlignVert = avClient ShowCaption = False Hidden = True LayoutDirection = ldHorizontal @@ -377,8 +386,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente end end object dxLayoutControl1Group3: TdxLayoutGroup + AutoAligns = [aaHorizontal] + AlignVert = avClient Caption = 'El presupuesto pertenece al al tienda' object dxLayoutControl1Item9: TdxLayoutItem + AutoAligns = [aaHorizontal] + AlignVert = avClient Control = frViewTienda1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False @@ -398,7 +411,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente end object dxLayoutControl1Group7: TdxLayoutGroup AutoAligns = [aaHorizontal] - AlignVert = avClient + AlignVert = avBottom Caption = 'Observaciones' object dxLayoutControl1Item6: TdxLayoutItem AutoAligns = [aaHorizontal] diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas index 808ec8ea..c42f1d47 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas @@ -12,7 +12,7 @@ uses cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo, uViewDireccionEntregaPresupuestoCliente, Buttons, ActnList, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, - uBizFormasPago, uViewTienda, uPresupuestosClienteController; + uBizFormasPago, uViewTienda, uPresupuestosClienteController, uEmpleadosController; type IViewPresupuestoCliente = interface(IViewBase) @@ -79,6 +79,7 @@ type FController : IPresupuestosClienteController; FFormasPago : IBizFormaPago; FFormasPagoController : IFormasPagoController; + FEmpleadosController : IEmpleadosController; FViewClientePresupuesto : TfrViewDatosYSeleccionCliente; function GetPresupuesto: IBizPresupuestoCliente; @@ -156,6 +157,10 @@ begin FFormasPagoController := TFormasPagoController.Create; FViewClientePresupuesto := frViewClientePresupuesto; FViewClientePresupuesto.MsgElegirCliente := 'Elija el cliente al que se le realizará el Presupuesto.'; + + FEmpleadosController := TEmpleadosController.Create; + frViewTienda1.dsVendedores.DataTable := FEmpleadosController.BuscarVendedores.DataTable; + frViewTienda1.dsVendedores.DataTable.Active := true; end; procedure TfrViewPresupuestoCliente.CustomViewDestroy(Sender: TObject); diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas index f583b8fd..acd69d50 100644 --- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas +++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas @@ -147,7 +147,7 @@ uses Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs, uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants, - uRecibosClienteReportController, uBizContactos, + uRecibosClienteReportController, uBizContactos, uDADelta, schRecibosClienteClient_Intf, uIEditorRecibosCliente, uIEditorReciboCliente, uIEditorElegirRecibosCliente, uDataModuleRecibosCliente, uIEditorFechaPago; @@ -691,11 +691,10 @@ begin end; function TRecibosClienteController.ImporteTotalModificado(ARecibosCliente : IBizRecibosCliente; var ImporteRestante: Currency) : Boolean; -//var -// HayCambio: TDADeltaChange; +var + HayCambio: TDADeltaChange; begin Result := False; -{ ImporteRestante := 0; HayCambio := ARecibosCliente.DataTable.Delta.FindChange(ARecibosCliente.RecNo); if (Assigned(HayCambio)) and @@ -705,7 +704,6 @@ begin if ImporteRestante <> 0 then Result := True; end; -} end; function TRecibosClienteController.Guardar(ARecibosCliente: IBizRecibosCliente): Boolean; @@ -723,18 +721,12 @@ begin begin ShowHourglassCursor; try -// if ARecibosCliente.EsNuevo then -// NuevoID := FDataModule.GetNextID(ARecibosCliente.DataTable.LogicalName) -// else -// NuevoID := ARecibosCliente.ID; - //Si el importe ha cambiado se debe hacer un recibo nuevo con el importe restante if ImporteTotalModificado(ARecibosCliente, ImporteRestante) then begin ANuevoReciboCliente := Duplicar(ARecibosCliente); ANuevoReciboCliente.Edit; ANuevoReciboCliente.REFERENCIA := DarNuevaReferencia(ARecibosCliente.ID_FACTURA, ARecibosCliente.REFERENCIA); -// ANuevoReciboCliente.ID := FDataModule.GetNextID(ARecibosCliente.DataTable.LogicalName); ANuevoReciboCliente.IMPORTE := ImporteRestante; ANuevoReciboCliente.DESCRIPCION := 'RECIBO ' + ANuevoReciboCliente.REFERENCIA + ' - ' + CifraToLetras(ImporteRestante); ANuevoReciboCliente.Post; diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas index c7ca3354..04bc6227 100644 --- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas +++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas @@ -142,7 +142,7 @@ uses Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs, uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants, - uRecibosProveedorReportController, uBizContactos, + uRecibosProveedorReportController, uBizContactos, uDADelta, schRecibosProveedorClient_Intf, uIEditorRecibosProveedor, uIEditorReciboProveedor, uDataModuleRecibosProveedor, uIEditorFechaPagoProveedor, uIEditorElegirRecibosProveedor; @@ -672,11 +672,9 @@ begin end; function TRecibosProveedorController.ImporteTotalModificado(ARecibosProveedor : IBizRecibosProveedor; var ImporteRestante: Currency) : Boolean; -//REPASAR -//var -// HayCambio: TDADeltaChange; +var + HayCambio: TDADeltaChange; begin -{ Result := False; ImporteRestante := 0; HayCambio := ARecibosProveedor.DataTable.Delta.FindChange(ARecibosProveedor.RecNo); @@ -687,7 +685,6 @@ begin if ImporteRestante <> 0 then Result := True; end; -} end; function TRecibosProveedorController.Guardar(ARecibosProveedor: IBizRecibosProveedor): Boolean; diff --git a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.dproj b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.dproj new file mode 100644 index 00000000..15a7c3ca --- /dev/null +++ b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.dproj @@ -0,0 +1,725 @@ + + + + {69494a8c-0a35-41ea-b8ec-ea790bfc0662} + AlbCli_FacCli_relation.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\AlbCli_FacCli_relation.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Borland Sample Components + Delphi 1.0 Compatibility Components + Borland MyBase DataAccess Components + TeeChart Components + Borland SimpleDataset Component (DBX) + ExpressBars extended items by Developer Express Inc. + ExpressBars by Developer Express Inc. + ExpressScheduler 2 by Developer Express Inc. + ExpressVerticalGrid by Developer Express Inc. + ExpressBars DBNavigator by Developer Express Inc. + ExpressBars extended DB items by Developer Express Inc. + ExpressSideBar by Developer Express Inc. + JVCL Band Objects + JVCL Non-Visual Components + JVCL Encryption and Compression Components + JVCL Dialog Components + JVCL Docking Components + JVCL DotNet Controls + JVCL EDI Components Designtime Package + JVCL HMI Controls design time unit + JVCL Interpreter Components + JVCL Jans Components + JVCL Managed Threads + JVCL Multimedia and Image Components + JVCL Network Components + JVCL Page Style Components + JVCL Plugin Components + JVCL Print Preview Components + JVCL Runtime Design Components + JVCL Time Framework + JVCL Unified Interbase Components + JVCL Validators and Error Provider Components + SMImport suite: data importing into dataset. Scalabium/Mike Shkolnik, 2000-2005 + SMExport suite: data export from dataset. Written by Mike Shkolnik/Scalabium, 1998-2004. + Intraweb 8.0 Design Package for Borland Development Studio 2006 + Internet Explorer Components + AlbCli_FacCli_relation.dpk + + + + + MainSource + + + + + + +
dmGenerarAlbaranesCli
+ + +
dmGenerarFacturasCli
+ + + + diff --git a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.groupproj b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.groupproj new file mode 100644 index 00000000..349a3938 --- /dev/null +++ b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.groupproj @@ -0,0 +1,84 @@ + + + {da39db63-310f-405e-918c-b25a1b64b363} + + + + + + + + + + + + Default.Personality + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas index 328269d0..0fa05c69 100644 --- a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas +++ b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas @@ -188,7 +188,7 @@ begin AAlbaran.DataTable.Active := True; try - AFacturasNuevas := AFacturasClienteController.Buscar(-100); //Nuevo; OJO pendiente de arreglar + AFacturasNuevas := AFacturasClienteController.Nuevo(False); if AFacturasClienteController.Anadir(AFacturasNuevas, AAlbaran) then begin if AFacturasNuevas.DataTable.RecordCount = 1 then diff --git a/Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas b/Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas index 12531b62..ec671860 100644 --- a/Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas +++ b/Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas @@ -189,7 +189,7 @@ begin try - AFacturasNuevas := AFacturasProveedorController.Nuevo; + AFacturasNuevas := AFacturasProveedorController.Nuevo(False); if AFacturasProveedorController.Anadir(AFacturasNuevas, AAlbaran) then begin if AFacturasNuevas.DataTable.RecordCount = 1 then diff --git a/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedProvUtils.pas b/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedProvUtils.pas index e9eee604..d4d56a81 100644 --- a/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedProvUtils.pas +++ b/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedProvUtils.pas @@ -179,7 +179,7 @@ begin APedidos.DataTable.Active := True; try - AFacturasNuevas := AFacturasProveedorController.Nuevo; + AFacturasNuevas := AFacturasProveedorController.Nuevo(False); if AFacturasProveedorController.Anadir(AFacturasNuevas, APedidos.ID) then begin if AFacturasNuevas.DataTable.RecordCount = 1 then diff --git a/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvUtils.pas b/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvUtils.pas index b6db56eb..22f67287 100644 --- a/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvUtils.pas +++ b/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvUtils.pas @@ -179,7 +179,7 @@ begin AAlbaranes.DataTable.Active := True; try - AFacturasNuevas := AFacturasProveedorController.Nuevo; + AFacturasNuevas := AFacturasProveedorController.Nuevo(False); if AFacturasProveedorController.Anadir(AFacturasNuevas, AAlbaranes) then begin if AFacturasNuevas.DataTable.RecordCount = 1 then diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 407e320e..b7008f6b 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 7de5ae54..65edb527 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -99,8 +99,6 @@ uses uRptEtiquetasContacto_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas' {RptEtiquetasContacto: TDataModule}, uRptFacturasCliente_Server in '..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas' {RptFacturasCliente: TDataModule}, uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule}, - schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', - schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', @@ -113,6 +111,8 @@ uses schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', + schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', + schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas'; diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 351e47b9..142ea6f0 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -14,7 +14,7 @@ BEGIN BEGIN VALUE "FileVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0" - VALUE "CompileDate", "jueves, 10 de enero de 2008 18:44\0" + VALUE "CompileDate", "lunes, 14 de enero de 2008 13:43\0" END END BLOCK "VarFileInfo"