Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios solicitados en las formas de pago para soportar la generación automática de los pagos en los recibos de una factura.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@671 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2018-10-10 14:54:35 +00:00
parent 4952e773f4
commit 523e2825fb
25 changed files with 1017 additions and 253 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Source/ApplicationBase/uPlugins_Intf.pas
View File

@ -14,6 +14,7 @@ const
MODULENAME_RECIBOS_CLIENTE = 'RecibosCliente_plugin.bpl'; MODULENAME_RECIBOS_CLIENTE = 'RecibosCliente_plugin.bpl';
} }
MODULENAME_PEDIDOS_PROVEEDOR = 'PedidosProveedor_plugin.bpl'; MODULENAME_PEDIDOS_PROVEEDOR = 'PedidosProveedor_plugin.bpl';
{ {
MODULENAME_ALBARANES_PROVEEDOR = 'AlbaranesProveedor_plugin.bpl'; MODULENAME_ALBARANES_PROVEEDOR = 'AlbaranesProveedor_plugin.bpl';
MODULENAME_FACTURAS_PROVEEDOR = 'FacturasProveedor_plugin.bpl'; MODULENAME_FACTURAS_PROVEEDOR = 'FacturasProveedor_plugin.bpl';

3
Source/Cliente/FactuGES.dproj
View File

@ -52,8 +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">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">7</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">2.8.7.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">2.8.7.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">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">8</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">2.8.8.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">2.8.8.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>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,8,7,0 FILEVERSION 2,8,8,0
PRODUCTVERSION 2,8,7,0 PRODUCTVERSION 2,8,8,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.8.7.0\0" VALUE "FileVersion", "2.8.8.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.8.7.0\0" VALUE "ProductVersion", "2.8.8.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

58
Source/Informes/InfPedidoProveedor.fr3
View File

File diff suppressed because one or more lines are too long

12
Source/Modulos/Contabilidad/Views/uViewCuentasEspeciales.dfm
View File

@ -37,14 +37,26 @@ inherited frViewCuentasEspeciales: TfrViewCuentasEspeciales
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end

BIN
Source/Modulos/Contabilidad/Views/uViewCuentasEspeciales.pas
View File

Binary file not shown.

12
Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.dfm
View File

@ -127,15 +127,27 @@ inherited frViewExtractoMovimientos: TfrViewExtractoMovimientos
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 242 ExplicitWidth = 242
Width = 242 Width = 242
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 346 Left = 346
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 346 ExplicitLeft = 346
ExplicitWidth = 198 ExplicitWidth = 198
Width = 198 Width = 198

3
Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.pas
View File

@ -14,7 +14,8 @@ uses
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX, cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar,
cxImageComboBox, cxTextEdit, cxCurrencyEdit, uBizSubCuentas, uAsientosController; cxImageComboBox, cxTextEdit, cxCurrencyEdit, uBizSubCuentas, uAsientosController,
uCustomView, uViewBase;
type type
IViewExtractoMovimientos = interface(IViewGrid) IViewExtractoMovimientos = interface(IViewGrid)

24
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -1239,6 +1239,7 @@ var
ADiaVencimiento: Integer; ADiaVencimiento: Integer;
ADiasMas: Integer; ADiasMas: Integer;
BSemaforo: Boolean; BSemaforo: Boolean;
AID: Integer;
begin begin
if not Assigned(AFactura) then if not Assigned(AFactura) then
@ -1326,6 +1327,13 @@ begin
ARecibos.DESCRIPCION := 'Pago de factura ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE); ARecibos.DESCRIPCION := 'Pago de factura ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE);
ARecibosProveedorController.Guardar(ARecibos); ARecibosProveedorController.Guardar(ARecibos);
if (AFormaPago.Plazos.RecordCount < 1) and (not AFormaPago.ID_SUBCUENTAIsNull) then
begin
ARecibosProveedorController.AnadirPago(ARecibos, DateToStr(ARecibos.FECHA_VENCIMIENTO), AFormaPago.IGNORAR_CONTABILIDAD, AFormaPago.ID_SUBCUENTA);
ARecibosProveedorController.Guardar(ARecibos);
end;
Inc(i); Inc(i);
Next; Next;
until (eof); until (eof);
@ -1336,6 +1344,22 @@ begin
AFormaPago := Nil; AFormaPago := Nil;
ARecibosProveedorController := Nil; ARecibosProveedorController := Nil;
ARecibos := Nil; ARecibos := Nil;
//Refresco de la cabecera de la factura para que quede en situación de pagada si asi lo requiere.
with AFactura.DataTable do
begin
AID := RecIDValue;
DisableControls; //<- No descomentar
ShowHourglassCursor;
try
Refresh;
Locate(RecIDField.FieldName, AID, []);
finally
EnableControls; //<- No descomentar
HideHourglassCursor;
end;
end;
end; end;
function TFacturasProveedorController.GetProveedorController: IProveedoresController; function TFacturasProveedorController.GetProveedorController: IProveedoresController;

26
Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
View File

@ -18,6 +18,8 @@
<Projects Include="..\Contactos\Data\Contactos_data.dproj" /> <Projects Include="..\Contactos\Data\Contactos_data.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" /> <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" />
<Projects Include="..\Contratos de cliente\Views\ContratosCliente_view.dproj" />
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" /> <Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
<Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" /> <Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
<Projects Include="Controller\FacturasProveedor_controller.dproj" /> <Projects Include="Controller\FacturasProveedor_controller.dproj" />
@ -221,14 +223,32 @@
<Target Name="Contactos_data:Make"> <Target Name="Contactos_data:Make">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" /> <MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" />
</Target> </Target>
<Target Name="ContratosCliente_view">
<MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="" />
</Target>
<Target Name="ContratosCliente_view:Clean">
<MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="ContratosCliente_view:Make">
<MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="Make" />
</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="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_controller;AlbaranesProveedor_controller;RecibosProveedor_controller;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;Contabilidad_view;Contabilidad_controller;Contactos_model;Contactos_controller;Contactos_data" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_controller;AlbaranesProveedor_controller;RecibosProveedor_controller;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;Contabilidad_view;Contabilidad_controller;Contactos_model;Contactos_controller;Contactos_data;ContratosCliente_view;ContratosCliente_controller" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;RecibosProveedor_controller:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_data:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;RecibosProveedor_controller:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_data:Clean;ContratosCliente_view:Clean;ContratosCliente_controller:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;RecibosProveedor_controller:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_data:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;RecibosProveedor_controller:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_data:Make;ContratosCliente_view:Make;ContratosCliente_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>

14
Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.dfm
View File

@ -14,12 +14,12 @@ inherited DataModuleFormasPago: TDataModuleFormasPago
Top = 104 Top = 104
end end
object rda_FormasPago: TDARemoteDataAdapter object rda_FormasPago: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 208 Left = 208
Top = 24 Top = 24
end end
@ -82,12 +82,18 @@ inherited DataModuleFormasPago: TDataModuleFormasPago
Size = 15 Size = 15
DisplayLabel = 'C'#243'd. Cuenta' DisplayLabel = 'C'#243'd. Cuenta'
DictionaryEntry = 'FormasPago_CUENTA' DictionaryEntry = 'FormasPago_CUENTA'
end
item
Name = 'ID_SUBCUENTA'
DataType = datInteger
end
item
Name = 'IGNORAR_CONTABILIDAD'
DataType = datSmallInt
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_FormasPago RemoteDataAdapter = rda_FormasPago
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'FormasPago' LogicalName = 'FormasPago'
IndexDefs = <> IndexDefs = <>
Left = 208 Left = 208
@ -139,8 +145,6 @@ inherited DataModuleFormasPago: TDataModuleFormasPago
MasterSource = ds_FormasPago MasterSource = ds_FormasPago
MasterFields = 'ID' MasterFields = 'ID'
DetailFields = 'ID_FORMA_PAGO' DetailFields = 'ID_FORMA_PAGO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'FormasPagoPlazos' LogicalName = 'FormasPagoPlazos'
IndexDefs = <> IndexDefs = <>
Left = 344 Left = 344

56
Source/Modulos/Formas de pago/FormasPago_Group.groupproj
View File

@ -8,6 +8,11 @@
<Projects Include="..\..\Base\Base.dproj" /> <Projects Include="..\..\Base\Base.dproj" />
<Projects Include="..\..\Cliente\FactuGES.dproj" /> <Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
<Projects Include="Controller\FormasPago_controller.dproj" /> <Projects Include="Controller\FormasPago_controller.dproj" />
<Projects Include="Data\FormasPago_data.dproj" /> <Projects Include="Data\FormasPago_data.dproj" />
<Projects Include="Model\FormasPago_model.dproj" /> <Projects Include="Model\FormasPago_model.dproj" />
@ -101,14 +106,59 @@
<Target Name="FactuGES:Make"> <Target Name="FactuGES:Make">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" /> <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FactuGES_Server">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
</Target>
<Target Name="FactuGES_Server:Clean">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_view">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_view:Clean">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_view:Make">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_view">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" />
</Target>
<Target Name="Contactos_view:Clean">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_view:Make">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_view">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
</Target>
<Target Name="Contabilidad_view:Clean">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contabilidad_view:Make">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
</Target>
<Target Name="PresupuestosCliente_view">
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="" />
</Target>
<Target Name="PresupuestosCliente_view:Clean">
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="PresupuestosCliente_view:Make">
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;FormasPago_model;FormasPago_data;FormasPago_controller;FormasPago_view;FormasPago_plugin;FactuGES" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;FormasPago_model;FormasPago_data;FormasPago_controller;FormasPago_view;FormasPago_plugin;FactuGES;FactuGES_Server;FacturasProveedor_view;Contactos_view;Contabilidad_view;PresupuestosCliente_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;FormasPago_model:Clean;FormasPago_data:Clean;FormasPago_controller:Clean;FormasPago_view:Clean;FormasPago_plugin:Clean;FactuGES:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;FormasPago_model:Clean;FormasPago_data:Clean;FormasPago_controller:Clean;FormasPago_view:Clean;FormasPago_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasProveedor_view:Clean;Contactos_view:Clean;Contabilidad_view:Clean;PresupuestosCliente_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;FormasPago_model:Make;FormasPago_data:Make;FormasPago_controller:Make;FormasPago_view:Make;FormasPago_plugin:Make;FactuGES:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;FormasPago_model:Make;FormasPago_data:Make;FormasPago_controller:Make;FormasPago_view:Make;FormasPago_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasProveedor_view:Make;Contactos_view:Make;Contabilidad_view:Make;PresupuestosCliente_view: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>

192
Source/Modulos/Formas de pago/Model/schFormasPagoClient_Intf.pas
View File

@ -3,19 +3,29 @@ unit schFormasPagoClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const 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_FormasPago = '{0AC9176F-E9B6-43BA-B03E-0973D7074140}'; RID_ListaFormasPago = '{2B3ABE15-A405-4394-A2E1-ABE8557CC213}';
RID_FormasPagoPlazos = '{F02E8B61-F06F-48FE-B705-0C42FB672FB5}'; RID_FormasPago = '{5691CFDF-40DA-4B7E-A1BB-0F3742347583}';
RID_FormasPagoPlazos = '{807478A5-FF90-416D-822E-280382B76115}';
{ Data table names } { Data table names }
nme_ListaFormasPago = 'ListaFormasPago';
nme_FormasPago = 'FormasPago'; nme_FormasPago = 'FormasPago';
nme_FormasPagoPlazos = 'FormasPagoPlazos'; nme_FormasPagoPlazos = 'FormasPagoPlazos';
{ ListaFormasPago fields }
fld_ListaFormasPagoID = 'ID';
fld_ListaFormasPagoDESCRIPCION = 'DESCRIPCION';
{ ListaFormasPago field indexes }
idx_ListaFormasPagoID = 0;
idx_ListaFormasPagoDESCRIPCION = 1;
{ FormasPago fields } { FormasPago fields }
fld_FormasPagoID = 'ID'; fld_FormasPagoID = 'ID';
fld_FormasPagoREFERENCIA = 'REFERENCIA'; fld_FormasPagoREFERENCIA = 'REFERENCIA';
@ -25,6 +35,8 @@ const
fld_FormasPagoSUCURSAL = 'SUCURSAL'; fld_FormasPagoSUCURSAL = 'SUCURSAL';
fld_FormasPagoDC = 'DC'; fld_FormasPagoDC = 'DC';
fld_FormasPagoCUENTA = 'CUENTA'; fld_FormasPagoCUENTA = 'CUENTA';
fld_FormasPagoID_SUBCUENTA = 'ID_SUBCUENTA';
fld_FormasPagoIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
{ FormasPago field indexes } { FormasPago field indexes }
idx_FormasPagoID = 0; idx_FormasPagoID = 0;
@ -35,6 +47,8 @@ const
idx_FormasPagoSUCURSAL = 5; idx_FormasPagoSUCURSAL = 5;
idx_FormasPagoDC = 6; idx_FormasPagoDC = 6;
idx_FormasPagoCUENTA = 7; idx_FormasPagoCUENTA = 7;
idx_FormasPagoID_SUBCUENTA = 8;
idx_FormasPagoIGNORAR_CONTABILIDAD = 9;
{ FormasPagoPlazos fields } { FormasPagoPlazos fields }
fld_FormasPagoPlazosID = 'ID'; fld_FormasPagoPlazosID = 'ID';
@ -49,9 +63,56 @@ const
idx_FormasPagoPlazosPORCENTAJE = 3; idx_FormasPagoPlazosPORCENTAJE = 3;
type type
{ IListaFormasPago }
IListaFormasPago = interface(IDAStronglyTypedDataTable)
['{2C5FADC5-48E4-4697-A72D-1B93FF2068F1}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
end;
{ TListaFormasPagoDataTableRules }
TListaFormasPagoDataTableRules = class(TIntfObjectDADataTableRules, IListaFormasPago)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IFormasPago } { IFormasPago }
IFormasPago = interface(IDAStronglyTypedDataTable) IFormasPago = interface(IDAStronglyTypedDataTable)
['{2906012F-51D2-4722-A42A-1A1F0B5F5DA3}'] ['{58C39D48-70C7-46A4-B465-9EA5F97DB50D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -85,6 +146,14 @@ type
procedure SetCUENTAValue(const aValue: String); procedure SetCUENTAValue(const aValue: String);
function GetCUENTAIsNull: Boolean; function GetCUENTAIsNull: Boolean;
procedure SetCUENTAIsNull(const aValue: Boolean); procedure SetCUENTAIsNull(const aValue: Boolean);
function GetID_SUBCUENTAValue: Integer;
procedure SetID_SUBCUENTAValue(const aValue: Integer);
function GetID_SUBCUENTAIsNull: Boolean;
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean);
function GetIGNORAR_CONTABILIDADValue: SmallInt;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt);
function GetIGNORAR_CONTABILIDADIsNull: Boolean;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -104,6 +173,10 @@ type
property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull; property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull;
property CUENTA: String read GetCUENTAValue write SetCUENTAValue; property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull; property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
end; end;
{ TFormasPagoDataTableRules } { TFormasPagoDataTableRules }
@ -143,6 +216,14 @@ type
procedure SetCUENTAValue(const aValue: String); virtual; procedure SetCUENTAValue(const aValue: String); virtual;
function GetCUENTAIsNull: Boolean; virtual; function GetCUENTAIsNull: Boolean; virtual;
procedure SetCUENTAIsNull(const aValue: Boolean); virtual; procedure SetCUENTAIsNull(const aValue: Boolean); virtual;
function GetID_SUBCUENTAValue: Integer; virtual;
procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
function GetID_SUBCUENTAIsNull: Boolean; virtual;
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetIGNORAR_CONTABILIDADValue: SmallInt; virtual;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual;
function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -161,6 +242,10 @@ type
property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull; property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull;
property CUENTA: String read GetCUENTAValue write SetCUENTAValue; property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull; property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -170,7 +255,7 @@ type
{ IFormasPagoPlazos } { IFormasPagoPlazos }
IFormasPagoPlazos = interface(IDAStronglyTypedDataTable) IFormasPagoPlazos = interface(IDAStronglyTypedDataTable)
['{6C99169B-3B96-4E95-9886-BFBDAF1C5836}'] ['{61EB507B-9EA5-4E9C-8D3D-DEAE5F1073BD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -243,6 +328,60 @@ implementation
uses Variants, uROBinaryHelpers; uses Variants, uROBinaryHelpers;
{ TListaFormasPagoDataTableRules }
constructor TListaFormasPagoDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TListaFormasPagoDataTableRules.Destroy;
begin
inherited;
end;
function TListaFormasPagoDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_ListaFormasPagoID].AsInteger;
end;
procedure TListaFormasPagoDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_ListaFormasPagoID].AsInteger := aValue;
end;
function TListaFormasPagoDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_ListaFormasPagoID].IsNull;
end;
procedure TListaFormasPagoDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ListaFormasPagoID].AsVariant := Null;
end;
function TListaFormasPagoDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_ListaFormasPagoDESCRIPCION].AsString;
end;
procedure TListaFormasPagoDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_ListaFormasPagoDESCRIPCION].AsString := aValue;
end;
function TListaFormasPagoDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ListaFormasPagoDESCRIPCION].IsNull;
end;
procedure TListaFormasPagoDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ListaFormasPagoDESCRIPCION].AsVariant := Null;
end;
{ TFormasPagoDataTableRules } { TFormasPagoDataTableRules }
constructor TFormasPagoDataTableRules.Create(aDataTable: TDADataTable); constructor TFormasPagoDataTableRules.Create(aDataTable: TDADataTable);
begin begin
@ -422,6 +561,48 @@ begin
DataTable.Fields[idx_FormasPagoCUENTA].AsVariant := Null; DataTable.Fields[idx_FormasPagoCUENTA].AsVariant := Null;
end; end;
function TFormasPagoDataTableRules.GetID_SUBCUENTAValue: Integer;
begin
result := DataTable.Fields[idx_FormasPagoID_SUBCUENTA].AsInteger;
end;
procedure TFormasPagoDataTableRules.SetID_SUBCUENTAValue(const aValue: Integer);
begin
DataTable.Fields[idx_FormasPagoID_SUBCUENTA].AsInteger := aValue;
end;
function TFormasPagoDataTableRules.GetID_SUBCUENTAIsNull: boolean;
begin
result := DataTable.Fields[idx_FormasPagoID_SUBCUENTA].IsNull;
end;
procedure TFormasPagoDataTableRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FormasPagoID_SUBCUENTA].AsVariant := Null;
end;
function TFormasPagoDataTableRules.GetIGNORAR_CONTABILIDADValue: SmallInt;
begin
result := DataTable.Fields[idx_FormasPagoIGNORAR_CONTABILIDAD].AsSmallInt;
end;
procedure TFormasPagoDataTableRules.SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_FormasPagoIGNORAR_CONTABILIDAD].AsSmallInt := aValue;
end;
function TFormasPagoDataTableRules.GetIGNORAR_CONTABILIDADIsNull: boolean;
begin
result := DataTable.Fields[idx_FormasPagoIGNORAR_CONTABILIDAD].IsNull;
end;
procedure TFormasPagoDataTableRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FormasPagoIGNORAR_CONTABILIDAD].AsVariant := Null;
end;
{ TFormasPagoPlazosDataTableRules } { TFormasPagoPlazosDataTableRules }
constructor TFormasPagoPlazosDataTableRules.Create(aDataTable: TDADataTable); constructor TFormasPagoPlazosDataTableRules.Create(aDataTable: TDADataTable);
@ -520,6 +701,7 @@ end;
initialization initialization
RegisterDataTableRules(RID_ListaFormasPago, TListaFormasPagoDataTableRules);
RegisterDataTableRules(RID_FormasPago, TFormasPagoDataTableRules); RegisterDataTableRules(RID_FormasPago, TFormasPagoDataTableRules);
RegisterDataTableRules(RID_FormasPagoPlazos, TFormasPagoPlazosDataTableRules); RegisterDataTableRules(RID_FormasPagoPlazos, TFormasPagoPlazosDataTableRules);

