diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 50c04110..9837f7e7 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -58,47 +58,47 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339f..8b251f31 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 8597f983..1615504f 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -53,7 +53,15 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2150FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.1.5.0FactuGESFactuGES2.1.5 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2160FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.1.6.0FactuGESFactuGES2.1.6 + + + + + + + + diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 55ec8346..f23c3bf1 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 2,1,5,0 -PRODUCTVERSION 2,1,5,0 +FILEVERSION 2,1,6,0 +PRODUCTVERSION 2,1,6,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.1.5.0\0" + VALUE "FileVersion", "2.1.6.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "2.1.5\0" + VALUE "ProductVersion", "2.1.6\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index da6c3ec7..fb80b602 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Modulos/Contactos/Views/Contactos_view.res b/Source/Modulos/Contactos/Views/Contactos_view.res index 1641339f..8b251f31 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/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 3d11300c..86a083b2 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -1123,6 +1123,9 @@ begin ARecibos := ARecibosProveedorController.Nuevo; ARecibos.Edit; ARecibos.ID_FACTURA := AFactura.ID; + ARecibos.ID_EMPRESA := AFactura.ID_EMPRESA; + ARecibos.ID_PROVEEDOR := AFactura.ID_PROVEEDOR; + ARecibos.ID_TIENDA := AFactura.ID_TIENDA; ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i); ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS; ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100); diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas index 3edb477d..874caa64 100644 --- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas +++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas @@ -64,7 +64,7 @@ type procedure Ver(ARecibosProveedor: IBizRecibosProveedor); function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor) : IBizRecibosProveedor; - procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer); + procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer); procedure QuitarRemesa(ARecibos : IBizRecibosProveedor); procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False); function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor; @@ -134,7 +134,7 @@ type function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor; function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean; - procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer); + procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer); procedure QuitarRemesa(ARecibos : IBizRecibosProveedor); procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor); @@ -200,7 +200,7 @@ begin FDataModule := TDataModuleRecibosProveedor.Create(Nil); end; -procedure TRecibosProveedorController.AsignarRemesa(ARecibos: IBizRecibosProveedor; ID_REMESA: Integer); +procedure TRecibosProveedorController.AsignarRemesa(ARecibos: IBizRecibosProveedor; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer); begin if Assigned(ARecibos) then begin @@ -214,7 +214,7 @@ begin ARecibos.Edit; //Añadimos el cobro automatico por la remesa y volvemos a asignar ID //para que asigne un ID nuevo para el pago, porque aqui si hay maestro-detalle - AnadirPago(ARecibos, DateToStr(Date)); //->Ojo el orden es importante + AnadirPago(ARecibos, DateToStr(Date), AIgnorarContabilidad, ASubCuenta); //->Ojo el orden es importante ARecibos.ID_REMESA := ID_REMESA; end; Next; diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas index 17d92a03..5340b787 100644 --- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas +++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_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_RecibosCompensadosProv = '{362F2794-809B-43D0-90F9-7FE72E40A77A}'; - RID_RecibosProveedor = '{DDB0A83D-84A4-4660-9764-9F8C1360CD1C}'; - RID_PagosProveedor = '{E23DEA9F-5274-4F6A-BB81-20EC4D7ABD9A}'; + RID_RecibosCompensadosProv = '{4B1C7D25-644C-48D0-AEE4-CC9550B2BE38}'; + RID_RecibosProveedor = '{5B4F59D6-3CCF-4CDC-AEF7-2D6CC9B0D15E}'; + RID_PagosProveedor = '{203C3208-8FC4-4F73-BAE2-1D1BFEF39723}'; { Data table names } nme_RecibosCompensadosProv = 'RecibosCompensadosProv'; @@ -207,7 +207,7 @@ const type { IRecibosCompensadosProv } IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable) - ['{2D6D983B-A8D2-4403-A3B3-61EFCF0F042D}'] + ['{D94DD004-FFDD-4330-AC00-3E4E09F4FC67}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -674,7 +674,7 @@ type { IRecibosProveedor } IRecibosProveedor = interface(IDAStronglyTypedDataTable) - ['{976CC618-6A45-422A-A629-C8950DADCB5A}'] + ['{FE0D44F1-A003-4330-B813-ADA31C7FA574}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1141,7 +1141,7 @@ type { IPagosProveedor } IPagosProveedor = interface(IDAStronglyTypedDataTable) - ['{CB465AC1-DF0E-43AC-89B6-3AD01EFE5DD2}'] + ['{B56F776D-E8BE-4985-843C-47113E7F12E3}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas index 3e6337cb..811bb743 100644 --- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas +++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_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_RecibosCompensadosProvDelta = '{BC31F43C-6FA7-4B92-8E36-FDA10B7C944E}'; - RID_RecibosProveedorDelta = '{AC23DD73-5C9C-4C92-8637-D50386E731AE}'; - RID_PagosProveedorDelta = '{BF21E199-2B2A-41D2-BA3B-FB5A7E5EBC03}'; + RID_RecibosCompensadosProvDelta = '{57A7D303-D615-4C99-B0C9-E1D7235B3E75}'; + RID_RecibosProveedorDelta = '{C279FC0A-98AF-4CB3-9967-31D34AE6314D}'; + RID_PagosProveedorDelta = '{D2394B2A-39B5-49A2-ABA9-F541C6DAFD36}'; type { IRecibosCompensadosProvDelta } IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv) - ['{BC31F43C-6FA7-4B92-8E36-FDA10B7C944E}'] + ['{57A7D303-D615-4C99-B0C9-E1D7235B3E75}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -482,7 +482,7 @@ type { IRecibosProveedorDelta } IRecibosProveedorDelta = interface(IRecibosProveedor) - ['{AC23DD73-5C9C-4C92-8637-D50386E731AE}'] + ['{C279FC0A-98AF-4CB3-9967-31D34AE6314D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -948,7 +948,7 @@ type { IPagosProveedorDelta } IPagosProveedorDelta = interface(IPagosProveedor) - ['{BF21E199-2B2A-41D2-BA3B-FB5A7E5EBC03}'] + ['{D2394B2A-39B5-49A2-ABA9-F541C6DAFD36}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBOValue : Integer; diff --git a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm index 72ee82a7..7903a76d 100644 --- a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm +++ b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm @@ -995,6 +995,14 @@ object srvRecibosProveedor: TsrvRecibosProveedor Name = 'REFERENCIA_PROVEEDOR' Value = '' end + item + Name = 'ID_EMPRESA' + Value = '' + end + item + Name = 'ID_PROVEEDOR' + Value = '' + end item Name = 'FECHA_EMISION' Value = '' diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm b/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm index 8319eb48..36661ced 100644 --- a/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm +++ b/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm @@ -1,24 +1,22 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente - Width = 476 - Height = 224 + Width = 451 + Height = 304 Align = alClient ExplicitWidth = 451 ExplicitHeight = 304 object dxLayoutControlRemesaCliente: TdxLayoutControl Left = 0 Top = 0 - Width = 476 - Height = 224 + Width = 451 + Height = 304 Align = alClient ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 - ExplicitWidth = 451 - ExplicitHeight = 304 DesignSize = ( - 476 - 224) + 451 + 304) object eReferencia: TcxDBTextEdit Left = 110 Top = 30 @@ -63,7 +61,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente Width = 108 end object edtFechaRemesa: TcxDBDateEdit - Left = 324 + Left = 311 Top = 30 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_REMESA' @@ -163,8 +161,8 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente Width = 376 end inherited eContabilizar: TcxCheckBox - Left = 293 - ExplicitLeft = 293 + Left = 276 + ExplicitLeft = 276 ExplicitWidth = 203 Width = 203 end diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas b/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas index d4c38fb0..629cc2a0 100644 --- a/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas +++ b/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas @@ -120,7 +120,6 @@ begin dxlcCuentaBancaria.visible := true; dxlcCuentaContable.Visible := false; {$ENDIF} - end; function TfrViewRemesaCliente.GetController: IRemesasClienteController; diff --git a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas index 4de3e169..ceca2e29 100644 --- a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas +++ b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas @@ -19,7 +19,7 @@ type procedure Anadir(ARemesaProveedor : IBizRemesaProveedor); function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false): Boolean; overload; - function Guardar(ARemesaProveedor : IBizRemesaProveedor): Boolean; + function Guardar(ARemesaProveedor : IBizRemesaProveedor; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean; procedure DescartarCambios(ARemesaProveedor : IBizRemesaProveedor); function Existe(const ID: Integer) : Boolean; @@ -63,7 +63,7 @@ type function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false): Boolean; overload; - function Guardar(ARemesaProveedor : IBizRemesaProveedor): Boolean; + function Guardar(ARemesaProveedor : IBizRemesaProveedor; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean; procedure DescartarCambios(ARemesaProveedor : IBizRemesaProveedor); virtual; function Existe(const ID: Integer) : Boolean; virtual; procedure Anadir(ARemesaProveedor : IBizRemesaProveedor); virtual; @@ -84,6 +84,7 @@ type end; implementation +{$INCLUDE ..\..\..\FactuGES.inc} uses cxControls, DB, uEditorRegistryUtils, schRemesasProveedorClient_Intf, uFactuGES_App, @@ -199,8 +200,11 @@ begin if ARemesaProveedor.DataTable.FieldByName(fld_RemesasProveedorFECHA_REMESA).IsNull then raise Exception.Create('Debe indicar la fecha de esta remesa.'); - if ARemesaProveedor.ID_DATOS_BANCO < 1 then - raise Exception.Create('Debe la cuenta bancaria sobre la que realizará la remesa.'); + {$IFDEF CONTABILIDAD} + {$ELSE} + if ARemesaProveedor.ID_DATOS_BANCO < 1 then + raise Exception.Create('Debe la cuenta bancaria sobre la que realizará la remesa.'); + {$ENDIF} // Asegurarse de valores en campos "automáticos" ARemesaProveedor.Edit; @@ -480,7 +484,7 @@ begin Result := FRecibosProveedorController; end; -function TRemesasProveedorController.Guardar(ARemesaProveedor: IBizRemesaProveedor): Boolean; +function TRemesasProveedorController.Guardar(ARemesaProveedor: IBizRemesaProveedor; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean; var bEsNuevo: Boolean; begin @@ -497,7 +501,7 @@ begin //Si todo ha ido bien, asignamos la remesa a los recibos asociados //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros - RecibosProveedorController.AsignarRemesa(ARemesaProveedor.Recibos, ARemesaProveedor.ID); + RecibosProveedorController.AsignarRemesa(ARemesaProveedor.Recibos, ARemesaProveedor.ID, AIgnorarContabilidad, ASubCuenta); ARemesaProveedor.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboProveedor/ ElegirRecibosProveedor) //Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen diff --git a/Source/Modulos/Remesas de proveedor/RemesasProveedor_Group.groupproj b/Source/Modulos/Remesas de proveedor/RemesasProveedor_Group.groupproj index c59c4fd0..10343349 100644 --- a/Source/Modulos/Remesas de proveedor/RemesasProveedor_Group.groupproj +++ b/Source/Modulos/Remesas de proveedor/RemesasProveedor_Group.groupproj @@ -9,6 +9,8 @@ + + @@ -111,14 +113,32 @@ + + + + + + + + + + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dpk b/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dpk index 6d75ffbe..ac1bd13c 100644 --- a/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dpk +++ b/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dpk @@ -32,7 +32,9 @@ requires teeUI, tee, fsTee11, - frxTee11; + frxTee11, + Contabilidad_view, + Contabilidad_controller; contains uViewRemesasProveedor in 'uViewRemesasProveedor.pas' {frViewRemesasProveedor: TFrame}, diff --git a/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dproj b/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dproj index f697d4a9..e49a7241 100644 --- a/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dproj +++ b/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dproj @@ -47,61 +47,23 @@ 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 - - - - RemesasProveedor_view.dpk - - +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0RemesasProveedor_view.dpk MainSource - - - - - - - - + + + + + + + + + +
fEditorRemesaProveedor
TfEditorRemesaCliente @@ -129,7 +91,6 @@ -