Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Version 4.1.9

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@172 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2022-12-14 16:26:47 +00:00
parent 486a8df1f0
commit b70d953285
51 changed files with 797 additions and 393 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

96
Source/Base/Base.dproj
View File

@ -58,54 +58,54 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\adortl.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxGridD11.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxPageControlD11.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\designide.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\designide.dcp" />
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contactos\Jcl.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contactos\PluginSDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\vclx.dcp" />
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

1
Source/Base/Utiles/uDataTableUtils.pas
View File

@ -495,7 +495,6 @@ begin
end; end;
end; end;
procedure EnlazarMaestroDetalle(AMasterDataSource : TDADataSource; procedure EnlazarMaestroDetalle(AMasterDataSource : TDADataSource;
ADetail : IDAStronglyTypedDataTable); ADetail : IDAStronglyTypedDataTable);
begin begin

2
Source/Cliente/FactuGES.dproj
View File

@ -52,7 +52,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.1.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.1.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.1.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.1.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

8
Source/Informes/1/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/2/2/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/2/4/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/2/5/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

25
Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas
View File

@ -34,13 +34,15 @@ type
FTipoSubCuenta: TEnumTipoSubCuenta; FTipoSubCuenta: TEnumTipoSubCuenta;
FIdSubCuenta : Integer; FIdSubCuenta : Integer;
FListaSubCuentas : TStringList; FListaSubCuentas : TStringList;
function getIDCajaBanco: Integer;
function GetTipoSubCuenta: TEnumTipoSubCuenta; function GetTipoSubCuenta: TEnumTipoSubCuenta;
procedure SetTipoSubCuenta(const Value: TEnumTipoSubCuenta); procedure SetTipoSubCuenta(const Value: TEnumTipoSubCuenta);
function getIdSubCuenta: Integer;
procedure setIdSubCuenta(const Value: Integer);
public public
property TipoSubCuenta: TEnumTipoSubCuenta read GetTipoSubCuenta write SetTipoSubCuenta; property TipoSubCuenta: TEnumTipoSubCuenta read GetTipoSubCuenta write SetTipoSubCuenta;
property IdSubCuenta: Integer read getIDCajaBanco; property IdSubCuenta: Integer read getIdSubCuenta write setIdSubCuenta;
procedure ElegirSubCuenta(const AIdSubCuenta : Integer); procedure ElegirSubCuenta(const AIdSubCuenta : Integer);
procedure refrescar; procedure refrescar;
end; end;
@ -115,7 +117,7 @@ begin
end; end;
end; end;
function TfrViewListaSubcuentas.getIDCajaBanco: Integer; function TfrViewListaSubcuentas.getIdSubCuenta: Integer;
begin begin
Result := FIdSubCuenta; Result := FIdSubCuenta;
end; end;
@ -140,6 +142,23 @@ begin
end; end;
end; end;
procedure TfrViewListaSubcuentas.setIdSubCuenta(const Value: Integer);
var
i: Integer;
begin
FIdSubCuenta := Value;
for i := 0 to FListaSubCuentas.Count-1 do
begin
if FListaSubCuentas.ValueFromIndex[i] = IntToStr(FIdSubCuenta) then
begin
cbSubCuentas.Text := FListaSubCuentas.Names[i];
Break;
end;
end;
end;
procedure TfrViewListaSubcuentas.SetTipoSubCuenta(Const Value: TEnumTipoSubCuenta); procedure TfrViewListaSubcuentas.SetTipoSubCuenta(Const Value: TEnumTipoSubCuenta);
var var
i: Integer; i: Integer;

30
Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
View File

@ -16,7 +16,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
TabStop = False TabStop = False
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
object Label1: TLabel object Label1: TLabel
Left = 326 Left = 350
Top = 28 Top = 28
Width = 277 Width = 277
Height = 26 Height = 26
@ -38,7 +38,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
WordWrap = True WordWrap = True
end end
object eDiasVencimiento: TcxDBSpinEdit object eDiasVencimiento: TcxDBSpinEdit
Left = 403 Left = 427
Top = 60 Top = 60
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1' DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -64,7 +64,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 79 Width = 79
end end
object cbRegimenIVA: TcxDBComboBox object cbRegimenIVA: TcxDBComboBox
Left = 123 Left = 162
Top = 28 Top = 28
DataBinding.DataField = 'REGIMEN_IVA' DataBinding.DataField = 'REGIMEN_IVA'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -93,7 +93,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 180 Width = 180
end end
object cbRecargoEquivalencia: TcxDBCheckBox object cbRecargoEquivalencia: TcxDBCheckBox
Left = 123 Left = 162
Top = 109 Top = 109
Caption = 'Aplicar recargo de equivalencia' Caption = 'Aplicar recargo de equivalencia'
DataBinding.DataField = 'RECARGO_EQUIVALENCIA' DataBinding.DataField = 'RECARGO_EQUIVALENCIA'
@ -121,7 +121,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 180 Width = 180
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 123 Left = 162
Top = 55 Top = 55
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -157,7 +157,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 42 Width = 42
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 164 Left = 188
Top = 55 Top = 55
Width = 132 Width = 132
Height = 21 Height = 21
@ -166,7 +166,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object eIVA: TcxDBLookupComboBox object eIVA: TcxDBLookupComboBox
Left = 123 Left = 162
Top = 82 Top = 82
DataBinding.DataField = 'ID_TIPO_IVA' DataBinding.DataField = 'ID_TIPO_IVA'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -202,7 +202,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 42 Width = 42
end end
object bTiposIVA: TButton object bTiposIVA: TButton
Left = 164 Left = 188
Top = 82 Top = 82
Width = 132 Width = 132
Height = 21 Height = 21
@ -211,7 +211,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
OnClick = bTiposIVAClick OnClick = bTiposIVAClick
end end
object cxDBSpinEdit1: TcxDBSpinEdit object cxDBSpinEdit1: TcxDBSpinEdit
Left = 403 Left = 427
Top = 87 Top = 87
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_2' DataBinding.DataField = 'VENCIMIENTO_FACTURAS_2'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -237,7 +237,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 79 Width = 79
end end
object cxDBSpinEdit2: TcxDBSpinEdit object cxDBSpinEdit2: TcxDBSpinEdit
Left = 403 Left = 427
Top = 114 Top = 114
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_3' DataBinding.DataField = 'VENCIMIENTO_FACTURAS_3'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -263,7 +263,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 79 Width = 79
end end
object eDescuentoLinea: TcxDBSpinEdit object eDescuentoLinea: TcxDBSpinEdit
Left = 123 Left = 162
Top = 190 Top = 190
DataBinding.DataField = 'DESCUENTO_LINEA' DataBinding.DataField = 'DESCUENTO_LINEA'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -289,7 +289,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 200 Width = 200
end end
object eDescuento: TcxDBSpinEdit object eDescuento: TcxDBSpinEdit
Left = 123 Left = 162
Top = 217 Top = 217
DataBinding.DataField = 'DESCUENTO' DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -315,7 +315,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 508 Width = 508
end end
object ePrecioPunto: TcxDBCurrencyEdit object ePrecioPunto: TcxDBCurrencyEdit
Left = 123 Left = 162
Top = 244 Top = 244
DataBinding.DataField = 'PRECIO_PUNTO' DataBinding.DataField = 'PRECIO_PUNTO'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -435,12 +435,12 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item11: TdxLayoutItem object dxLayoutControl1Item11: TdxLayoutItem
Caption = 'Dto Comercial:' Caption = 'Dto Comercial linea:'
Control = eDescuentoLinea Control = eDescuentoLinea
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item13: TdxLayoutItem object dxLayoutControl1Item13: TdxLayoutItem
Caption = 'Descuento especial:' Caption = 'Descuento especial general:'
Control = eDescuento Control = eDescuento
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

16
Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dproj
View File

@ -49,14 +49,14 @@
<DelphiCompile Include="ContratosCliente_controller.dpk"> <DelphiCompile Include="ContratosCliente_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Articulos_controller.dcp" /> <DCCReference Include="Articulos_controller.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" /> <DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="..\ContratosCliente_data.dcp" /> <DCCReference Include="ContratosCliente_data.dcp" />
<DCCReference Include="..\ContratosCliente_model.dcp" /> <DCCReference Include="ContratosCliente_model.dcp" />
<DCCReference Include="..\GestorDocumentos_controller.dcp" /> <DCCReference Include="GestorDocumentos_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="GUIBase.dcp" />
<DCCReference Include="..\PresupuestosCliente_controller.dcp" /> <DCCReference Include="PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\PresupuestosCliente_model.dcp" /> <DCCReference Include="PresupuestosCliente_model.dcp" />
<DCCReference Include="uArticulosContratoClienteController.pas" /> <DCCReference Include="uArticulosContratoClienteController.pas" />
<DCCReference Include="uContratosClienteController.pas" /> <DCCReference Include="uContratosClienteController.pas" />
<DCCReference Include="uContratosClienteReportController.pas" /> <DCCReference Include="uContratosClienteReportController.pas" />

50
Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
View File

@ -30,6 +30,8 @@ type
procedure RecuperarCliente(AContrato : IBizContratoCliente); procedure RecuperarCliente(AContrato : IBizContratoCliente);
procedure ActualizarFormaDePago(AContrato : IBizContratoCliente; ID_FORMA_PAGO: Integer); procedure ActualizarFormaDePago(AContrato : IBizContratoCliente; ID_FORMA_PAGO: Integer);
procedure ActualizarDescuentos(AContrato : IBizContratoCliente);
procedure ActualizarPrecioPunto(AContrato : IBizContratoCliente);
function Buscar(const ID: Integer): IBizContratoCliente; overload; function Buscar(const ID: Integer): IBizContratoCliente; overload;
function Buscar(const ListaID: TIntegerList): IBizContratoCliente; overload; function Buscar(const ListaID: TIntegerList): IBizContratoCliente; overload;
function BuscarTodos: IBizContratoCliente; overload; function BuscarTodos: IBizContratoCliente; overload;
@ -117,6 +119,8 @@ type
procedure RecuperarCliente(AContrato : IBizContratoCliente); procedure RecuperarCliente(AContrato : IBizContratoCliente);
procedure ActualizarFormaDePago(AContrato : IBizContratoCliente; ID_FORMA_PAGO: Integer); procedure ActualizarFormaDePago(AContrato : IBizContratoCliente; ID_FORMA_PAGO: Integer);
procedure ActualizarDescuentos(AContrato : IBizContratoCliente);
procedure ActualizarPrecioPunto(AContrato : IBizContratoCliente);
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(AContrato : IBizContratoCliente; AllItems: Boolean = false): Boolean; overload; function Eliminar(AContrato : IBizContratoCliente; AllItems: Boolean = false): Boolean; overload;
function Guardar(AContrato : IBizContratoCliente): Boolean; function Guardar(AContrato : IBizContratoCliente): Boolean;
@ -271,6 +275,26 @@ begin
end; end;
end; end;
procedure TContratosClienteController.ActualizarDescuentos(AContrato: IBizContratoCliente);
var
bEnEdicion : Boolean;
begin
///////////////////////////////////////
//Función que asigna el descuento general y el descuento comercial por linea del cliente de presupuesto
///////////////////////////////////////
bEnEdicion := (AContrato.DataTable.State in dsEditModes);
if not bEnEdicion then
AContrato.Edit;
AContrato.DESCUENTO := AContrato.Cliente.DESCUENTO;
FDetallesController.ActualizarDetalles(AContrato.Detalles, AContrato.Cliente);
if not bEnEdicion then
AContrato.Post;
end;
procedure TContratosClienteController.ActualizarFormaDePago( procedure TContratosClienteController.ActualizarFormaDePago(
AContrato: IBizContratoCliente; ID_FORMA_PAGO: Integer); AContrato: IBizContratoCliente; ID_FORMA_PAGO: Integer);
var var
@ -310,6 +334,32 @@ begin
ATiposIVAController := NIL; ATiposIVAController := NIL;
end; end;
procedure TContratosClienteController.ActualizarPrecioPunto(AContrato: IBizContratoCliente);
var
bEnEdicion : Boolean;
APrecioPuntoNuevoContrato: Currency;
begin
///////////////////
/// Actualiza el precio punto del contrato con el que tenga asignado el cliente del mismo
///////////////////
APrecioPuntoNuevoContrato := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
if (not AContrato.Cliente.DataTable.FieldByName('PRECIO_PUNTO').IsNull) then
APrecioPuntoNuevoContrato := AContrato.Cliente.PRECIO_PUNTO;
bEnEdicion := (AContrato.DataTable.State in dsEditModes);
if not bEnEdicion then
AContrato.Edit;
///////////////////7
/// El contrato no tiene precio punto en el documento porque se genera a partir de varios presupuestos y pueden tener precio punto diferente
// AContrato.PRECIO_PUNTO := APrecioPuntoNuevoPresupuesto;
DetallesController.RecalcularPrecioPuntoDetalles(APrecioPuntoNuevoContrato, AContrato.Detalles);
if not bEnEdicion then
AContrato.Post;
end;
function TContratosClienteController.Anadir(AContrato : IBizContratoCliente; function TContratosClienteController.Anadir(AContrato : IBizContratoCliente;
const ATipo: TEnumTiposContrato = teVarios) : Boolean; const ATipo: TEnumTiposContrato = teVarios) : Boolean;
begin begin