216
Source/Modulos/Formas de pago/Model/schFormasPagoServer_Intf.pas
View File

@ -9,13 +9,60 @@ 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_FormasPagoDelta = '{3B5575C3-8103-4890-A2BF-8B93698E666B}'; RID_ListaFormasPagoDelta = '{BD6D4DED-0109-4CD2-B6D9-99208EA6157D}';
RID_FormasPagoPlazosDelta = '{E0326434-91CF-4E0E-B620-9C98B3FF28EA}'; RID_FormasPagoDelta = '{257D7005-3F68-4FA7-94BD-4EDB95ED361F}';
RID_FormasPagoPlazosDelta = '{46BB2583-A6D4-4A62-BB44-BAC8789FD0A2}';
type type
{ IListaFormasPagoDelta }
IListaFormasPagoDelta = interface(IListaFormasPago)
['{BD6D4DED-0109-4CD2-B6D9-99208EA6157D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
end;
{ TListaFormasPagoBusinessProcessorRules }
TListaFormasPagoBusinessProcessorRules = class(TDABusinessProcessorRules, IListaFormasPago, IListaFormasPagoDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IFormasPagoDelta } { IFormasPagoDelta }
IFormasPagoDelta = interface(IFormasPago) IFormasPagoDelta = interface(IFormasPago)
['{3B5575C3-8103-4890-A2BF-8B93698E666B}'] ['{257D7005-3F68-4FA7-94BD-4EDB95ED361F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -25,6 +72,8 @@ type
function GetOldSUCURSALValue : String; function GetOldSUCURSALValue : String;
function GetOldDCValue : String; function GetOldDCValue : String;
function GetOldCUENTAValue : String; function GetOldCUENTAValue : String;
function GetOldID_SUBCUENTAValue : Integer;
function GetOldIGNORAR_CONTABILIDADValue : SmallInt;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -35,6 +84,8 @@ type
property OldSUCURSAL : String read GetOldSUCURSALValue; property OldSUCURSAL : String read GetOldSUCURSALValue;
property OldDC : String read GetOldDCValue; property OldDC : String read GetOldDCValue;
property OldCUENTA : String read GetOldCUENTAValue; property OldCUENTA : String read GetOldCUENTAValue;
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
end; end;
{ TFormasPagoBusinessProcessorRules } { TFormasPagoBusinessProcessorRules }
@ -90,6 +141,18 @@ type
function GetOldCUENTAIsNull: Boolean; virtual; function GetOldCUENTAIsNull: Boolean; virtual;
procedure SetCUENTAValue(const aValue: String); virtual; procedure SetCUENTAValue(const aValue: String); virtual;
procedure SetCUENTAIsNull(const aValue: Boolean); virtual; procedure SetCUENTAIsNull(const aValue: Boolean); virtual;
function GetID_SUBCUENTAValue: Integer; virtual;
function GetID_SUBCUENTAIsNull: Boolean; virtual;
function GetOldID_SUBCUENTAValue: Integer; virtual;
function GetOldID_SUBCUENTAIsNull: Boolean; virtual;
procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetIGNORAR_CONTABILIDADValue: SmallInt; virtual;
function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
function GetOldIGNORAR_CONTABILIDADValue: SmallInt; virtual;
function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -124,6 +187,14 @@ type
property CUENTAIsNull : Boolean read GetCUENTAIsNull write SetCUENTAIsNull; property CUENTAIsNull : Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
property OldCUENTA : String read GetOldCUENTAValue; property OldCUENTA : String read GetOldCUENTAValue;
property OldCUENTAIsNull : Boolean read GetOldCUENTAIsNull; property OldCUENTAIsNull : Boolean read GetOldCUENTAIsNull;
property ID_SUBCUENTA : Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull;
property IGNORAR_CONTABILIDAD : SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -133,7 +204,7 @@ type
{ IFormasPagoPlazosDelta } { IFormasPagoPlazosDelta }
IFormasPagoPlazosDelta = interface(IFormasPagoPlazos) IFormasPagoPlazosDelta = interface(IFormasPagoPlazos)
['{E0326434-91CF-4E0E-B620-9C98B3FF28EA}'] ['{46BB2583-A6D4-4A62-BB44-BAC8789FD0A2}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FORMA_PAGOValue : Integer; function GetOldID_FORMA_PAGOValue : Integer;
@ -206,6 +277,80 @@ implementation
uses uses
Variants, uROBinaryHelpers, uDAInterfaces; Variants, uROBinaryHelpers, uDAInterfaces;
{ TListaFormasPagoBusinessProcessorRules }
constructor TListaFormasPagoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TListaFormasPagoBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TListaFormasPagoBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaFormasPagoID];
end;
function TListaFormasPagoBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ListaFormasPagoID]);
end;
function TListaFormasPagoBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaFormasPagoID];
end;
function TListaFormasPagoBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ListaFormasPagoID]);
end;
procedure TListaFormasPagoBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaFormasPagoID] := aValue;
end;
procedure TListaFormasPagoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaFormasPagoID] := Null;
end;
function TListaFormasPagoBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaFormasPagoDESCRIPCION];
end;
function TListaFormasPagoBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ListaFormasPagoDESCRIPCION]);
end;
function TListaFormasPagoBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaFormasPagoDESCRIPCION];
end;
function TListaFormasPagoBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ListaFormasPagoDESCRIPCION]);
end;
procedure TListaFormasPagoBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaFormasPagoDESCRIPCION] := aValue;
end;
procedure TListaFormasPagoBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaFormasPagoDESCRIPCION] := Null;
end;
{ TFormasPagoBusinessProcessorRules } { TFormasPagoBusinessProcessorRules }
constructor TFormasPagoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TFormasPagoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin begin
@ -465,6 +610,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FormasPagoCUENTA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FormasPagoCUENTA] := Null;
end; end;
function TFormasPagoBusinessProcessorRules.GetID_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FormasPagoID_SUBCUENTA];
end;
function TFormasPagoBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FormasPagoID_SUBCUENTA]);
end;
function TFormasPagoBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FormasPagoID_SUBCUENTA];
end;
function TFormasPagoBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FormasPagoID_SUBCUENTA]);
end;
procedure TFormasPagoBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FormasPagoID_SUBCUENTA] := aValue;
end;
procedure TFormasPagoBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FormasPagoID_SUBCUENTA] := Null;
end;
function TFormasPagoBusinessProcessorRules.GetIGNORAR_CONTABILIDADValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FormasPagoIGNORAR_CONTABILIDAD];
end;
function TFormasPagoBusinessProcessorRules.GetIGNORAR_CONTABILIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FormasPagoIGNORAR_CONTABILIDAD]);
end;
function TFormasPagoBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FormasPagoIGNORAR_CONTABILIDAD];
end;
function TFormasPagoBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FormasPagoIGNORAR_CONTABILIDAD]);
end;
procedure TFormasPagoBusinessProcessorRules.SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FormasPagoIGNORAR_CONTABILIDAD] := aValue;
end;
procedure TFormasPagoBusinessProcessorRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FormasPagoIGNORAR_CONTABILIDAD] := Null;
end;
{ TFormasPagoPlazosBusinessProcessorRules } { TFormasPagoPlazosBusinessProcessorRules }
constructor TFormasPagoPlazosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TFormasPagoPlazosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -603,6 +810,7 @@ end;
initialization initialization
RegisterBusinessProcessorRules(RID_ListaFormasPagoDelta, TListaFormasPagoBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_FormasPagoDelta, TFormasPagoBusinessProcessorRules); RegisterBusinessProcessorRules(RID_FormasPagoDelta, TFormasPagoBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_FormasPagoPlazosDelta, TFormasPagoPlazosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_FormasPagoPlazosDelta, TFormasPagoPlazosBusinessProcessorRules);

