diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index 82945d1..8422c90 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Build/Installer.fbl6 b/Build/Installer.fbl6 index 3e39b3f..8620f44 100644 Binary files a/Build/Installer.fbl6 and b/Build/Installer.fbl6 differ diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj index 54e841d..c7292b7 100644 --- a/Source/ApplicationBase/ApplicationBase.dproj +++ b/Source/ApplicationBase/ApplicationBase.dproj @@ -46,9 +46,6 @@ Package FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - RemObjects Data Abstract - SQLite Driver Microsoft Office 2000 Sample Automation Server Wrapper Components Microsoft Office XP Sample Automation Server Wrapper Components @@ -59,6 +56,43 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -83,43 +117,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fEditorEjercicio
TCustomEditor diff --git a/Source/ApplicationBase/ApplicationBase.res b/Source/ApplicationBase/ApplicationBase.res index 8b251f3..1641339 100644 Binary files a/Source/ApplicationBase/ApplicationBase.res and b/Source/ApplicationBase/ApplicationBase.res differ diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 426db58..ec64903 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -58,55 +58,55 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
TForm diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index b044e14..f44e3be 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,34 +58,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/uEditorDBItem.dfm b/Source/GUIBase/uEditorDBItem.dfm index 3493aa6..15294aa 100644 --- a/Source/GUIBase/uEditorDBItem.dfm +++ b/Source/GUIBase/uEditorDBItem.dfm @@ -21,7 +21,7 @@ inherited fEditorDBItem: TfEditorDBItem Width = 650 ExplicitWidth = 650 inherited tbxMain: TTBXToolbar - ExplicitWidth = 650 + ExplicitWidth = 605 inherited TBXItem26: TTBXItem Visible = False end @@ -77,14 +77,12 @@ inherited fEditorDBItem: TfEditorDBItem object pgPaginas: TPageControl [3] AlignWithMargins = True Left = 3 - Top = 112 + Top = 109 Width = 644 - Height = 325 + Height = 328 ActivePage = pagGeneral Align = alClient TabOrder = 2 - ExplicitTop = 109 - ExplicitHeight = 328 object pagGeneral: TTabSheet Caption = 'General' ExplicitLeft = 0 @@ -95,7 +93,7 @@ inherited fEditorDBItem: TfEditorDBItem end object PnlComentario: TPanel [4] Left = 0 - Top = 79 + Top = 76 Width = 650 Height = 30 Align = alTop @@ -105,7 +103,6 @@ inherited fEditorDBItem: TfEditorDBItem ParentBackground = False TabOrder = 4 VerticalAlignment = taAlignTop - ExplicitTop = 76 object lbComentario: TLabel AlignWithMargins = True Left = 6 diff --git a/Source/GUIBase/uViewDetallesDTO.dfm b/Source/GUIBase/uViewDetallesDTO.dfm index 6c53a6f..cbd129a 100644 --- a/Source/GUIBase/uViewDetallesDTO.dfm +++ b/Source/GUIBase/uViewDetallesDTO.dfm @@ -56,6 +56,11 @@ inherited frViewDetallesDTO: TfrViewDetallesDTO end end end + inherited TBXDock1: TTBXDock + inherited TBXToolbar1: TTBXToolbar + ExplicitWidth = 447 + end + end inherited ActionListContenido: TActionList inherited actAnadir: TAction Caption = 'A'#241'adir concepto' diff --git a/Source/GUIBase/uViewTotales.dfm b/Source/GUIBase/uViewTotales.dfm index e864060..77404d1 100644 --- a/Source/GUIBase/uViewTotales.dfm +++ b/Source/GUIBase/uViewTotales.dfm @@ -1,14 +1,14 @@ inherited frViewTotales: TfrViewTotales - Width = 860 + Width = 451 Height = 404 Align = alBottom - ExplicitWidth = 825 + ExplicitWidth = 451 ExplicitHeight = 404 object dxLayoutControl1: TdxLayoutControl AlignWithMargins = True Left = 0 Top = 0 - Width = 860 + Width = 451 Height = 233 Margins.Left = 0 Margins.Top = 0 @@ -19,16 +19,16 @@ inherited frViewTotales: TfrViewTotales TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth, acsHeight] - ExplicitWidth = 451 + ExplicitWidth = 860 object Bevel3: TBevel - Left = 423 + Left = 278 Top = 28 Width = 3 Height = 122 Shape = bsRightLine end object Bevel4: TBevel - Left = 535 + Left = 390 Top = 70 Width = 210 Height = 9 @@ -66,7 +66,7 @@ inherited frViewTotales: TfrViewTotales Width = 93 end object ImporteIVA: TcxDBCurrencyEdit - Left = 606 + Left = 461 Top = 105 AutoSize = False DataBinding.DataField = 'IMPORTE_IVA' @@ -97,7 +97,7 @@ inherited frViewTotales: TfrViewTotales Width = 137 end object ImporteTotal: TcxDBCurrencyEdit - Left = 536 + Left = 391 Top = 186 AutoSize = False DataBinding.DataField = 'IMPORTE_TOTAL' @@ -159,7 +159,7 @@ inherited frViewTotales: TfrViewTotales Width = 65 end object edtIVA: TcxDBSpinEdit - Left = 535 + Left = 390 Top = 105 AutoSize = False DataBinding.DataField = 'IVA' @@ -196,7 +196,7 @@ inherited frViewTotales: TfrViewTotales Width = 65 end object ImporteBase: TcxDBCurrencyEdit - Left = 535 + Left = 390 Top = 28 AutoSize = False DataBinding.DataField = 'BASE_IMPONIBLE' @@ -226,7 +226,7 @@ inherited frViewTotales: TfrViewTotales Width = 92 end object edtRE: TcxDBSpinEdit - Left = 535 + Left = 390 Top = 159 AutoSize = False DataBinding.DataField = 'RE' @@ -263,7 +263,7 @@ inherited frViewTotales: TfrViewTotales Width = 65 end object edtIRPF: TcxDBSpinEdit - Left = 535 + Left = 390 Top = 132 AutoSize = False DataBinding.DataSource = DADataSource @@ -299,7 +299,7 @@ inherited frViewTotales: TfrViewTotales Width = 65 end object ImporteRE: TcxDBCurrencyEdit - Left = 606 + Left = 461 Top = 159 AutoSize = False DataBinding.DataField = 'IMPORTE_RE' @@ -330,7 +330,7 @@ inherited frViewTotales: TfrViewTotales Width = 56 end object ImporteIRPF: TcxDBCurrencyEdit - Left = 606 + Left = 461 Top = 132 AutoSize = False DataBinding.DataSource = DADataSource @@ -453,7 +453,7 @@ inherited frViewTotales: TfrViewTotales Width = 81 end object bTiposIVA: TButton - Left = 275 + Left = 130 Top = 109 Width = 132 Height = 21 diff --git a/Source/Modulos/Articulos/Controller/Articulos_controller.RES b/Source/Modulos/Articulos/Controller/Articulos_controller.RES index 8b251f3..1641339 100644 Binary files a/Source/Modulos/Articulos/Controller/Articulos_controller.RES and b/Source/Modulos/Articulos/Controller/Articulos_controller.RES differ diff --git a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas index 981c76f..296fcd0 100644 --- a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas +++ b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas @@ -19,7 +19,7 @@ type function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1; const ACantidad: Float = 1): Boolean; overload; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); overload; - procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ADescuento: Float); overload; + procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ADescuento: Float; const AAll: Boolean = False); overload; procedure CambiarSignoDetalles(ADetalles: IDAStronglyTypedDataTable; const AAll: Boolean = True); procedure AnadirConceptoInicial(ADetalles: IDAStronglyTypedDataTable; AConcepto: String); end; @@ -44,7 +44,7 @@ type function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1; const ACantidad: Float = 1): Boolean; overload; procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True); procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); overload; - procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ADescuento: Float); overload; + procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ADescuento: Float; const AAll: Boolean = False); overload; procedure CambiarSignoDetalles(ADetalles: IDAStronglyTypedDataTable; const AAll: Boolean = True); procedure AnadirConceptoInicial(ADetalles: IDAStronglyTypedDataTable; AConcepto: String); @@ -102,9 +102,11 @@ begin end; end; -procedure TControllerDetallesArticulos.ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ADescuento: Float); +procedure TControllerDetallesArticulos.ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ADescuento: Float; const AAll: Boolean = False); +// AAll => True -> cambiar los descuento en todas los conceptos, False -> sólo en los conceptos con cantidades/importe var ACantidad: Float; + ACambiar : Boolean; begin if Assigned(ADetalles) then begin @@ -115,18 +117,27 @@ begin begin while not EOF do begin - Edit; - try - if (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_CONCEPTO) then + ACambiar := True; + if (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_CONCEPTO) then + begin + if (not AAll) and (ADetalles.DataTable.FieldByName('CANTIDAD').IsNull and ADetalles.DataTable.FieldByName('IMPORTE_UNIDAD').IsNull) then + ACambiar := False; + if ACambiar then begin - //Para mantener la cantidad que ya tuviera el detalle se debe guardar y volver a poner - ADetalles.DataTable.FieldByName('DESCUENTO').AsFloat := ADescuento; + Edit; + try + // Cuando el descuento es 0, quitar cualquier valor en el campo. + if (ADescuento <> 0) then + ADetalles.DataTable.FieldByName('DESCUENTO').AsFloat := ADescuento + else + ADetalles.DataTable.FieldByName('DESCUENTO').Clear; + except + on E: Exception do + ShowMessage(E.Message); + end; end; - except - on E: Exception do - ShowMessage(E.Message); end; - Next; + Next; end; //Volvemos a dejarlo al principio ADetalles.DataTable.First; diff --git a/Source/Modulos/Articulos/Data/Articulos_data.RES b/Source/Modulos/Articulos/Data/Articulos_data.RES index 8b251f3..1641339 100644 Binary files a/Source/Modulos/Articulos/Data/Articulos_data.RES and b/Source/Modulos/Articulos/Data/Articulos_data.RES differ diff --git a/Source/Modulos/Articulos/Views/Articulos_view.RES b/Source/Modulos/Articulos/Views/Articulos_view.RES index 8b251f3..1641339 100644 Binary files a/Source/Modulos/Articulos/Views/Articulos_view.RES and b/Source/Modulos/Articulos/Views/Articulos_view.RES differ diff --git a/Source/Modulos/Articulos/Views/Articulos_view.dproj b/Source/Modulos/Articulos/Views/Articulos_view.dproj index 285e1e5..d273fa4 100644 --- a/Source/Modulos/Articulos/Views/Articulos_view.dproj +++ b/Source/Modulos/Articulos/Views/Articulos_view.dproj @@ -54,12 +54,12 @@ MainSource - - - - - - + + + + + +
fEditorArticulo
diff --git a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas index f14e2d0..c5a969a 100644 --- a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas +++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas @@ -28,11 +28,13 @@ type procedure CustomViewDestroy(Sender: TObject); procedure actAnadirArticulosExecute(Sender: TObject); procedure actAnadirArticulosUpdate(Sender: TObject); + procedure OnValidateCantidad(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); procedure OnValidateReferencia(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); procedure OnValidateReferenciaProveedor(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); procedure CustomViewShow(Sender: TObject); protected + procedure ValidarCantidadInterno(var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); virtual; procedure AnadirArticulosInterno; virtual; procedure RellenarArticulosInterno; virtual; function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; virtual; @@ -68,6 +70,7 @@ begin inherited; cxGridViewREFERENCIA.Properties.OnValidate := OnValidateReferencia; cxGridViewREFERENCIA_PROVEEDOR.Properties.OnValidate := OnValidateReferenciaProveedor; + cxGridViewCANTIDAD.Properties.OnValidate := OnValidateCantidad; end; procedure TfrViewDetallesArticulos.CustomViewDestroy(Sender: TObject); @@ -75,6 +78,7 @@ begin inherited; cxGridViewREFERENCIA.Properties.OnValidate := Nil; cxGridViewREFERENCIA_PROVEEDOR.Properties.OnValidate := Nil; + cxGridViewCANTIDAD.Properties.OnValidate := Nil; end; procedure TfrViewDetallesArticulos.CustomViewShow(Sender: TObject); @@ -83,6 +87,12 @@ begin SeleccionarRowActual; end; +procedure TfrViewDetallesArticulos.OnValidateCantidad(Sender: TObject; + var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); +begin + Self.ValidarCantidadInterno(DisplayValue, ErrorText, Error); +end; + procedure TfrViewDetallesArticulos.OnValidateReferencia(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var lsReferencia : String; @@ -127,6 +137,14 @@ begin (Controller as IControllerDetallesArticulos).AnadirArticulos(Detalles, False); end; +procedure TfrViewDetallesArticulos.ValidarCantidadInterno( + var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); +begin + // Este procedimiento sirve para hacer cosas cuando la CANTIDAD cambia. + // Por ejemplo, meter automáticamente el descuento de línea. + // Se sobreescribe en herencia. +end; + procedure TfrViewDetallesArticulos.actAnadirArticulosUpdate(Sender: TObject); begin inherited; diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.RES b/Source/Modulos/Contactos/Controller/Contactos_controller.RES index 8b251f3..1641339 100644 Binary files a/Source/Modulos/Contactos/Controller/Contactos_controller.RES and b/Source/Modulos/Contactos/Controller/Contactos_controller.RES differ diff --git a/Source/Modulos/Contactos/Data/Contactos_data.RES b/Source/Modulos/Contactos/Data/Contactos_data.RES index 8b251f3..1641339 100644 Binary files a/Source/Modulos/Contactos/Data/Contactos_data.RES and b/Source/Modulos/Contactos/Data/Contactos_data.RES differ diff --git a/Source/Modulos/Contactos/Model/Contactos_model.RES b/Source/Modulos/Contactos/Model/Contactos_model.RES index 8b251f3..1641339 100644 Binary files a/Source/Modulos/Contactos/Model/Contactos_model.RES and b/Source/Modulos/Contactos/Model/Contactos_model.RES differ diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj index 1feddfa..7443283 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.dproj +++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj @@ -47,41 +47,41 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorCliente
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.res b/Source/Modulos/Contactos/Views/Contactos_view.res index 8b251f3..1641339 100644 Binary files a/Source/Modulos/Contactos/Views/Contactos_view.res and b/Source/Modulos/Contactos/Views/Contactos_view.res differ diff --git a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.RES b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.RES index 8b251f3..1641339 100644 Binary files a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.RES and b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.RES differ diff --git a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dproj b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dproj index 607dfed..29fccc1 100644 --- a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dproj +++ b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dproj @@ -49,18 +49,18 @@ MainSource + + + + + + + + - - - - - - - - diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas index dcd1be9..a3ee6bd 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas @@ -3,7 +3,7 @@ unit schContratosClienteClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids @@ -261,7 +261,7 @@ type end; { TValoresDataTableRules } - TValoresDataTableRules = class(TDADataTableRules, IValores) + TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores) private protected { Property getters and setters } @@ -320,7 +320,7 @@ type end; { TPropiedadesDataTableRules } - TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades) + TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades) private protected { Property getters and setters } @@ -367,7 +367,7 @@ type end; { TListaAnosContratosDataTableRules } - TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos) + TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos) private protected { Property getters and setters } @@ -480,7 +480,7 @@ type end; { TContratosClienteBeneficiosDataTableRules } - TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios) + TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios) private protected { Property getters and setters } @@ -859,7 +859,7 @@ type end; { TContratosClienteDataTableRules } - TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente) + TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente) private f_FORMA_PAGO: IROStrings; f_PLAZO_ENTREGA: IROStrings; @@ -1201,7 +1201,7 @@ type end; { TTiposCapitulosDataTableRules } - TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos) + TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos) private protected { Property getters and setters } @@ -1356,7 +1356,7 @@ type end; { TContratosCliente_DetallesDataTableRules } - TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles) + TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles) private protected { Property getters and setters } diff --git a/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.RES b/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.RES index 8b251f3..1641339 100644 Binary files a/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.RES and b/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.RES differ diff --git a/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.dproj b/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.dproj index 38d8dbc..2723ee6 100644 --- a/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.dproj +++ b/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.dproj @@ -49,9 +49,9 @@ MainSource - - - + + + diff --git a/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.RES b/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.RES index 8b251f3..1641339 100644 Binary files a/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.RES and b/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.RES differ diff --git a/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.dproj b/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.dproj index 76595de..43f39f8 100644 --- a/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.dproj +++ b/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.dproj @@ -49,7 +49,7 @@ MainSource - +
DataModuleGestorDocumentos
 diff --git a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.RES b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.RES index 8b251f3..1641339 100644 Binary files a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.RES and b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.RES differ diff --git a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dproj b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dproj index 70d8308..0c5f4c7 100644 --- a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dproj +++ b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dproj @@ -38,10 +38,10 @@ MainSource + + + - - - diff --git a/Source/Modulos/Historico de movimientos/Controller/HistoricoMovimientos_controller.RES b/Source/Modulos/Historico de movimientos/Controller/HistoricoMovimientos_controller.RES new file mode 100644 index 0000000..8b251f3 Binary files /dev/null and b/Source/Modulos/Historico de movimientos/Controller/HistoricoMovimientos_controller.RES differ diff --git a/Source/Modulos/Historico de movimientos/Data/HistoricoMovimientos_data.RES b/Source/Modulos/Historico de movimientos/Data/HistoricoMovimientos_data.RES new file mode 100644 index 0000000..8b251f3 Binary files /dev/null and b/Source/Modulos/Historico de movimientos/Data/HistoricoMovimientos_data.RES differ diff --git a/Source/Modulos/Historico de movimientos/Model/HistoricoMovimientos_model.RES b/Source/Modulos/Historico de movimientos/Model/HistoricoMovimientos_model.RES new file mode 100644 index 0000000..8b251f3 Binary files /dev/null and b/Source/Modulos/Historico de movimientos/Model/HistoricoMovimientos_model.RES differ diff --git a/Source/Modulos/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.RES b/Source/Modulos/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.RES new file mode 100644 index 0000000..8b251f3 Binary files /dev/null and b/Source/Modulos/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.RES differ diff --git a/Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.RES b/Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.RES new file mode 100644 index 0000000..8b251f3 Binary files /dev/null and b/Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.RES differ diff --git a/Source/Modulos/Inventario/Controller/Inventario_controller.RES b/Source/Modulos/Inventario/Controller/Inventario_controller.RES new file mode 100644 index 0000000..8b251f3 Binary files /dev/null and b/Source/Modulos/Inventario/Controller/Inventario_controller.RES differ diff --git a/Source/Modulos/Inventario/Data/Inventario_data.RES b/Source/Modulos/Inventario/Data/Inventario_data.RES new file mode 100644 index 0000000..8b251f3 Binary files /dev/null and b/Source/Modulos/Inventario/Data/Inventario_data.RES differ diff --git a/Source/Modulos/Inventario/Model/Inventario_model.RES b/Source/Modulos/Inventario/Model/Inventario_model.RES new file mode 100644 index 0000000..8b251f3 Binary files /dev/null and b/Source/Modulos/Inventario/Model/Inventario_model.RES differ diff --git a/Source/Modulos/Inventario/Plugin/Inventario_plugin.RES b/Source/Modulos/Inventario/Plugin/Inventario_plugin.RES new file mode 100644 index 0000000..8b251f3 Binary files /dev/null and b/Source/Modulos/Inventario/Plugin/Inventario_plugin.RES differ diff --git a/Source/Modulos/Inventario/Views/Inventario_view.RES b/Source/Modulos/Inventario/Views/Inventario_view.RES new file mode 100644 index 0000000..8b251f3 Binary files /dev/null and b/Source/Modulos/Inventario/Views/Inventario_view.RES differ diff --git a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.RES b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.RES index 8b251f3..1641339 100644 Binary files a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.RES and b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.RES differ diff --git a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj index a002c2b..06125d0 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj +++ b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj @@ -49,12 +49,12 @@ MainSource - - - - - - + + + + + + diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas index dbfff67..1f4a6db 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas @@ -59,28 +59,18 @@ type implementation -uses DB, Controls, SysUtils, Dialogs, uDAInterfaces, uDialogUtils, Variants, uDataModulePresupuestosCliente, - uArticulosPresupuestoClienteController, schPresupuestosClienteClient_Intf, - uDataTableUtils, uCalculosUtils, uIEditorAsignarDescuento, uEditorRegistryUtils, - uFactuGES_App; +uses + DB, Controls, SysUtils, Dialogs, uDAInterfaces, uDialogUtils, Variants, uDataModulePresupuestosCliente, + uArticulosPresupuestoClienteController, schPresupuestosClienteClient_Intf, + uDataTableUtils, uCalculosUtils, uIEditorAsignarDescuento, uEditorRegistryUtils, + uFactuGES_App, Windows; { TDetallesPresupuestoClienteController } procedure TDetallesPresupuestoClienteController.ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); -var - AArticulos : IBizArticulo; begin if Assigned(ADetalles) then - begin - try -// AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo); -// ActualizarDetalles(ADetalles, AArticulos); - ActualizarDetalles(ADetalles, ACliente.DESCUENTO_LINEA); - ShowInfoMessage('Se ha actualizado el descuento para el cliente seleccionado'); - finally - AArticulos := Nil; - end; - end; + ActualizarDetalles(ADetalles, ACliente.DESCUENTO_LINEA); end; procedure TDetallesPresupuestoClienteController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean); diff --git a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.RES b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.RES index 8b251f3..1641339 100644 Binary files a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.RES and b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.RES differ diff --git a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj index f6e7824..66e04f6 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj +++ b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj @@ -49,7 +49,7 @@ MainSource - +
DataModulePresupuestosCliente
 diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.RES b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.RES index 8b251f3..1641339 100644 Binary files a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.RES and b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.RES differ diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj index b303edc..15fb3e5 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj +++ b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj @@ -43,10 +43,6 @@ Package FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - - RemObjects Pascal Script - RemObjects SDK 3.0 Integration EurekaLog 5.1.9 PresupuestosCliente_model.dpk @@ -56,21 +52,21 @@ MainSource - - - - + + + + + + + + + - - - - -