1
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
View File

@ -388,6 +388,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
item item
Name = 'ENVIADA_REVISADA' Name = 'ENVIADA_REVISADA'
DataType = datSmallInt DataType = datSmallInt
ServerAutoRefresh = True
end end
item item
Name = 'ID_CONTRATO_ASOCIADO' Name = 'ID_CONTRATO_ASOCIADO'

28
Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{8ACAF219-8101-4DAD-BF41-5ED9197B7AEA}'; RID_Valores = '{4A854311-0D9F-4793-94C9-A207AD44D276}';
RID_Propiedades = '{D7E9DBD6-13C0-4C9D-A088-C2289FF4E94C}'; RID_Propiedades = '{EF52C78D-98C0-4F3E-8B30-92405C279D93}';
RID_ListaAnosContratos = '{AA2B5D48-D253-469C-AF7A-F69F3A4855BE}'; RID_ListaAnosContratos = '{34D311E0-D0CB-472C-A6B1-AF7C9AD69E10}';
RID_ContratosClienteBeneficios = '{BF9F1FA6-4537-49DD-BAD6-ED5089323CF1}'; RID_ContratosClienteBeneficios = '{C7192089-22AD-478D-9BB4-4C0E22244BF1}';
RID_ContratosCliente = '{1B1ED532-8A4F-42AF-8DDB-0B357CDEC752}'; RID_ContratosCliente = '{511AB084-9FFC-4986-B517-B5748783AB12}';
RID_TiposCapitulos = '{1B246FE2-B5BC-482A-BA80-09BEE78E6B47}'; RID_TiposCapitulos = '{1ADC8E0F-824C-45E5-B964-90E3B74C370C}';
RID_ContratosCliente_Detalles = '{6C4DA840-1DEC-4A3A-B313-22662176E271}'; RID_ContratosCliente_Detalles = '{405816B6-4A2B-4CBD-AC8D-660CAF3F4910}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -271,7 +271,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{705F78EB-86CF-4A91-B549-3E33D21ED403}'] ['{0ED4F454-0461-4155-BCF7-C13151DD977A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -330,7 +330,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{BC20A9B4-71D3-4A1E-98F7-D02E4C048CE7}'] ['{0DB8C965-0875-43C2-9168-7EC7190C3B6F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -389,7 +389,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{668486B3-25A1-4453-A0C1-638ECF020E58}'] ['{615C6C28-311F-43AB-AE86-4F270D0B66BD}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -424,7 +424,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{4D7889FC-42CB-4859-86A4-CE9211D0D593}'] ['{478CDF53-67D5-431D-97F1-67A9AD134904}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -627,7 +627,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{F63FB999-3889-45F4-9BC7-6E06A9D18E71}'] ['{1FC5AB50-30B5-4A01-99C4-8C7D963EF071}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1373,7 +1373,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{D55205DF-DD63-42BD-B89C-7B46709D972E}'] ['{CE57F93C-0AFA-4A43-BFAB-F87B6AF24C99}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1468,7 +1468,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{C9DC930F-F554-469D-9644-0FFB9551249F}'] ['{D8CA02E2-207F-4681-BFC7-7D67586D76DA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);

28
Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
View File

@ -9,18 +9,18 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{B1DDE678-7C06-4F0F-A1A0-7C88498BFBCF}'; RID_ValoresDelta = '{74E0789F-6D7B-4AEE-898D-564F2F11EA73}';
RID_PropiedadesDelta = '{98B8D0C8-5C71-437A-9D8E-F1C5529264D0}'; RID_PropiedadesDelta = '{2BFEE5AC-1922-447C-9B70-28086783D3E8}';
RID_ListaAnosContratosDelta = '{251E5873-5A2B-4DD9-A437-A4AA686545E7}'; RID_ListaAnosContratosDelta = '{5BB5F8CB-575C-47D3-B8CD-2E9222A55D1D}';
RID_ContratosClienteBeneficiosDelta = '{14FFEEE8-E584-4327-9AE0-CBA2F8F7B787}'; RID_ContratosClienteBeneficiosDelta = '{2DFD608C-073C-4189-906F-C27B11203063}';
RID_ContratosClienteDelta = '{4D93A3D6-EC00-4933-A6CA-F7B9FE480CA2}'; RID_ContratosClienteDelta = '{E63A0667-B99A-4F5D-84BC-8AAD49936917}';
RID_TiposCapitulosDelta = '{31536ABE-8759-41FD-8890-F292958DCBA0}'; RID_TiposCapitulosDelta = '{551A2121-A753-4659-A091-FCAB0CDC7FBF}';
RID_ContratosCliente_DetallesDelta = '{8DC57EB7-7682-4AA2-B800-37BA98492A26}'; RID_ContratosCliente_DetallesDelta = '{35A00064-7F34-4296-8DCA-FBD514F42366}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{B1DDE678-7C06-4F0F-A1A0-7C88498BFBCF}'] ['{74E0789F-6D7B-4AEE-898D-564F2F11EA73}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer; function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{98B8D0C8-5C71-437A-9D8E-F1C5529264D0}'] ['{2BFEE5AC-1922-447C-9B70-28086783D3E8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta } { IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos) IListaAnosContratosDelta = interface(IListaAnosContratos)
['{251E5873-5A2B-4DD9-A437-A4AA686545E7}'] ['{5BB5F8CB-575C-47D3-B8CD-2E9222A55D1D}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta } { IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{14FFEEE8-E584-4327-9AE0-CBA2F8F7B787}'] ['{2DFD608C-073C-4189-906F-C27B11203063}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -372,7 +372,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{4D93A3D6-EC00-4933-A6CA-F7B9FE480CA2}'] ['{E63A0667-B99A-4F5D-84BC-8AAD49936917}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -1118,7 +1118,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{31536ABE-8759-41FD-8890-F292958DCBA0}'] ['{551A2121-A753-4659-A091-FCAB0CDC7FBF}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -1212,7 +1212,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{8DC57EB7-7682-4AA2-B800-37BA98492A26}'] ['{35A00064-7F34-4296-8DCA-FBD514F42366}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;

11
Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
View File

@ -379,13 +379,16 @@ begin
ID_TIPO_IVA := FCliente.ID_TIPO_IVA; ID_TIPO_IVA := FCliente.ID_TIPO_IVA;
RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA; RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA;
// Se establece un descuento especial general a petición de angelica if EsNuevo then
DESCUENTO := FCliente.DESCUENTO; // Solo se asigna en el caso de ser nuevo ya que en el caso de cambiar de cliente el usuario decide si recargar dichos datos
begin
// Se establece un descuento especial general a petición de angelica
DESCUENTO := FCliente.DESCUENTO;
// Se establece precio de punto por cliente a petición de Ruben // Se establece precio de punto por cliente a petición de Ruben
// Un contrato puede estar formado por n presupuestos y cada uno por un precio punto por lo que en el contrato no tiene sentido poner precio punto, // Un contrato puede estar formado por n presupuestos y cada uno por un precio punto por lo que en el contrato no tiene sentido poner precio punto,
// a no ser que quieran establecer una politica de gestion. // a no ser que quieran establecer una politica de gestion.
// PRECIO_PUNTO := FCliente.PRECIO_PUNTO; // PRECIO_PUNTO := FCliente.PRECIO_PUNTO;
end;
DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles
//si se quita el id de la cabecera y los detalles se desincroniza //si se quita el id de la cabecera y los detalles se desincroniza

92
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
View File

@ -443,93 +443,129 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 1104 Width = 1104
ExplicitWidth = 1104 ExplicitWidth = 1104
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 624 Left = 515
ExplicitLeft = 624 Height = 122
ExplicitLeft = 515
ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 736 Left = 627
ExplicitLeft = 736 Width = 210
ExplicitLeft = 627
ExplicitWidth = 210
end
inherited Bevel2: TBevel
Width = 333
ExplicitWidth = 333
end end
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 643 Left = 534
ExplicitLeft = 643 Width = 332
ExplicitLeft = 534
ExplicitWidth = 332
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 93
Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 807 Left = 698
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 807 ExplicitLeft = 698
ExplicitWidth = 137
Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 737 Left = 628
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 737 ExplicitLeft = 628
ExplicitWidth = 137
Width = 137
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 736 Left = 627
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 736 ExplicitLeft = 627
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 736 Left = 627
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 736 ExplicitLeft = 627
ExplicitWidth = 92
Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 736 Left = 627
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 736 ExplicitLeft = 627
end end
inherited edtIRPF: TcxDBSpinEdit inherited edtIRPF: TcxDBSpinEdit
Left = 736 Left = 627
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 736 ExplicitLeft = 627
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 807 Left = 698
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 807 ExplicitLeft = 698
ExplicitWidth = 56
Width = 56
end end
inherited ImporteIRPF: TcxDBCurrencyEdit inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 807 Left = 698
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 807 ExplicitLeft = 698
ExplicitWidth = 56
Width = 56
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
Style.Color = clInfoBk Style.Color = clInfoBk
ExplicitWidth = 81
Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 476 Left = 367
OnClick = frViewTotales1bTiposIVAClick OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 476 ExplicitLeft = 367
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
ExplicitWidth = 219
Width = 219
end end
inherited edtRetencion: TcxDBSpinEdit inherited edtRetencion: TcxDBSpinEdit
Left = 736 Left = 627
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 736 ExplicitLeft = 627
end end
inherited edtImporteRetencion: TcxDBCurrencyEdit inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 807 Left = 698
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 807 ExplicitLeft = 698
ExplicitWidth = 342
Width = 342
end end
inherited edtFechaRetencion: TcxDBDateEdit inherited edtFechaRetencion: TcxDBDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 333
Width = 333
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup

9
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
View File

@ -343,12 +343,13 @@ begin
FController.ActualizarFormaDePago(FContrato, FContrato.Cliente.ID_FORMA_PAGO); FController.ActualizarFormaDePago(FContrato, FContrato.Cliente.ID_FORMA_PAGO);
if (not APrimerCliente) and (FContrato.Detalles.RecordCount > 0) then begin if (not APrimerCliente) and (FContrato.Detalles.RecordCount > 0) then begin
if (ShowConfirmMessage('Actualizar los descuentos de las líneas', if (ShowConfirmMessage('Actualizar precio punto del presupuesto y descuentos',
'¿Desea actualizar las líneas de detalle con el descuento del cliente?' + #10#13 + '¿Desea actualizar el precio punto y los descuentos con los de la ficha del nuevo cliente seleccionado?' + #10#13 +
'Sólo se cambiarán las líneas que tengan cantidades.') = IDYES) then 'Sólo se cambiarán las líneas que tengan cantidades.') = IDYES) then
begin begin
FController.DetallesController.ActualizarDetalles(FContrato.Detalles, FContrato.Cliente); FController.ActualizarDescuentos(FContrato);
ShowInfoMessage('Se han actualizado las líneas con el descuento del cliente seleccionado'); FController.ActualizarPrecioPunto(FContrato);
ShowInfoMessage('Se ha actualizado el contrato con el precio punto y descuentos del cliente seleccionado');
end; end;
end; end;

25
Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas
View File

@ -123,7 +123,7 @@ type
implementation implementation
uses uses
uDataModuleContratosCliente, uDataModuleUsuarios, uFactuGES_App, cxControls, uDataModuleUsuarios, uFactuGES_App,
uEditorBase, uEditorDBBase, uDialogUtils, Dialogs, uEditorBase, uEditorDBBase, uDialogUtils, Dialogs,
uDBSelectionListUtils, uGridUtils, uGenerarFacturasCliUtils, uDBSelectionListUtils, uGridUtils, uGenerarFacturasCliUtils,
uGenerarAlbaranesCliUtils, uGenerarContratosCliUtils, uGenerarAlbaranesCliUtils, uGenerarContratosCliUtils,
@ -586,18 +586,27 @@ end;
procedure TfEditorContratosCliente.DuplicarInterno; procedure TfEditorContratosCliente.DuplicarInterno;
var var
APresupuesto : IBizContratoCliente; AContrato : IBizContratoCliente;
begin begin
inherited; ShowHourglassCursor;
try try
APresupuesto := FController.Duplicar(Contratos); inherited;
//Recalculamos el contrato copiado con el precio punto actual AContrato := FController.Duplicar(Contratos);
if (ShowConfirmMessage('Desea cambiar el precio punto por el actual, esto ocasionará el recalculo de todos los artículos del contrato que estén en el catálogo, los conceptos libres no se verán afectados', '¿Desea actualizar los importes de todos los articulos del contrato, que estén en el catálogo?') = IDYES) then
FController.DetallesController.RecalcularPrecioPuntoDetalles(APresupuesto.PRECIO_PUNTO, APresupuesto.Detalles);
FController.Ver(APresupuesto); //Recalculamos el presupuesto copiado con el precio punto de la ficha del cliente actual o de la empresa asignada en caso de no tener asignada la ficha
if (ShowConfirmMessage('¿Desea cambiar el precio punto del nuevo contrato, por el precio punto asignado en la ficha actual del cliente asociado?', 'Esto ocasionará el recalculo de todos los artículos del contrato que estén en el catálogo, los conceptos libres no se verán afectados.') = IDYES) then
begin
Controller.RecuperarCliente(AContrato);
AContrato.Cliente.DataTable.Active := True;
FController.ActualizarDescuentos(AContrato);
FController.ActualizarPrecioPunto(AContrato);
end;
FController.Ver(AContrato);
finally finally
actRefrescar.Execute; actRefrescar.Execute;
HideHourglassCursor;
end; end;
end; end;

99
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
View File

@ -20,6 +20,18 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = cxGridViewBASE_IMPONIBLE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = cxGridViewIMPORTE_IVA
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -31,7 +43,18 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewBASE_IMPONIBLE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewIMPORTE_IVA
end> end>
OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
Caption = 'Incidencias' Caption = 'Incidencias'
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS' DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@ -62,37 +85,6 @@ inherited frViewContratosCliente: TfrViewContratosCliente
VisibleForCustomization = False VisibleForCustomization = False
Width = 20 Width = 20
end end
object cxGridViewENVIADA_REVISADA: TcxGridDBColumn
DataBinding.FieldName = 'ENVIADA_REVISADA'
PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = GridPNGImageList
Properties.Items = <
item
Value = 0
end
item
Description = 'Enviado'
ImageIndex = 4
Value = 1
end
item
Description = 'Recibido'
ImageIndex = 2
Value = 2
end
item
Description = 'Aprobado'
ImageIndex = 4
Value = 3
end>
IsCaptionAssigned = True
end
object cxGridViewTIENDA: TcxGridDBColumn
Caption = 'Tienda'
DataBinding.FieldName = 'TIENDA'
Visible = False
VisibleForCustomization = False
end
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
BestFitMaxWidth = 25 BestFitMaxWidth = 25
@ -183,6 +175,41 @@ inherited frViewContratosCliente: TfrViewContratosCliente
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewPROVINCIA: TcxGridDBColumn
Caption = 'Provincia'
DataBinding.FieldName = 'PROVINCIA'
end
object cxGridViewENVIADA_REVISADA: TcxGridDBColumn
DataBinding.FieldName = 'ENVIADA_REVISADA'
PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = GridPNGImageList
Properties.Items = <
item
Value = 0
end
item
Description = 'Enviado'
ImageIndex = 4
Value = 1
end
item
Description = 'Recibido'
ImageIndex = 2
Value = 2
end
item
Description = 'Aprobado'
ImageIndex = 4
Value = 3
end>
IsCaptionAssigned = True
end
object cxGridViewTIENDA: TcxGridDBColumn
Caption = 'Tienda'
DataBinding.FieldName = 'TIENDA'
Visible = False
VisibleForCustomization = False
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todos' Caption = 'Todos'
@ -280,6 +307,11 @@ inherited frViewContratosCliente: TfrViewContratosCliente
end end
object TBXSeparatorItem1: TTBXSeparatorItem object TBXSeparatorItem1: TTBXSeparatorItem
end end
object TBXItem4: TTBXItem
Action = actProvincia
end
object TBXSeparatorItem3: TTBXSeparatorItem
end
object TBXItem2: TTBXItem object TBXItem2: TTBXItem
Action = actProcedencia Action = actProcedencia
end end
@ -313,6 +345,11 @@ inherited frViewContratosCliente: TfrViewContratosCliente
OnExecute = actProcedenciaExecute OnExecute = actProcedenciaExecute
OnUpdate = actProcedenciaUpdate OnUpdate = actProcedenciaUpdate
end end
object actProvincia: TAction
Caption = 'Provincia'
OnExecute = actProvinciaExecute
OnUpdate = actProvinciaUpdate
end
end end
inherited GridPNGImageList: TPngImageList inherited GridPNGImageList: TPngImageList
PngImages = < PngImages = <

69
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
View File

@ -58,6 +58,10 @@ type
cxStylePENDIENTESREVISION: TcxStyle; cxStylePENDIENTESREVISION: TcxStyle;
cxGridViewENVIADA_REVISADA: TcxGridDBColumn; cxGridViewENVIADA_REVISADA: TcxGridDBColumn;
cxGridLevelCancelados: TcxGridLevel; cxGridLevelCancelados: TcxGridLevel;
cxGridViewPROVINCIA: TcxGridDBColumn;
actProvincia: TAction;
TBXSeparatorItem3: TTBXSeparatorItem;
TBXItem4: TTBXItem;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@ -79,6 +83,8 @@ type
procedure actProcedenciaExecute(Sender: TObject); procedure actProcedenciaExecute(Sender: TObject);
procedure actProcedenciaUpdate(Sender: TObject); procedure actProcedenciaUpdate(Sender: TObject);
procedure CustomViewShow(Sender: TObject); procedure CustomViewShow(Sender: TObject);
procedure actProvinciaExecute(Sender: TObject);
procedure actProvinciaUpdate(Sender: TObject);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -142,7 +148,27 @@ end;
procedure TfrViewContratosCliente.actProcedenciaUpdate(Sender: TObject); procedure TfrViewContratosCliente.actProcedenciaUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Checked := not (cxGridViewREFERENCIA_CLIENTE.GroupIndex < 0); (Sender as TAction).Checked := not (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0);
end;
procedure TfrViewContratosCliente.actProvinciaExecute(Sender: TObject);
begin
if (cxGridViewPROVINCIA.GroupIndex < 0) then
begin
cxGridViewPROVINCIA.GroupIndex := cxGridView.GroupedColumnCount;
cxGridViewPROVINCIA.Visible := False;
end
else
begin
cxGridViewPROVINCIA.GroupIndex := -1;
cxGridViewPROVINCIA.Visible := True;
end;
end;
procedure TfrViewContratosCliente.actProvinciaUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Checked := not (cxGridViewPROVINCIA.GroupIndex < 0);
end; end;
procedure TfrViewContratosCliente.AnadirFiltroFechas; procedure TfrViewContratosCliente.AnadirFiltroFechas;
@ -197,17 +223,19 @@ end;
procedure TfrViewContratosCliente.ConfigView; procedure TfrViewContratosCliente.ConfigView;
begin begin
inherited; inherited;
{
if ((AppFactuGES.EmpresaActiva.ID = 2) or (AppFactuGES.EmpresaActiva.ID = 3)) then if ((AppFactuGES.EmpresaActiva.ID = 2) or (AppFactuGES.EmpresaActiva.ID = 3)) then
cxGridViewTIENDA.Visible := True cxGridViewTIENDA.Visible := True
else else
cxGridViewTIENDA.Visible := False; cxGridViewTIENDA.Visible := False;
}
end; end;
procedure TfrViewContratosCliente.CustomViewShow(Sender: TObject); procedure TfrViewContratosCliente.CustomViewShow(Sender: TObject);
begin begin
inherited; inherited;
//En el caso de fabrica se verá una nueva pestaña y en el caso de graden se verá un botón de envio a fabrica. //En el caso de fabrica se verá una nueva pestaña y en el caso de graden se verá un botón de envio a fabrica.
{
if (AppFactuGES.EmpresaActiva.ID = 1) then if (AppFactuGES.EmpresaActiva.ID = 1) then
begin begin
cxGridLevelPendientesRevisar.Visible := True; cxGridLevelPendientesRevisar.Visible := True;
@ -215,7 +243,7 @@ begin
else begin else begin
cxGridLevelPendientesRevisar.Visible := False; cxGridLevelPendientesRevisar.Visible := False;
end; end;
}
end; end;
procedure TfrViewContratosCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel); procedure TfrViewContratosCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
@ -283,6 +311,7 @@ var
AFacturas: string; AFacturas: string;
begin begin
inherited; inherited;
if Assigned(ARecord) then if Assigned(ARecord) then
begin begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteSITUACION).Index; IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteSITUACION).Index;
@ -292,21 +321,27 @@ begin
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]); ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
AFacturas := VarToStr(ARecord.DisplayTexts[IndiceCol2]); AFacturas := VarToStr(ARecord.DisplayTexts[IndiceCol2]);
AStyle.TextColor := cxStylePENDIENTESREVISION.TextColor; //Por aqui pasa muchas veces con distintos componentes del gird, de hecho algunos no tienen el elemento AStyle y si le asignamos algo por defecto como estaba
if ASituacion = SITUACION_CONTRATO_PENDIENTE then //peta estrepitosamente, hay que asegurarse que el componente que se dibuja tiene AStyle, en el resto no falla, porque no asignamos estile si no cumple ninguna
//situación, así asignamos un estile por defecto y lo cambiamos según condiciones.
if Assigned(AStyle) then
begin begin
if (AFacturas = '') then AStyle.TextColor := cxStylePENDIENTESREVISION.TextColor;
AStyle.TextColor := cxStylePENDIENTES.TextColor if ASituacion = SITUACION_CONTRATO_PENDIENTE then
else if (ARecord.Values[IndiceCol3] < ARecord.Values[IndiceCol4]) then begin
AStyle.TextColor := cxStylePENDIENTESYFACTURADASPLUS.TextColor if (AFacturas = '') then
else if (ARecord.Values[IndiceCol3] >= ARecord.Values[IndiceCol4]) then AStyle.TextColor := cxStylePENDIENTES.TextColor
AStyle.TextColor := cxStylePENDIENTESYFACTURADASOK.TextColor else if (ARecord.Values[IndiceCol3] < ARecord.Values[IndiceCol4]) then
else AStyle.TextColor := cxStylePENDIENTESYFACTURADASPLUS.TextColor
AStyle.TextColor := cxStylePENDIENTES.TextColor; else if (ARecord.Values[IndiceCol3] >= ARecord.Values[IndiceCol4]) then
end AStyle.TextColor := cxStylePENDIENTESYFACTURADASOK.TextColor
else if (ASituacion = SITUACION_CONTRATO_TERMINADO) else
or (ASituacion = SITUACION_CONTRATO_CANCELADO) then AStyle.TextColor := cxStylePENDIENTES.TextColor;
AStyle.TextColor := cxStyleTERMINADO.TextColor end
else if (ASituacion = SITUACION_CONTRATO_TERMINADO)
or (ASituacion = SITUACION_CONTRATO_CANCELADO) then
AStyle.TextColor := cxStyleTERMINADO.TextColor;
end;
end; end;
end; end;