67
Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.dfm
View File

@ -14,8 +14,8 @@ object srvFormasPago: TsrvFormasPago
DiagramData = DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' + '<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="400" Height="300">'#13#10' <Entity Name="FormasPago" Left="0,' + 'idth="400" Height="300">'#13#10' <Entity Name="FormasPago" Left="0,' +
'00" Top="0,00" />'#13#10' <Entity Name="FormasPagoPlazos" Left="393' + '00" Top="0,00" />'#13#10' <Entity Name="FormasPagoPlazos" Left="392' +
',00" Top="97,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10 ',00" Top="96,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
end end
object DataDictionary: TDADataDictionary object DataDictionary: TDADataDictionary
Fields = < Fields = <
@ -171,6 +171,14 @@ object srvFormasPago: TsrvFormasPago
item item
DatasetField = 'CUENTA' DatasetField = 'CUENTA'
TableField = 'CUENTA' TableField = 'CUENTA'
end
item
DatasetField = 'ID_SUBCUENTA'
TableField = 'ID_SUBCUENTA'
end
item
DatasetField = 'IGNORAR_CONTABILIDAD'
TableField = 'IGNORAR_CONTABILIDAD'
end> end>
end> end>
Name = 'FormasPago' Name = 'FormasPago'
@ -224,6 +232,14 @@ object srvFormasPago: TsrvFormasPago
DataType = datString DataType = datString
Size = 15 Size = 15
DictionaryEntry = 'FormasPago_CUENTA' DictionaryEntry = 'FormasPago_CUENTA'
end
item
Name = 'ID_SUBCUENTA'
DataType = datInteger
end
item
Name = 'IGNORAR_CONTABILIDAD'
DataType = datSmallInt
end> end>
end end
item item
@ -290,30 +306,54 @@ object srvFormasPago: TsrvFormasPago
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'TITULAR' Name = 'TITULAR'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'ENTIDAD' Name = 'ENTIDAD'
DataType = datString
Size = 15
Value = '' Value = ''
end end
item item
Name = 'SUCURSAL' Name = 'SUCURSAL'
DataType = datString
Size = 15
Value = '' Value = ''
end end
item item
Name = 'DC' Name = 'DC'
DataType = datString
Size = 15
Value = '' Value = ''
end end
item item
Name = 'CUENTA' Name = 'CUENTA'
DataType = datString
Size = 15
Value = ''
end
item
Name = 'ID_SUBCUENTA'
DataType = datInteger
Value = ''
end
item
Name = 'IGNORAR_CONTABILIDAD'
DataType = datSmallInt
Value = '' Value = ''
end> end>
Statements = < Statements = <
@ -323,9 +363,10 @@ object srvFormasPago: TsrvFormasPago
TargetTable = 'FORMAS_PAGO' TargetTable = 'FORMAS_PAGO'
SQL = SQL =
'INSERT'#10' INTO FORMAS_PAGO'#10' (ID, REFERENCIA, DESCRIPCION, TITU' + 'INSERT'#10' INTO FORMAS_PAGO'#10' (ID, REFERENCIA, DESCRIPCION, TITU' +
'LAR, ENTIDAD, SUCURSAL,'#10' DC, CUENTA)'#10' VALUES'#10' (:ID, :REF' + 'LAR, ENTIDAD, SUCURSAL,'#10' DC, CUENTA, ID_SUBCUENTA, IGNORAR_C' +
'ERENCIA, :DESCRIPCION, :TITULAR, :ENTIDAD, :SUCURSAL,'#10' :DC, ' + 'ONTABILIDAD)'#10' VALUES'#10' (:ID, :REFERENCIA, :DESCRIPCION, :TITU' +
':CUENTA)'#10 'LAR, :ENTIDAD, :SUCURSAL,'#10' :DC, :CUENTA, :ID_SUBCUENTA, :IGN' +
'ORAR_CONTABILIDAD)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -393,10 +434,19 @@ object srvFormasPago: TsrvFormasPago
Size = 15 Size = 15
Value = '' Value = ''
end end
item
Name = 'ID_SUBCUENTA'
DataType = datInteger
Value = ''
end
item
Name = 'IGNORAR_CONTABILIDAD'
DataType = datSmallInt
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
DataType = datAutoInc Value = ''
Value = '0'
end> end>
Statements = < Statements = <
item item
@ -407,7 +457,8 @@ object srvFormasPago: TsrvFormasPago
'UPDATE FORMAS_PAGO'#10' SET '#10' REFERENCIA = :REFERENCIA, '#10' DES' + 'UPDATE FORMAS_PAGO'#10' SET '#10' REFERENCIA = :REFERENCIA, '#10' DES' +
'CRIPCION = :DESCRIPCION, '#10' TITULAR = :TITULAR, '#10' ENTIDAD =' + 'CRIPCION = :DESCRIPCION, '#10' TITULAR = :TITULAR, '#10' ENTIDAD =' +
' :ENTIDAD, '#10' SUCURSAL = :SUCURSAL, '#10' DC = :DC, '#10' CUENTA' + ' :ENTIDAD, '#10' SUCURSAL = :SUCURSAL, '#10' DC = :DC, '#10' CUENTA' +
' = :CUENTA'#10' WHERE'#10' (ID = :OLD_ID)' ' = :CUENTA,'#10' ID_SUBCUENTA = :ID_SUBCUENTA,'#10' IGNORAR_CONTAB' +
'ILIDAD = :IGNORAR_CONTABILIDAD'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

