Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

repaso albaranes, pedidos, y facturas con error al asignar proveedor

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@116 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2007-11-17 17:39:17 +00:00
parent 669773886d
commit 43e5f77582
54 changed files with 3752 additions and 1853 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1611
Build/Build.fbp5
View File

File diff suppressed because it is too large Load Diff

105
Source/Base/Base.dproj
View File

@ -44,13 +44,6 @@
<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="PackageDescription">Libreria base de FactuGES</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><Excluded_Packages> <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="PackageDescription">Libreria base de FactuGES</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><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -65,57 +58,57 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Cliente\adortl.dcp" />
<DCCReference Include="..\Cliente\cxDataD10.dcp" />
<DCCReference Include="..\Cliente\cxEditorsD10.dcp" />
<DCCReference Include="..\Cliente\cxExportD10.dcp" />
<DCCReference Include="..\Cliente\cxExtEditorsD10.dcp" />
<DCCReference Include="..\Cliente\cxGridD10.dcp" />
<DCCReference Include="..\Cliente\cxIntl5D10.dcp" />
<DCCReference Include="..\Cliente\cxIntlPrintSys3D10.dcp" />
<DCCReference Include="..\Cliente\cxLibraryD10.dcp" />
<DCCReference Include="..\Cliente\cxPageControlD10.dcp" />
<DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" /> <DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" />
<DCCReference Include="..\Cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Cliente\dbrtl.dcp" />
<DCCReference Include="..\Cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Cliente\designide.dcp" />
<DCCReference Include="..\Cliente\dsnap.dcp" />
<DCCReference Include="..\Cliente\dxPSCoreD10.dcp" />
<DCCReference Include="..\Cliente\dxThemeD10.dcp" />
<DCCReference Include="..\Cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\Cliente\IndyCore.dcp" />
<DCCReference Include="..\Cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Cliente\IndySystem.dcp" />
<DCCReference Include="..\Cliente\Jcl.dcp" />
<DCCReference Include="..\Cliente\JclVcl.dcp" />
<DCCReference Include="..\Cliente\JSDialog100.dcp" />
<DCCReference Include="..\Cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Cliente\pckMD5.dcp" />
<DCCReference Include="..\Cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Cliente\PNG_D10.dcp" />
<DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" /> <DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" />
<DCCReference Include="..\Cliente\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\adortl.dcp" />
<DCCReference Include="..\Cliente\rtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\cxDataD10.dcp" />
<DCCReference Include="..\Cliente\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\cxEditorsD10.dcp" />
<DCCReference Include="..\Cliente\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\cxExportD10.dcp" />
<DCCReference Include="..\Cliente\vcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\cxExtEditorsD10.dcp" />
<DCCReference Include="..\Cliente\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\cxGridD10.dcp" />
<DCCReference Include="..\Cliente\vcldb.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\cxIntl5D10.dcp" />
<DCCReference Include="..\Cliente\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\cxIntlPrintSys3D10.dcp" />
<DCCReference Include="..\Cliente\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\cxLibraryD10.dcp" />
<DCCReference Include="..\Cliente\vclx.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\cxPageControlD10.dcp" />
<DCCReference Include="..\Cliente\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\designide.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dsnap.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxPSCoreD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxThemeD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Jcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

4
Source/Cliente/uBootStrap.pas
View File

@ -36,9 +36,9 @@ begin
LoadModule('PedidosProveedor_plugin.bpl'); LoadModule('PedidosProveedor_plugin.bpl');
LoadModule('AlbaranesProveedor_plugin.bpl'); LoadModule('AlbaranesProveedor_plugin.bpl');
LoadModule('RecibosProveedor_plugin.bpl');
LoadModule('RecibosProveedor_plugin.bpl');
LoadModule('FacturasProveedor_plugin.bpl');
end; end;
end; end;

BIN
Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.identcache
View File

Binary file not shown.

6
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm
View File

@ -120,12 +120,6 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Left = 239 Left = 239
ExplicitLeft = 239 ExplicitLeft = 239
end end
inherited Button1: TBitBtn
OnClick = frViewProveedorAlbaranButton1Click
end
inherited Button2: TBitBtn
OnClick = frViewProveedorAlbaranButton2Click
end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 123 Left = 123
ExplicitLeft = 123 ExplicitLeft = 123

18
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas
View File

@ -12,7 +12,8 @@ uses
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo, cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
uViewDireccionEntregaAlbaranProv, Buttons, ActnList, cxLookupEdit, uViewDireccionEntregaAlbaranProv, Buttons, ActnList, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController,
uBizPedidosProveedor, uPedidosProveedorController; uBizPedidosProveedor, uPedidosProveedorController, uBizFormasPago,
uDAInterfaces;
type type
IViewAlbaranProveedor = interface(IViewBase) IViewAlbaranProveedor = interface(IViewBase)
@ -82,6 +83,7 @@ type
protected protected
FAlbaran : IBizAlbaranProveedor; FAlbaran : IBizAlbaranProveedor;
FViewProveedorAlbaran : TfrViewDatosYSeleccionProveedor; FViewProveedorAlbaran : TfrViewDatosYSeleccionProveedor;
FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController; FFormasPagoController : IFormasPagoController;
FPedidoAsociado : IBizPedidoProveedor; FPedidoAsociado : IBizPedidoProveedor;
FPedidoController : IPedidosProveedorController; FPedidoController : IPedidosProveedorController;
@ -104,7 +106,7 @@ implementation
uses uses
uProveedoresController, uBizDireccionesContacto, uAlbaranesProveedorController, uProveedoresController, uBizDireccionesContacto, uAlbaranesProveedorController,
uBizFormasPago, schAlbaranesProveedorClient_Intf; schAlbaranesProveedorClient_Intf;
procedure TfrViewAlbaranProveedor.actElegirDireccionExecute(Sender: TObject); procedure TfrViewAlbaranProveedor.actElegirDireccionExecute(Sender: TObject);
@ -159,14 +161,16 @@ end;
procedure TfrViewAlbaranProveedor.bFormasPagoClick(Sender: TObject); procedure TfrViewAlbaranProveedor.bFormasPagoClick(Sender: TObject);
begin begin
inherited; inherited;
FFormasPagoController.VerTodos((dsFormaPago.DataTable) as IBizFormaPago); if Assigned(FFormasPago) then
FFormasPagoController.VerTodos(FFormasPago);
end; end;
procedure TfrViewAlbaranProveedor.CustomViewCreate(Sender: TObject); procedure TfrViewAlbaranProveedor.CustomViewCreate(Sender: TObject);
begin begin
inherited; inherited;
FPedidoAsociado := NIL; FPedidoAsociado := NIL;
FPedidoController := TPedidosProveedorController.Create; FPedidoController := TPedidosProveedorController.Create;
FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create; FFormasPagoController := TFormasPagoController.Create;
FViewProveedorAlbaran := frViewProveedorAlbaran; FViewProveedorAlbaran := frViewProveedorAlbaran;
FViewProveedorAlbaran.MsgElegirProveedor := 'Elija el proveedor de este albarán.'; FViewProveedorAlbaran.MsgElegirProveedor := 'Elija el proveedor de este albarán.';
@ -177,6 +181,7 @@ end;
procedure TfrViewAlbaranProveedor.CustomViewDestroy(Sender: TObject); procedure TfrViewAlbaranProveedor.CustomViewDestroy(Sender: TObject);
begin begin
FPedidoController := NIL; FPedidoController := NIL;
FFormasPago := Nil;
FFormasPagoController := NIL; FFormasPagoController := NIL;
FPedidoAsociado := NIL; FPedidoAsociado := NIL;
FViewProveedorAlbaran := Nil; FViewProveedorAlbaran := Nil;
@ -233,8 +238,11 @@ begin
if Assigned(FAlbaran) then if Assigned(FAlbaran) then
begin begin
DADataSource.DataTable := FAlbaran.DataTable; DADataSource.DataTable := FAlbaran.DataTable;
dsFormaPago.DataTable := FFormasPagoController.BuscarTodos.DataTable;
FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True; dsFormaPago.DataTable.Active := True;
frViewProveedorAlbaran.Proveedor := FAlbaran.Proveedor; frViewProveedorAlbaran.Proveedor := FAlbaran.Proveedor;
frViewDireccionEntregaAlbaranProv1.AlbaranProveedor := FAlbaran; frViewDireccionEntregaAlbaranProv1.AlbaranProveedor := FAlbaran;

BIN
Source/Modulos/Contactos/Controller/Contactos_controller.identcache
View File

Binary file not shown.

BIN
Source/Modulos/Contactos/Views/Contactos_view.identcache
View File

Binary file not shown.

28
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 754 Width = 451
Height = 333 Height = 304
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,18 +9,16 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 754 Width = 451
Height = 333 Height = 304
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
754 451
333) 304)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 124 Left = 124
Top = 30 Top = 30
@ -81,7 +79,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 301 Width = 301
end end
inline frViewClienteFactura: TfrViewDatosYSeleccionCliente inline frViewClienteFactura: TfrViewDatosYSeleccionCliente
Left = 393 Left = 310
Top = 30 Top = 30
Width = 314 Width = 314
Height = 215 Height = 215
@ -93,7 +91,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitLeft = 393 ExplicitLeft = 310
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 314 ExplicitWidth = 314
ExplicitHeight = 215 ExplicitHeight = 215
@ -128,13 +126,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 247 Left = 192
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
ExplicitLeft = 247 ExplicitLeft = 192
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 137 Left = 82
ExplicitLeft = 137 ExplicitLeft = 82
end end
end end
end end
@ -170,7 +168,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 78 Width = 78
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 233 Left = 150
Top = 84 Top = 84
Width = 132 Width = 132
Height = 23 Height = 23

23
Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk
View File