49
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -30,6 +30,8 @@ type
procedure RecuperarCliente(APresupuesto : IBizPresupuestoCliente); procedure RecuperarCliente(APresupuesto : IBizPresupuestoCliente);
procedure ActualizarFormaDePago(APresupuesto : IBizPresupuestoCliente; ID_FORMA_PAGO: Integer); procedure ActualizarFormaDePago(APresupuesto : IBizPresupuestoCliente; ID_FORMA_PAGO: Integer);
procedure ActualizarDescuentos(APresupuesto : IBizPresupuestoCliente);
procedure ActualizarPrecioPunto(APresupuesto : IBizPresupuestoCliente);
function Buscar(const ID: Integer): IBizPresupuestoCliente; overload; function Buscar(const ID: Integer): IBizPresupuestoCliente; overload;
function Buscar(const ListaID: TIntegerList): IBizPresupuestoCliente; overload; function Buscar(const ListaID: TIntegerList): IBizPresupuestoCliente; overload;
function BuscarTodos: IBizPresupuestoCliente; overload; function BuscarTodos: IBizPresupuestoCliente; overload;
@ -113,6 +115,8 @@ type
procedure RecuperarCliente(APresupuesto : IBizPresupuestoCliente); procedure RecuperarCliente(APresupuesto : IBizPresupuestoCliente);
procedure ActualizarFormaDePago(APresupuesto : IBizPresupuestoCliente; ID_FORMA_PAGO: Integer); procedure ActualizarFormaDePago(APresupuesto : IBizPresupuestoCliente; ID_FORMA_PAGO: Integer);
procedure ActualizarDescuentos(APresupuesto : IBizPresupuestoCliente);
procedure ActualizarPrecioPunto(APresupuesto : IBizPresupuestoCliente);
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean; overload; function Eliminar(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean; overload;
function Guardar(APresupuesto : IBizPresupuestoCliente): Boolean; function Guardar(APresupuesto : IBizPresupuestoCliente): Boolean;
@ -168,6 +172,26 @@ uses
{ TPresupuestosClienteController } { TPresupuestosClienteController }
procedure TPresupuestosClienteController.ActualizarDescuentos(APresupuesto: IBizPresupuestoCliente);
var
bEnEdicion : Boolean;
begin
///////////////////////////////////////
//Función que asigna el descuento general y el descuento comercial por linea del cliente de presupuesto
///////////////////////////////////////
bEnEdicion := (APresupuesto.DataTable.State in dsEditModes);
if not bEnEdicion then
APresupuesto.Edit;
APresupuesto.DESCUENTO := APresupuesto.Cliente.DESCUENTO;
FDetallesController.ActualizarDetalles(APresupuesto.Detalles, APresupuesto.Cliente);
if not bEnEdicion then
APresupuesto.Post;
end;
procedure TPresupuestosClienteController.ActualizarFormaDePago(APresupuesto: IBizPresupuestoCliente; ID_FORMA_PAGO: Integer); procedure TPresupuestosClienteController.ActualizarFormaDePago(APresupuesto: IBizPresupuestoCliente; ID_FORMA_PAGO: Integer);
var var
AFormasPago : IBizFormaPago; AFormasPago : IBizFormaPago;
@ -206,6 +230,30 @@ begin
ATiposIVAController := NIL; ATiposIVAController := NIL;
end; end;
procedure TPresupuestosClienteController.ActualizarPrecioPunto(APresupuesto: IBizPresupuestoCliente);
var
bEnEdicion : Boolean;
APrecioPuntoNuevoPresupuesto: Currency;
begin
///////////////////
/// Actualiza el precio punto del presupuesto con el que tenga asignado el cliente del mismo
///////////////////
APrecioPuntoNuevoPresupuesto := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
if (not APresupuesto.Cliente.DataTable.FieldByName('PRECIO_PUNTO').IsNull) then
APrecioPuntoNuevoPresupuesto := APresupuesto.Cliente.PRECIO_PUNTO;
bEnEdicion := (APresupuesto.DataTable.State in dsEditModes);
if not bEnEdicion then
APresupuesto.Edit;
APresupuesto.PRECIO_PUNTO := APrecioPuntoNuevoPresupuesto;
DetallesController.RecalcularPrecioPuntoDetalles(APresupuesto.PRECIO_PUNTO, APresupuesto.Detalles);
if not bEnEdicion then
APresupuesto.Post;
end;
function TPresupuestosClienteController.Anadir(APresupuesto: IBizPresupuestoCliente; const ATipo: TEnumTiposPresupuesto): Boolean; function TPresupuestosClienteController.Anadir(APresupuesto: IBizPresupuestoCliente; const ATipo: TEnumTiposPresupuesto): Boolean;
begin begin
if not Assigned(APresupuesto) then if not Assigned(APresupuesto) then
@ -481,7 +529,6 @@ begin
FECHA_DECISIONIsNull := True; FECHA_DECISIONIsNull := True;
REFERENCIA := ''; REFERENCIA := '';
SITUACION := SITUACION_PRESUPUESTO_PENDIENTE; SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;
PRECIO_PUNTO := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
end; end;
Result.Post; Result.Post;

12
Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
View File

@ -340,10 +340,14 @@ begin
// if FCliente.ID_FORMA_PAGO > 0 then // if FCliente.ID_FORMA_PAGO > 0 then
// ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; // ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
// Se establece un descuento especial general a petición de angelica if EsNuevo then
DESCUENTO := FCliente.DESCUENTO; // Solo se asigna en el caso de ser nuevo ya que en el caso de cambiar de cliente el usuario decide si recargar dichos datos
// Se establece precio de punto por cliente a petición de Ruben begin
PRECIO_PUNTO := FCliente.PRECIO_PUNTO; // Se establece un descuento especial general a petición de angelica
DESCUENTO := FCliente.DESCUENTO;
// Se establece precio de punto por cliente a petición de Ruben
PRECIO_PUNTO := FCliente.PRECIO_PUNTO;
end;
DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles
//si se quita el id de la cabecera y los detalles se desincroniza //si se quita el id de la cabecera y los detalles se desincroniza

1
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -178,6 +178,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 997 Width = 997
Height = 314 Height = 314
ActivePage = pagContenido
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitTop = 112 ExplicitTop = 112

10
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -363,6 +363,7 @@ end;
procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject); procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject);
var var
APrimerCliente : Boolean; APrimerCliente : Boolean;
begin begin
if Assigned(FPresupuesto) then if Assigned(FPresupuesto) then
begin begin
@ -374,12 +375,13 @@ begin
FController.ActualizarFormaDePago(FPresupuesto, FPresupuesto.Cliente.ID_FORMA_PAGO); FController.ActualizarFormaDePago(FPresupuesto, FPresupuesto.Cliente.ID_FORMA_PAGO);
if (not APrimerCliente) and (FPresupuesto.Detalles.RecordCount > 0) then begin if (not APrimerCliente) and (FPresupuesto.Detalles.RecordCount > 0) then begin
if (ShowConfirmMessage('Actualizar los descuentos de las líneas', if (ShowConfirmMessage('Actualizar precio punto del presupuesto y descuentos',
'¿Desea actualizar las líneas de detalle con el descuento del cliente?' + #10#13 + '¿Desea actualizar el precio punto y los descuentos con los de la ficha del nuevo cliente seleccionado?' + #10#13 +
'Sólo se cambiarán las líneas que tengan cantidades.') = IDYES) then 'Sólo se cambiarán las líneas que tengan cantidades.') = IDYES) then
begin begin
FController.DetallesController.ActualizarDetalles(FPresupuesto.Detalles, FPresupuesto.Cliente); FController.ActualizarDescuentos(FPresupuesto);
ShowInfoMessage('Se han actualizado las líneas con el descuento del cliente seleccionado'); FController.ActualizarPrecioPunto(FPresupuesto);
ShowInfoMessage('Se ha actualizado el presupuesto con el precio punto y descuentos del cliente seleccionado');
end; end;
end; end;
end; end;