BIN
Source/Modulos/Formas de pago/Views/FormasPago_view.dpk
View File

Binary file not shown.

20
Source/Modulos/Formas de pago/Views/FormasPago_view.dproj
View File

@ -41,25 +41,29 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">FormasPago_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">FormasPago_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FormasPago_view.dpk"> <DelphiCompile Include="FormasPago_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" /> <DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" /> <DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\..\Lib\Contabilidad_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" /> <DCCReference Include="..\..\Lib\FormasPago_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\..\Lib\JvCmpD11R.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\..\Lib\vcldbx.dcp" />
<DCCReference Include="uEditorFormaPago.pas"> <DCCReference Include="uEditorFormaPago.pas">
<Form>fEditorFormaPago</Form> <Form>fEditorFormaPago</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorFormasPago.pas"> <DCCReference Include="uEditorFormasPago.pas">
<Form>fEditorFormasPago</Form> <Form>fEditorFormasPago</Form>
<DesignClass>TfEditorFormasPago</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uFormasPagoViewRegister.pas" /> <DCCReference Include="uFormasPagoViewRegister.pas" />
</ItemGroup> </ItemGroup>

451
Source/Modulos/Formas de pago/Views/uEditorFormaPago.dfm
View File

@ -1,12 +1,11 @@
object fEditorFormaPago: TfEditorFormaPago object fEditorFormaPago: TfEditorFormaPago
Left = 453 Left = 453
Top = 234 Top = 234
ActiveControl = eReferencia
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsSingle BorderStyle = bsSingle
Caption = 'Forma de pago' Caption = 'Forma de pago'
ClientHeight = 352 ClientHeight = 390
ClientWidth = 404 ClientWidth = 484
Color = clBtnFace Color = clBtnFace
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -18,169 +17,305 @@ object fEditorFormaPago: TfEditorFormaPago
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object Label1: TLabel
Left = 16
Top = 17
Width = 151
Height = 13
Caption = 'Datos de la forma de pago'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Bevel1: TBevel
Left = 173
Top = 17
Width = 212
Height = 10
Shape = bsBottomLine
end
object Label2: TLabel
Left = 62
Top = 43
Width = 55
Height = 13
Alignment = taRightJustify
Caption = 'Referencia:'
end
object Label3: TLabel
Left = 58
Top = 71
Width = 59
Height = 13
Alignment = taRightJustify
Caption = 'Descripci'#243'n:'
end
object Label11: TLabel
Left = 16
Top = 112
Width = 91
Height = 13
Caption = 'Plazos del pago'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Bevel3: TBevel
Left = 113
Top = 112
Width = 272
Height = 10
Shape = bsBottomLine
end
object Bevel4: TBevel
Left = 8
Top = 290
Width = 388
Height = 10
Shape = bsBottomLine
end
object JvEnterAsTab1: TJvEnterAsTab object JvEnterAsTab1: TJvEnterAsTab
Left = 137 Left = 137
Top = 306 Top = 306
Width = 28 Width = 28
Height = 28 Height = 28
end end
object bAceptar: TButton object dxLayoutControl1: TdxLayoutControl
Left = 234 Left = 0
Top = 314 Top = 0
Width = 75 Width = 484
Height = 23 Height = 390
Action = actAceptar Align = alClient
TabOrder = 5
end
object bCancelar: TButton
Left = 319
Top = 314
Width = 75
Height = 23
Action = actCancelar
Cancel = True
TabOrder = 6
end
object eReferencia: TDBEdit
Left = 123
Top = 40
Width = 118
Height = 21
Color = clInfoBk
DataField = 'REFERENCIA'
DataSource = dsFormaPago
TabOrder = 0 TabOrder = 0
end TabStop = False
object eDescripcion: TDBEdit ExplicitWidth = 412
Left = 123 ExplicitHeight = 515
Top = 68 object Bevel4: TBevel
Width = 262 Left = 10
Height = 21 Top = 329
Color = clInfoBk Width = 388
DataField = 'DESCRIPCION' Height = 10
DataSource = dsFormaPago Shape = bsBottomLine
TabOrder = 1 end
end object Bevel2: TBevel
object bAnadir: TButton Left = 10
Left = 290 Top = 151
Top = 134 Width = 388
Width = 95 Height = 10
Height = 23 Shape = bsBottomLine
Action = actAnadir end
TabOrder = 3 object eReferencia: TDBEdit
end Left = 76
object bEliminar: TButton Top = 12
Left = 290 Width = 118
Top = 163 Height = 21
Width = 95 BorderStyle = bsNone
Height = 23 Color = clInfoBk
Action = actEliminar DataField = 'REFERENCIA'
TabOrder = 4 DataSource = dsFormaPago
end TabOrder = 0
object ListaFormasPago: TcxGrid end
Left = 32 object eDescripcion: TDBEdit
Top = 134 Left = 76
Width = 252 Top = 43
Height = 150 Width = 262
TabOrder = 2 Height = 21
LookAndFeel.Kind = lfStandard BorderStyle = bsNone
LookAndFeel.NativeStyle = True Color = clInfoBk
object ListaFormasPagoDBTableView1: TcxGridDBTableView DataField = 'DESCRIPCION'
NavigatorButtons.ConfirmDelete = False DataSource = dsFormaPago
DataController.DataSource = dsPlazos TabOrder = 1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] end
DataController.Summary.DefaultGroupSummaryItems = <> object ListaFormasPago: TcxGrid
DataController.Summary.FooterSummaryItems = <> Left = 10
DataController.Summary.SummaryGroups = <> Top = 167
OptionsCustomize.ColumnFiltering = False Width = 246
OptionsCustomize.ColumnGrouping = False Height = 156
OptionsCustomize.ColumnMoving = False TabOrder = 6
OptionsCustomize.ColumnSorting = False LookAndFeel.Kind = lfStandard
OptionsData.Deleting = False LookAndFeel.NativeStyle = True
OptionsData.DeletingConfirmation = False object ListaFormasPagoDBTableView1: TcxGridDBTableView
OptionsData.Inserting = False NavigatorButtons.ConfirmDelete = False
OptionsView.CellEndEllipsis = True DataController.DataSource = dsPlazos
OptionsView.GroupByBox = False DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
object ListaFormasPagoDBTableView1NUM_DIAS: TcxGridDBColumn DataController.Summary.DefaultGroupSummaryItems = <>
DataBinding.FieldName = 'NUM_DIAS' DataController.Summary.FooterSummaryItems = <>
PropertiesClassName = 'TcxSpinEditProperties' DataController.Summary.SummaryGroups = <>
Properties.AssignedValues.MinValue = True OptionsCustomize.ColumnFiltering = False
Width = 112 OptionsCustomize.ColumnGrouping = False
OptionsCustomize.ColumnMoving = False
OptionsCustomize.ColumnSorting = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Inserting = False
OptionsView.CellEndEllipsis = True
OptionsView.GroupByBox = False
object ListaFormasPagoDBTableView1NUM_DIAS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_DIAS'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.AssignedValues.MinValue = True
Width = 112
end
object ListaFormasPagoDBTableView1PORCENTAJE: TcxGridDBColumn
DataBinding.FieldName = 'PORCENTAJE'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.AssignedValues.MinValue = True
Properties.MaxValue = 100.000000000000000000
HeaderAlignmentHorz = taRightJustify
Width = 132
end
end end
object ListaFormasPagoDBTableView1PORCENTAJE: TcxGridDBColumn object ListaFormasPagoLevel1: TcxGridLevel
DataBinding.FieldName = 'PORCENTAJE' GridView = ListaFormasPagoDBTableView1
PropertiesClassName = 'TcxSpinEditProperties'
Properties.AssignedValues.MinValue = True
Properties.MaxValue = 100.000000000000000000
HeaderAlignmentHorz = taRightJustify
Width = 132
end end
end end
object ListaFormasPagoLevel1: TcxGridLevel object bAnadir: TButton
GridView = ListaFormasPagoDBTableView1 Left = 262
Top = 167
Width = 95
Height = 23
Action = actAnadir
TabOrder = 7
end
object bEliminar: TButton
Left = 262
Top = 196
Width = 95
Height = 23
Action = actEliminar
TabOrder = 8
end
object bAceptar: TButton
Left = 314
Top = 345
Width = 75
Height = 23
Action = actAceptar
TabOrder = 9
end
object bCancelar: TButton
Left = 395
Top = 345
Width = 75
Height = 23
Action = actCancelar
Cancel = True
TabOrder = 10
end
object rdPagoPlazos: TcxRadioButton
Left = 10
Top = 125
Width = 388
Height = 20
Caption = 'Plazos del pago'
TabOrder = 5
OnClick = rdPagoPlazosClick
end
object rdPagoVencimiento: TcxRadioButton
Left = 10
Top = 72
Width = 388
Height = 20
Caption = 'Pago por vencimiento'
TabOrder = 2
OnClick = rdPagoPlazosClick
end
object cbSubcuenta: TcxDBLookupComboBox
Left = 74
Top = 98
DataBinding.DataField = 'ID_SUBCUENTA'
DataBinding.DataSource = dsFormaPago
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'DESCRIPCION'
end>
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsSubcuentas
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Width = 250
end
object cxDBCheckBox1: TcxDBCheckBox
Left = 330
Top = 98
Caption = 'Ignorar en contabilidad'
DataBinding.DataField = 'IGNORAR_CONTABILIDAD'
DataBinding.DataSource = dsFormaPago
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
TabOrder = 4
Width = 140
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Referencia:'
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group2: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group3: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem
Caption = 'Referencia:'
Control = eReferencia
end
object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Descripci'#243'n:'
Control = eDescripcion
end
object dxLayoutControl1Item11: TdxLayoutItem
ShowCaption = False
Control = rdPagoVencimiento
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object panelVencimiento: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item12: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Cuenta:'
Control = cbSubcuenta
ControlOptions.ShowBorder = False
end
object checkIgnorarContabilidad: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'cxDBCheckBox1'
ShowCaption = False
Control = cxDBCheckBox1
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item10: TdxLayoutItem
Caption = 'cxRadioButton1'
ShowCaption = False
Control = rdPagoPlazos
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
Control = Bevel2
ControlOptions.ShowBorder = False
end
end
object panelPlazosDePago: TdxLayoutGroup
Caption = 'asdadsa'
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item3: TdxLayoutItem
Control = ListaFormasPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group1: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Item4: TdxLayoutItem
ShowCaption = False
Control = bAnadir
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
ShowCaption = False
Control = bEliminar
ControlOptions.ShowBorder = False
end
end
end
end
object dxLayoutControl1Item8: TdxLayoutItem
Control = Bevel4
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahRight
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item6: TdxLayoutItem
ShowCaption = False
Control = bAceptar
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item7: TdxLayoutItem
ShowCaption = False
Control = bCancelar
ControlOptions.ShowBorder = False
end
end
end end
end end
object ActionList1: TActionList object ActionList1: TActionList
@ -220,4 +355,8 @@ object fEditorFormaPago: TfEditorFormaPago
Left = 8 Left = 8
Top = 300 Top = 300
end end
object dsSubcuentas: TDADataSource
Left = 248
Top = 68
end
end end