@ -22,28 +22,17 @@ package FacturasProveedor_controller;
{$WRITEABLECONST OFF} {$WRITEABLECONST OFF}
{$MINENUMSIZE 1} {$MINENUMSIZE 1}
{$IMAGEBASE $400000} {$IMAGEBASE $400000}
{$IMPLICITBUILD OFF} {$IMPLICITBUILD ON}
requires requires
rtl,
vcl,
dbrtl,
cxLibraryD10,
dxThemeD10,
dsnap,
vcldb,
adortl,
GUIBase,
ControllerBase,
Usuarios,
Contactos_controller,
Articulos_controller,
FormasPago_controller,
FacturasProveedor_model, FacturasProveedor_model,
FacturasProveedor_data, FacturasProveedor_data,
RecibosProveedor_controller, Contactos_controller,
Articulos_controller,
AlbaranesProveedor_model,
AlbaranesProveedor_controller, AlbaranesProveedor_controller,
AlbaranesProveedor_model; RecibosProveedor_controller,
FormasPago_controller;
contains contains
uFacturasProveedorController in 'uFacturasProveedorController.pas', uFacturasProveedorController in 'uFacturasProveedorController.pas',

559
Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj
View File

@ -36,78 +36,26 @@
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath> <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath> <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath> <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
<DCC_Define>DEBUG</DCC_Define>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<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 xmlns=""> <Delphi.Personality> <Parameters> <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">FacturasProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<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">FacturasProveedor_controller.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<ItemGroup /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FacturasProveedor_controller.dpk"> <DelphiCompile Include="FacturasProveedor_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="..\..\Lib\AlbaranesProveedor_controller.dcp" />
<DCCReference Include="..\AlbaranesProveedor_controller.dcp" /> <DCCReference Include="..\..\Lib\AlbaranesProveedor_model.dcp" />
<DCCReference Include="..\AlbaranesProveedor_model.dcp" /> <DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
<DCCReference Include="..\Articulos_controller.dcp" /> <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" /> <DCCReference Include="..\..\Lib\FacturasProveedor_data.dcp" />
<DCCReference Include="..\ControllerBase.dcp" /> <DCCReference Include="..\..\Lib\FacturasProveedor_model.dcp" />
<DCCReference Include="..\cxLibraryD10.dcp" /> <DCCReference Include="..\..\Lib\FormasPago_controller.dcp" />
<DCCReference Include="..\dbrtl.dcp" /> <DCCReference Include="..\..\Lib\RecibosProveedor_controller.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxThemeD10.dcp" />
<DCCReference Include="..\FacturasProveedor_data.dcp" />
<DCCReference Include="..\FacturasProveedor_model.dcp" />
<DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\RecibosProveedor_controller.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\Usuarios.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="uArticulosFacturaProveedorController.pas" /> <DCCReference Include="uArticulosFacturaProveedorController.pas" />
<DCCReference Include="uDetallesFacturaProveedorController.pas" /> <DCCReference Include="uDetallesFacturaProveedorController.pas" />
<DCCReference Include="uFacturasProveedorController.pas" /> <DCCReference Include="uFacturasProveedorController.pas" />
@ -117,5 +65,488 @@
<DCCReference Include="View\uIEditorFacturasProveedor.pas" /> <DCCReference Include="View\uIEditorFacturasProveedor.pas" />
<DCCReference Include="View\uIEditorFacturasProveedorPreview.pas" /> <DCCReference Include="View\uIEditorFacturasProveedorPreview.pas" />
</ItemGroup> </ItemGroup>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> </Project>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
TerminateBtn Operation=2
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=2
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soAppUpTime=1
soExcDate=1
soExcAddress=1
soExcModuleName=1
soExcModuleVersion=1
soExcType=1
soExcMessage=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soOSCharset=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoDoNotStoreProcNames=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error occurred"
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->

22
Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.res
View File

Binary file not shown.

14
Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas
View File

@ -20,7 +20,6 @@ type
private private
FDataModule : IDataModuleFacturasProveedor; FDataModule : IDataModuleFacturasProveedor;
protected protected
procedure AsignarDatos(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer); override;
procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); overload; override; procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); overload; override;
procedure RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override; procedure RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override;
@ -90,19 +89,6 @@ begin
FArticulosController := TArticulosFacturaProveedorController.Create; FArticulosController := TArticulosFacturaProveedorController.Create;
end; end;
procedure TDetallesFacturaProveedorController.AsignarDatos(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer);
begin
inherited;
with (ADetalles as IBizDetallesFacturaProveedor) do
begin
Edit;
ID := FDataModule.GetNextID(DataTable.LogicalName);
ID_FACTURA := IDCabecera;
Post
end;
end;
function TDetallesFacturaProveedorController.CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; function TDetallesFacturaProveedorController.CalcularImporteTotalConcepto(DataTable: TDADataTable): Double;
begin begin
Result := CalcularLineaConcepto(DataTable); Result := CalcularLineaConcepto(DataTable);

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