6
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
View File

@ -164,7 +164,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 454 ExplicitWidth = 379
inherited lblAno: TTBXLabelItem inherited lblAno: TTBXLabelItem
Visible = True Visible = True
end end
@ -197,10 +197,10 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
end end
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 454 Left = 379
DockPos = 343 DockPos = 343
Visible = True Visible = True
ExplicitLeft = 454 ExplicitLeft = 379
ExplicitWidth = 278 ExplicitWidth = 278
object TBXItem43: TTBXItem object TBXItem43: TTBXItem
Action = actAceptar Action = actAceptar

17
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
View File

@ -396,18 +396,27 @@ end;
procedure TfEditorPresupuestosCliente.DuplicarInterno; procedure TfEditorPresupuestosCliente.DuplicarInterno;
var var
APresupuesto : IBizPresupuestoCliente; APresupuesto : IBizPresupuestoCliente;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
inherited; inherited;
APresupuesto := FController.Duplicar(Presupuestos); APresupuesto := FController.Duplicar(Presupuestos);
//Recalculamos el presupuesto copiado con el precio punto actual
if (ShowConfirmMessage('Desea cambiar el precio punto por el actual, esto ocasionará el recalculo de todos los artículos del presupuesto que estén en el catálogo, los conceptos libres no se verán afectados', '¿Desea actualizar los importes de todos los articulos del presupuesto, que estén en el catálogo?') = IDYES) then //Recalculamos el presupuesto copiado con el precio punto de la ficha del cliente actual o de la empresa asignada en caso de no tener asignada la ficha
FController.DetallesController.RecalcularPrecioPuntoDetalles(APresupuesto.PRECIO_PUNTO, APresupuesto.Detalles); if (ShowConfirmMessage('¿Desea cambiar el precio punto del nuevo presupuesto, por el precio punto asignado en la ficha actual del cliente asociado?', 'Esto ocasionará el recalculo de todos los artículos del presupuesto que estén en el catálogo, los conceptos libres no se verán afectados.') = IDYES) then
begin
Controller.RecuperarCliente(APresupuesto);
APresupuesto.Cliente.DataTable.Active := True;
FController.ActualizarDescuentos(APresupuesto);
FController.ActualizarPrecioPunto(APresupuesto);
end;
FController.Ver(APresupuesto); FController.Ver(APresupuesto);
finally finally
HideHourglassCursor;
actRefrescar.Execute; actRefrescar.Execute;
HideHourglassCursor;
end; end;
end; end;

19
Source/Modulos/Recibos de cliente/Controller/uPagosClienteController.pas
View File

@ -32,8 +32,8 @@ uses
type type
IPagosClienteController = interface(ISujeto) IPagosClienteController = interface(ISujeto)
['{1864471E-74FA-4E96-BA8D-21357DA38B0F}'] ['{1864471E-74FA-4E96-BA8D-21357DA38B0F}']
function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String): Boolean; function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String; Const AReferenciaRemesa: String = ''): Boolean;
procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String); procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String; Const AReferenciaRemesa: String = '');
function Eliminar(APagoCliente : IBizPagosCliente): Boolean; function Eliminar(APagoCliente : IBizPagosCliente): Boolean;
function EliminarTodo(APagossCliente : IBizPagosCliente): Boolean; function EliminarTodo(APagossCliente : IBizPagosCliente): Boolean;
end; end;
@ -47,8 +47,8 @@ type
public public
constructor Create; virtual; constructor Create; virtual;
destructor Destroy; override; destructor Destroy; override;
function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String): Boolean; function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String; Const AReferenciaRemesa: String = ''): Boolean;
procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String); procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String; Const AReferenciaRemesa: String = '');
function Eliminar(APagoCliente : IBizPagosCliente): Boolean; function Eliminar(APagoCliente : IBizPagosCliente): Boolean;
function EliminarTodo(APagosCliente : IBizPagosCliente): Boolean; function EliminarTodo(APagosCliente : IBizPagosCliente): Boolean;
end; end;
@ -63,7 +63,7 @@ uses
{ TPagosClienteController } { TPagosClienteController }
function TPagosClienteController.Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String): Boolean; function TPagosClienteController.Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String; Const AReferenciaRemesa: String = ''): Boolean;
{ Si el pago introducido es un pago y no una devolución devolvemos true en caso de ser { Si el pago introducido es un pago y no una devolución devolvemos true en caso de ser
una devolución devolvemos false} una devolución devolvemos false}
begin begin
@ -74,6 +74,9 @@ begin
else else
APagosCliente.FECHA_PAGO := StrToDate(Fecha); APagosCliente.FECHA_PAGO := StrToDate(Fecha);
if Length(AReferenciaRemesa) <> 0 then
APagosCliente.TITULAR := AReferenciaRemesa;
if (APagosCliente.DataTable.RecordCount = 0) if (APagosCliente.DataTable.RecordCount = 0)
or ((APagosCliente.DataTable.RecordCount mod 2) = 0) then or ((APagosCliente.DataTable.RecordCount mod 2) = 0) then
APagosCliente.TIPO := CTE_PAGO APagosCliente.TIPO := CTE_PAGO
@ -153,10 +156,14 @@ begin
end; end;
end; end;
procedure TPagosClienteController.Modificar(APagosCliente: IBizPagosCliente; const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String); procedure TPagosClienteController.Modificar(APagosCliente: IBizPagosCliente; const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String; Const AReferenciaRemesa: String = '');
begin begin
APagosCliente.DataTable.Edit; APagosCliente.DataTable.Edit;
APagosCliente.FECHA_PAGO := StrToDate(Fecha); APagosCliente.FECHA_PAGO := StrToDate(Fecha);
if Length(AReferenciaRemesa) <> 0 then
APagosCliente.TITULAR := AReferenciaRemesa;
APagosCliente.IGNORAR_CONTABILIDAD := IgnorarContabilidad; APagosCliente.IGNORAR_CONTABILIDAD := IgnorarContabilidad;
APagosCliente.CUENTA := IntToStr(IdSubCuenta); APagosCliente.CUENTA := IntToStr(IdSubCuenta);
APagosCliente.SUBCUENTA := SubCuenta; APagosCliente.SUBCUENTA := SubCuenta;