89
Source/Modulos/Formas de pago/Views/uEditorFormaPago.pas
View File

@ -34,7 +34,10 @@ uses
JvComponent, JvEnterTab, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, JvComponent, JvEnterTab, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, cxDBData, cxSpinEdit, cxGridCustomTableView, cxDataStorage, cxEdit, cxDBData, cxSpinEdit, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, uDAInterfaces; cxGridCustomView, cxGrid, uDAInterfaces, dxLayoutControl, dblookup,
cxRadioGroup, cxContainer, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, uBizSubCuentas, uSubCuentasController,
cxCheckBox, cxDBEdit;
type type
TfEditorFormaPago = class(TForm, IEditorFormaPago) TfEditorFormaPago = class(TForm, IEditorFormaPago)
@ -44,28 +47,49 @@ type
actEliminar: TAction; actEliminar: TAction;
actAceptar: TAction; actAceptar: TAction;
actCancelar: TAction; actCancelar: TAction;
bAceptar: TButton;
bCancelar: TButton;
actCerrar: TAction; actCerrar: TAction;
actModificar: TAction; actModificar: TAction;
eReferencia: TDBEdit;
eDescripcion: TDBEdit;
dsPlazos: TDADataSource; dsPlazos: TDADataSource;
Label1: TLabel;
Bevel1: TBevel;
Label2: TLabel;
Label3: TLabel;
Label11: TLabel;
Bevel3: TBevel;
Bevel4: TBevel;
bAnadir: TButton;
bEliminar: TButton;
JvEnterAsTab1: TJvEnterAsTab; JvEnterAsTab1: TJvEnterAsTab;
ListaFormasPagoDBTableView1: TcxGridDBTableView; dxLayoutControl1Group_Root: TdxLayoutGroup;
ListaFormasPagoLevel1: TcxGridLevel; dxLayoutControl1: TdxLayoutControl;
dxLayoutControl1Item1: TdxLayoutItem;
eReferencia: TDBEdit;
dxLayoutControl1Item2: TdxLayoutItem;
eDescripcion: TDBEdit;
dxLayoutControl1Item3: TdxLayoutItem;
ListaFormasPago: TcxGrid; ListaFormasPago: TcxGrid;
ListaFormasPagoDBTableView1: TcxGridDBTableView;
ListaFormasPagoDBTableView1NUM_DIAS: TcxGridDBColumn; ListaFormasPagoDBTableView1NUM_DIAS: TcxGridDBColumn;
ListaFormasPagoDBTableView1PORCENTAJE: TcxGridDBColumn; ListaFormasPagoDBTableView1PORCENTAJE: TcxGridDBColumn;
ListaFormasPagoLevel1: TcxGridLevel;
dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Item4: TdxLayoutItem;
bAnadir: TButton;
panelPlazosDePago: TdxLayoutGroup;
dxLayoutControl1Item5: TdxLayoutItem;
bEliminar: TButton;
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Item6: TdxLayoutItem;
bAceptar: TButton;
dxLayoutControl1Item7: TdxLayoutItem;
bCancelar: TButton;
dxLayoutControl1Item8: TdxLayoutItem;
Bevel4: TBevel;
dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Group5: TdxLayoutGroup;
dxLayoutControl1Item9: TdxLayoutItem;
Bevel2: TBevel;
rdPagoPlazos: TcxRadioButton;
dxLayoutControl1Item10: TdxLayoutItem;
dxLayoutControl1Item11: TdxLayoutItem;
rdPagoVencimiento: TcxRadioButton;
dsSubcuentas: TDADataSource;
dxLayoutControl1Item12: TdxLayoutItem;
cbSubcuenta: TcxDBLookupComboBox;
cxDBCheckBox1: TcxDBCheckBox;
checkIgnorarContabilidad: TdxLayoutItem;
panelVencimiento: TdxLayoutGroup;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
@ -75,9 +99,12 @@ type
procedure actCerrarExecute(Sender: TObject); procedure actCerrarExecute(Sender: TObject);
procedure actAnadirUpdate(Sender: TObject); procedure actAnadirUpdate(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
procedure rdPagoPlazosClick(Sender: TObject);
protected protected
FFormaPago: IBizFormaPago; FFormaPago: IBizFormaPago;
FPlazos : IBizFormaPagoPlazos; FPlazos : IBizFormaPagoPlazos;
FSubCuentas: IBizSubCuenta;
FSubCuentasController: TSubCuentasController;
FController : IFormasPagoController; FController : IFormasPagoController;
FPlazosController: IFormasPagoPlazosController; FPlazosController: IFormasPagoPlazosController;
function GetFormaPago: IBizFormaPago; function GetFormaPago: IBizFormaPago;
@ -102,6 +129,20 @@ begin
Result := FFormaPago; Result := FFormaPago;
end; end;
procedure TfEditorFormaPago.rdPagoPlazosClick(Sender: TObject);
begin
if rdPagoPlazos.Checked then
begin
panelPlazosDePago.Enabled := True;
panelVencimiento.Enabled := False;
end
else
begin
panelPlazosDePago.Enabled := False;
panelVencimiento.Enabled := True;
end
end;
procedure TfEditorFormaPago.SetFormaPago(const Value: IBizFormaPago); procedure TfEditorFormaPago.SetFormaPago(const Value: IBizFormaPago);
begin begin
FFormaPago := Value; FFormaPago := Value;
@ -141,11 +182,17 @@ begin
inherited; inherited;
FController := TFormasPagoController.Create; FController := TFormasPagoController.Create;
FPlazosController := TFormasPagoPlazosController.Create; FPlazosController := TFormasPagoPlazosController.Create;
FSubCuentasController := TSubCuentasController.Create;
FSubCuentas := FSubCuentasController.BuscarCajasBancos;
dsSubcuentas.DataTable := FSubCuentas.DataTable;
end; end;
destructor TfEditorFormaPago.Destroy; destructor TfEditorFormaPago.Destroy;
begin begin
dsSubcuentas.DataTable := Nil;
FFormaPago := NIL; FFormaPago := NIL;
FSubCuentas := NIL;
FSubCuentasController := NIL;
FPlazosController := NIL; FPlazosController := NIL;
FController := NIL; FController := NIL;
inherited; inherited;
@ -180,13 +227,23 @@ end;
procedure TfEditorFormaPago.FormShow(Sender: TObject); procedure TfEditorFormaPago.FormShow(Sender: TObject);
begin begin
rdPagoVencimiento.Checked := True;
if not FSubCuentas.DataTable.Active then
FSubCuentas.DataTable.Active := True;
if not FFormaPago.DataTable.Active then if not FFormaPago.DataTable.Active then
FFormaPago.DataTable.Active := True; FFormaPago.DataTable.Active := True;
if FFormaPago.EsNuevo then if FFormaPago.EsNuevo then
Self.Caption := 'Nueva forma de pago' Self.Caption := 'Nueva forma de pago'
else else
begin
Self.Caption := 'Modificar forma de pago'; Self.Caption := 'Modificar forma de pago';
if (FFormaPago.Plazos.RecordCount > 0) then
rdPagoPlazos.Checked := True;
end;
end; end;
end. end.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -46,8 +46,6 @@ uses
uBizAlbaranClienteServer in '..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas', uBizAlbaranClienteServer in '..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas',
srvRecibosCliente_Impl in '..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas' {srvRecibosCliente: TDataAbstractService}, srvRecibosCliente_Impl in '..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas' {srvRecibosCliente: TDataAbstractService},
srvFacturasCliente_Impl in '..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas' {srvFacturasCliente: TDataAbstractService}, srvFacturasCliente_Impl in '..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas' {srvFacturasCliente: TDataAbstractService},
schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente}, uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente},
srvRecibosProveedor_Impl in '..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas' {srvRecibosProveedor: TDataAbstractService}, srvRecibosProveedor_Impl in '..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas' {srvRecibosProveedor: TDataAbstractService},
uBizFacturasClienteServer in '..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas', uBizFacturasClienteServer in '..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas',
@ -138,7 +136,9 @@ uses
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas'; schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_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">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">7</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">2.8.7.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">2.8.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 25 de octubre de 2017 16:15</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">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">8</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">2.8.8.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">2.8.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 10 de octubre de 2018 12:13</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>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,8,7,0 FILEVERSION 2,8,8,0
PRODUCTVERSION 2,8,7,0 PRODUCTVERSION 2,8,8,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.8.7.0\0" VALUE "FileVersion", "2.8.8.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.8.7.0\0" VALUE "ProductVersion", "2.8.8.0\0"
VALUE "CompileDate", "jueves, 31 de mayo de 2018 13:22\0" VALUE "CompileDate", "miércoles, 10 de octubre de 2018 16:29\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.