From 3219c484f06e74d9cc3e58b1dffb9d78fdfe127d Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 3 Mar 2009 16:07:16 +0000 Subject: [PATCH] =?UTF-8?q?Se=20a=C3=B1ade=20la=20operacion=20de=20asignar?= =?UTF-8?q?=20domiciliacion=20a=20un=20conjunto=20de=20facturas=20de=20pro?= =?UTF-8?q?veedor?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@916 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Base/Base.dproj | 102 +++--- .../Reports/uRptWordAlbaranProveedor.pas | 11 +- .../Reports/uRptWordFacturaCliente.pas | 13 +- .../FacturasProveedor_controller.dpk | Bin 1392 -> 1466 bytes .../FacturasProveedor_controller.dproj | 20 +- .../View/uIEditorElegirDomiciliacion.pas | 18 + .../uFacturasProveedorController.pas | 50 ++- .../Views/FacturasProveedor_view.dpk | Bin 2184 -> 2309 bytes .../Views/FacturasProveedor_view.dproj | 63 ++-- .../Views/uEditorElegirDomiciliacion.dfm | 87 +++++ .../Views/uEditorElegirDomiciliacion.pas | 88 +++++ .../Views/uEditorFacturasProveedor.dfm | 317 +++++++++++++++++- .../Views/uEditorFacturasProveedor.pas | 144 +++----- .../Views/uFacturasProveedorViewRegister.pas | 5 +- .../Reports/uRptWordPedidoProveedor.pas | 7 +- .../Reports/uRptWordPresupuestoCliente.pas | 6 +- Source/Servidor/FactuGES_Server.RES | Bin 23200 -> 23200 bytes Source/Servidor/FactuGES_Server.rc | 2 +- 18 files changed, 737 insertions(+), 196 deletions(-) create mode 100644 Source/Modulos/Facturas de proveedor/Controller/View/uIEditorElegirDomiciliacion.pas create mode 100644 Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.dfm create mode 100644 Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.pas diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index b7d219a9..f1971bee 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -54,58 +54,58 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
TForm diff --git a/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas index a6cdc24c..c7c9cbee 100644 --- a/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas @@ -134,8 +134,15 @@ begin Cell(iRowCount, 3).Range.Text := FieldByName('CONCEPTO').AsString; Cell(iRowCount, 4).Range.Text := FieldByName('CANTIDAD').AsString + ' ' + FieldByName('UNIDAD_MEDIDA').AsString; - Cell(iRowCount, 5).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat); - Cell(iRowCount, 6).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat); + if (FieldByName('IMPORTE_UNIDAD').AsFloat = 0) then + Cell(iRowCount, 5).Range.Text := '' + else + Cell(iRowCount, 5).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat); + + if (FieldByName('IMPORTE_TOTAL').AsFloat = 0) then + Cell(iRowCount, 6).Range.Text := '' + else + Cell(iRowCount, 6).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat); Next; Inc (iRowCount); end; diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas index 8196b741..33f32478 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas @@ -154,8 +154,17 @@ begin Rows.Item(iContador).Cells.Split (numRows, numCols, mergesplit); Cell(iContador, 1).Range.Text := FieldByName('CONCEPTO').AsString; Cell(iContador, 2).Range.Text := FieldByName('CANTIDAD').AsString; - Cell(iContador, 3).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat); - Cell(iContador, 4).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat); + + if (FieldByName('IMPORTE_UNIDAD').AsFloat = 0) then + Cell(iContador, 3).Range.Text := '' + else + Cell(iContador, 3).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat); + + if (FieldByName('IMPORTE_TOTAL').AsFloat = 0) then + Cell(iContador, 4).Range.Text := '' + else + Cell(iContador, 4).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat); + TotalConceptos := TotalConceptos + FieldByName('IMPORTE_TOTAL').AsFloat; Next; Inc (iContador); diff --git a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk index d35bb3423919843d4ade5787c0e1479d1539c9ee..fe1254598d639861c46087940c7c96ad06bbfdb8 100644 GIT binary patch delta 85 zcmeyswTpX03hU$wW?oO%oYeHpBA5K!%;e0R%*5o({5*xsJO%Zz%+&IjQcu^E%#!>f XEQ<6B5{uQXdAWGGQu9*uc)1t=LZ2Ni delta 20 bcmdnR{ef#k3M-E_FBdOYYF>&SFBby + + {7ed85635-c723-4c0b-bf1d-f719e0ea33ad} FacturasProveedor_controller.dpk @@ -48,19 +49,20 @@ MainSource - - - - - - - - + + + + + + + + + diff --git a/Source/Modulos/Facturas de proveedor/Controller/View/uIEditorElegirDomiciliacion.pas b/Source/Modulos/Facturas de proveedor/Controller/View/uIEditorElegirDomiciliacion.pas new file mode 100644 index 00000000..ba41fe5a --- /dev/null +++ b/Source/Modulos/Facturas de proveedor/Controller/View/uIEditorElegirDomiciliacion.pas @@ -0,0 +1,18 @@ +unit uIEditorElegirDomiciliacion; + +interface + +uses + uEditorBasico; + +type + IEditorElegirDomiciliacion = interface(IEditorBasico) + ['{35DDA0EC-8A96-432E-9721-755CD52923FA}'] + function GetCuentaBancaria: String; + procedure SetCuentaBancaria(const Value: String); + property CuentaBancaria: String Read GetCuentaBancaria write SetCuentaBancaria; + end; + +implementation + +end. diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 025d45be..66bb5c55 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -53,6 +53,8 @@ type function DarListaAnosFacturas: TStringList; procedure FiltrarAno(AFactura: IBizFacturaProveedor; ADynWhereDataTable: WideString; const Ano: String); + + function AsignarCuentaBancaria(AFacturas: IBizFacturaProveedor): TStringList; end; TFacturasProveedorController = class(TControllerBase, IFacturasProveedorController) @@ -119,6 +121,8 @@ type function DarListaAnosFacturas: TStringList; procedure FiltrarAno(AFactura: IBizFacturaProveedor; ADynWhereDataTable: WideString; const Ano: String); + + function AsignarCuentaBancaria(AFacturas: IBizFacturaProveedor): TStringList; end; implementation @@ -133,7 +137,8 @@ uses uBizPedidosProveedor, uPedidosProveedorController, uBizDetallesPedidoProveedor, uRecibosProveedorController, uBizRecibosProveedor, uNumUtils, uFacturasProveedorReportController, DateUtils, Forms, Dialogs, - uFormasPagoController, uBizFormasPago, uStringsUtils; + uFormasPagoController, uBizFormasPago, uStringsUtils, + uIEditorElegirDomiciliacion; procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoProveedor; ADestino : IBizDetallesFacturaProveedor); @@ -250,10 +255,51 @@ begin AFactura.TIPO := CTE_TIPO_ABONO; end; +function TFacturasProveedorController.AsignarCuentaBancaria(AFacturas: IBizFacturaProveedor): TStringList; +//Devolverá la lista de facturas que no han podido ser modificadas referencia=nombreproveedor +var + AEditor : IEditorElegirDomiciliacion; + ACuentaBancaria: String; + +begin + Result := TStringList.Create; + + if Assigned(AFacturas) then + begin + CreateEditor('EditorElegirDomiciliacion', IEditorElegirDomiciliacion, AEditor); + if Assigned(AEditor) then + try + if (AEditor.ShowModal = mrOk) then + ACuentaBancaria := AEditor.CuentaBancaria; + finally + AEditor.Release; + AEditor := NIL; + end; + + with AFacturas.DataTable do + begin + First; + while not EOF do + begin + if (AFacturas.SITUACION = CTE_PENDIENTE) then + begin + Edit; + AFacturas.DATOS_BANCARIOS := ACuentaBancaria; + Post; + end + else + Result.Add(Format('%s=%s', [AFacturas.REFERENCIA, AFacturas.NOMBRE])); + Next; + end; + ApplyUpdates; + end; + end; +end; + function TFacturasProveedorController.Buscar(const ID: Integer): IBizFacturaProveedor; begin Result := (FDataModule as IDataModuleFacturasProveedor).GetItem(ID); - FiltrarEmpresa(Result); + FiltrarEmpresa(Result); end; function TFacturasProveedorController.BuscarTodos( diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk index a49e4b19839fe7f3b41a82a22aa3dfd4eab405fe..aa9086450b4ba0e86da6157457a9ea63ddbaf240 100644 GIT binary patch delta 137 zcmeAWY!%v2!!fymou}3{CpA5@$R$5FGdVLSGch?cKTjbuPeHxZH6^nozX*%8UO{59 cxJZ#e!@*Package FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - RemObjects Pascal Script - RemObjects SDK 3.0 Integration FacturasProveedor_view.dpk @@ -50,39 +49,38 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + +
fEditorElegirArticulosFacturaProveedor
TfEditorElegirArticulosFacturaProveedor + +
fEditorElegirDomiciliacion
+ TfEditorFacturaProveedor +
fEditorFacturaProveedor
TfEditorFacturaProveedor @@ -116,6 +114,11 @@
frViewPedidosFacturaProveedor
TFrame + + + + +