25
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -44,8 +44,8 @@ type
procedure Anadir(ARecibosCliente : IBizRecibosCliente); procedure Anadir(ARecibosCliente : IBizRecibosCliente);
function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean; function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean;
function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''): Boolean; function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''; AReferenciaRemesa: String =''): Boolean;
procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''); procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''; AReferenciaRemesa: String ='');
function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean; function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean;
function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean; function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean;
@ -72,7 +72,7 @@ type
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosCliente); procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosCliente);
procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; FechaCargo: TDateTime; Referencia: String; AIgnorarContabilidad : Integer; ASubCuenta: Integer); procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; AReferenciaRemesa: String; AFechaCargo: TDateTime; AIgnorarContabilidad : Integer; AIdSubCuenta: Integer; ASubCuenta: String = '');
procedure QuitarRemesa(ARecibos : IBizRecibosCliente); procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False); procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False);
@ -121,8 +121,8 @@ type
procedure RecuperarCliente(AReciboCliente : IBizRecibosCliente); procedure RecuperarCliente(AReciboCliente : IBizRecibosCliente);
procedure Anadir(ARecibosCliente : IBizRecibosCliente); procedure Anadir(ARecibosCliente : IBizRecibosCliente);
function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''): Boolean; function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''; AReferenciaRemesa: String =''): Boolean;
procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''); procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''; AReferenciaRemesa: String ='');
function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean; function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean;
function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean; function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean;
function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean; function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean;
@ -148,7 +148,7 @@ type
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosCliente); procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosCliente);
procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; FechaCargo: TDateTime; Referencia: String; AIgnorarContabilidad : Integer; ASubCuenta: Integer); procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; AReferenciaRemesa: String; AFechaCargo: TDateTime; AIgnorarContabilidad : Integer; AIdSubCuenta: Integer; ASubCuenta: String = '');
procedure QuitarRemesa(ARecibos : IBizRecibosCliente); procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
procedure QuitarReciboCompensado(ARecibo : IBizRecibosCliente); procedure QuitarReciboCompensado(ARecibo : IBizRecibosCliente);
@ -180,7 +180,7 @@ begin
ARecibosCliente.Insert; ARecibosCliente.Insert;
end; end;
function TRecibosClienteController.AnadirPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''): Boolean; function TRecibosClienteController.AnadirPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''; AReferenciaRemesa: String =''): Boolean;
begin begin
Result := False; Result := False;
@ -198,7 +198,7 @@ begin
//Finalmente añadimos el pago (cobro o devolucion) //Finalmente añadimos el pago (cobro o devolucion)
if PagosController.Anadir(ARecibosCliente.Pagos, FechaPago, AIgnorarContabilidad, AIdSubcuenta, ASubCuenta) then if PagosController.Anadir(ARecibosCliente.Pagos, FechaPago, AIgnorarContabilidad, AIdSubcuenta, ASubCuenta, AReferenciaRemesa) then
begin begin
ARecibosCliente.Edit; ARecibosCliente.Edit;
ARecibosCliente.SITUACION := CTE_COBRADO; ARecibosCliente.SITUACION := CTE_COBRADO;
@ -218,7 +218,7 @@ begin
FDataModule := TDataModuleRecibosCliente.Create(Nil); FDataModule := TDataModuleRecibosCliente.Create(Nil);
end; end;
procedure TRecibosClienteController.AsignarRemesa(ARecibos: IBizRecibosCliente; ID_REMESA: Integer; FechaCargo: TDateTime; Referencia: String; AIgnorarContabilidad : Integer; ASubCuenta: Integer); procedure TRecibosClienteController.AsignarRemesa(ARecibos: IBizRecibosCliente; ID_REMESA: Integer; AReferenciaRemesa: String; AFechaCargo: TDateTime; AIgnorarContabilidad : Integer; AIdSubCuenta: Integer; ASubCuenta: String = '');
begin begin
if Assigned(ARecibos) then if Assigned(ARecibos) then
begin begin
@ -232,8 +232,7 @@ begin
ARecibos.Edit; ARecibos.Edit;
//Añadimos el cobro automatico por la remesa y volvemos a asignar ID //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 //para que asigne un ID nuevo para el pago, porque aqui si hay maestro-detalle
AnadirPago(ARecibos, DateToStr(FechaCargo), AIgnorarContabilidad, ASubCuenta); //->Ojo el orden es importante AnadirPago(ARecibos, DateToStr(AFechaCargo), AIgnorarContabilidad, AIdSubCuenta, ASubCuenta, AReferenciaRemesa); //->Ojo el orden es importante
// AnadirPago(ARecibos, DateToStr(Date), Referencia, AIgnorarContabilidad, ASubCuenta); //->Ojo el orden es importante
ARecibos.ID_REMESA := ID_REMESA; ARecibos.ID_REMESA := ID_REMESA;
end; end;
Next; Next;
@ -868,10 +867,10 @@ begin
end; end;
end; end;
procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''); procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''; AReferenciaRemesa: String ='');
begin begin
if Length(FechaPago) > 0 then if Length(FechaPago) > 0 then
PagosController.Modificar(ARecibosCliente.Pagos, FechaPago, AIgnorarContabilidad, AIdSubCuenta, ASubCuenta); PagosController.Modificar(ARecibosCliente.Pagos, FechaPago, AIgnorarContabilidad, AIdSubCuenta, ASubCuenta, AReferenciaRemesa);
end; end;
function TRecibosClienteController.Nuevo: IBizRecibosCliente; function TRecibosClienteController.Nuevo: IBizRecibosCliente;

79
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
View File

@ -4,7 +4,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ClientWidth = 885 ClientWidth = 885
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 893 ExplicitWidth = 893
ExplicitHeight = 596 ExplicitHeight = 600
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -42,7 +42,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 885 Width = 885
ExplicitWidth = 885 ExplicitWidth = 885
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 425 ExplicitWidth = 478
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 885 ExplicitWidth = 885
@ -60,21 +60,20 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 879 Width = 879
Height = 331 Height = 328
ActivePage = pagPagos ActivePage = pagPagos
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 879 ExplicitWidth = 879
ExplicitHeight = 331
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 303 ExplicitHeight = 300
inline frViewReciboCliente1: TfrViewReciboCliente inline frViewReciboCliente1: TfrViewReciboCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 871 Width = 871
Height = 303 Height = 300
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -85,15 +84,15 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 303 ExplicitHeight = 300
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 871 Width = 871
Height = 303 Height = 300
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 303 ExplicitHeight = 300
DesignSize = ( DesignSize = (
871 871
303) 300)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -121,43 +120,43 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 67 Width = 67
end end
inherited eFechaEmision: TcxDBTextEdit inherited eFechaEmision: TcxDBTextEdit
Left = 588 Left = 587
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 587
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eImporteTotal: TcxDBCurrencyEdit inherited eImporteTotal: TcxDBCurrencyEdit
Left = 588 Left = 587
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 587
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eNombreCliente: TcxDBTextEdit inherited eNombreCliente: TcxDBTextEdit
Left = 588 Left = 587
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 587
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eNifCif: TcxDBTextEdit inherited eNifCif: TcxDBTextEdit
Left = 588 Left = 587
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 587
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
@ -211,9 +210,9 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
end end
inherited frViewClienteRecibo1: TfrViewClienteRecibo inherited frViewClienteRecibo1: TfrViewClienteRecibo
Left = 512 Left = 511
Width = 362 Width = 362
ExplicitLeft = 512 ExplicitLeft = 511
ExplicitWidth = 362 ExplicitWidth = 362
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 362 Width = 362
@ -268,17 +267,17 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 271 Width = 271
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 228 Left = 227
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 228 ExplicitLeft = 227
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 118 Left = 117
ExplicitLeft = 118 ExplicitLeft = 117
end end
inherited cxDBTextEdit1: TcxDBTextEdit inherited cxDBTextEdit1: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -297,7 +296,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitHeight = 150 ExplicitHeight = 150
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
ExplicitWidth = 462 ExplicitWidth = 461
ExplicitHeight = 126 ExplicitHeight = 126
Height = 150 Height = 150
Width = 521 Width = 521
@ -313,7 +312,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 871 Width = 871
Height = 303 Height = 300
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -324,18 +323,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 303 ExplicitHeight = 300
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 871 Width = 871
Height = 303 Height = 300
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 303 ExplicitHeight = 300
end end
inherited dxLayoutControl2: TdxLayoutControl inherited dxLayoutControl2: TdxLayoutControl
Width = 871 Width = 871
Height = 303 Height = 300
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 303 ExplicitHeight = 300
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 684 Width = 684
ExplicitWidth = 684 ExplicitWidth = 684
@ -376,7 +375,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 871 Width = 871
Height = 303 Height = 300
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -387,10 +386,10 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 303 ExplicitHeight = 300
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 871 Width = 871
Height = 278 Height = 275
ExplicitTop = 26 ExplicitTop = 26
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 278 ExplicitHeight = 278
@ -407,6 +406,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 871 Width = 871
ExplicitWidth = 871 ExplicitWidth = 871
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
ExplicitWidth = 98 ExplicitWidth = 98
end end

4
Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm
View File

@ -162,6 +162,10 @@ inherited frViewPagosCliente: TfrViewPagosCliente
Visible = False Visible = False
VisibleForCustomization = False VisibleForCustomization = False
end end
object ListaPagosClienteDBTableView1TITULAR: TcxGridDBColumn
Caption = 'Remesa'
DataBinding.FieldName = 'TITULAR'
end
end end
object ListaPagosClienteLevel1: TcxGridLevel object ListaPagosClienteLevel1: TcxGridLevel
GridView = ListaPagosClienteDBTableView1 GridView = ListaPagosClienteDBTableView1

1
Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas
View File

@ -53,6 +53,7 @@ type
dxLayoutControl2Group1: TdxLayoutGroup; dxLayoutControl2Group1: TdxLayoutGroup;
dxLayoutControl2Item1: TdxLayoutItem; dxLayoutControl2Item1: TdxLayoutItem;
dxLayoutControl2Item2: TdxLayoutItem; dxLayoutControl2Item2: TdxLayoutItem;
ListaPagosClienteDBTableView1TITULAR: TcxGridDBColumn;
procedure ListaPagosClienteDBTableView1CellDblClick( procedure ListaPagosClienteDBTableView1CellDblClick(
Sender: TcxCustomGridTableView; Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;

19
Source/Modulos/Recibos de proveedor/Controller/uPagosProveedorController.pas
View File

@ -32,8 +32,8 @@ uses
type type
IPagosProveedorController = interface(ISujeto) IPagosProveedorController = interface(ISujeto)
['{4F907D80-B184-4557-BAB7-9FDA23260E64}'] ['{4F907D80-B184-4557-BAB7-9FDA23260E64}']
function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0; Const SubCuenta: String = ''): Boolean; function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0; Const SubCuenta: String = ''; Const AReferenciaRemesa: String = ''): Boolean;
procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String = ''); procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String = ''; Const AReferenciaRemesa: String = '');
function Eliminar(APagoCliente : IBizPagosProveedor): Boolean; function Eliminar(APagoCliente : IBizPagosProveedor): Boolean;
function EliminarTodo(APagossCliente : IBizPagosProveedor): Boolean; function EliminarTodo(APagossCliente : IBizPagosProveedor): Boolean;
end; end;
@ -46,8 +46,8 @@ type
public public
constructor Create; virtual; constructor Create; virtual;
destructor Destroy; override; destructor Destroy; override;
function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0; Const SubCuenta: String = ''): Boolean; function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0; Const SubCuenta: String = ''; Const AReferenciaRemesa: String = ''): Boolean;
procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String = ''); procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String = ''; Const AReferenciaRemesa: String = '');
function Eliminar(APagoCliente : IBizPagosProveedor): Boolean; function Eliminar(APagoCliente : IBizPagosProveedor): Boolean;
function EliminarTodo(APagosProveedor : IBizPagosProveedor): Boolean; function EliminarTodo(APagosProveedor : IBizPagosProveedor): Boolean;
end; end;
@ -62,7 +62,7 @@ uses
{ TPagosProveedorController } { TPagosProveedorController }
function TPagosProveedorController.Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0; Const SubCuenta: String = ''): Boolean; function TPagosProveedorController.Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0; Const SubCuenta: String = ''; Const AReferenciaRemesa: String = ''): Boolean;
{ Si el pago introducido es un pago y no una devolución devolvemos true en caso de ser { Si el pago introducido es un pago y no una devolución devolvemos true en caso de ser
una devolución devolvemos false} una devolución devolvemos false}
begin begin
@ -72,6 +72,9 @@ begin
else else
APagosProveedor.FECHA_PAGO := StrToDate(Fecha); APagosProveedor.FECHA_PAGO := StrToDate(Fecha);
if Length(AReferenciaRemesa) <> 0 then
APagosProveedor.TITULAR := AReferenciaRemesa;
if (APagosProveedor.DataTable.RecordCount = 0) if (APagosProveedor.DataTable.RecordCount = 0)
or ((APagosProveedor.DataTable.RecordCount mod 2) = 0) then or ((APagosProveedor.DataTable.RecordCount mod 2) = 0) then
APagosProveedor.TIPO := CTE_PAGO APagosProveedor.TIPO := CTE_PAGO
@ -145,10 +148,14 @@ begin
end; end;
end; end;
procedure TPagosProveedorController.Modificar(APagosProveedor: IBizPagosProveedor; const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String = ''); procedure TPagosProveedorController.Modificar(APagosProveedor: IBizPagosProveedor; const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String = ''; Const AReferenciaRemesa: String = '');
begin begin
APagosProveedor.DataTable.Edit; APagosProveedor.DataTable.Edit;
APagosProveedor.FECHA_PAGO := StrToDate(Fecha); APagosProveedor.FECHA_PAGO := StrToDate(Fecha);
if Length(AReferenciaRemesa) <> 0 then
APagosProveedor.TITULAR := AReferenciaRemesa;
APagosProveedor.IGNORAR_CONTABILIDAD := IgnorarContabilidad; APagosProveedor.IGNORAR_CONTABILIDAD := IgnorarContabilidad;
APagosProveedor.CUENTA := IntToStr(IdSubCuenta); APagosProveedor.CUENTA := IntToStr(IdSubCuenta);
APagosProveedor.SUBCUENTA := SubCuenta; APagosProveedor.SUBCUENTA := SubCuenta;