@ -61,7 +61,6 @@ type
function GetDetallesController: IDetallesFacturaProveedorController; function GetDetallesController: IDetallesFacturaProveedorController;
procedure SetDetallesController(const Value: IDetallesFacturaProveedorController); procedure SetDetallesController(const Value: IDetallesFacturaProveedorController);
procedure AsignarID(AFactura: IBizFacturaProveedor; const IDNuevo : Integer);
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean; function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
function _Vacio : IBizFacturaProveedor; function _Vacio : IBizFacturaProveedor;
@ -410,28 +409,6 @@ begin
AFactura.TIPO := CTE_TIPO_ABONO; AFactura.TIPO := CTE_TIPO_ABONO;
end; end;
procedure TFacturasProveedorController.AsignarID(AFactura: IBizFacturaProveedor; const IDNuevo: Integer);
begin
if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignada');
if not Assigned(AFactura.Detalles) then
raise Exception.Create ('Detalles de factura no asignados');
if not Assigned(FDetallesController) then
raise Exception.Create ('Controller detalles no asignado');
{ Los detalles siempre hay que comprobarlos }
FDetallesController.AsignarID(AFactura.Detalles, IDNuevo, AFactura.EsNuevo);
if AFactura.EsNuevo then
begin
AFactura.Edit;
AFactura.ID := IDNuevo;
AFactura.Post;
end;
end;
function TFacturasProveedorController.Buscar(const ID: Integer): IBizFacturaProveedor; function TFacturasProveedorController.Buscar(const ID: Integer): IBizFacturaProveedor;
begin begin
Result := (FDataModule as IDataModuleFacturasProveedor).GetItem(ID); Result := (FDataModule as IDataModuleFacturasProveedor).GetItem(ID);
@ -557,8 +534,8 @@ begin
Result.Edit; Result.Edit;
with Result do with Result do
begin begin
ID_EMPRESA := dmUsuarios.IDEmpresaActual; ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual;
USUARIO := dmUsuarios.LoginInfo.Usuario; // USUARIO := dmUsuarios.LoginInfo.Usuario;
REFERENCIA := ''; //Para que se asigne una nueva REFERENCIA := ''; //Para que se asigne una nueva
SITUACION := CTE_PENDIENTE; //Una factura nueva debe estar pendiente SITUACION := CTE_PENDIENTE; //Una factura nueva debe estar pendiente
FECHA_FACTURA := DateOf(Now); FECHA_FACTURA := DateOf(Now);
@ -611,7 +588,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. } en MODIFICACIÓN como en INSERCIÓN. }
AFactura.Edit; AFactura.Edit;
try try
AFactura.USUARIO := dmUsuarios.LoginInfo.Usuario; // AFactura.USUARIO := dmUsuarios.LoginInfo.Usuario;
if Assigned(AFactura.Proveedor) if Assigned(AFactura.Proveedor)
and (AFactura.ID_Proveedor <> AFactura.Proveedor.ID) then and (AFactura.ID_Proveedor <> AFactura.Proveedor.ID) then
@ -866,12 +843,13 @@ begin
AFactura.DataTable.Active := False; AFactura.DataTable.Active := False;
// Filtrar las facturas actuales por empresa // Filtrar las facturas actuales por empresa
with AFactura.DataTable.Where do { with AFactura.DataTable.Where do
begin begin
if NotEmpty then if NotEmpty then
AddOperator(opAND); AddOperator(opAND);
AddCondition(fld_FacturasProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual); AddCondition(fld_FacturasProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
end; end;
}
end; end;
procedure TFacturasProveedorController.SetProveedorController(const Value: IProveedoresController); procedure TFacturasProveedorController.SetProveedorController(const Value: IProveedoresController);
@ -904,13 +882,6 @@ begin
RecalcularImportes(AFactura); RecalcularImportes(AFactura);
try try
if (AFactura.EsNuevo) then
IDNuevo := FDataModule.GetNextID(AFactura.DataTable.LogicalName)
else
IDNuevo := AFactura.ID;
AsignarID(AFactura, IDNuevo);
AFactura.DataTable.ApplyUpdates; AFactura.DataTable.ApplyUpdates;
//Se generan los recibos automáticamente a partir de la forma de pago //Se generan los recibos automáticamente a partir de la forma de pago

12
Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.dpk
View File

@ -22,17 +22,11 @@ package FacturasProveedor_data;
{$WRITEABLECONST OFF} {$WRITEABLECONST OFF}
{$MINENUMSIZE 1} {$MINENUMSIZE 1}
{$IMAGEBASE $400000} {$IMAGEBASE $400000}
{$IMPLICITBUILD OFF} {$IMPLICITBUILD ON}
requires requires
rtl, FacturasProveedor_model,
dbrtl, Base;
dsnap,
vcldb,
vcl,
adortl,
Contactos_model,
FacturasProveedor_model;
contains contains
uDataModuleFacturasProveedor in 'uDataModuleFacturasProveedor.pas' {DataModuleFacturasProveedor: TDAClientDataModule}; uDataModuleFacturasProveedor in 'uDataModuleFacturasProveedor.pas' {DataModuleFacturasProveedor: TDAClientDataModule};

541
Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.dproj
View File

@ -36,71 +36,506 @@
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath> <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath> <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath> <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
<DCC_Define>DEBUG</DCC_Define>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<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 xmlns=""> <Delphi.Personality> <Parameters> <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">FacturasProveedor_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<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">FacturasProveedor_data.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<ItemGroup /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FacturasProveedor_data.dpk"> <DelphiCompile Include="FacturasProveedor_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Data\Base.dcp" />
<DCCReference Include="..\Contactos_model.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Data\FacturasProveedor_model.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\FacturasProveedor_model.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="uDataModuleFacturasProveedor.pas"> <DCCReference Include="uDataModuleFacturasProveedor.pas">
<Form>DataModuleFacturasProveedor</Form> <Form>DataModuleFacturasProveedor</Form>
<DesignClass>TDAClientDataModule</DesignClass> <DesignClass>TDAClientDataModule</DesignClass>
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> </Project>
</Project> <!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
TerminateBtn Operation=2
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=2
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soAppUpTime=1
soExcDate=1
soExcAddress=1
soExcModuleName=1
soExcModuleVersion=1
soExcType=1
soExcMessage=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soOSCharset=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoDoNotStoreProcNames=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error occurred"
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->

22
Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.res
View File

Binary file not shown.

174
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
View File

@ -3,31 +3,49 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Height = 246 Height = 246
Width = 518 Width = 518
object RORemoteService: TRORemoteService object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel
ServiceName = 'srvFacturasProveedor' ServiceName = 'srvFacturasProveedor'
Left = 48 Left = 48
Top = 24 Top = 24
end end
object tbl_FacturasProveedor: TDACDSDataTable object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 84
end
object rda_FacturasProveedor: TDARemoteDataAdapter
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51
Top = 151
end
object tbl_FacturasProveedor: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_PROVEEDOR_ID'
Required = True Required = True
DictionaryEntry = 'FacturasCliente_ID' ServerAutoRefresh = True
DictionaryEntry = 'FacturasProveedor_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_EMPRESA' DictionaryEntry = 'FacturasProveedor_ID_EMPRESA'
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 20 Size = 20
DisplayLabel = 'Referencia' DisplayLabel = 'Referencia'
DictionaryEntry = 'FacturasCliente_REFERENCIA' DictionaryEntry = 'FacturasProveedor_REFERENCIA'
end end
item item
Name = 'TIPO' Name = 'TIPO'
@ -46,74 +64,74 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Name = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
DataType = datDateTime DataType = datDateTime
DisplayLabel = 'Fecha de las factura' DisplayLabel = 'Fecha de las factura'
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA' DictionaryEntry = 'FacturasProveedor_FECHA_FACTURA'
end end
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Situaci'#243'n' DisplayLabel = 'Situaci'#195#179'n'
DictionaryEntry = 'FacturasCliente_SITUACION' DictionaryEntry = 'FacturasProveedor_SITUACION'
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Base imponible' DisplayLabel = 'Base imponible'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE' DictionaryEntry = 'FacturasProveedor_BASE_IMPONIBLE'
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat DataType = datFloat
DisplayLabel = 'Dto.' DisplayLabel = 'Dto.'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'FacturasCliente_DESCUENTO' DictionaryEntry = 'FacturasProveedor_DESCUENTO'
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Importe dto.' DisplayLabel = 'Importe dto.'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO' DictionaryEntry = 'FacturasProveedor_IMPORTE_DESCUENTO'
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat DataType = datFloat
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'FacturasCliente_IVA' DictionaryEntry = 'FacturasProveedor_IVA'
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Importe IVA' DisplayLabel = 'Importe IVA'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'FacturasCliente_IMPORTE_IVA' DictionaryEntry = 'FacturasProveedor_IMPORTE_IVA'
end end
item item
Name = 'RE' Name = 'RE'
DataType = datFloat DataType = datFloat
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'FacturasCliente_RE' DictionaryEntry = 'FacturasProveedor_RE'
end end
item item
Name = 'IMPORTE_RE' Name = 'IMPORTE_RE'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Importe RE' DisplayLabel = 'Importe RE'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'FacturasCliente_IMPORTE_RE' DictionaryEntry = 'FacturasProveedor_IMPORTE_RE'
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Importe total' DisplayLabel = 'Importe total'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL' DictionaryEntry = 'FacturasProveedor_IMPORTE_TOTAL'
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo DataType = datMemo
DisplayLabel = 'Observaciones' DisplayLabel = 'Observaciones'
DictionaryEntry = 'FacturasCliente_OBSERVACIONES' DictionaryEntry = 'FacturasProveedor_OBSERVACIONES'
end end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
@ -126,70 +144,70 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
DataType = datString DataType = datString
Size = 15 Size = 15
DisplayLabel = 'NIF/CIF' DisplayLabel = 'NIF/CIF'
DictionaryEntry = 'FacturasCliente_NIF_CIF' DictionaryEntry = 'FacturasProveedor_NIF_CIF'
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 100 Size = 100
DisplayLabel = 'Cliente' DisplayLabel = 'Cliente'
DictionaryEntry = 'FacturasCliente_NOMBRE' DictionaryEntry = 'FacturasProveedor_NOMBRE'
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 150 Size = 150
DisplayLabel = 'Direcci'#243'n' DisplayLabel = 'Direcci'#195#179'n'
DictionaryEntry = 'FacturasCliente_CALLE' DictionaryEntry = 'FacturasProveedor_CALLE'
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 150 Size = 150
DisplayLabel = 'Poblaci'#243'n' DisplayLabel = 'Poblaci'#195#179'n'
DictionaryEntry = 'FacturasCliente_POBLACION' DictionaryEntry = 'FacturasProveedor_POBLACION'
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 30 Size = 30
DisplayLabel = 'Provincia' DisplayLabel = 'Provincia'
DictionaryEntry = 'FacturasCliente_PROVINCIA' DictionaryEntry = 'FacturasProveedor_PROVINCIA'
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
DisplayLabel = 'C'#243'd. postal' DisplayLabel = 'C'#195#179'd. postal'
DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL' DictionaryEntry = 'FacturasProveedor_CODIGO_POSTAL'
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_ALTA' DictionaryEntry = 'FacturasProveedor_FECHA_ALTA'
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_MODIFICACION' DictionaryEntry = 'FacturasProveedor_FECHA_MODIFICACION'
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
Size = 100 Size = 100
DictionaryEntry = 'FacturasCliente_USUARIO' DictionaryEntry = 'FacturasProveedor_USUARIO'
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger DataType = datInteger
DisplayLabel = 'FacturasCliente_ID_FORMA_PAGO' DisplayLabel = 'FacturasProveedor_ID_FORMA_PAGO'
DictionaryEntry = 'FacturasCliente_ID_FORMA_PAGO' DictionaryEntry = 'FacturasProveedor_ID_FORMA_PAGO'
end end
item item
Name = 'RECARGO_EQUIVALENCIA' Name = 'RECARGO_EQUIVALENCIA'
DataType = datInteger DataType = datInteger
DisplayLabel = #191'Con R.E.?' DisplayLabel = #194#191'Con R.E.?'
DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA' DictionaryEntry = 'FacturasProveedor_RECARGO_EQUIVALENCIA'
end end
item item
Name = 'ID_TIPO_IVA' Name = 'ID_TIPO_IVA'
@ -201,98 +219,93 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Importe neto' DisplayLabel = 'Importe neto'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'FacturasCliente_IMPORTE_NETO' DictionaryEntry = 'FacturasProveedor_IMPORTE_NETO'
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Importe del porte' DisplayLabel = 'Importe del porte'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE' DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE'
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
LogChanges = False
DisplayLabel = 'Fecha de vencimiento'
DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO'
Calculated = True
end> end>
Params = <> Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_FacturasProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'FacturasProveedor' LogicalName = 'FacturasProveedor'
IndexDefs = <> IndexDefs = <>
Left = 224 Left = 208
Top = 160 Top = 112
end end
object ds_FacturasProveedor: TDADataSource object ds_FacturasProveedor: TDADataSource
DataSet = tbl_FacturasProveedor.Dataset DataSet = tbl_FacturasProveedor.Dataset
DataTable = tbl_FacturasProveedor DataTable = tbl_FacturasProveedor
Left = 224 Left = 208
Top = 104 Top = 48
end end
object tbl_FacturasProveedor_Detalles: TDACDSDataTable object tbl_FacturasProveedor_Detalles: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_FACTURA_PROV_DETALLES_ID'
Required = True Required = True
DictionaryEntry = 'FacturasCliente_Detalles_ID' ServerAutoRefresh = True
DictionaryEntry = 'FacturasProveedor_Detalles_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'FacturasCliente_Detalles_ID_FACTURA' DictionaryEntry = 'FacturasProveedor_Detalles_ID_FACTURA'
end end
item item
Name = 'POSICION' Name = 'POSICION'
DataType = datInteger DataType = datInteger
DisplayLabel = 'Posici'#243'n' DisplayLabel = 'Posici'#195#179'n'
DictionaryEntry = 'FacturasCliente_Detalles_POSICION' DictionaryEntry = 'FacturasProveedor_Detalles_POSICION'
end end
item item
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
DataType = datString DataType = datString
Size = 10 Size = 10
DisplayLabel = 'Tipo detalle' DisplayLabel = 'Tipo detalle'
DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE' DictionaryEntry = 'FacturasProveedor_Detalles_TIPO_DETALLE'
end end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString
Size = 2000 Size = 2000
DisplayLabel = 'Concepto' DisplayLabel = 'Concepto'
DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO' DictionaryEntry = 'FacturasProveedor_Detalles_CONCEPTO'
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datInteger DataType = datInteger
DisplayLabel = 'Cantidad' DisplayLabel = 'Cantidad'
DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' DictionaryEntry = 'FacturasProveedor_Detalles_CANTIDAD'
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Importe unidad' DisplayLabel = 'Importe unidad'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' DictionaryEntry = 'FacturasProveedor_Detalles_IMPORTE_UNIDAD'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DictionaryEntry = 'FacturasProveedor_Detalles_DESCUENTO'
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Importe total' DisplayLabel = 'Importe total'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL' DictionaryEntry = 'FacturasProveedor_Detalles_IMPORTE_TOTAL'
end
item
Name = 'VISIBLE'
DataType = datInteger
DisplayLabel = #194#191'Visible?'
DictionaryEntry = 'FacturasProveedor_Detalles_VISIBLE'
end end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
@ -300,10 +313,9 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
DictionaryEntry = 'FacturasProveedor_Detalles_ID_ARTICULO' DictionaryEntry = 'FacturasProveedor_Detalles_ID_ARTICULO'
end end
item item
Name = 'VISIBLE' Name = 'DESCUENTO'
DataType = datInteger DataType = datFloat
DisplayLabel = #191'Visible?' DictionaryEntry = 'FacturasProveedor_Detalles_DESCUENTO'
DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE'
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
@ -322,16 +334,10 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Size = 255 Size = 255
DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA_PROVEEDOR' DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA_PROVEEDOR'
end> end>
Params = < Params = <>
item MasterMappingMode = mmWhere
Name = 'ID_FACTURA'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
MasterParamsMappings.Strings = (
'ID_FACTURA=ID')
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_FacturasProveedor
MasterSource = ds_FacturasProveedor MasterSource = ds_FacturasProveedor
MasterFields = 'ID' MasterFields = 'ID'
DetailFields = 'ID_FACTURA' DetailFields = 'ID_FACTURA'
@ -340,26 +346,12 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
LogicalName = 'FacturasProveedor_Detalles' LogicalName = 'FacturasProveedor_Detalles'
IndexDefs = <> IndexDefs = <>
Left = 400 Left = 400
Top = 160 Top = 112
end end
object ds_FacturasProveedor_Detalles: TDADataSource object ds_FacturasProveedor_Detalles: TDADataSource
DataSet = tbl_FacturasProveedor_Detalles.Dataset DataSet = tbl_FacturasProveedor_Detalles.Dataset
DataTable = tbl_FacturasProveedor_Detalles DataTable = tbl_FacturasProveedor_Detalles
Left = 400 Left = 400
Top = 104 Top = 40
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 84
end
object rda_FacturasProveedor: TDARemoteDataAdapter
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51
Top = 151
end end
end end

12
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas
View File

@ -9,17 +9,17 @@ uses
uDataModuleBase, uDataModuleBase,
uIDataModuleFacturasProveedor, uBizFacturasProveedor, uBizDetallesFacturaProveedor, uIDataModuleFacturasProveedor, uBizFacturasProveedor, uBizDetallesFacturaProveedor,
uDADesigntimeCall, uIDataModuleFacturasProveedorReport, uDARemoteDataAdapter, uDADesigntimeCall, uIDataModuleFacturasProveedorReport, uDARemoteDataAdapter,
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces; uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable;
type type
TDataModuleFacturasProveedor = class(TDataModuleBase, IDataModuleFacturasProveedor, IDataModuleFacturasProveedorReport) TDataModuleFacturasProveedor = class(TDataModuleBase, IDataModuleFacturasProveedor, IDataModuleFacturasProveedorReport)
RORemoteService: TRORemoteService; RORemoteService: TRORemoteService;
tbl_FacturasProveedor: TDACDSDataTable;
ds_FacturasProveedor: TDADataSource;
tbl_FacturasProveedor_Detalles: TDACDSDataTable;
ds_FacturasProveedor_Detalles: TDADataSource;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
rda_FacturasProveedor: TDARemoteDataAdapter; rda_FacturasProveedor: TDARemoteDataAdapter;
tbl_FacturasProveedor: TDAMemDataTable;
ds_FacturasProveedor: TDADataSource;
tbl_FacturasProveedor_Detalles: TDAMemDataTable;
ds_FacturasProveedor_Detalles: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
private private
function _GetDetalles : IBizDetallesFacturaProveedor; function _GetDetalles : IBizDetallesFacturaProveedor;
@ -37,7 +37,7 @@ implementation
{$R *.DFM} {$R *.DFM}
uses uses
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces, FactuGES_Intf, uDataTableUtils, uDataModuleConexion, cxControls,
schFacturasProveedorClient_Intf, uBizContactos; schFacturasProveedorClient_Intf, uBizContactos;
{ TdmFacturasProveedor } { TdmFacturasProveedor }

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

@ -6,9 +6,11 @@
<ItemGroup> <ItemGroup>
<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="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" /> <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="Controller\FacturasProveedor_controller.dproj" /> <Projects Include="Controller\FacturasProveedor_controller.dproj" />
<Projects Include="Data\FacturasProveedor_data.dproj" /> <Projects Include="Data\FacturasProveedor_data.dproj" />
<Projects Include="Model\FacturasProveedor_model.dproj" /> <Projects Include="Model\FacturasProveedor_model.dproj" />
@ -19,7 +21,7 @@
<Borland.Personality>Default.Personality</Borland.Personality> <Borland.Personality>Default.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject> <BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Target Name="Base"> <Target Name="Base">
<MSBuild Projects="..\..\Base\Base.dproj" Targets="" /> <MSBuild Projects="..\..\Base\Base.dproj" Targets="" />
@ -30,6 +32,15 @@
<Target Name="Base:Make"> <Target Name="Base:Make">
<MSBuild Projects="..\..\Base\Base.dproj" Targets="Make" /> <MSBuild Projects="..\..\Base\Base.dproj" Targets="Make" />
</Target> </Target>
<Target Name="GUIBase">
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="" />
</Target>
<Target Name="GUIBase:Clean">
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Clean" />
</Target>
<Target Name="GUIBase:Make">
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_view"> <Target Name="Contactos_view">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" /> <MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" />
</Target> </Target>
@ -111,14 +122,23 @@
<Target Name="FactuGES_Server:Make"> <Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasCliente_view">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_view:Clean">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server" /> <CallTarget Targets="Base;GUIBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;FacturasCliente_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_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>

1
Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedor.pas
View File

@ -11,7 +11,6 @@ type
['{FD0F5B2F-5556-4031-86F0-EFF96805FD66}'] ['{FD0F5B2F-5556-4031-86F0-EFF96805FD66}']
function GetItems: IBizFacturaProveedor; function GetItems: IBizFacturaProveedor;
function GetItem(const ID : Integer) : IBizFacturaProveedor; function GetItem(const ID : Integer) : IBizFacturaProveedor;
function GetNextID(const DataSetName : String) : Integer;
function NewItem : IBizFacturaProveedor; function NewItem : IBizFacturaProveedor;
end; end;

20
Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.dpk
View File

@ -22,28 +22,10 @@ package FacturasProveedor_model;
{$WRITEABLECONST OFF} {$WRITEABLECONST OFF}
{$MINENUMSIZE 1} {$MINENUMSIZE 1}
{$IMAGEBASE $400000} {$IMAGEBASE $400000}
{$IMPLICITBUILD OFF} {$IMPLICITBUILD ON}
{%TogetherDiagram 'ModelSupport_FacturasProveedor_model\default.txaPackage'}
requires requires
rtl,
dbrtl,
vcl,
DataAbstract_D10,
dsnap,
vcldb,
adortl,
vcljpg,
cxLibraryD10,
dxThemeD10,
cxEditorsD10,
cxDataD10,
cxExtEditorsD10,
cxGridD10,
cxPageControlD10,
Base, Base,
Empresas_controller,
Usuarios,
Contactos_model, Contactos_model,
TiposIVA_model, TiposIVA_model,
TiposIVA_controller; TiposIVA_controller;

572
Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.dproj
View File

@ -36,95 +36,529 @@
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath> <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath> <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath> <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
<DCC_Define>DEBUG</DCC_Define>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<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 xmlns=""> <Delphi.Personality> <Parameters> <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><Excluded_Packages>
<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>
<Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages> </Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Source>
<Source Name="MainSource">FacturasProveedor_model.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<ItemGroup /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FacturasProveedor_model.dpk"> <DelphiCompile Include="FacturasProveedor_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<None Include="ModelSupport_FacturasProveedor_model\default.txaPackage" /> <DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="..\..\Lib\Contactos_model.dcp" />
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="..\..\Lib\TiposIVA_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" /> <DCCReference Include="..\..\Lib\TiposIVA_model.dcp" />
<DCCReference Include="..\cxDataD10.dcp" />
<DCCReference Include="..\cxEditorsD10.dcp" />
<DCCReference Include="..\cxExtEditorsD10.dcp" />
<DCCReference Include="..\cxGridD10.dcp" />
<DCCReference Include="..\cxLibraryD10.dcp" />
<DCCReference Include="..\cxPageControlD10.dcp" />
<DCCReference Include="..\DataAbstract_D10.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxThemeD10.dcp" />
<DCCReference Include="..\Empresas_controller.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\TiposIVA_controller.dcp" />
<DCCReference Include="..\TiposIVA_model.dcp" />
<DCCReference Include="..\Usuarios.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="Data\uIDataModuleFacturasProveedor.pas" /> <DCCReference Include="Data\uIDataModuleFacturasProveedor.pas" />
<DCCReference Include="Data\uIDataModuleFacturasProveedorReport.pas" /> <DCCReference Include="Data\uIDataModuleFacturasProveedorReport.pas" />
<DCCReference Include="schFacturasProveedorClient_Intf.pas" /> <DCCReference Include="schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="schFacturasProveedorServer_Intf.pas" /> <DCCReference Include="schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="uBizDetallesFacturaProveedor.pas" /> <DCCReference Include="uBizDetallesFacturaProveedor.pas" />
<DCCReference Include="uBizFacturasProveedor.pas" /> <DCCReference Include="uBizFacturasProveedor.pas" />
<None Include="ModelSupport_FacturasProveedor_model\default.txaPackage" />
</ItemGroup> </ItemGroup>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> </Project>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
TerminateBtn Operation=2
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=2
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soAppUpTime=1
soExcDate=1
soExcAddress=1
soExcModuleName=1
soExcModuleVersion=1
soExcType=1
soExcMessage=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soOSCharset=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoDoNotStoreProcNames=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error occurred"
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->

22
Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.res
View File

Binary file not shown.

47
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
View File

@ -9,9 +9,9 @@ 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_DarReferencia = '{6452FBCD-8B19-4AC7-B625-81EAEE1EE013}'; RID_DarReferencia = '{56BD23E4-C4B1-4330-BA93-6ABE078D7890}';
RID_FacturasProveedor = '{EA176D20-40F9-4AB6-84E8-5EFD9076D9D5}'; RID_FacturasProveedor = '{C5251FED-8060-492E-BE27-0374DB7C03BF}';
RID_FacturasProveedor_Detalles = '{84042E24-AA76-49D4-8166-45DD26C31019}'; RID_FacturasProveedor_Detalles = '{430708DE-0382-4AD6-9973-D44B84BCFB13}';
{ Data table names } { Data table names }
nme_DarReferencia = 'DarReferencia'; nme_DarReferencia = 'DarReferencia';
@ -56,7 +56,6 @@ const
fld_FacturasProveedorID_TIPO_IVA = 'ID_TIPO_IVA'; fld_FacturasProveedorID_TIPO_IVA = 'ID_TIPO_IVA';
fld_FacturasProveedorIMPORTE_NETO = 'IMPORTE_NETO'; fld_FacturasProveedorIMPORTE_NETO = 'IMPORTE_NETO';
fld_FacturasProveedorIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_FacturasProveedorIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_FacturasProveedorFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
{ FacturasProveedor field indexes } { FacturasProveedor field indexes }
idx_FacturasProveedorID = 0; idx_FacturasProveedorID = 0;
@ -90,7 +89,6 @@ const
idx_FacturasProveedorID_TIPO_IVA = 28; idx_FacturasProveedorID_TIPO_IVA = 28;
idx_FacturasProveedorIMPORTE_NETO = 29; idx_FacturasProveedorIMPORTE_NETO = 29;
idx_FacturasProveedorIMPORTE_PORTE = 30; idx_FacturasProveedorIMPORTE_PORTE = 30;
idx_FacturasProveedorFECHA_VENCIMIENTO = 31;
{ FacturasProveedor_Detalles fields } { FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID = 'ID'; fld_FacturasProveedor_DetallesID = 'ID';
@ -127,7 +125,7 @@ const
type type
{ IDarReferencia } { IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable) IDarReferencia = interface(IDAStronglyTypedDataTable)
['{90E7233B-3C93-46A1-950D-E9C49D940E70}'] ['{60AE026D-F31D-4387-9EDC-FC7A49B19194}']
{ Property getters and setters } { Property getters and setters }
function GetVALORValue: String; function GetVALORValue: String;
procedure SetVALORValue(const aValue: String); procedure SetVALORValue(const aValue: String);
@ -162,7 +160,7 @@ type
{ IFacturasProveedor } { IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable) IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{8FD69ADA-BBA8-4B9F-9900-6B58A1B0A6CB}'] ['{A5C77209-2C1B-4526-8C24-54CCFB5A6311}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -287,10 +285,6 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Currency); procedure SetIMPORTE_PORTEValue(const aValue: Currency);
function GetIMPORTE_PORTEIsNull: Boolean; function GetIMPORTE_PORTEIsNull: Boolean;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
function GetFECHA_VENCIMIENTOValue: DateTime;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
function GetFECHA_VENCIMIENTOIsNull: Boolean;
procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -356,8 +350,6 @@ type
property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
end; end;
{ TFacturasProveedorDataTableRules } { TFacturasProveedorDataTableRules }
@ -490,10 +482,6 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual; function GetIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -558,8 +546,6 @@ type
property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -569,7 +555,7 @@ type
{ IFacturasProveedor_Detalles } { IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{29A191D1-5840-4BB2-AFD4-0CBD28DA4AAE}'] ['{8C3B5CD4-29A7-4243-AD27-E53D419F0D26}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1464,27 +1450,6 @@ begin
DataTable.Fields[idx_FacturasProveedorIMPORTE_PORTE].AsVariant := Null; DataTable.Fields[idx_FacturasProveedorIMPORTE_PORTE].AsVariant := Null;
end; end;
function TFacturasProveedorDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
begin
result := DataTable.Fields[idx_FacturasProveedorFECHA_VENCIMIENTO].AsDateTime;
end;
procedure TFacturasProveedorDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
begin
DataTable.Fields[idx_FacturasProveedorFECHA_VENCIMIENTO].AsDateTime := aValue;
end;
function TFacturasProveedorDataTableRules.GetFECHA_VENCIMIENTOIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedorFECHA_VENCIMIENTO].IsNull;
end;
procedure TFacturasProveedorDataTableRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedorFECHA_VENCIMIENTO].AsVariant := Null;
end;
{ TFacturasProveedor_DetallesDataTableRules } { TFacturasProveedor_DetallesDataTableRules }
constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);

