Cambios solicitados en las formas de pago para soportar la generación automática de los pagos en los recibos de una factura.
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@671 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
4952e773f4
commit
523e2825fb
@ -14,6 +14,7 @@ const
|
||||
MODULENAME_RECIBOS_CLIENTE = 'RecibosCliente_plugin.bpl';
|
||||
}
|
||||
MODULENAME_PEDIDOS_PROVEEDOR = 'PedidosProveedor_plugin.bpl';
|
||||
|
||||
{
|
||||
MODULENAME_ALBARANES_PROVEEDOR = 'AlbaranesProveedor_plugin.bpl';
|
||||
MODULENAME_FACTURAS_PROVEEDOR = 'FacturasProveedor_plugin.bpl';
|
||||
|
||||
@ -52,8 +52,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<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><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 2,8,7,0
|
||||
PRODUCTVERSION 2,8,7,0
|
||||
FILEVERSION 2,8,8,0
|
||||
PRODUCTVERSION 2,8,8,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||
VALUE "FileVersion", "2.8.7.0\0"
|
||||
VALUE "FileVersion", "2.8.8.0\0"
|
||||
VALUE "InternalName", "FactuGES\0"
|
||||
VALUE "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "2.8.7.0\0"
|
||||
VALUE "ProductVersion", "2.8.8.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
Binary file not shown.
File diff suppressed because one or more lines are too long
@ -37,14 +37,26 @@ inherited frViewCuentasEspeciales: TfrViewCuentasEspeciales
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
|
||||
Binary file not shown.
@ -127,15 +127,27 @@ inherited frViewExtractoMovimientos: TfrViewExtractoMovimientos
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 242
|
||||
Width = 242
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 346
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 346
|
||||
ExplicitWidth = 198
|
||||
Width = 198
|
||||
|
||||
@ -14,7 +14,8 @@ uses
|
||||
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
|
||||
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar,
|
||||
cxImageComboBox, cxTextEdit, cxCurrencyEdit, uBizSubCuentas, uAsientosController;
|
||||
cxImageComboBox, cxTextEdit, cxCurrencyEdit, uBizSubCuentas, uAsientosController,
|
||||
uCustomView, uViewBase;
|
||||
|
||||
type
|
||||
IViewExtractoMovimientos = interface(IViewGrid)
|
||||
|
||||
@ -1239,6 +1239,7 @@ var
|
||||
ADiaVencimiento: Integer;
|
||||
ADiasMas: Integer;
|
||||
BSemaforo: Boolean;
|
||||
AID: Integer;
|
||||
|
||||
begin
|
||||
if not Assigned(AFactura) then
|
||||
@ -1326,6 +1327,13 @@ begin
|
||||
|
||||
ARecibos.DESCRIPCION := 'Pago de factura ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE);
|
||||
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);
|
||||
Next;
|
||||
until (eof);
|
||||
@ -1336,6 +1344,22 @@ begin
|
||||
AFormaPago := Nil;
|
||||
ARecibosProveedorController := 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;
|
||||
|
||||
function TFacturasProveedorController.GetProveedorController: IProveedoresController;
|
||||
|
||||
@ -18,6 +18,8 @@
|
||||
<Projects Include="..\Contactos\Data\Contactos_data.dproj" />
|
||||
<Projects Include="..\Contactos\Model\Contactos_model.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="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
|
||||
<Projects Include="Controller\FacturasProveedor_controller.dproj" />
|
||||
@ -221,14 +223,32 @@
|
||||
<Target Name="Contactos_data:Make">
|
||||
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" />
|
||||
</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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -14,12 +14,12 @@ inherited DataModuleFormasPago: TDataModuleFormasPago
|
||||
Top = 104
|
||||
end
|
||||
object rda_FormasPago: TDARemoteDataAdapter
|
||||
DataStreamer = Bin2DataStreamer
|
||||
GetSchemaCall.RemoteService = RORemoteService
|
||||
GetDataCall.RemoteService = RORemoteService
|
||||
UpdateDataCall.RemoteService = RORemoteService
|
||||
GetScriptsCall.RemoteService = RORemoteService
|
||||
RemoteService = RORemoteService
|
||||
DataStreamer = Bin2DataStreamer
|
||||
Left = 208
|
||||
Top = 24
|
||||
end
|
||||
@ -82,12 +82,18 @@ inherited DataModuleFormasPago: TDataModuleFormasPago
|
||||
Size = 15
|
||||
DisplayLabel = 'C'#243'd. Cuenta'
|
||||
DictionaryEntry = 'FormasPago_CUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_SUBCUENTA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'IGNORAR_CONTABILIDAD'
|
||||
DataType = datSmallInt
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_FormasPago
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'FormasPago'
|
||||
IndexDefs = <>
|
||||
Left = 208
|
||||
@ -139,8 +145,6 @@ inherited DataModuleFormasPago: TDataModuleFormasPago
|
||||
MasterSource = ds_FormasPago
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_FORMA_PAGO'
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'FormasPagoPlazos'
|
||||
IndexDefs = <>
|
||||
Left = 344
|
||||
|
||||
@ -8,6 +8,11 @@
|
||||
<Projects Include="..\..\Base\Base.dproj" />
|
||||
<Projects Include="..\..\Cliente\FactuGES.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="Data\FormasPago_data.dproj" />
|
||||
<Projects Include="Model\FormasPago_model.dproj" />
|
||||
@ -101,14 +106,59 @@
|
||||
<Target Name="FactuGES:Make">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
|
||||
</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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -3,19 +3,29 @@ unit schFormasPagoClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_FormasPago = '{0AC9176F-E9B6-43BA-B03E-0973D7074140}';
|
||||
RID_FormasPagoPlazos = '{F02E8B61-F06F-48FE-B705-0C42FB672FB5}';
|
||||
RID_ListaFormasPago = '{2B3ABE15-A405-4394-A2E1-ABE8557CC213}';
|
||||
RID_FormasPago = '{5691CFDF-40DA-4B7E-A1BB-0F3742347583}';
|
||||
RID_FormasPagoPlazos = '{807478A5-FF90-416D-822E-280382B76115}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaFormasPago = 'ListaFormasPago';
|
||||
nme_FormasPago = 'FormasPago';
|
||||
nme_FormasPagoPlazos = 'FormasPagoPlazos';
|
||||
|
||||
{ ListaFormasPago fields }
|
||||
fld_ListaFormasPagoID = 'ID';
|
||||
fld_ListaFormasPagoDESCRIPCION = 'DESCRIPCION';
|
||||
|
||||
{ ListaFormasPago field indexes }
|
||||
idx_ListaFormasPagoID = 0;
|
||||
idx_ListaFormasPagoDESCRIPCION = 1;
|
||||
|
||||
{ FormasPago fields }
|
||||
fld_FormasPagoID = 'ID';
|
||||
fld_FormasPagoREFERENCIA = 'REFERENCIA';
|
||||
@ -25,6 +35,8 @@ const
|
||||
fld_FormasPagoSUCURSAL = 'SUCURSAL';
|
||||
fld_FormasPagoDC = 'DC';
|
||||
fld_FormasPagoCUENTA = 'CUENTA';
|
||||
fld_FormasPagoID_SUBCUENTA = 'ID_SUBCUENTA';
|
||||
fld_FormasPagoIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
|
||||
|
||||
{ FormasPago field indexes }
|
||||
idx_FormasPagoID = 0;
|
||||
@ -35,6 +47,8 @@ const
|
||||
idx_FormasPagoSUCURSAL = 5;
|
||||
idx_FormasPagoDC = 6;
|
||||
idx_FormasPagoCUENTA = 7;
|
||||
idx_FormasPagoID_SUBCUENTA = 8;
|
||||
idx_FormasPagoIGNORAR_CONTABILIDAD = 9;
|
||||
|
||||
{ FormasPagoPlazos fields }
|
||||
fld_FormasPagoPlazosID = 'ID';
|
||||
@ -49,9 +63,56 @@ const
|
||||
idx_FormasPagoPlazosPORCENTAJE = 3;
|
||||
|
||||
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 = interface(IDAStronglyTypedDataTable)
|
||||
['{2906012F-51D2-4722-A42A-1A1F0B5F5DA3}']
|
||||
['{58C39D48-70C7-46A4-B465-9EA5F97DB50D}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -85,6 +146,14 @@ type
|
||||
procedure SetCUENTAValue(const aValue: String);
|
||||
function GetCUENTAIsNull: 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 }
|
||||
@ -104,6 +173,10 @@ type
|
||||
property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull;
|
||||
property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
|
||||
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;
|
||||
|
||||
{ TFormasPagoDataTableRules }
|
||||
@ -143,6 +216,14 @@ type
|
||||
procedure SetCUENTAValue(const aValue: String); virtual;
|
||||
function GetCUENTAIsNull: 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 }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -161,6 +242,10 @@ type
|
||||
property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull;
|
||||
property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
|
||||
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
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -170,7 +255,7 @@ type
|
||||
|
||||
{ IFormasPagoPlazos }
|
||||
IFormasPagoPlazos = interface(IDAStronglyTypedDataTable)
|
||||
['{6C99169B-3B96-4E95-9886-BFBDAF1C5836}']
|
||||
['{61EB507B-9EA5-4E9C-8D3D-DEAE5F1073BD}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -243,6 +328,60 @@ implementation
|
||||
|
||||
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 }
|
||||
constructor TFormasPagoDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
@ -422,6 +561,48 @@ begin
|
||||
DataTable.Fields[idx_FormasPagoCUENTA].AsVariant := Null;
|
||||
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 }
|
||||
constructor TFormasPagoPlazosDataTableRules.Create(aDataTable: TDADataTable);
|
||||
@ -520,6 +701,7 @@ end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(RID_ListaFormasPago, TListaFormasPagoDataTableRules);
|
||||
RegisterDataTableRules(RID_FormasPago, TFormasPagoDataTableRules);
|
||||
RegisterDataTableRules(RID_FormasPagoPlazos, TFormasPagoPlazosDataTableRules);
|
||||
|
||||
|
||||
@ -9,13 +9,60 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_FormasPagoDelta = '{3B5575C3-8103-4890-A2BF-8B93698E666B}';
|
||||
RID_FormasPagoPlazosDelta = '{E0326434-91CF-4E0E-B620-9C98B3FF28EA}';
|
||||
RID_ListaFormasPagoDelta = '{BD6D4DED-0109-4CD2-B6D9-99208EA6157D}';
|
||||
RID_FormasPagoDelta = '{257D7005-3F68-4FA7-94BD-4EDB95ED361F}';
|
||||
RID_FormasPagoPlazosDelta = '{46BB2583-A6D4-4A62-BB44-BAC8789FD0A2}';
|
||||
|
||||
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 = interface(IFormasPago)
|
||||
['{3B5575C3-8103-4890-A2BF-8B93698E666B}']
|
||||
['{257D7005-3F68-4FA7-94BD-4EDB95ED361F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
@ -25,6 +72,8 @@ type
|
||||
function GetOldSUCURSALValue : String;
|
||||
function GetOldDCValue : String;
|
||||
function GetOldCUENTAValue : String;
|
||||
function GetOldID_SUBCUENTAValue : Integer;
|
||||
function GetOldIGNORAR_CONTABILIDADValue : SmallInt;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -35,6 +84,8 @@ type
|
||||
property OldSUCURSAL : String read GetOldSUCURSALValue;
|
||||
property OldDC : String read GetOldDCValue;
|
||||
property OldCUENTA : String read GetOldCUENTAValue;
|
||||
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
|
||||
property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
|
||||
end;
|
||||
|
||||
{ TFormasPagoBusinessProcessorRules }
|
||||
@ -90,6 +141,18 @@ type
|
||||
function GetOldCUENTAIsNull: Boolean; virtual;
|
||||
procedure SetCUENTAValue(const aValue: String); 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 }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -124,6 +187,14 @@ type
|
||||
property CUENTAIsNull : Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
|
||||
property OldCUENTA : String read GetOldCUENTAValue;
|
||||
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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -133,7 +204,7 @@ type
|
||||
|
||||
{ IFormasPagoPlazosDelta }
|
||||
IFormasPagoPlazosDelta = interface(IFormasPagoPlazos)
|
||||
['{E0326434-91CF-4E0E-B620-9C98B3FF28EA}']
|
||||
['{46BB2583-A6D4-4A62-BB44-BAC8789FD0A2}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FORMA_PAGOValue : Integer;
|
||||
@ -206,6 +277,80 @@ implementation
|
||||
uses
|
||||
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 }
|
||||
constructor TFormasPagoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
begin
|
||||
@ -465,6 +610,68 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FormasPagoCUENTA] := Null;
|
||||
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 }
|
||||
constructor TFormasPagoPlazosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
@ -603,6 +810,7 @@ end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterBusinessProcessorRules(RID_ListaFormasPagoDelta, TListaFormasPagoBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_FormasPagoDelta, TFormasPagoBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_FormasPagoPlazosDelta, TFormasPagoPlazosBusinessProcessorRules);
|
||||
|
||||
|
||||
@ -14,8 +14,8 @@ object srvFormasPago: TsrvFormasPago
|
||||
DiagramData =
|
||||
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
|
||||
'idth="400" Height="300">'#13#10' <Entity Name="FormasPago" Left="0,' +
|
||||
'00" Top="0,00" />'#13#10' <Entity Name="FormasPagoPlazos" Left="393' +
|
||||
',00" Top="97,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
|
||||
'00" Top="0,00" />'#13#10' <Entity Name="FormasPagoPlazos" Left="392' +
|
||||
',00" Top="96,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
|
||||
end
|
||||
object DataDictionary: TDADataDictionary
|
||||
Fields = <
|
||||
@ -171,6 +171,14 @@ object srvFormasPago: TsrvFormasPago
|
||||
item
|
||||
DatasetField = 'CUENTA'
|
||||
TableField = 'CUENTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_SUBCUENTA'
|
||||
TableField = 'ID_SUBCUENTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IGNORAR_CONTABILIDAD'
|
||||
TableField = 'IGNORAR_CONTABILIDAD'
|
||||
end>
|
||||
end>
|
||||
Name = 'FormasPago'
|
||||
@ -224,6 +232,14 @@ object srvFormasPago: TsrvFormasPago
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DictionaryEntry = 'FormasPago_CUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_SUBCUENTA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'IGNORAR_CONTABILIDAD'
|
||||
DataType = datSmallInt
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -290,30 +306,54 @@ object srvFormasPago: TsrvFormasPago
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TITULAR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ENTIDAD'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'SUCURSAL'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DC'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CUENTA'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_SUBCUENTA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IGNORAR_CONTABILIDAD'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
@ -323,9 +363,10 @@ object srvFormasPago: TsrvFormasPago
|
||||
TargetTable = 'FORMAS_PAGO'
|
||||
SQL =
|
||||
'INSERT'#10' INTO FORMAS_PAGO'#10' (ID, REFERENCIA, DESCRIPCION, TITU' +
|
||||
'LAR, ENTIDAD, SUCURSAL,'#10' DC, CUENTA)'#10' VALUES'#10' (:ID, :REF' +
|
||||
'ERENCIA, :DESCRIPCION, :TITULAR, :ENTIDAD, :SUCURSAL,'#10' :DC, ' +
|
||||
':CUENTA)'#10
|
||||
'LAR, ENTIDAD, SUCURSAL,'#10' DC, CUENTA, ID_SUBCUENTA, IGNORAR_C' +
|
||||
'ONTABILIDAD)'#10' VALUES'#10' (:ID, :REFERENCIA, :DESCRIPCION, :TITU' +
|
||||
'LAR, :ENTIDAD, :SUCURSAL,'#10' :DC, :CUENTA, :ID_SUBCUENTA, :IGN' +
|
||||
'ORAR_CONTABILIDAD)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -393,10 +434,19 @@ object srvFormasPago: TsrvFormasPago
|
||||
Size = 15
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_SUBCUENTA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IGNORAR_CONTABILIDAD'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
DataType = datAutoInc
|
||||
Value = '0'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -407,7 +457,8 @@ object srvFormasPago: TsrvFormasPago
|
||||
'UPDATE FORMAS_PAGO'#10' SET '#10' REFERENCIA = :REFERENCIA, '#10' DES' +
|
||||
'CRIPCION = :DESCRIPCION, '#10' TITULAR = :TITULAR, '#10' ENTIDAD =' +
|
||||
' :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
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
Binary file not shown.
@ -41,25 +41,29 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<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>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FormasPago_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contabilidad_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.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">
|
||||
<Form>fEditorFormaPago</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorFormasPago.pas">
|
||||
<Form>fEditorFormasPago</Form>
|
||||
<DesignClass>TfEditorFormasPago</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uFormasPagoViewRegister.pas" />
|
||||
</ItemGroup>
|
||||
|
||||
@ -1,12 +1,11 @@
|
||||
object fEditorFormaPago: TfEditorFormaPago
|
||||
Left = 453
|
||||
Top = 234
|
||||
ActiveControl = eReferencia
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'Forma de pago'
|
||||
ClientHeight = 352
|
||||
ClientWidth = 404
|
||||
ClientHeight = 390
|
||||
ClientWidth = 484
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -18,169 +17,305 @@ object fEditorFormaPago: TfEditorFormaPago
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
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
|
||||
Left = 137
|
||||
Top = 306
|
||||
Width = 28
|
||||
Height = 28
|
||||
end
|
||||
object bAceptar: TButton
|
||||
Left = 234
|
||||
Top = 314
|
||||
Width = 75
|
||||
Height = 23
|
||||
Action = actAceptar
|
||||
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
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 484
|
||||
Height = 390
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
end
|
||||
object eDescripcion: TDBEdit
|
||||
Left = 123
|
||||
Top = 68
|
||||
Width = 262
|
||||
Height = 21
|
||||
Color = clInfoBk
|
||||
DataField = 'DESCRIPCION'
|
||||
DataSource = dsFormaPago
|
||||
TabOrder = 1
|
||||
end
|
||||
object bAnadir: TButton
|
||||
Left = 290
|
||||
Top = 134
|
||||
Width = 95
|
||||
Height = 23
|
||||
Action = actAnadir
|
||||
TabOrder = 3
|
||||
end
|
||||
object bEliminar: TButton
|
||||
Left = 290
|
||||
Top = 163
|
||||
Width = 95
|
||||
Height = 23
|
||||
Action = actEliminar
|
||||
TabOrder = 4
|
||||
end
|
||||
object ListaFormasPago: TcxGrid
|
||||
Left = 32
|
||||
Top = 134
|
||||
Width = 252
|
||||
Height = 150
|
||||
TabOrder = 2
|
||||
LookAndFeel.Kind = lfStandard
|
||||
LookAndFeel.NativeStyle = True
|
||||
object ListaFormasPagoDBTableView1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = dsPlazos
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
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
|
||||
TabStop = False
|
||||
ExplicitWidth = 412
|
||||
ExplicitHeight = 515
|
||||
object Bevel4: TBevel
|
||||
Left = 10
|
||||
Top = 329
|
||||
Width = 388
|
||||
Height = 10
|
||||
Shape = bsBottomLine
|
||||
end
|
||||
object Bevel2: TBevel
|
||||
Left = 10
|
||||
Top = 151
|
||||
Width = 388
|
||||
Height = 10
|
||||
Shape = bsBottomLine
|
||||
end
|
||||
object eReferencia: TDBEdit
|
||||
Left = 76
|
||||
Top = 12
|
||||
Width = 118
|
||||
Height = 21
|
||||
BorderStyle = bsNone
|
||||
Color = clInfoBk
|
||||
DataField = 'REFERENCIA'
|
||||
DataSource = dsFormaPago
|
||||
TabOrder = 0
|
||||
end
|
||||
object eDescripcion: TDBEdit
|
||||
Left = 76
|
||||
Top = 43
|
||||
Width = 262
|
||||
Height = 21
|
||||
BorderStyle = bsNone
|
||||
Color = clInfoBk
|
||||
DataField = 'DESCRIPCION'
|
||||
DataSource = dsFormaPago
|
||||
TabOrder = 1
|
||||
end
|
||||
object ListaFormasPago: TcxGrid
|
||||
Left = 10
|
||||
Top = 167
|
||||
Width = 246
|
||||
Height = 156
|
||||
TabOrder = 6
|
||||
LookAndFeel.Kind = lfStandard
|
||||
LookAndFeel.NativeStyle = True
|
||||
object ListaFormasPagoDBTableView1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = dsPlazos
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
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
|
||||
object ListaFormasPagoDBTableView1PORCENTAJE: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'PORCENTAJE'
|
||||
PropertiesClassName = 'TcxSpinEditProperties'
|
||||
Properties.AssignedValues.MinValue = True
|
||||
Properties.MaxValue = 100.000000000000000000
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
Width = 132
|
||||
object ListaFormasPagoLevel1: TcxGridLevel
|
||||
GridView = ListaFormasPagoDBTableView1
|
||||
end
|
||||
end
|
||||
object ListaFormasPagoLevel1: TcxGridLevel
|
||||
GridView = ListaFormasPagoDBTableView1
|
||||
object bAnadir: TButton
|
||||
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
|
||||
object ActionList1: TActionList
|
||||
@ -220,4 +355,8 @@ object fEditorFormaPago: TfEditorFormaPago
|
||||
Left = 8
|
||||
Top = 300
|
||||
end
|
||||
object dsSubcuentas: TDADataSource
|
||||
Left = 248
|
||||
Top = 68
|
||||
end
|
||||
end
|
||||
|
||||
@ -34,7 +34,10 @@ uses
|
||||
JvComponent, JvEnterTab, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, cxDBData, cxSpinEdit, cxGridCustomTableView,
|
||||
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
|
||||
TfEditorFormaPago = class(TForm, IEditorFormaPago)
|
||||
@ -44,28 +47,49 @@ type
|
||||
actEliminar: TAction;
|
||||
actAceptar: TAction;
|
||||
actCancelar: TAction;
|
||||
bAceptar: TButton;
|
||||
bCancelar: TButton;
|
||||
actCerrar: TAction;
|
||||
actModificar: TAction;
|
||||
eReferencia: TDBEdit;
|
||||
eDescripcion: TDBEdit;
|
||||
dsPlazos: TDADataSource;
|
||||
Label1: TLabel;
|
||||
Bevel1: TBevel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label11: TLabel;
|
||||
Bevel3: TBevel;
|
||||
Bevel4: TBevel;
|
||||
bAnadir: TButton;
|
||||
bEliminar: TButton;
|
||||
JvEnterAsTab1: TJvEnterAsTab;
|
||||
ListaFormasPagoDBTableView1: TcxGridDBTableView;
|
||||
ListaFormasPagoLevel1: TcxGridLevel;
|
||||
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
||||
dxLayoutControl1: TdxLayoutControl;
|
||||
dxLayoutControl1Item1: TdxLayoutItem;
|
||||
eReferencia: TDBEdit;
|
||||
dxLayoutControl1Item2: TdxLayoutItem;
|
||||
eDescripcion: TDBEdit;
|
||||
dxLayoutControl1Item3: TdxLayoutItem;
|
||||
ListaFormasPago: TcxGrid;
|
||||
ListaFormasPagoDBTableView1: TcxGridDBTableView;
|
||||
ListaFormasPagoDBTableView1NUM_DIAS: 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 actAnadirExecute(Sender: TObject);
|
||||
@ -75,9 +99,12 @@ type
|
||||
procedure actCerrarExecute(Sender: TObject);
|
||||
procedure actAnadirUpdate(Sender: TObject);
|
||||
procedure actEliminarUpdate(Sender: TObject);
|
||||
procedure rdPagoPlazosClick(Sender: TObject);
|
||||
protected
|
||||
FFormaPago: IBizFormaPago;
|
||||
FPlazos : IBizFormaPagoPlazos;
|
||||
FSubCuentas: IBizSubCuenta;
|
||||
FSubCuentasController: TSubCuentasController;
|
||||
FController : IFormasPagoController;
|
||||
FPlazosController: IFormasPagoPlazosController;
|
||||
function GetFormaPago: IBizFormaPago;
|
||||
@ -102,6 +129,20 @@ begin
|
||||
Result := FFormaPago;
|
||||
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);
|
||||
begin
|
||||
FFormaPago := Value;
|
||||
@ -141,11 +182,17 @@ begin
|
||||
inherited;
|
||||
FController := TFormasPagoController.Create;
|
||||
FPlazosController := TFormasPagoPlazosController.Create;
|
||||
FSubCuentasController := TSubCuentasController.Create;
|
||||
FSubCuentas := FSubCuentasController.BuscarCajasBancos;
|
||||
dsSubcuentas.DataTable := FSubCuentas.DataTable;
|
||||
end;
|
||||
|
||||
destructor TfEditorFormaPago.Destroy;
|
||||
begin
|
||||
dsSubcuentas.DataTable := Nil;
|
||||
FFormaPago := NIL;
|
||||
FSubCuentas := NIL;
|
||||
FSubCuentasController := NIL;
|
||||
FPlazosController := NIL;
|
||||
FController := NIL;
|
||||
inherited;
|
||||
@ -180,13 +227,23 @@ end;
|
||||
|
||||
procedure TfEditorFormaPago.FormShow(Sender: TObject);
|
||||
begin
|
||||
rdPagoVencimiento.Checked := True;
|
||||
|
||||
if not FSubCuentas.DataTable.Active then
|
||||
FSubCuentas.DataTable.Active := True;
|
||||
|
||||
if not FFormaPago.DataTable.Active then
|
||||
FFormaPago.DataTable.Active := True;
|
||||
|
||||
if FFormaPago.EsNuevo then
|
||||
Self.Caption := 'Nueva forma de pago'
|
||||
else
|
||||
begin
|
||||
Self.Caption := 'Modificar forma de pago';
|
||||
if (FFormaPago.Plazos.RecordCount > 0) then
|
||||
rdPagoPlazos.Checked := True;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -46,8 +46,6 @@ uses
|
||||
uBizAlbaranClienteServer in '..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas',
|
||||
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},
|
||||
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},
|
||||
srvRecibosProveedor_Impl in '..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas' {srvRecibosProveedor: TDataAbstractService},
|
||||
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',
|
||||
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_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 ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -28,7 +28,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 2,8,7,0
|
||||
PRODUCTVERSION 2,8,7,0
|
||||
FILEVERSION 2,8,8,0
|
||||
PRODUCTVERSION 2,8,8,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||
VALUE "FileVersion", "2.8.7.0\0"
|
||||
VALUE "FileVersion", "2.8.8.0\0"
|
||||
VALUE "ProductName", "FactuGES (Servidor)\0"
|
||||
VALUE "ProductVersion", "2.8.7.0\0"
|
||||
VALUE "CompileDate", "jueves, 31 de mayo de 2018 13:22\0"
|
||||
VALUE "ProductVersion", "2.8.8.0\0"
|
||||
VALUE "CompileDate", "miércoles, 10 de octubre de 2018 16:29\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user