24
Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
View File

@ -42,8 +42,8 @@ type
property PagosController: IPagosProveedorController read GetPagosController write SetPagosController; property PagosController: IPagosProveedorController read GetPagosController write SetPagosController;
procedure Anadir(ARecibosProveedor : IBizRecibosProveedor); procedure Anadir(ARecibosProveedor : IBizRecibosProveedor);
function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''): Boolean; function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''; AReferenciaRemesa: String =''): Boolean;
procedure ModificarPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''); procedure ModificarPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''; AReferenciaRemesa: String ='');
function Eliminar(ARecibosProveedor : IBizRecibosProveedor; AllItems: Boolean = false): Boolean; function Eliminar(ARecibosProveedor : IBizRecibosProveedor; AllItems: Boolean = false): Boolean;
function EliminarPago(ARecibosProveedor : IBizRecibosProveedor): Boolean; function EliminarPago(ARecibosProveedor : IBizRecibosProveedor): Boolean;
function EliminarTodo(ARecibosProveedor : IBizRecibosProveedor): Boolean; function EliminarTodo(ARecibosProveedor : IBizRecibosProveedor): Boolean;
@ -64,7 +64,7 @@ type
procedure Ver(ARecibosProveedor: IBizRecibosProveedor); procedure Ver(ARecibosProveedor: IBizRecibosProveedor);
function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor) : IBizRecibosProveedor; function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor) : IBizRecibosProveedor;
procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer; FechaCargo: TDateTime; AIgnorarContabilidad : Integer; ASubCuenta: Integer); procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer; AReferenciaRemesa: String; AFechaCargo: TDateTime; AIgnorarContabilidad : Integer; AIdSubCuenta: Integer; ASubCuenta: String = '');
procedure QuitarRemesa(ARecibos : IBizRecibosProveedor); procedure QuitarRemesa(ARecibos : IBizRecibosProveedor);
procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False); procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False);
function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor; function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor;
@ -114,8 +114,8 @@ type
procedure RecuperarProveedor(AReciboProveedor : IBizRecibosProveedor); procedure RecuperarProveedor(AReciboProveedor : IBizRecibosProveedor);
procedure Anadir(ARecibosProveedor : IBizRecibosProveedor); procedure Anadir(ARecibosProveedor : IBizRecibosProveedor);
function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''): Boolean; function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''; AReferenciaRemesa: String =''): Boolean;
procedure ModificarPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''); procedure ModificarPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''; AReferenciaRemesa: String ='');
function Eliminar(ARecibosProveedor : IBizRecibosProveedor; AllItems: Boolean = false): Boolean; function Eliminar(ARecibosProveedor : IBizRecibosProveedor; AllItems: Boolean = false): Boolean;
function EliminarPago(ARecibosProveedor : IBizRecibosProveedor): Boolean; function EliminarPago(ARecibosProveedor : IBizRecibosProveedor): Boolean;
function EliminarTodo(ARecibosProveedor : IBizRecibosProveedor): Boolean; function EliminarTodo(ARecibosProveedor : IBizRecibosProveedor): Boolean;
@ -141,7 +141,7 @@ type
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosProveedor); procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosProveedor);
procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer; FechaCargo: TDateTime; AIgnorarContabilidad : Integer; ASubCuenta: Integer); procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer; AReferenciaRemesa: String; AFechaCargo: TDateTime; AIgnorarContabilidad : Integer; AIdSubCuenta: Integer; ASubCuenta: String = '');
procedure QuitarRemesa(ARecibos : IBizRecibosProveedor); procedure QuitarRemesa(ARecibos : IBizRecibosProveedor);
procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor); procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor);
@ -172,7 +172,7 @@ begin
ARecibosProveedor.Insert; ARecibosProveedor.Insert;
end; end;
function TRecibosProveedorController.AnadirPago(ARecibosProveedor: IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''): Boolean; function TRecibosProveedorController.AnadirPago(ARecibosProveedor: IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''; AReferenciaRemesa: String =''): Boolean;
begin begin
Result := False; Result := False;
@ -190,7 +190,7 @@ begin
//Finalmente añadimos el pago (pago o devolucion) //Finalmente añadimos el pago (pago o devolucion)
if PagosController.Anadir(ARecibosProveedor.Pagos, FechaPago, AIgnorarContabilidad, AIdSubCuenta, ASubCuenta) then if PagosController.Anadir(ARecibosProveedor.Pagos, FechaPago, AIgnorarContabilidad, AIdSubCuenta, ASubCuenta, AReferenciaRemesa) then
begin begin
ARecibosProveedor.Edit; ARecibosProveedor.Edit;
ARecibosProveedor.SITUACION := CTE_PAGADO; ARecibosProveedor.SITUACION := CTE_PAGADO;
@ -210,7 +210,7 @@ begin
FDataModule := TDataModuleRecibosProveedor.Create(Nil); FDataModule := TDataModuleRecibosProveedor.Create(Nil);
end; end;
procedure TRecibosProveedorController.AsignarRemesa(ARecibos: IBizRecibosProveedor; ID_REMESA: Integer; FechaCargo: TDateTime; AIgnorarContabilidad : Integer; ASubCuenta: Integer); procedure TRecibosProveedorController.AsignarRemesa(ARecibos: IBizRecibosProveedor; ID_REMESA: Integer; AReferenciaRemesa: String; AFechaCargo: TDateTime; AIgnorarContabilidad : Integer; AIdSubCuenta: Integer; ASubCuenta: String = '');
begin begin
if Assigned(ARecibos) then if Assigned(ARecibos) then
begin begin
@ -224,7 +224,7 @@ begin
ARecibos.Edit; ARecibos.Edit;
//Añadimos el cobro automatico por la remesa y volvemos a asignar ID //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 //para que asigne un ID nuevo para el pago, porque aqui si hay maestro-detalle
AnadirPago(ARecibos, DateToStr(FechaCargo), AIgnorarContabilidad, ASubCuenta); //->Ojo el orden es importante AnadirPago(ARecibos, DateToStr(AFechaCargo), AIgnorarContabilidad, AIdSubCuenta, ASubCuenta, AReferenciaRemesa); //->Ojo el orden es importante
ARecibos.ID_REMESA := ID_REMESA; ARecibos.ID_REMESA := ID_REMESA;
end; end;
Next; Next;
@ -841,10 +841,10 @@ begin
end; end;
end; end;
procedure TRecibosProveedorController.ModificarPago(ARecibosProveedor: IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''); procedure TRecibosProveedorController.ModificarPago(ARecibosProveedor: IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''; AReferenciaRemesa: String ='');
begin begin
if Length(FechaPago) > 0 then if Length(FechaPago) > 0 then
PagosController.Modificar(ARecibosProveedor.Pagos, FechaPago, AIgnorarContabilidad, AIdSubCuenta, ASubCuenta); PagosController.Modificar(ARecibosProveedor.Pagos, FechaPago, AIgnorarContabilidad, AIdSubCuenta, ASubCuenta, AReferenciaRemesa);
end; end;
function TRecibosProveedorController.Nuevo: IBizRecibosProveedor; function TRecibosProveedorController.Nuevo: IBizRecibosProveedor;

11
Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm
View File

@ -76,7 +76,7 @@ inherited frViewPagosProveedor: TfrViewPagosProveedor
Value = 'Devoluci'#243'n' Value = 'Devoluci'#243'n'
end> end>
Options.Focusing = False Options.Focusing = False
Width = 100 Width = 93
IsCaptionAssigned = True IsCaptionAssigned = True
end end
object ListaPagosProveedorDBTableView1FECHA_PAGO: TcxGridDBColumn object ListaPagosProveedorDBTableView1FECHA_PAGO: TcxGridDBColumn
@ -84,17 +84,22 @@ inherited frViewPagosProveedor: TfrViewPagosProveedor
DataBinding.FieldName = 'FECHA_PAGO' DataBinding.FieldName = 'FECHA_PAGO'
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Options.Focusing = False Options.Focusing = False
Width = 200 Width = 186
end end
object ListaPagosProveedorDBTableView1SUBCUENTA: TcxGridDBColumn object ListaPagosProveedorDBTableView1SUBCUENTA: TcxGridDBColumn
Caption = 'Caja/Banco' Caption = 'Caja/Banco'
DataBinding.FieldName = 'SUBCUENTA' DataBinding.FieldName = 'SUBCUENTA'
Width = 300 Width = 224
end end
object ListaPagosProveedorDBTableView1CUENTA: TcxGridDBColumn object ListaPagosProveedorDBTableView1CUENTA: TcxGridDBColumn
DataBinding.FieldName = 'CUENTA' DataBinding.FieldName = 'CUENTA'
Visible = False Visible = False
end end
object ListaPagosProveedorDBTableView1TITULAR: TcxGridDBColumn
Caption = 'Remesa'
DataBinding.FieldName = 'TITULAR'
Width = 115
end
end end
object ListaPagosProveedorLevel1: TcxGridLevel object ListaPagosProveedorLevel1: TcxGridLevel
GridView = ListaPagosProveedorDBTableView1 GridView = ListaPagosProveedorDBTableView1

1
Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas
View File