55
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
View File

@ -9,14 +9,14 @@ 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_DarReferenciaDelta = '{49261723-9F29-4180-961E-CF5DC3ECDF7B}'; RID_DarReferenciaDelta = '{63FA0002-1E1F-4066-B76C-877FD4BE86CD}';
RID_FacturasProveedorDelta = '{32A15ED5-3D19-4330-B634-0DE47FA6CEB5}'; RID_FacturasProveedorDelta = '{5C96E61B-5758-411C-B93D-8AC0229A8C40}';
RID_FacturasProveedor_DetallesDelta = '{2192D4C0-E42E-42BC-8B97-3CC0C62B7C41}'; RID_FacturasProveedor_DetallesDelta = '{514C8A59-C317-4816-AF2D-8168382A6DA9}';
type type
{ IDarReferenciaDelta } { IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia) IDarReferenciaDelta = interface(IDarReferencia)
['{49261723-9F29-4180-961E-CF5DC3ECDF7B}'] ['{63FA0002-1E1F-4066-B76C-877FD4BE86CD}']
{ Property getters and setters } { Property getters and setters }
function GetOldVALORValue : String; function GetOldVALORValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasProveedorDelta } { IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor) IFacturasProveedorDelta = interface(IFacturasProveedor)
['{32A15ED5-3D19-4330-B634-0DE47FA6CEB5}'] ['{5C96E61B-5758-411C-B93D-8AC0229A8C40}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -83,7 +83,6 @@ type
function GetOldID_TIPO_IVAValue : Integer; function GetOldID_TIPO_IVAValue : Integer;
function GetOldIMPORTE_NETOValue : Currency; function GetOldIMPORTE_NETOValue : Currency;
function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_PORTEValue : Currency;
function GetOldFECHA_VENCIMIENTOValue : DateTime;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -117,7 +116,6 @@ type
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
end; end;
{ TFacturasProveedorBusinessProcessorRules } { TFacturasProveedorBusinessProcessorRules }
@ -312,12 +310,6 @@ type
function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual;
function GetOldFECHA_VENCIMIENTOIsNull: Boolean; virtual;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -444,10 +436,6 @@ type
property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property FECHA_VENCIMIENTOIsNull : Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
property OldFECHA_VENCIMIENTOIsNull : Boolean read GetOldFECHA_VENCIMIENTOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -457,7 +445,7 @@ type
{ IFacturasProveedor_DetallesDelta } { IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{2192D4C0-E42E-42BC-8B97-3CC0C62B7C41}'] ['{514C8A59-C317-4816-AF2D-8168382A6DA9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -1673,37 +1661,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_PORTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_PORTE] := Null;
end; end;
function TFacturasProveedorBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_VENCIMIENTO];
end;
function TFacturasProveedorBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_VENCIMIENTO]);
end;
function TFacturasProveedorBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorFECHA_VENCIMIENTO];
end;
function TFacturasProveedorBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorFECHA_VENCIMIENTO]);
end;
procedure TFacturasProveedorBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_VENCIMIENTO] := aValue;
end;
procedure TFacturasProveedorBusinessProcessorRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_VENCIMIENTO] := Null;
end;
{ TFacturasProveedor_DetallesBusinessProcessorRules } { TFacturasProveedor_DetallesBusinessProcessorRules }
constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

6
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

@ -236,8 +236,8 @@ end;
procedure TBizFacturaProveedor.IniciarValoresFacturaNueva; procedure TBizFacturaProveedor.IniciarValoresFacturaNueva;
begin begin
ID_EMPRESA := dmUsuarios.IDEmpresaActual; ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual;
USUARIO := dmUsuarios.LoginInfo.Usuario; // USUARIO := dmUsuarios.LoginInfo.Usuario;
FECHA_FACTURA := DateOf(Now); FECHA_FACTURA := DateOf(Now);
ID_PROVEEDOR := ID_NULO; ID_PROVEEDOR := ID_NULO;
TIPO := CTE_TIPO_FACTURA; TIPO := CTE_TIPO_FACTURA;
@ -292,7 +292,7 @@ begin
PROVINCIA := FProveedor.PROVINCIA; PROVINCIA := FProveedor.PROVINCIA;
POBLACION := FProveedor.POBLACION; POBLACION := FProveedor.POBLACION;
ID_FORMA_PAGO := FProveedor.ID_FORMA_PAGO; ID_FORMA_PAGO := FProveedor.ID_FORMA_PAGO;
ID_TIPO_IVA := FProveedor.ID_TIPO_IVA; // ID_TIPO_IVA := FProveedor.ID_TIPO_IVA; //REPASAR DA UN PETE QUE TE CAGAS
// RECARGO_EQUIVALENCIA := FProveedor.RECARGO_EQUIVALENCIA; // RECARGO_EQUIVALENCIA := FProveedor.RECARGO_EQUIVALENCIA;
Post; Post;

12
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas
View File