@ -51,6 +51,7 @@ type
ToolButton5: TToolButton; ToolButton5: TToolButton;
ToolButton2: TToolButton; ToolButton2: TToolButton;
ContenidoImageList: TPngImageList; ContenidoImageList: TPngImageList;
ListaPagosProveedorDBTableView1TITULAR: TcxGridDBColumn;
procedure ListaPagosProveedorDBTableView1CellDblClick( procedure ListaPagosProveedorDBTableView1CellDblClick(
Sender: TcxCustomGridTableView; Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;

20
Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas
View File

@ -19,7 +19,7 @@ type
procedure Anadir(ARemesaCliente : IBizRemesaCliente); procedure Anadir(ARemesaCliente : IBizRemesaCliente);
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false): Boolean; overload; function Eliminar(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false): Boolean; overload;
function Guardar(ARemesaCliente : IBizRemesaCliente; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean; function Guardar(ARemesaCliente : IBizRemesaCliente; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0): Boolean;
procedure DescartarCambios(ARemesaCliente : IBizRemesaCliente); procedure DescartarCambios(ARemesaCliente : IBizRemesaCliente);
function Existe(const ID: Integer) : Boolean; function Existe(const ID: Integer) : Boolean;
@ -66,7 +66,7 @@ type
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false): Boolean; overload; function Eliminar(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false): Boolean; overload;
function Guardar(ARemesaCliente : IBizRemesaCliente; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean; function Guardar(ARemesaCliente : IBizRemesaCliente; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0): Boolean;
procedure DescartarCambios(ARemesaCliente : IBizRemesaCliente); virtual; procedure DescartarCambios(ARemesaCliente : IBizRemesaCliente); virtual;
function Existe(const ID: Integer) : Boolean; virtual; function Existe(const ID: Integer) : Boolean; virtual;
procedure Anadir(ARemesaCliente : IBizRemesaCliente); virtual; procedure Anadir(ARemesaCliente : IBizRemesaCliente); virtual;
@ -537,9 +537,11 @@ begin
Result := FRecibosClienteController; Result := FRecibosClienteController;
end; end;
function TRemesasClienteController.Guardar(ARemesaCliente: IBizRemesaCliente; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean; function TRemesasClienteController.Guardar(ARemesaCliente: IBizRemesaCliente; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0): Boolean;
var var
bEsNuevo: Boolean; bEsNuevo: Boolean;
bEnEdicion : Boolean;
begin begin
Result := False; Result := False;
@ -555,7 +557,7 @@ begin
//Si todo ha ido bien, asignamos la remesa a los recibos asociados //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 //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros
RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, ARemesaCliente.ID, ARemesaCliente.FECHA_REMESA, ARemesaCliente.REFERENCIA, AIgnorarContabilidad, ASubCuenta); RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, ARemesaCliente.ID, ARemesaCliente.REFERENCIA, ARemesaCliente.FECHA_REMESA, AIgnorarContabilidad, AIdSubCuenta);
ARemesaCliente.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboCliente/ ElegirRecibosCliente) ARemesaCliente.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboCliente/ ElegirRecibosCliente)
//Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen //Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen
@ -563,6 +565,16 @@ begin
if ARemesaCliente.Recibos.DataTable.HasDelta then if ARemesaCliente.Recibos.DataTable.HasDelta then
ARemesaCliente.Recibos.DataTable.Refresh; ARemesaCliente.Recibos.DataTable.Refresh;
bEnEdicion := (ARemesaCliente.DataTable.State in dsEditModes);
if not bEnEdicion then
ARemesaCliente.Edit;
ARemesaCliente.ID_DATOS_BANCO := AIdSubCuenta;
if not bEnEdicion then
ARemesaCliente.Post;
ARemesaCliente.DataTable.ApplyUpdates; ARemesaCliente.DataTable.ApplyUpdates;
Result := True; Result := True;

16
Source/Modulos/Remesas de cliente/RemesasCliente_Group.groupproj
View File

@ -17,6 +17,7 @@
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" /> <Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" />
<Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" /> <Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
<Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
<Projects Include="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" /> <Projects Include="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" />
<Projects Include="Controller\RemesasCliente_controller.dproj" /> <Projects Include="Controller\RemesasCliente_controller.dproj" />
<Projects Include="Data\RemesasCliente_data.dproj" /> <Projects Include="Data\RemesasCliente_data.dproj" />
@ -201,14 +202,23 @@
<Target Name="RemesasProveedor_view:Make"> <Target Name="RemesasProveedor_view:Make">
<MSBuild Projects="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" Targets="Make" /> <MSBuild Projects="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="RecibosProveedor_controller">
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="" />
</Target>
<Target Name="RecibosProveedor_controller:Clean">
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosProveedor_controller:Make">
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;BancaElectronica_controller;BancaElectronica_view;BancaElectronica_plugin;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RecibosCliente_controller;RecibosCliente_view;Contabilidad_view;Contactos_view;Contabilidad_controller;RemesasProveedor_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;BancaElectronica_controller;BancaElectronica_view;BancaElectronica_plugin;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RecibosCliente_controller;RecibosCliente_view;Contabilidad_view;Contactos_view;Contabilidad_controller;RemesasProveedor_view;RecibosProveedor_controller" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;BancaElectronica_controller:Clean;BancaElectronica_view:Clean;BancaElectronica_plugin:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;Contabilidad_view:Clean;Contactos_view:Clean;Contabilidad_controller:Clean;RemesasProveedor_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;BancaElectronica_controller:Clean;BancaElectronica_view:Clean;BancaElectronica_plugin:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;Contabilidad_view:Clean;Contactos_view:Clean;Contabilidad_controller:Clean;RemesasProveedor_view:Clean;RecibosProveedor_controller:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;BancaElectronica_controller:Make;BancaElectronica_view:Make;BancaElectronica_plugin:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;Contabilidad_view:Make;Contactos_view:Make;Contabilidad_controller:Make;RemesasProveedor_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;BancaElectronica_controller:Make;BancaElectronica_view:Make;BancaElectronica_plugin:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;Contabilidad_view:Make;Contactos_view:Make;Contabilidad_controller:Make;RemesasProveedor_view:Make;RecibosProveedor_controller:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

134
Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm
View File

@ -50,7 +50,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 889 Width = 889
ExplicitWidth = 889 ExplicitWidth = 889
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 664 ExplicitWidth = 370
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -62,7 +62,9 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
object TBXSubmenuItem3: TTBXSubmenuItem [12] object TBXSubmenuItem3: TTBXSubmenuItem [12]
Caption = 'Volcar a disco' Caption = 'Volcar a disco'
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
Enabled = False
ImageIndex = 22 ImageIndex = 22
Visible = False
object TBXItem34: TTBXItem object TBXItem34: TTBXItem
Action = actNorma19 Action = actNorma19
end end
@ -87,12 +89,6 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
inherited TBXItem21: TTBXItem inherited TBXItem21: TTBXItem
Visible = False Visible = False
end end
inherited TBXItem22: TTBXItem
Visible = False
end
inherited TBXItem9: TTBXItem
Visible = False
end
end end
inherited TBXSubmenuItem1: TTBXSubmenuItem inherited TBXSubmenuItem1: TTBXSubmenuItem
inherited TBXItem32: TTBXItem inherited TBXItem32: TTBXItem
@ -312,23 +308,39 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ExplicitWidth = 889 ExplicitWidth = 889
ExplicitHeight = 50 ExplicitHeight = 50
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 429 Left = 408
Top = 10 Top = 10
Height = 30 Height = 30
ExplicitLeft = 429 ExplicitLeft = 408
ExplicitTop = 10 ExplicitTop = 10
ExplicitHeight = 30 ExplicitHeight = 30
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 541 Left = 520
Top = 52 Top = 52
Width = 192 Width = 192
ExplicitLeft = 541 ExplicitLeft = 520
ExplicitTop = 52 ExplicitTop = 52
ExplicitWidth = 192 ExplicitWidth = 192
end end
inherited Bevel2: TBevel
Left = 10
Top = 195
Width = 333
ExplicitLeft = 10
ExplicitTop = 195
ExplicitWidth = 333
end
inherited Bevel1: TBevel
Left = 427
Top = 195
Width = 332
ExplicitLeft = 427
ExplicitTop = 195
ExplicitWidth = 332
end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 163 Left = 190
Top = 37 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -336,13 +348,13 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 163 ExplicitLeft = 190
ExplicitTop = 37 ExplicitTop = 37
ExplicitWidth = 157 ExplicitWidth = 157
Width = 157 Width = 157
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 612 Left = 591
Top = 87 Top = 87
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -350,26 +362,26 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 612 ExplicitLeft = 591
ExplicitTop = 87 ExplicitTop = 87
ExplicitWidth = 147 ExplicitWidth = 147
Width = 147 Width = 147
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 542 Left = 521
Top = 168 Top = 168
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 542 ExplicitLeft = 521
ExplicitTop = 168 ExplicitTop = 168
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 92 Left = 119
Top = 37 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -377,11 +389,11 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 119
ExplicitTop = 37 ExplicitTop = 37
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 541 Left = 520
Top = 87 Top = 87
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -389,11 +401,11 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 541 ExplicitLeft = 520
ExplicitTop = 87 ExplicitTop = 87
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 541 Left = 520
Top = 10 Top = 10
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -401,13 +413,13 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 541 ExplicitLeft = 520
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 218 ExplicitWidth = 218
Width = 218 Width = 218
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 541 Left = 520
Top = 141 Top = 141
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -415,18 +427,18 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 541 ExplicitLeft = 520
ExplicitTop = 141 ExplicitTop = 141
end end
inherited edtIRPF: TcxDBSpinEdit inherited edtIRPF: TcxDBSpinEdit
Left = 541 Left = 520
Top = 114 Top = 114
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 541 ExplicitLeft = 520
ExplicitTop = 114 ExplicitTop = 114
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 612 Left = 591
Top = 141 Top = 141
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -434,22 +446,22 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 612 ExplicitLeft = 591
ExplicitTop = 141 ExplicitTop = 141
ExplicitWidth = 147 ExplicitWidth = 147
Width = 147 Width = 147
end end
inherited ImporteIRPF: TcxDBCurrencyEdit inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 612 Left = 591
Top = 114 Top = 114
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 612 ExplicitLeft = 591
ExplicitTop = 114 ExplicitTop = 114
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 92 Left = 119
Top = 10 Top = 10
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -457,13 +469,13 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 119
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 228 ExplicitWidth = 228
Width = 228 Width = 228
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Left = 92 Left = 119
Top = 64 Top = 64
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -471,43 +483,71 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 119
ExplicitTop = 64 ExplicitTop = 64
ExplicitWidth = 228 ExplicitWidth = 228
Width = 228 Width = 228
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Left = 92 Left = 119
Top = 91 Top = 91
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 119
ExplicitTop = 91 ExplicitTop = 91
ExplicitWidth = 90 ExplicitWidth = 90
Width = 90 Width = 90
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 281 Left = 260
Top = 91 Top = 91
ExplicitLeft = 281 ExplicitLeft = 260
ExplicitTop = 91 ExplicitTop = 91
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 92 Left = 119
Top = 118 Top = 118
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 119
ExplicitTop = 118 ExplicitTop = 118
ExplicitWidth = 228 ExplicitWidth = 228
Width = 228 Width = 228
end end
inherited edtRetencion: TcxDBSpinEdit
Left = 520
Top = 210
Style.IsFontAssigned = True
ExplicitLeft = 520
ExplicitTop = 210
end
inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 591
Top = 210
Style.IsFontAssigned = True
ExplicitLeft = 591
ExplicitTop = 210
ExplicitWidth = 342
Width = 342
end
inherited edtFechaRetencion: TcxDBDateEdit
Left = 119
Top = 210
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 119
ExplicitTop = 210
ExplicitWidth = 333
Width = 333
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
@ -1899,22 +1939,34 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
inherited EditorActionList: TActionList [11] inherited EditorActionList: TActionList [11]
Left = 96 Left = 96
Top = 168 Top = 168
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
object actVolcarDisco: TAction object actVolcarDisco: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Volcar a disco...' Caption = 'Volcar a disco...'
Enabled = False
ImageIndex = 22 ImageIndex = 22
Visible = False
OnUpdate = actVolcarDiscoUpdate OnUpdate = actVolcarDiscoUpdate
end end
object actNorma19: TAction object actNorma19: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Norma 19' Caption = 'Norma 19'
Enabled = False Enabled = False
Visible = False
OnExecute = actNorma19Execute OnExecute = actNorma19Execute
end end
object actNorma32: TAction object actNorma32: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Norma 32' Caption = 'Norma 32'
Enabled = False Enabled = False
Visible = False
OnExecute = actNorma32Execute OnExecute = actNorma32Execute
end end
end end

20
Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.dfm
View File

@ -5,7 +5,7 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
ClientHeight = 409 ClientHeight = 409
ClientWidth = 785 ClientWidth = 785
ExplicitWidth = 793 ExplicitWidth = 793
ExplicitHeight = 443 ExplicitHeight = 447
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -45,12 +45,12 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
Width = 785 Width = 785
ExplicitWidth = 785 ExplicitWidth = 785
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 785 ExplicitWidth = 451
object TBXSeparatorItem17: TTBXSeparatorItem [12] object TBXSeparatorItem17: TTBXSeparatorItem [12]
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 374 ExplicitWidth = 299
inherited lblAno: TTBXLabelItem inherited lblAno: TTBXLabelItem
Visible = True Visible = True
end end
@ -76,10 +76,6 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
end end
end end
end end
inherited TBXTMain2: TTBXToolbar
Left = 374
ExplicitLeft = 374
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 390 Top = 390
@ -92,22 +88,20 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
ImageIndex = 24 ImageIndex = 24
end end
inherited actPrevisualizar: TAction inherited actPrevisualizar: TAction
Visible = True Enabled = False
end end
inherited actImprimir: TAction inherited actImprimir: TAction
Visible = True Enabled = False
end end
inherited actDuplicar: TAction inherited actDuplicar: TAction
Visible = False Visible = False
end end
inherited actExportarExcel: TAction
Enabled = True
Visible = True
end
object actVolcarDisco: TAction object actVolcarDisco: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Volcar a disco...' Caption = 'Volcar a disco...'
Enabled = False
ImageIndex = 25 ImageIndex = 25
Visible = False
OnExecute = actVolcarDiscoExecute OnExecute = actVolcarDiscoExecute
OnUpdate = actVolcarDiscoUpdate OnUpdate = actVolcarDiscoUpdate
end end