@ -41,16 +41,16 @@ begin
case Sender.CurrentChange.ChangeType of case Sender.CurrentChange.ChangeType of
ctInsert, ctUpdate: begin ctInsert, ctUpdate: begin
//Si la referencia no ha sido asignada le asignamos una nosotros //Si la referencia no ha sido asignada le asignamos una nosotros
if (VarIsNull(aChange.Sender.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA])) if (VarIsNull(Sender.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA]))
or (VarToStr(aChange.Sender.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA]) = '') then or (VarToStr(Sender.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA]) = '') then
begin begin
ASchema := BusinessProcessor.Schema; ASchema := BusinessProcessor.Schema;
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
try try
//Siempre va a estar rellena //Siempre va a estar rellena
Empresa := aChange.Sender.CurrentChange.NewValueByName[fld_FacturasProveedorID_EMPRESA]; Empresa := Sender.CurrentChange.NewValueByName[fld_FacturasProveedorID_EMPRESA];
Tipo := aChange.Sender.CurrentChange.NewValueByName[fld_FacturasProveedorTIPO]; Tipo := Sender.CurrentChange.NewValueByName[fld_FacturasProveedorTIPO];
if Tipo = CTE_TIPO_FACTURA then if Tipo = CTE_TIPO_FACTURA then
dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_FACTURAS_PROVEEDOR, Empresa]) dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_FACTURAS_PROVEEDOR, Empresa])
@ -70,9 +70,9 @@ begin
try try
if Tipo = CTE_TIPO_FACTURA then if Tipo = CTE_TIPO_FACTURA then
ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_FACTURAS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]) ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'EMPRESA'], [REF_FACTURAS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa])
else else
ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_ABONOS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]); ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'EMPRESA'], [REF_ABONOS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]);
except except
RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla'); RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla');

11
Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.dpk
View File

@ -22,18 +22,9 @@ package FacturasProveedor_plugin;
{$WRITEABLECONST OFF} {$WRITEABLECONST OFF}
{$MINENUMSIZE 1} {$MINENUMSIZE 1}
{$IMAGEBASE $400000} {$IMAGEBASE $400000}
{$IMPLICITBUILD OFF} {$IMPLICITBUILD ON}
requires requires
rtl,
vcl,
PluginSDK_D10R,
PngComponentsD10,
PNG_D10,
vclactnband,
vclx,
Empresas_controller,
Familias_controller,
FacturasProveedor_view, FacturasProveedor_view,
FacturasProveedor_controller; FacturasProveedor_controller;

552
Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.dproj
View File

@ -36,81 +36,517 @@
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath> <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath> <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath> <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
<DCC_Define>DEBUG</DCC_Define>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<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 xmlns=""> <Delphi.Personality> <Parameters> <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><Excluded_Packages>
<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>
<Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages> </Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Source>
<Source Name="MainSource">FacturasProveedor_plugin.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<ItemGroup /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FacturasProveedor_plugin.dpk"> <DelphiCompile Include="FacturasProveedor_plugin.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Empresas_controller.dcp" /> <DCCReference Include="..\..\Lib\FacturasProveedor_controller.dcp" />
<DCCReference Include="..\FacturasProveedor_controller.dcp" /> <DCCReference Include="..\..\Lib\FacturasProveedor_view.dcp" />
<DCCReference Include="..\FacturasProveedor_view.dcp" />
<DCCReference Include="..\Familias_controller.dcp" />
<DCCReference Include="..\PluginSDK_D10R.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="uPluginFacturasProveedor.pas"> <DCCReference Include="uPluginFacturasProveedor.pas">
<Form>PluginFacturasProveedor</Form> <Form>PluginFacturasProveedor</Form>
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> </Project>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
TerminateBtn Operation=2
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=2
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soAppUpTime=1
soExcDate=1
soExcAddress=1
soExcModuleName=1
soExcModuleVersion=1
soExcType=1
soExcMessage=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soOSCharset=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoDoNotStoreProcNames=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error occurred"
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->

22
Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.res
View File

Binary file not shown.

135
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

@ -190,6 +190,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_PROVEEDOR_ID' GeneratorName = 'GEN_FACTURAS_PROVEEDOR_ID'
ServerAutoRefresh = True
DictionaryEntry = 'FacturasProveedor_ID' DictionaryEntry = 'FacturasProveedor_ID'
InPrimaryKey = True InPrimaryKey = True
end end
@ -353,12 +354,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE' DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE'
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
DictionaryEntry = 'FacturasProveedor_FECHA_VENCIMIENTO'
Calculated = True
end> end>
end end
item item
@ -447,6 +442,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_FACTURA_PROV_DETALLES_ID' GeneratorName = 'GEN_FACTURA_PROV_DETALLES_ID'
ServerAutoRefresh = True
DictionaryEntry = 'FacturasProveedor_Detalles_ID' DictionaryEntry = 'FacturasProveedor_Detalles_ID'
InPrimaryKey = True InPrimaryKey = True
end end
@ -552,9 +548,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Params = < Params = <
item item
Name = 'OLD_ID' Name = 'OLD_ID'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -570,77 +564,53 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_FACTURA_PROV_DETALLES_ID'
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'POSICION' Name = 'POSICION'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString
Size = 2000
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -662,9 +632,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Params = < Params = <
item item
Name = 'OLD_ID' Name = 'OLD_ID'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -682,77 +650,51 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Params = < Params = <
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'POSICION' Name = 'POSICION'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString
Size = 2000
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -775,186 +717,121 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_PROVEEDOR_ID'
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'RE' Name = 'RE'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_RE' Name = 'IMPORTE_RE'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 20
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'RECARGO_EQUIVALENCIA' Name = 'RECARGO_EQUIVALENCIA'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_TIPO_IVA' Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_NETO' Name = 'IMPORTE_NETO'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item

4
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas
View File

@ -43,7 +43,7 @@ implementation
uses uses
{Generated:} FactuGES_Invk, Dialogs, {Generated:} FactuGES_Invk, Dialogs,
uDataModuleServer, uDatabaseUtils, uUsersManager, schFacturasProveedorClient_Intf, uDataModuleServer, uDatabaseUtils, uUsersManager, schFacturasProveedorClient_Intf,
uRestriccionesUsuarioUtils; //uBizFacturasProveedorServer, uRestriccionesUsuarioUtils, uBizFacturasProveedorServer;
// uRptFacturasProveedor_Server; // uRptFacturasProveedor_Server;
procedure Create_srvFacturasProveedor(out anInstance : IUnknown); procedure Create_srvFacturasProveedor(out anInstance : IUnknown);
@ -70,7 +70,7 @@ end;
procedure TsrvFacturasProveedor.DARemoteServiceCreate(Sender: TObject); procedure TsrvFacturasProveedor.DARemoteServiceCreate(Sender: TObject);
begin begin
SessionManager := dmServer.SessionManager; SessionManager := dmServer.SessionManager;
// bpFacturasProveedor.BusinessRulesID := BIZ_SERVER_FACTURAS_PROVEEDOR; bpFacturasProveedor.BusinessRulesID := BIZ_SERVER_FACTURAS_PROVEEDOR;
end; end;
procedure TsrvFacturasProveedor.DataAbstractServiceBeforeAcquireConnection( procedure TsrvFacturasProveedor.DataAbstractServiceBeforeAcquireConnection(

64
Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk
View File

@ -22,71 +22,13 @@ package FacturasProveedor_view;
{$WRITEABLECONST OFF} {$WRITEABLECONST OFF}
{$MINENUMSIZE 1} {$MINENUMSIZE 1}
{$IMAGEBASE $400000} {$IMAGEBASE $400000}
{$IMPLICITBUILD OFF} {$IMPLICITBUILD ON}
requires requires
rtl,
FacturasProveedor_model,
FacturasProveedor_controller, FacturasProveedor_controller,
FacturasProveedor_data, FacturasProveedor_model,
vcl,
dbrtl,
vcldb,
cxLibraryD10,
dxThemeD10,
cxEditorsD10,
cxDataD10,
vcljpg,
cxGridD10,
cxPageControlD10,
cxExtEditorsD10,
vclx,
cxExportD10,
dxPSCoreD10,
dxComnD10,
dxPScxCommonD10,
dxPSLnksD10,
designide,
xmlrtl,
vclactnband,
vclshlctrls,
dxPScxGridLnkD10,
dclcxLibraryD10,
dsnap,
adortl,
GUIBase, GUIBase,
tbx_d10, Articulos_view;
tb2k_d10,
JvCoreD10R,
Jcl,
JclVcl,
JvSystemD10R,
JvStdCtrlsD10R,
JvPageCompsD10R,
PNG_D10,
Base,
DataAbstract_D10,
dxLayoutControlD10,
Contactos_view,
PngComponentsD10,
Articulos_view,
JvGlobusD10R,
VclSmp,
bdertl,
vclie,
frx10,
fs10,
fqb100,
frxe10,
frxTee10,
fsTee10,
tee,
teeui,
teedb,
PedidosProveedor_controller,
PedidosProveedor_model,
AlbaranesProveedor_model,
AlbProv_FacProv_relation;
contains contains
uFacturasProveedorViewRegister in 'uFacturasProveedorViewRegister.pas', uFacturasProveedorViewRegister in 'uFacturasProveedorViewRegister.pas',

594
Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
View File

@ -34,126 +34,28 @@
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath> <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath> <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath> <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
<DCC_Define>DEBUG</DCC_Define>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<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 xmlns=""> <Delphi.Personality> <Parameters> <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><Excluded_Packages>
<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>
<Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages> </Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Source>
<Source Name="MainSource">FacturasProveedor_view.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<ItemGroup /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FacturasProveedor_view.dpk"> <DelphiCompile Include="FacturasProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\AlbaranesProveedor_model.dcp" />
<DCCReference Include="..\AlbProv_FacProv_relation.dcp" />
<DCCReference Include="..\Articulos_view.dcp" /> <DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\bdertl.dcp" />
<DCCReference Include="..\Contactos_view.dcp" />
<DCCReference Include="..\cxDataD10.dcp" />
<DCCReference Include="..\cxEditorsD10.dcp" />
<DCCReference Include="..\cxExportD10.dcp" />
<DCCReference Include="..\cxExtEditorsD10.dcp" />
<DCCReference Include="..\cxGridD10.dcp" />
<DCCReference Include="..\cxLibraryD10.dcp" />
<DCCReference Include="..\cxPageControlD10.dcp" />
<DCCReference Include="..\DataAbstract_D10.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dclcxLibraryD10.dcp" />
<DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxComnD10.dcp" />
<DCCReference Include="..\dxLayoutControlD10.dcp" />
<DCCReference Include="..\dxPSCoreD10.dcp" />
<DCCReference Include="..\dxPScxCommonD10.dcp" />
<DCCReference Include="..\dxPScxGridLnkD10.dcp" />
<DCCReference Include="..\dxPSLnksD10.dcp" />
<DCCReference Include="..\dxThemeD10.dcp" />
<DCCReference Include="..\FacturasProveedor_controller.dcp" /> <DCCReference Include="..\FacturasProveedor_controller.dcp" />
<DCCReference Include="..\FacturasProveedor_data.dcp" />
<DCCReference Include="..\FacturasProveedor_model.dcp" /> <DCCReference Include="..\FacturasProveedor_model.dcp" />
<DCCReference Include="..\fqb100.dcp" />
<DCCReference Include="..\frx10.dcp" />
<DCCReference Include="..\frxe10.dcp" />
<DCCReference Include="..\frxTee10.dcp" />
<DCCReference Include="..\fs10.dcp" />
<DCCReference Include="..\fsTee10.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="..\JvCoreD10R.dcp" />
<DCCReference Include="..\JvGlobusD10R.dcp" />
<DCCReference Include="..\JvPageCompsD10R.dcp" />
<DCCReference Include="..\JvStdCtrlsD10R.dcp" />
<DCCReference Include="..\JvSystemD10R.dcp" />
<DCCReference Include="..\PedidosProveedor_controller.dcp" />
<DCCReference Include="..\PedidosProveedor_model.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\tb2k_d10.dcp" />
<DCCReference Include="..\tbx_d10.dcp" />
<DCCReference Include="..\tee.dcp" />
<DCCReference Include="..\teedb.dcp" />
<DCCReference Include="..\teeui.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vclie.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\vclshlctrls.dcp" />
<DCCReference Include="..\VclSmp.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas"> <DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas">
<Form>fEditorElegirArticulosFacturaProveedor</Form> <Form>fEditorElegirArticulosFacturaProveedor</Form>
<DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass> <DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass>
@ -188,5 +90,487 @@
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> </Project>
</Project> <!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
TerminateBtn Operation=2
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=2
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soAppUpTime=1
soExcDate=1
soExcAddress=1
soExcModuleName=1
soExcModuleVersion=1
soExcType=1
soExcMessage=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soOSCharset=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoDoNotStoreProcNames=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error occurred"
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->

22
Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.res
View File

Binary file not shown.

59
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -7,7 +7,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Position = poScreenCenter Position = poScreenCenter
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 796 ExplicitWidth = 796
ExplicitHeight = 607 ExplicitHeight = 600
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -71,7 +71,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 788 Width = 788
Height = 315 Height = 315
ActivePage = pagContenido
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 788 ExplicitWidth = 788
ExplicitHeight = 315 ExplicitHeight = 315
@ -123,6 +122,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Left = 234 Left = 234
ExplicitLeft = 234 ExplicitLeft = 234
end end
inherited eReferenciaProveedor: TcxDBTextEdit
ExplicitWidth = 158
Width = 158
end
inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
Left = 394 Left = 394
Width = 350 Width = 350
@ -198,54 +201,56 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 334 Left = 334
Top = 2 Top = 0
Wrap = True Wrap = True
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 2 ExplicitTop = 0
end end
inherited FontSize: TEdit [5] inherited FontName: TJvFontComboBox
Left = 0 Left = 0
ExplicitLeft = 0 ExplicitLeft = 0
end end
inherited UpDown1: TUpDown [6] inherited FontSize: TEdit
Left = 42 Left = 145
ExplicitLeft = 42 Width = 57
ExplicitLeft = 145
ExplicitWidth = 57
end end
inherited FontName: TJvFontComboBox [7] inherited UpDown1: TUpDown
Left = 59 Left = 202
ExplicitLeft = 59 ExplicitLeft = 202
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 204 Left = 219
ExplicitLeft = 204 ExplicitLeft = 219
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 212 Left = 227
ExplicitLeft = 212 ExplicitLeft = 227
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 246 Left = 261
ExplicitLeft = 246 ExplicitLeft = 261
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 280 Left = 295
ExplicitLeft = 280 ExplicitLeft = 295
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 314 Left = 329
ExplicitLeft = 314 ExplicitLeft = 329
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 322 Left = 337
ExplicitLeft = 322 ExplicitLeft = 337
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 356 Left = 371
ExplicitLeft = 356 ExplicitLeft = 371
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 390 Left = 405
ExplicitLeft = 390 ExplicitLeft = 405
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid

10
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
View File

@ -13,7 +13,7 @@ uses
uBizFacturasProveedor, uIEditorFacturaProveedor, uFacturasProveedorController, uViewDetallesBase, uBizFacturasProveedor, uIEditorFacturaProveedor, uFacturasProveedorController, uViewDetallesBase,
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar,
uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController,
uViewDetallesFacturaProveedor, uViewFacturaProveedor; uViewDetallesFacturaProveedor, uViewFacturaProveedor, uDAInterfaces;
type type
@ -75,8 +75,8 @@ implementation
uses uses
cxDBEdit, uBizContactos, uDataModuleUsuarios, cxControls, uBizTiposIVA, cxDBEdit, uBizContactos, uDataModuleUsuarios, cxControls, uBizTiposIVA,
uDetallesFacturaProveedorController, uDialogUtils, uDataTableUtils, uDetallesFacturaProveedorController, uDialogUtils, uDataTableUtils;
uGenerarAlbaranesProvFacProvUtils; // uGenerarAlbaranesProvFacProvUtils;
{ TfEditorFacturaProveedor } { TfEditorFacturaProveedor }
@ -256,7 +256,7 @@ begin
ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA); ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA);
//Preguntamos is desea hacer una orden de devolución asociada //Preguntamos is desea hacer una orden de devolución asociada
if (Application.MessageBox('¿Desea crear una orden de devolución para el abono?', 'Atención', MB_YESNO) = IDYES) then if (Application.MessageBox('¿Desea crear una orden de devolución para el abono?', 'Atención', MB_YESNO) = IDYES) then
GenerarAlbaranProv(FFactura); // GenerarAlbaranProv(FFactura);
end; end;
end; end;
Modified := False; Modified := False;
@ -340,7 +340,7 @@ begin
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')'; Self.Caption := FTitulo + ' ('; // + dmUsuarios.EmpresaActual.NOMBRE + ')';
end; end;
procedure TfEditorFacturaProveedor.PrevisualizarInterno; procedure TfEditorFacturaProveedor.PrevisualizarInterno;

8
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas
View File

@ -65,7 +65,9 @@ uses
uDataModuleFacturasProveedor, uDataModuleUsuarios, uDataModuleFacturasProveedor, uDataModuleUsuarios,
uGridUtils, uDBSelectionListUtils, uGridUtils, uDBSelectionListUtils,
uAlbaranesProveedorController, uBizAlbaranesProveedor, uAlbaranesProveedorController, uBizAlbaranesProveedor,
uEditorBase, uGenerarFacturasProvAlbProvUtils; uEditorBase;
// , uGenerarFacturasProvAlbProvUtils;
{$R *.dfm} {$R *.dfm}
@ -305,7 +307,7 @@ begin
end;} end;}
end; end;
200 : begin // Utilizar albaranes 200 : begin // Utilizar albaranes
GenerarFacturaProv; // GenerarFacturaProv;
actRefrescar.Execute; actRefrescar.Execute;
end; end;
100 : begin // Factura nuevo vacio 100 : begin // Factura nuevo vacio
@ -320,7 +322,7 @@ procedure TfEditorFacturasProveedor.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
begin begin
FTitulo := 'Lista de facturas de proveedor - ' + dmUsuarios.EmpresaActual.NOMBRE; FTitulo := 'Lista de facturas de proveedor - '; // + dmUsuarios.EmpresaActual.NOMBRE;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
end; end;

4
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedorReport.pas
View File

@ -4,9 +4,7 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl, frxClass, Dialogs, uEditorPreview, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE,
frxBarcode, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorFacturasProveedorPreview, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorFacturasProveedorPreview,

3
Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.pas
View File

@ -11,7 +11,8 @@ uses
cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox, cxCurrencyEdit, cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox, cxCurrencyEdit,
Grids, DBGrids, StdCtrls, ExtCtrls, cxRichEdit, StdActns, ExtActns, Grids, DBGrids, StdCtrls, ExtCtrls, cxRichEdit, StdActns, ExtActns,
JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, TBX, TB2Dock, TB2Toolbar, JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, TBX, TB2Dock, TB2Toolbar,
uControllerDetallesArticulos, uViewDetallesArticulos, uBizFacturasProveedor; uControllerDetallesArticulos, uViewDetallesArticulos, uBizFacturasProveedor,
uDAInterfaces;
type type
IViewDetallesFacturaProveedor = interface(IViewDetallesArticulos) IViewDetallesFacturaProveedor = interface(IViewDetallesArticulos)

113
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaProveedor: TfrViewFacturaProveedor inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 668 Width = 743
Height = 304 Height = 303
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,17 +9,18 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 668 Width = 743
Height = 304 Height = 303
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
668 743
304) 303)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 136 Left = 136
Top = 30 Top = 30
@ -112,7 +113,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 78 Width = 78
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 179 Left = 216
Top = 111 Top = 111
Width = 132 Width = 132
Height = 23 Height = 23
@ -120,62 +121,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
TabOrder = 4 TabOrder = 4
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
Left = 339
Top = 30
Width = 350
Height = 202
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 6
ReadOnly = False
ExplicitLeft = 339
ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = DADataSource
end
inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 215
DataBinding.DataSource = DADataSource
ExplicitLeft = 215
end
inherited Button1: TBitBtn
OnClick = frViewProveedorFacturaButton1Click
end
inherited Button2: TBitBtn
OnClick = frViewProveedorFacturaButton2Click
end
inherited Button3: TBitBtn
Left = 99
ExplicitLeft = 99
end
end
end
object eReferenciaProveedor: TcxDBTextEdit object eReferenciaProveedor: TcxDBTextEdit
Left = 136 Left = 136
Top = 57 Top = 57
@ -196,6 +141,48 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
TabOrder = 1 TabOrder = 1
Width = 158 Width = 158
end end
inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
Left = 376
Top = 30
Width = 350
Height = 202
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 6
ReadOnly = False
ExplicitLeft = 376
ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 253
ExplicitLeft = 253
end
inherited Button3: TBitBtn
Left = 137
ExplicitLeft = 137
end
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True