2
Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas
View File

@ -145,6 +145,8 @@ begin
dsDataTable.DataTable := FRemesaCliente.DataTable; dsDataTable.DataTable := FRemesaCliente.DataTable;
dsDatosBanco.DataTable := AppFactuGES.EmpresaActiva.DatosBancarios.DataTable; dsDatosBanco.DataTable := AppFactuGES.EmpresaActiva.DatosBancarios.DataTable;
dsDatosBanco.DataTable.Active := True; dsDatosBanco.DataTable.Active := True;
frViewListaSubcuentas1.IdSubCuenta := FRemesaCliente.ID_DATOS_BANCO;
end end
else begin else begin
dsDataTable.DataTable := NIL; dsDataTable.DataTable := NIL;

21
Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas
View File

@ -19,7 +19,7 @@ type
procedure Anadir(ARemesaProveedor : IBizRemesaProveedor); procedure Anadir(ARemesaProveedor : IBizRemesaProveedor);
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false): Boolean; overload; function Eliminar(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false): Boolean; overload;
function Guardar(ARemesaProveedor : IBizRemesaProveedor; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean; function Guardar(ARemesaProveedor : IBizRemesaProveedor; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0): Boolean;
procedure DescartarCambios(ARemesaProveedor : IBizRemesaProveedor); procedure DescartarCambios(ARemesaProveedor : IBizRemesaProveedor);
function Existe(const ID: Integer) : Boolean; function Existe(const ID: Integer) : Boolean;
@ -63,7 +63,7 @@ type
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false): Boolean; overload; function Eliminar(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false): Boolean; overload;
function Guardar(ARemesaProveedor : IBizRemesaProveedor; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean; function Guardar(ARemesaProveedor : IBizRemesaProveedor; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0): Boolean;
procedure DescartarCambios(ARemesaProveedor : IBizRemesaProveedor); virtual; procedure DescartarCambios(ARemesaProveedor : IBizRemesaProveedor); virtual;
function Existe(const ID: Integer) : Boolean; virtual; function Existe(const ID: Integer) : Boolean; virtual;
procedure Anadir(ARemesaProveedor : IBizRemesaProveedor); virtual; procedure Anadir(ARemesaProveedor : IBizRemesaProveedor); virtual;
@ -325,7 +325,7 @@ begin
ARecibosRemesa := ARemesaProveedor.Recibos; ARecibosRemesa := ARemesaProveedor.Recibos;
//Copia los recibos seleccionados a los recibos de la remesa sin que el servidor se entere de //Copia los recibos seleccionados a los recibos de la remesa sin que el servidor se entere de
//las inserciones //las inserciones
DuplicarRegistros(ARecibosSeleccionados.DataTable,ARecibosRemesa.DataTable, mdrTodos, False, False, True); DuplicarRegistros(ARecibosSeleccionados.DataTable,ARecibosRemesa.DataTable, mdrTodos, true, False, True);
FRecibosProveedorController.SetSituacionCobrados(ARecibosRemesa); FRecibosProveedorController.SetSituacionCobrados(ARecibosRemesa);
Result := True; Result := True;
finally finally
@ -502,9 +502,10 @@ begin
Result := FRecibosProveedorController; Result := FRecibosProveedorController;
end; end;
function TRemesasProveedorController.Guardar(ARemesaProveedor: IBizRemesaProveedor; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean; function TRemesasProveedorController.Guardar(ARemesaProveedor: IBizRemesaProveedor; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0): Boolean;
var var
bEsNuevo: Boolean; bEsNuevo: Boolean;
bEnEdicion : Boolean;
begin begin
Result := False; Result := False;
@ -519,7 +520,7 @@ begin
//Si todo ha ido bien, asignamos la remesa a los recibos asociados //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 //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros
RecibosProveedorController.AsignarRemesa(ARemesaProveedor.Recibos, ARemesaProveedor.ID, ARemesaProveedor.FECHA_REMESA, AIgnorarContabilidad, ASubCuenta); RecibosProveedorController.AsignarRemesa(ARemesaProveedor.Recibos, ARemesaProveedor.ID, ARemesaProveedor.REFERENCIA, ARemesaProveedor.FECHA_REMESA, AIgnorarContabilidad, AIdSubCuenta);
ARemesaProveedor.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboProveedor/ ElegirRecibosProveedor) 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 //Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen
@ -527,7 +528,15 @@ begin
if ARemesaProveedor.Recibos.DataTable.HasDelta then if ARemesaProveedor.Recibos.DataTable.HasDelta then
ARemesaProveedor.Recibos.DataTable.Refresh; ARemesaProveedor.Recibos.DataTable.Refresh;
// ARemesaProveedor.ID_DATOS_BANCO := ASubCuenta; bEnEdicion := (ARemesaProveedor.DataTable.State in dsEditModes);
if not bEnEdicion then
ARemesaProveedor.Edit;
ARemesaProveedor.ID_DATOS_BANCO := AIdSubCuenta;
if not bEnEdicion then
ARemesaProveedor.Post;
ARemesaProveedor.DataTable.ApplyUpdates; ARemesaProveedor.DataTable.ApplyUpdates;
Result := True; Result := True;

56
Source/Modulos/Remesas de proveedor/RemesasProveedor_Group.groupproj
View File

@ -10,7 +10,12 @@
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" /> <Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" />
<Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" />
<Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
<Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" /> <Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
<Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
<Projects Include="..\Remesas de cliente\Controller\RemesasCliente_controller.dproj" />
<Projects Include="Controller\RemesasProveedor_controller.dproj" /> <Projects Include="Controller\RemesasProveedor_controller.dproj" />
<Projects Include="Data\RemesasProveedor_data.dproj" /> <Projects Include="Data\RemesasProveedor_data.dproj" />
<Projects Include="Model\RemesasProveedor_model.dproj" /> <Projects Include="Model\RemesasProveedor_model.dproj" />
@ -131,14 +136,59 @@
<Target Name="RecibosProveedor_controller:Make"> <Target Name="RecibosProveedor_controller:Make">
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Make" /> <MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Make" />
</Target> </Target>
<Target Name="ContratosCliente_controller">
<MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="" />
</Target>
<Target Name="ContratosCliente_controller:Clean">
<MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="ContratosCliente_controller:Make">
<MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="RecibosProveedor_view">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="" />
</Target>
<Target Name="RecibosProveedor_view:Clean">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosProveedor_view:Make">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="RecibosCliente_view">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="" />
</Target>
<Target Name="RecibosCliente_view:Clean">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosCliente_view:Make">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="RemesasCliente_controller">
<MSBuild Projects="..\Remesas de cliente\Controller\RemesasCliente_controller.dproj" Targets="" />
</Target>
<Target Name="RemesasCliente_controller:Clean">
<MSBuild Projects="..\Remesas de cliente\Controller\RemesasCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="RemesasCliente_controller:Make">
<MSBuild Projects="..\Remesas de cliente\Controller\RemesasCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="RecibosCliente_controller">
<MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="" />
</Target>
<Target Name="RecibosCliente_controller:Clean">
<MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosCliente_controller:Make">
<MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasProveedor_model;RemesasProveedor_data;RemesasProveedor_controller;RemesasProveedor_view;RemesasProveedor_plugin;FactuGES;FactuGES_Server;Contabilidad_view;RecibosProveedor_controller" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasProveedor_model;RemesasProveedor_data;RemesasProveedor_controller;RemesasProveedor_view;RemesasProveedor_plugin;FactuGES;FactuGES_Server;Contabilidad_view;RecibosProveedor_controller;ContratosCliente_controller;RecibosProveedor_view;RecibosCliente_view;RemesasCliente_controller;RecibosCliente_controller" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasProveedor_model:Clean;RemesasProveedor_data:Clean;RemesasProveedor_controller:Clean;RemesasProveedor_view:Clean;RemesasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean;RecibosProveedor_controller:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasProveedor_model:Clean;RemesasProveedor_data:Clean;RemesasProveedor_controller:Clean;RemesasProveedor_view:Clean;RemesasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean;RecibosProveedor_controller:Clean;ContratosCliente_controller:Clean;RecibosProveedor_view:Clean;RecibosCliente_view:Clean;RemesasCliente_controller:Clean;RecibosCliente_controller:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasProveedor_model:Make;RemesasProveedor_data:Make;RemesasProveedor_controller:Make;RemesasProveedor_view:Make;RemesasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make;RecibosProveedor_controller:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasProveedor_model:Make;RemesasProveedor_data:Make;RemesasProveedor_controller:Make;RemesasProveedor_view:Make;RemesasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make;RecibosProveedor_controller:Make;ContratosCliente_controller:Make;RecibosProveedor_view:Make;RecibosCliente_view:Make;RemesasCliente_controller:Make;RecibosCliente_controller:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

4
Source/Modulos/Remesas de proveedor/Views/uViewRecibosRemesaProveedor.dfm
View File

@ -33,9 +33,9 @@ inherited frViewRecibosRemesaProveedor: TfrViewRecibosRemesaProveedor
Value = 'PENDIENTE' Value = 'PENDIENTE'
end end
item item
Description = 'Cobrado' Description = 'Pagado'
ImageIndex = 0 ImageIndex = 0
Value = 'COBRADO' Value = 'PAGADO'
end end
item item
Description = 'Devuelto' Description = 'Devuelto'

13
Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.dfm
View File

@ -206,14 +206,6 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
end end
end end
end end
object cxDBComboBox1: TcxDBComboBox
Left = 97
Top = 224
DataBinding.DataField = 'ID_DATOS_BANCO'
DataBinding.DataSource = dsDataTable
TabOrder = 6
Width = 121
end
object dxLayoutControlRemesaProveedorGroup_Root: TdxLayoutGroup object dxLayoutControlRemesaProveedorGroup_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -283,11 +275,6 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
end end
object dxLayoutControlRemesaProveedorItem5: TdxLayoutItem
Caption = 'cxDBComboBox1'
Control = cxDBComboBox1
ControlOptions.ShowBorder = False
end
end end
end end
object dsDataTable: TDADataSource object dsDataTable: TDADataSource

4
Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.pas
View File

@ -50,8 +50,6 @@ type
dxLayoutControlRemesaProveedorItem2: TdxLayoutItem; dxLayoutControlRemesaProveedorItem2: TdxLayoutItem;
frViewListaSubcuentas1: TfrViewListaSubcuentas; frViewListaSubcuentas1: TfrViewListaSubcuentas;
dxlcCuentaContable: TdxLayoutGroup; dxlcCuentaContable: TdxLayoutGroup;
cxDBComboBox1: TcxDBComboBox;
dxLayoutControlRemesaProveedorItem5: TdxLayoutItem;
protected protected
FController: IRemesasProveedorController; FController: IRemesasProveedorController;
@ -148,6 +146,8 @@ begin
dsDataTable.DataTable := FRemesaProveedor.DataTable; dsDataTable.DataTable := FRemesaProveedor.DataTable;
dsDatosBanco.DataTable := AppFactuGES.EmpresaActiva.DatosBancarios.DataTable; dsDatosBanco.DataTable := AppFactuGES.EmpresaActiva.DatosBancarios.DataTable;
dsDatosBanco.DataTable.Active := True; dsDatosBanco.DataTable.Active := True;
frViewListaSubcuentas1.IdSubCuenta := FRemesaProveedor.ID_DATOS_BANCO;
end end
else begin else begin
dsDataTable.DataTable := NIL; dsDataTable.DataTable := NIL;

BIN
Source/Modulos/Tarifas/Controller/Tarifas_controller.dcu
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -153,10 +153,10 @@ uses
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
uRptInventario_Server in '..\Modulos\Inventario\Reports\uRptInventario_Server.pas' {RptInventario: TDataModule}, uRptInventario_Server in '..\Modulos\Inventario\Reports\uRptInventario_Server.pas' {RptInventario: TDataModule},
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas'; schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.1.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.1.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 18 de octubre de 2022 10:32</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.1.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.1.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 12 de diciembre de 2022 20:04</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.