19
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
View File

@ -9,7 +9,8 @@ uses
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, dxLayoutControl, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, dxLayoutControl,
cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxSpinEdit, StdCtrls, Mask, cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxSpinEdit, StdCtrls, Mask,
DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, uFormasPagoController, uViewDatosYSeleccionProveedor; cxDBLookupComboBox, uFormasPagoController, uViewDatosYSeleccionProveedor,
uDAInterfaces, uBizFormasPago;
type type
IViewFacturaProveedor = interface(IViewBase) IViewFacturaProveedor = interface(IViewBase)
@ -41,10 +42,10 @@ type
bFormasPago: TButton; bFormasPago: TButton;
dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Group6: TdxLayoutGroup; dxLayoutControl1Group6: TdxLayoutGroup;
dxLayoutControl1Item3: TdxLayoutItem;
frViewProveedorFactura: TfrViewDatosYSeleccionProveedor;
dxLayoutControl1Item6: TdxLayoutItem; dxLayoutControl1Item6: TdxLayoutItem;
eReferenciaProveedor: TcxDBTextEdit; eReferenciaProveedor: TcxDBTextEdit;
dxLayoutControl1Item3: TdxLayoutItem;
frViewProveedorFactura: TfrViewDatosYSeleccionProveedor;
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
@ -52,6 +53,7 @@ type
procedure frViewProveedorFacturaButton2Click(Sender: TObject); procedure frViewProveedorFacturaButton2Click(Sender: TObject);
protected protected
FFactura : IBizFacturaProveedor; FFactura : IBizFacturaProveedor;
FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController; FFormasPagoController : IFormasPagoController;
function GetFactura: IBizFacturaProveedor; function GetFactura: IBizFacturaProveedor;
procedure SetFactura(const Value: IBizFacturaProveedor); procedure SetFactura(const Value: IBizFacturaProveedor);
@ -63,8 +65,7 @@ type
implementation implementation
uses uses
uDataModuleContactos, schFacturasProveedorClient_Intf, uDataModuleContactos, schFacturasProveedorClient_Intf;
uBizFormasPago;
{$R *.dfm} {$R *.dfm}
@ -73,12 +74,14 @@ uses
procedure TfrViewFacturaProveedor.bFormasPagoClick(Sender: TObject); procedure TfrViewFacturaProveedor.bFormasPagoClick(Sender: TObject);
begin begin
inherited; inherited;
FFormasPagoController.VerTodos((dsFormaPago.DataTable) as IBizFormaPago); if Assigned(FFormasPago) then
FFormasPagoController.VerTodos(FFormasPago);
end; end;
procedure TfrViewFacturaProveedor.CustomViewCreate(Sender: TObject); procedure TfrViewFacturaProveedor.CustomViewCreate(Sender: TObject);
begin begin
inherited; inherited;
FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create; FFormasPagoController := TFormasPagoController.Create;
frViewProveedorFactura.MsgElegirProveedor := 'Elija el proveedor al que se le realizará la factura.'; frViewProveedorFactura.MsgElegirProveedor := 'Elija el proveedor al que se le realizará la factura.';
end; end;
@ -86,6 +89,7 @@ end;
procedure TfrViewFacturaProveedor.CustomViewDestroy(Sender: TObject); procedure TfrViewFacturaProveedor.CustomViewDestroy(Sender: TObject);
begin begin
inherited; inherited;
FFormasPago := Nil;
FFormasPagoController := NIL; FFormasPagoController := NIL;
end; end;
@ -124,7 +128,8 @@ begin
begin begin
DADataSource.DataTable := FFactura.DataTable; DADataSource.DataTable := FFactura.DataTable;
dsFormaPago.DataTable := FFormasPagoController.BuscarTodos.DataTable; FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True; dsFormaPago.DataTable.Active := True;
//Solo se deshabilita al insertar, luego la referencia será modificable //Solo se deshabilita al insertar, luego la referencia será modificable

4
Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
View File

@ -38,7 +38,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 310 Width = 310
Height = 215 Height = 215
Align = alClient Align = alClient
ExplicitWidth = 343 ExplicitWidth = 310
ExplicitHeight = 215 ExplicitHeight = 215
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 185 ExplicitWidth = 185
@ -194,7 +194,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 445 Width = 445
Height = 166 Height = 166
ExplicitWidth = 287 ExplicitWidth = 445
ExplicitHeight = 166 ExplicitHeight = 166
inherited rdxDestino1: TRadioButton inherited rdxDestino1: TRadioButton
Width = 255 Width = 255

18
Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas
View File

@ -12,7 +12,7 @@ uses
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo, cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
uViewDireccionEntregaPedidoProv, cxLookupEdit, cxDBLookupEdit, uViewDireccionEntregaPedidoProv, cxLookupEdit, cxDBLookupEdit,
// uBizPedidosCliente, uPedidosClienteController, // uBizPedidosCliente, uPedidosClienteController,
cxDBLookupComboBox, uFormasPagoController, ActnList, uDAInterfaces; cxDBLookupComboBox, uFormasPagoController, ActnList, uDAInterfaces, uBizFormasPago;
type type
IViewPedidoProveedor = interface(IViewBase) IViewPedidoProveedor = interface(IViewBase)
@ -77,10 +77,11 @@ type
protected protected
FPedido : IBizPedidoProveedor; FPedido : IBizPedidoProveedor;
FViewProveedorPedido : TfrViewDatosYSeleccionProveedor; FViewProveedorPedido : TfrViewDatosYSeleccionProveedor;
FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController; FFormasPagoController : IFormasPagoController;
// FPedidoCliAsociado : IBizPedidoCliente; // FPedidoCliAsociado : IBizPedidoCliente;
// FPedidoCliController : IPedidosClienteController; // FPedidoCliController : IPedidosClienteController;
function GetPedido: IBizPedidoProveedor; function GetPedido: IBizPedidoProveedor;
procedure SetPedido(const Value: IBizPedidoProveedor); virtual; procedure SetPedido(const Value: IBizPedidoProveedor); virtual;
function GetViewProveedorPedido: TfrViewDatosYSeleccionProveedor; function GetViewProveedorPedido: TfrViewDatosYSeleccionProveedor;
@ -97,10 +98,6 @@ implementation
{ TfrViewPedidoProveedor } { TfrViewPedidoProveedor }
uses
uBizFormasPago;
procedure TfrViewPedidoProveedor.actVerPedidoCliExecute(Sender: TObject); procedure TfrViewPedidoProveedor.actVerPedidoCliExecute(Sender: TObject);
begin begin
inherited; inherited;
@ -117,12 +114,14 @@ end;
procedure TfrViewPedidoProveedor.bFormasPagoClick(Sender: TObject); procedure TfrViewPedidoProveedor.bFormasPagoClick(Sender: TObject);
begin begin
inherited; inherited;
FFormasPagoController.VerTodos((dsFormaPago.DataTable) as IBizFormaPago); if Assigned(FFormasPago) then
FFormasPagoController.VerTodos(FFormasPago);
end; end;
procedure TfrViewPedidoProveedor.CustomViewCreate(Sender: TObject); procedure TfrViewPedidoProveedor.CustomViewCreate(Sender: TObject);
begin begin
inherited; inherited;
FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create; FFormasPagoController := TFormasPagoController.Create;
FViewProveedorPedido := frViewProveedorPedido; FViewProveedorPedido := frViewProveedorPedido;
FViewProveedorPedido.MsgElegirProveedor := 'Elija el proveedor al que se le realizará el pedido.'; FViewProveedorPedido.MsgElegirProveedor := 'Elija el proveedor al que se le realizará el pedido.';
@ -135,6 +134,7 @@ end;
procedure TfrViewPedidoProveedor.CustomViewDestroy(Sender: TObject); procedure TfrViewPedidoProveedor.CustomViewDestroy(Sender: TObject);
begin begin
FViewProveedorPedido := Nil; FViewProveedorPedido := Nil;
FFormasPago := Nil;
FFormasPagoController := NIL; FFormasPagoController := NIL;
inherited; inherited;
end; end;
@ -178,7 +178,9 @@ begin
if Assigned(FPedido) then if Assigned(FPedido) then
begin begin
DADataSource.DataTable := FPedido.DataTable; DADataSource.DataTable := FPedido.DataTable;
dsFormaPago.DataTable := FFormasPagoController.BuscarTodos.DataTable;
FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True; dsFormaPago.DataTable.Active := True;
// FPedidoCliAsociado := NIL; // FPedidoCliAsociado := NIL;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

7
Source/Servidor/FactuGES_Server.dpr
View File

@ -73,8 +73,6 @@ uses
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
uBizFacturasClienteServer in '..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas', uBizFacturasClienteServer in '..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas',
srvFacturasProveedor_Impl in '..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas' {srvFacturasProveedor: TDataAbstractService}, srvFacturasProveedor_Impl in '..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas' {srvFacturasProveedor: TDataAbstractService},
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
srvAlbaranesProveedor_Impl in '..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas' {srvAlbaranesProveedor: TDataAbstractService}, srvAlbaranesProveedor_Impl in '..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas' {srvAlbaranesProveedor: TDataAbstractService},
srvPedidosProveedor_Impl in '..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas' {srvPedidosProveedor: TDataAbstractService}, srvPedidosProveedor_Impl in '..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas' {srvPedidosProveedor: TDataAbstractService},
uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas', uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas',
@ -82,7 +80,10 @@ uses
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas', schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS'; uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS',
uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

1
Source/Servidor/FactuGES_Server.dproj
View File

@ -89,6 +89,7 @@
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form> <Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "3.0.0.0\0" VALUE "FileVersion", "3.0.0.0\0"
VALUE "ProductVersion", "3.0.0.0\0" VALUE "ProductVersion", "3.0.0.0\0"
VALUE "CompileDate", "sábado, 17 de noviembre de 2007 14:10\0" VALUE "CompileDate", "sábado, 17 de noviembre de 2007 18:30\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"