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

Añadimos campo nombre_comercial a proveedores y clientes, asi como nif_cif en las direcciones para así poder usarlas para facturación, se modifica las facturas de proveedor y cliente para que soporte elegir una dirección para facturar se guarde y se vea tanto el proveedor como la razon social de la factura

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@189 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-04-08 19:12:47 +00:00
parent 2538756931
commit 6b422218ea
73 changed files with 2791 additions and 1510 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Database/scripts/factuges.sql
View File

@ -891,6 +891,7 @@ CREATE TABLE FACTURAS_PROVEEDOR (
REFERENCIA VARCHAR(255), REFERENCIA VARCHAR(255),
REFERENCIA_PROVEEDOR VARCHAR(255), REFERENCIA_PROVEEDOR VARCHAR(255),
FECHA_FACTURA DATE, FECHA_FACTURA DATE,
FECHA_VENCIMIENTO DATE,
BASE_IMPONIBLE TIPO_IMPORTE, BASE_IMPONIBLE TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE, DESCUENTO TIPO_PORCENTAJE,
IMPORTE_DESCUENTO TIPO_IMPORTE, IMPORTE_DESCUENTO TIPO_IMPORTE,
@ -1194,7 +1195,8 @@ CREATE TABLE PROVEEDORES_DATOS (
CERTIFICACION VARCHAR(255), CERTIFICACION VARCHAR(255),
HOMOLOGADO SMALLINT, HOMOLOGADO SMALLINT,
IGNORAR_CONTABILIDAD TIPO_ID, IGNORAR_CONTABILIDAD TIPO_ID,
TIENE_SUBCUENTA TIPO_ID TIENE_SUBCUENTA TIPO_ID,
NOMBRE_COMERCIAL VARCHAR(255)
); );
CREATE TABLE PROVEEDORES_GRUPOS ( CREATE TABLE PROVEEDORES_GRUPOS (
@ -2228,6 +2230,8 @@ CREATE VIEW V_FACTURAS_CLIENTE(
IMPORTE_TOTAL, IMPORTE_TOTAL,
OBSERVACIONES, OBSERVACIONES,
ID_CLIENTE, ID_CLIENTE,
NOMBRE_CLIENTE,
NOMBRE_COMERCIAL_CLIENTE,
NIF_CIF, NIF_CIF,
NOMBRE, NOMBRE,
CALLE, CALLE,
@ -2267,6 +2271,8 @@ SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.IMPORTE_TOTAL, FACTURAS_CLIENTE.IMPORTE_TOTAL,
FACTURAS_CLIENTE.OBSERVACIONES, FACTURAS_CLIENTE.OBSERVACIONES,
FACTURAS_CLIENTE.ID_CLIENTE, FACTURAS_CLIENTE.ID_CLIENTE,
V_CLIENTES.NOMBRE,
V_CLIENTES.NOMBRE_COMERCIAL,
FACTURAS_CLIENTE.NIF_CIF, FACTURAS_CLIENTE.NIF_CIF,
FACTURAS_CLIENTE.NOMBRE, FACTURAS_CLIENTE.NOMBRE,
FACTURAS_CLIENTE.CALLE, FACTURAS_CLIENTE.CALLE,
@ -2294,6 +2300,8 @@ SELECT FACTURAS_CLIENTE.ID,
ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA) ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
LEFT JOIN COMISIONES_LIQUIDADAS LEFT JOIN COMISIONES_LIQUIDADAS
ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA) ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA)
LEFT JOIN V_CLIENTES
ON (V_CLIENTES.ID = FACTURAS_CLIENTE.ID_CLIENTE)
LEFT JOIN CLIENTES_DATOS LEFT JOIN CLIENTES_DATOS
ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE) ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE)
LEFT JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = FACTURAS_CLIENTE.ID_TIENDA) LEFT JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = FACTURAS_CLIENTE.ID_TIENDA)
@ -2310,6 +2318,7 @@ CREATE VIEW V_FACTURAS_PROVEEDOR(
TIPO, TIPO,
REFERENCIA_PROVEEDOR, REFERENCIA_PROVEEDOR,
FECHA_FACTURA, FECHA_FACTURA,
FECHA_VENCIMIENTO,
SITUACION, SITUACION,
BASE_IMPONIBLE, BASE_IMPONIBLE,
DESCUENTO, DESCUENTO,
@ -2321,6 +2330,8 @@ CREATE VIEW V_FACTURAS_PROVEEDOR(
IMPORTE_TOTAL, IMPORTE_TOTAL,
OBSERVACIONES, OBSERVACIONES,
ID_PROVEEDOR, ID_PROVEEDOR,
NOMBRE_PROVEEDOR,
NOMBRE_COMERCIAL_PROVEEDOR,
NIF_CIF, NIF_CIF,
NOMBRE, NOMBRE,
CALLE, CALLE,
@ -2347,6 +2358,7 @@ SELECT FACTURAS_PROVEEDOR.ID,
CASE WHEN (FACTURAS_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO, CASE WHEN (FACTURAS_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO,
FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR,
FACTURAS_PROVEEDOR.FECHA_FACTURA, FACTURAS_PROVEEDOR.FECHA_FACTURA,
FACTURAS_PROVEEDOR.FECHA_VENCIMIENTO,
TRIM(V_FAC_PRO_SITUACION.SITUACION), TRIM(V_FAC_PRO_SITUACION.SITUACION),
FACTURAS_PROVEEDOR.BASE_IMPONIBLE, FACTURAS_PROVEEDOR.BASE_IMPONIBLE,
FACTURAS_PROVEEDOR.DESCUENTO, FACTURAS_PROVEEDOR.DESCUENTO,
@ -2358,6 +2370,8 @@ SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.IMPORTE_TOTAL, FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
FACTURAS_PROVEEDOR.OBSERVACIONES, FACTURAS_PROVEEDOR.OBSERVACIONES,
FACTURAS_PROVEEDOR.ID_PROVEEDOR, FACTURAS_PROVEEDOR.ID_PROVEEDOR,
V_PROVEEDORES.NOMBRE,
V_PROVEEDORES.NOMBRE_COMERCIAL,
FACTURAS_PROVEEDOR.NIF_CIF, FACTURAS_PROVEEDOR.NIF_CIF,
FACTURAS_PROVEEDOR.NOMBRE, FACTURAS_PROVEEDOR.NOMBRE,
FACTURAS_PROVEEDOR.CALLE, FACTURAS_PROVEEDOR.CALLE,
@ -2381,6 +2395,8 @@ SELECT FACTURAS_PROVEEDOR.ID,
FROM V_FAC_PRO_SITUACION FROM V_FAC_PRO_SITUACION
LEFT JOIN FACTURAS_PROVEEDOR LEFT JOIN FACTURAS_PROVEEDOR
ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA) ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA)
LEFT JOIN V_PROVEEDORES
ON (V_PROVEEDORES.ID = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
LEFT JOIN PROVEEDORES_DATOS LEFT JOIN PROVEEDORES_DATOS
ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR) ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
LEFT JOIN EMPRESAS_TIENDAS LEFT JOIN EMPRESAS_TIENDAS
@ -3018,8 +3034,6 @@ FROM V_PED_PROV_ARTICULOS
GROUP BY V_PED_PROV_ARTICULOS.ID_PEDIDO GROUP BY V_PED_PROV_ARTICULOS.ID_PEDIDO
; ;
/* View: V_PROVEEDORES */ /* View: V_PROVEEDORES */
CREATE VIEW V_PROVEEDORES( CREATE VIEW V_PROVEEDORES(
ID, ID,
@ -3058,7 +3072,8 @@ CREATE VIEW V_PROVEEDORES(
HOMOLOGADO, HOMOLOGADO,
CERTIFICACION, CERTIFICACION,
IGNORAR_CONTABILIDAD, IGNORAR_CONTABILIDAD,
TIENE_SUBCUENTA) TIENE_SUBCUENTA,
NOMBRE_COMERCIAL)
AS AS
SELECT SELECT
V_CONTACTOS.ID, V_CONTACTOS.ID,
@ -3097,7 +3112,8 @@ SELECT
PROVEEDORES_DATOS.HOMOLOGADO, PROVEEDORES_DATOS.HOMOLOGADO,
PROVEEDORES_DATOS.CERTIFICACION, PROVEEDORES_DATOS.CERTIFICACION,
PROVEEDORES_DATOS.IGNORAR_CONTABILIDAD, PROVEEDORES_DATOS.IGNORAR_CONTABILIDAD,
PROVEEDORES_DATOS.TIENE_SUBCUENTA PROVEEDORES_DATOS.TIENE_SUBCUENTA,
PROVEEDORES_DATOS.NOMBRE_COMERCIAL
FROM FROM
PROVEEDORES_DATOS PROVEEDORES_DATOS
INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID) INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID)

82
Source/Base/Base.dproj
View File

@ -58,47 +58,47 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\adortl.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxIntl6D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxIntlPrintSys3D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\designide.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\designide.dcp" />
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contactos\Jcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contactos\PluginSDK_D10R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\vclx.dcp" />
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\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>

46
Source/Modulos/Albaranes de proveedor/AlbaranesProveedor_Group.groupproj
View File

@ -10,7 +10,11 @@
<Projects Include="..\..\GUIBase\GUIBase.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="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
<Projects Include="Controller\AlbaranesProveedor_controller.dproj" /> <Projects Include="Controller\AlbaranesProveedor_controller.dproj" />
<Projects Include="Data\AlbaranesProveedor_data.dproj" /> <Projects Include="Data\AlbaranesProveedor_data.dproj" />
<Projects Include="Model\AlbaranesProveedor_model.dproj" /> <Projects Include="Model\AlbaranesProveedor_model.dproj" />
@ -131,14 +135,50 @@
<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="FacturasProveedor_view">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_view:Clean">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_view:Make">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_view">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
</Target>
<Target Name="Contabilidad_view:Clean">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contabilidad_view:Make">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_controller">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
</Target>
<Target Name="Contactos_controller:Clean">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_controller:Make">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_controller">
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_controller:Clean">
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_controller:Make">
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;AlbaranesProveedor_model;AlbaranesProveedor_data;AlbaranesProveedor_controller;AlbaranesProveedor_view;AlbaranesProveedor_plugin;FactuGES;FactuGES_Server" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;AlbaranesProveedor_model;AlbaranesProveedor_data;AlbaranesProveedor_controller;AlbaranesProveedor_view;AlbaranesProveedor_plugin;FactuGES;FactuGES_Server;FacturasProveedor_view;Contabilidad_view;Contactos_controller;FacturasProveedor_controller" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;AlbaranesProveedor_model:Clean;AlbaranesProveedor_data:Clean;AlbaranesProveedor_controller:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;AlbaranesProveedor_model:Clean;AlbaranesProveedor_data:Clean;AlbaranesProveedor_controller:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasProveedor_view:Clean;Contabilidad_view:Clean;Contactos_controller:Clean;FacturasProveedor_controller:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;AlbaranesProveedor_model:Make;AlbaranesProveedor_data:Make;AlbaranesProveedor_controller:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;AlbaranesProveedor_model:Make;AlbaranesProveedor_data:Make;AlbaranesProveedor_controller:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasProveedor_view:Make;Contabilidad_view:Make;Contactos_controller:Make;FacturasProveedor_controller:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

3
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -108,8 +108,7 @@ type
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor); procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor);
procedure VerDireccionEntrega(AAlbaran : IBizAlbaranProveedor); procedure VerDireccionEntrega(AAlbaran : IBizAlbaranProveedor);
function Duplicar(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor; function Duplicar(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor;
procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto; procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto; AAlbaran: IBizAlbaranProveedor);
AAlbaran: IBizAlbaranProveedor);
procedure QuitarDireccionEnvio(AAlbaran: IBizAlbaranProveedor); procedure QuitarDireccionEnvio(AAlbaran: IBizAlbaranProveedor);
function ExtraerSeleccionados(AAlbaran: IBizAlbaranProveedor) : IBizAlbaranProveedor; function ExtraerSeleccionados(AAlbaran: IBizAlbaranProveedor) : IBizAlbaranProveedor;

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

@ -352,6 +352,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
ExplicitHeight = 32 ExplicitHeight = 32
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 366 Width = 366
ExplicitWidth = 366
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
ExplicitWidth = 376 ExplicitWidth = 376
Width = 376 Width = 376

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

@ -138,7 +138,7 @@ begin
AProveedoresController := NIL; AProveedoresController := NIL;
AAlbaranController := NIL; AAlbaranController := NIL;
end; end;
} }
end; end;
procedure TfrViewAlbaranProveedor.actElegirDireccionUpdate(Sender: TObject); procedure TfrViewAlbaranProveedor.actElegirDireccionUpdate(Sender: TObject);

2
Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm
View File

@ -505,7 +505,7 @@ object srvContabilidad: TsrvContabilidad
'Integer))'#10'from cont_subcuentas'#10'left join cont_cuentas on cont_cu' + 'Integer))'#10'from cont_subcuentas'#10'left join cont_cuentas on cont_cu' +
'entas.id = cont_subcuentas.id_cuenta'#10'where cont_subcuentas.id_ej' + 'entas.id = cont_subcuentas.id_cuenta'#10'where cont_subcuentas.id_ej' +
'ercicio = :ID_EJERCICIO'#10'and cont_cuentas.ref_cuenta = :REF_CUENT' + 'ercicio = :ID_EJERCICIO'#10'and cont_cuentas.ref_cuenta = :REF_CUENT' +
'A'#10'and substr(cont_subcuentas.ref_subcuenta, 4, 5) = :REF_TIENDA'#10 'A'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item

15
Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.pas
View File

@ -160,17 +160,8 @@ begin
try try
try try
dsData := schContabilidad.NewDataset(AConn, 'DarCodigoContableTienda', ['ID_EMPRESA', 'ID_TIENDA'], [ID_EMPRESA, ID_TIENDA]);
dsData.Active := True;
if VarIsNull(dsData.FieldValues[0]) then
NumTienda := 0
else
NumTienda := dsData.FieldValues[0];
RefTienda := format('%.2d', [NumTienda]);
dsData := NIL; dsData := NIL;
dsData := schContabilidad.NewDataset(AConn, 'DarMaxRefSubCuenta', ['ID_EJERCICIO', 'REF_CUENTA', 'REF_TIENDA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES, RefTienda]); dsData := schContabilidad.NewDataset(AConn, 'DarMaxRefSubCuenta', ['ID_EJERCICIO', 'REF_CUENTA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES]);
dsData.Active := True; dsData.Active := True;
if VarIsNull(dsData.FieldValues[0]) then if VarIsNull(dsData.FieldValues[0]) then
@ -178,8 +169,8 @@ begin
else else
NumCuenta := dsData.FieldValues[0]; NumCuenta := dsData.FieldValues[0];
Inc(NumCuenta); Inc(NumCuenta);
RefSubCuenta := format('%.5d', [NumCuenta]); RefSubCuenta := format('%.7d', [NumCuenta]);
RefSubCuenta := IntToStr(REFERENCIA_PROVEEDORES) + RefTienda + RefSubCuenta; RefSubCuenta := IntToStr(REFERENCIA_PROVEEDORES) + RefSubCuenta;
dsData := NIL; dsData := NIL;
dsData := schContabilidad.NewDataset(AConn, 'DarIDCuenta', ['ID_EJERCICIO', 'REFERENCIA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES]); dsData := schContabilidad.NewDataset(AConn, 'DarIDCuenta', ['ID_EJERCICIO', 'REFERENCIA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES]);

2
Source/Modulos/Contactos/Controller/Contactos_controller.dpk
View File

@ -61,7 +61,7 @@ contains
uIEditorElegirContactos in 'View\uIEditorElegirContactos.pas', uIEditorElegirContactos in 'View\uIEditorElegirContactos.pas',
uIEditorDireccionContacto in 'View\uIEditorDireccionContacto.pas', uIEditorDireccionContacto in 'View\uIEditorDireccionContacto.pas',
uDireccionesContactoController in 'uDireccionesContactoController.pas', uDireccionesContactoController in 'uDireccionesContactoController.pas',
uIEditorElegirDireccionEntrega in 'View\uIEditorElegirDireccionEntrega.pas', uIEditorElegirDireccion in 'View\uIEditorElegirDireccion.pas',
uGruposClienteController in 'uGruposClienteController.pas', uGruposClienteController in 'uGruposClienteController.pas',
uIEditorGruposCliente in 'View\uIEditorGruposCliente.pas', uIEditorGruposCliente in 'View\uIEditorGruposCliente.pas',
uGruposProveedorController in 'uGruposProveedorController.pas', uGruposProveedorController in 'uGruposProveedorController.pas',

78
Source/Modulos/Contactos/Controller/Contactos_controller.dproj
View File

@ -52,6 +52,48 @@
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages>
@ -62,6 +104,23 @@
<DelphiCompile Include="Contactos_controller.dpk"> <DelphiCompile Include="Contactos_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Facturas de proveedor\adortl.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\ApplicationBase.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Base.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Contactos_data.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Contactos_model.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\dbrtl.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\dsnap.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\GUIBase.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\rtl.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\vcl.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\vcldb.dcp" />
<DCCReference Include="uClientesController.pas" /> <DCCReference Include="uClientesController.pas" />
<DCCReference Include="uContactosController.pas" /> <DCCReference Include="uContactosController.pas" />
<DCCReference Include="uDireccionesContactoController.pas" /> <DCCReference Include="uDireccionesContactoController.pas" />
@ -73,21 +132,6 @@
<DCCReference Include="uGruposProveedorController.pas" /> <DCCReference Include="uGruposProveedorController.pas" />
<DCCReference Include="uProcedenciasClienteController.pas" /> <DCCReference Include="uProcedenciasClienteController.pas" />
<DCCReference Include="uProveedoresController.pas" /> <DCCReference Include="uProveedoresController.pas" />
<DCCReference Include="View\adortl.dcp" />
<DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\Base.dcp" />
<DCCReference Include="View\Contabilidad_controller.dcp" />
<DCCReference Include="View\Contactos_data.dcp" />
<DCCReference Include="View\Contactos_model.dcp" />
<DCCReference Include="View\cxLibraryD11.dcp" />
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
<DCCReference Include="View\dbrtl.dcp" />
<DCCReference Include="View\dsnap.dcp" />
<DCCReference Include="View\dxGDIPlusD11.dcp" />
<DCCReference Include="View\dxThemeD11.dcp" />
<DCCReference Include="View\GUIBase.dcp" />
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
<DCCReference Include="View\rtl.dcp" />
<DCCReference Include="View\uIEditorCliente.pas" /> <DCCReference Include="View\uIEditorCliente.pas" />
<DCCReference Include="View\uIEditorClientes.pas" /> <DCCReference Include="View\uIEditorClientes.pas" />
<DCCReference Include="View\uIEditorContacto.pas" /> <DCCReference Include="View\uIEditorContacto.pas" />
@ -95,7 +139,7 @@
<DCCReference Include="View\uIEditorDireccionContacto.pas" /> <DCCReference Include="View\uIEditorDireccionContacto.pas" />
<DCCReference Include="View\uIEditorElegirClientes.pas" /> <DCCReference Include="View\uIEditorElegirClientes.pas" />
<DCCReference Include="View\uIEditorElegirContactos.pas" /> <DCCReference Include="View\uIEditorElegirContactos.pas" />
<DCCReference Include="View\uIEditorElegirDireccionEntrega.pas" /> <DCCReference Include="View\uIEditorElegirDireccion.pas" />
<DCCReference Include="View\uIEditorElegirProveedores.pas" /> <DCCReference Include="View\uIEditorElegirProveedores.pas" />
<DCCReference Include="View\uIEditorEmpleado.pas" /> <DCCReference Include="View\uIEditorEmpleado.pas" />
<DCCReference Include="View\uIEditorEmpleados.pas" /> <DCCReference Include="View\uIEditorEmpleados.pas" />
@ -107,8 +151,6 @@
<DCCReference Include="View\uIEditorProcedenciasCliente.pas" /> <DCCReference Include="View\uIEditorProcedenciasCliente.pas" />
<DCCReference Include="View\uIEditorProveedor.pas" /> <DCCReference Include="View\uIEditorProveedor.pas" />
<DCCReference Include="View\uIEditorProveedores.pas" /> <DCCReference Include="View\uIEditorProveedores.pas" />
<DCCReference Include="View\vcl.dcp" />
<DCCReference Include="View\vcldb.dcp" />
<None Include="ModelSupport_Contactos_controller\default.txaPackage" /> <None Include="ModelSupport_Contactos_controller\default.txaPackage" />
</ItemGroup> </ItemGroup>
</Project> </Project>

30
Source/Modulos/Contactos/Controller/View/uIEditorElegirDireccionEntrega.pas
View File

@ -1,30 +0,0 @@
unit uIEditorElegirDireccionEntrega;
interface
uses
uBizDireccionesContacto, uGUIBase;
type
IEditorElegirDireccionEntrega = interface
['{AB909782-25E1-4715-B98A-EA62FB9DC03C}']
function GetDireccion: IBizDireccionesContacto;
procedure SetDireccion(const Value: IBizDireccionesContacto);
property Direccion: IBizDireccionesContacto read GetDireccion write SetDireccion;
procedure SetMensaje (const AValue: String);
function GetMensaje: String;
property Mensaje : String read GetMensaje write SetMensaje;
function GetDireccionSeleccionada: IBizDireccionesContacto;
property DireccionSeleccionada: IBizDireccionesContacto read GetDireccionSeleccionada;
function ShowModal : Integer;
procedure Release;
end;
implementation
end.

6
Source/Modulos/Contactos/Controller/uClientesController.pas
View File

@ -57,7 +57,7 @@ implementation
uses uses
Forms, Classes, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils, Forms, Classes, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils,
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController, uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
uIEditorElegirClientes, uIEditorElegirDireccionEntrega, uEditorGridBase, uIEditorElegirClientes, uIEditorElegirDireccion, uEditorGridBase,
Dialogs; Dialogs;
{ TClientesController } { TClientesController }
@ -128,11 +128,11 @@ end;
function TClientesController.ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto; function TClientesController.ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto;
AMensaje: String): IBizDireccionesContacto; AMensaje: String): IBizDireccionesContacto;
var var
AEditor : IEditorElegirDireccionEntrega; AEditor : IEditorElegirDireccion;
begin begin
Result := NIL; Result := NIL;
CreateEditor('EditorElegirDireccionEntrega', IEditorElegirDireccionEntrega, AEditor); CreateEditor('EditorElegirDireccion', IEditorElegirDireccion, AEditor);
try try
with AEditor do with AEditor do
begin begin

57
Source/Modulos/Contactos/Controller/uContactosController.pas
View File

@ -5,7 +5,8 @@ interface
uses uses
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable, Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos; uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos,
uBizDireccionesContacto, uDireccionesContactoController;
type type
IContactosController = interface IContactosController = interface
@ -28,6 +29,7 @@ type
function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto; function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto;
procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer); procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer);
function ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto;
end; end;
TContactosController = class(TInterfacedObject, IContactosController) TContactosController = class(TInterfacedObject, IContactosController)
@ -59,13 +61,14 @@ type
function ElegirContacto(AContactos : IBizContacto; function ElegirContacto(AContactos : IBizContacto;
AMensaje: String; AMultiSelect: Boolean): IBizContacto; virtual; abstract; AMensaje: String; AMultiSelect: Boolean): IBizContacto; virtual; abstract;
procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer); procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer);
function ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto;
end; end;
implementation implementation
uses uses
Dialogs, uEditorRegistryUtils, cxControls, DB, uDAInterfaces, uDataTableUtils, Dialogs, uEditorRegistryUtils, cxControls, DB, uDAInterfaces, uDataTableUtils,
schContactosClient_Intf, uFactuGES_App, Variants; schContactosClient_Intf, uFactuGES_App, Variants, JSDialogs, JSDialog;
{ TContactosController } { TContactosController }
@ -126,6 +129,56 @@ begin
inherited; inherited;
end; end;
function TContactosController.ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto;
var
JsDialog: TJSDialog;
Respuesta: Integer;
begin
Result := NIL;
JsDialog := TJSDialog.Create(nil);
try
JsDialog.Content.Add(AMensaje);
JsDialog.Instruction.Text := 'Elija una direci'#243'n...';
JsDialog.DialogOptions := [doCommandLinks, doModal];
JsDialog.ButtonBar.Buttons := [cbOk];
JsDialog.Width := 600;
//Añadimos la direccion principal del contacto
with JsDialog.CustomButtons.Add do
begin
Caption := AContacto.NOMBRE + ' ' + AContacto.NIF_CIF;
Info.Add(AContacto.CALLE);
Info.Add(AContacto.CODIGO_POSTAL + ' ' + AContacto.POBLACION + ' ' + AContacto.PROVINCIA);
Value := -1;
Default := True;
end;
//Añadimos el resto de direcciones
AContacto.Direcciones.Datatable.First;
while not AContacto.Direcciones.Datatable.eof do
begin
with JsDialog.CustomButtons.Add do
begin
Caption := AContacto.Direcciones.NOMBRE + ' ' + AContacto.Direcciones.NIF_CIF;
Info.Add(AContacto.Direcciones.CALLE);
Info.Add(AContacto.Direcciones.CODIGO_POSTAL + ' ' + AContacto.Direcciones.POBLACION + ' ' + AContacto.Direcciones.PROVINCIA);
Value := AContacto.Direcciones.ID;
end;
AContacto.Direcciones.DataTable.Next;
end;
AContacto.Direcciones.DataTable.First;
if JsDialog.Execute <> IDCANCEL then
if JsDialog.CustomButtonResult > 0 then
if AContacto.Direcciones.DataTable.Locate(fld_DireccionesContactoID, JsDialog.CustomButtonResult, []) then
Result := AContacto.Direcciones;
finally
JsDialog := NIL;
end;
end;
function TContactosController.Eliminar(AContacto: IBizContacto): Boolean; function TContactosController.Eliminar(AContacto: IBizContacto): Boolean;
begin begin
Result := False; Result := False;

33
Source/Modulos/Contactos/Controller/uProveedoresController.pas
View File

@ -11,7 +11,6 @@ type
IProveedoresController = interface(IContactosController) IProveedoresController = interface(IContactosController)
['{50F10D01-5120-470D-A61D-99FE8A76DF93}'] ['{50F10D01-5120-470D-A61D-99FE8A76DF93}']
function BuscarTodosTiendaWeb: IBizProveedor; function BuscarTodosTiendaWeb: IBizProveedor;
function ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto; AMensaje: String): IBizDireccionesContacto;
function EsEliminable(AProveedor: IBizContacto): Boolean; function EsEliminable(AProveedor: IBizContacto): Boolean;
function Eliminar(AProveedor: IBizContacto; AllItems: Boolean = false): Boolean; overload; function Eliminar(AProveedor: IBizContacto; AllItems: Boolean = false): Boolean; overload;
procedure Preview(AProveedor : IBizProveedor; AllItems: Boolean = false); procedure Preview(AProveedor : IBizProveedor; AllItems: Boolean = false);
@ -32,13 +31,11 @@ type
function BuscarTodos: IBizContacto; override; function BuscarTodos: IBizContacto; override;
function BuscarTodosTiendaWeb: IBizProveedor; function BuscarTodosTiendaWeb: IBizProveedor;
function Nuevo : IBizContacto; override; function Nuevo : IBizContacto; override;
function Guardar(AContacto : IBizContacto): Boolean; override; function Guardar(AContacto : IBizContacto): Boolean; override;
procedure Ver(AContacto : IBizContacto); override; procedure Ver(AContacto : IBizContacto); override;
procedure VerTodos(AContactos: IBizContacto); override; procedure VerTodos(AContactos: IBizContacto); override;
function ElegirContacto(AContactos : IBizContacto; function ElegirContacto(AContactos : IBizContacto;
AMensaje: String; AMultiSelect: Boolean): IBizContacto; override; AMensaje: String; AMultiSelect: Boolean): IBizContacto; override;
function ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto;
AMensaje: String): IBizDireccionesContacto;
function EsEliminable(AProveedor: IBizContacto): Boolean; function EsEliminable(AProveedor: IBizContacto): Boolean;
function Eliminar(AProveedor: IBizContacto; AllItems: Boolean = false): Boolean; overload; function Eliminar(AProveedor: IBizContacto; AllItems: Boolean = false): Boolean; overload;
procedure Preview(AProveedor : IBizProveedor; AllItems: Boolean = false); procedure Preview(AProveedor : IBizProveedor; AllItems: Boolean = false);
@ -52,8 +49,8 @@ implementation
uses uses
Classes, SysUtils, cxControls, Dialogs, uDataModuleProveedores, uEditorRegistryUtils, Classes, SysUtils, cxControls, Dialogs, uDataModuleProveedores, uEditorRegistryUtils,
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController, uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
uIEditorElegirProveedores, Controls, uIEditorElegirDireccionEntrega, uIEditorElegirProveedores, Controls, uIEditorElegirDireccion,
uEditorGridBase; uEditorGridBase, JSDialogs, JSDialog, Windows;
{ TProveedoresController } { TProveedoresController }
@ -114,30 +111,6 @@ begin
end; end;
end; end;
function TProveedoresController.ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto;
AMensaje: String): IBizDireccionesContacto;
var
AEditor : IEditorElegirDireccionEntrega;
begin
Result := NIL;
ShowHourglassCursor;
try
CreateEditor('EditorElegirDireccionEntrega', IEditorElegirDireccionEntrega, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Direccion := ADirecciones;
Mensaje := AMensaje;
if IsPositiveResult(ShowModal) then
Result := DireccionSeleccionada;
Release;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;
function TProveedoresController.Eliminar(AProveedor: IBizContacto; AllItems: Boolean): Boolean; function TProveedoresController.Eliminar(AProveedor: IBizContacto; AllItems: Boolean): Boolean;
//En el caso de eliminar almenos un elemento del conjunto se devuelve true //En el caso de eliminar almenos un elemento del conjunto se devuelve true
var var

111
Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
View File

@ -10,6 +10,117 @@ inherited DataModuleClientes: TDataModuleClientes
inherited ds_Contactos: TDADataSource inherited ds_Contactos: TDADataSource
DataSet = tbl_Contactos.Dataset DataSet = tbl_Contactos.Dataset
end end
inherited tbl_DireccionesContacto: TDAMemDataTable
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_DIR_ID'
ServerAutoRefresh = True
DictionaryEntry = 'DireccionesContacto_ID'
InPrimaryKey = True
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
DictionaryEntry = 'DireccionesContacto_ID_CONTACTO'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Calle'
DictionaryEntry = 'DireccionesContacto_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'DireccionesContacto_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DisplayLabel = 'Provincia'
DictionaryEntry = 'DireccionesContacto_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'DireccionesContacto_CODIGO_POSTAL'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DisplayLabel = 'Persona de contacto'
DictionaryEntry = 'DireccionesContacto_PERSONA_CONTACTO'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'DireccionesContacto_NOMBRE'
DictionaryEntry = 'DireccionesContacto_NOMBRE'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
DisplayLabel = 'Tel'#233'fono'
DictionaryEntry = 'DireccionesContacto_TELEFONO'
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil'
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DisplayLabel = 'Fax'
DictionaryEntry = 'Contactos_FAX'
end
item
Name = 'EMAIL'
DataType = datString
Size = 255
DisplayLabel = 'E-mail'
DictionaryEntry = 'DireccionesContacto_EMAIL'
end
item
Name = 'NOTAS'
DataType = datMemo
DisplayLabel = 'Notas'
DictionaryEntry = 'DireccionesContacto_NOTAS'
end
item
Name = 'PORTE'
DataType = datFloat
DisplayLabel = 'Coste del porte'
DictionaryEntry = 'DireccionesContacto_PORTE'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end>
end
inherited ds_DireccionesContacto: TDADataSource inherited ds_DireccionesContacto: TDADataSource
DataSet = tbl_DireccionesContacto.Dataset DataSet = tbl_DireccionesContacto.Dataset
end end

116
Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
View File

@ -4,6 +4,117 @@ inherited DataModuleProveedores: TDataModuleProveedores
inherited ds_Contactos: TDADataSource inherited ds_Contactos: TDADataSource
DataSet = tbl_Contactos.Dataset DataSet = tbl_Contactos.Dataset
end end
inherited tbl_DireccionesContacto: TDAMemDataTable
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_DIR_ID'
ServerAutoRefresh = True
DictionaryEntry = 'DireccionesContacto_ID'
InPrimaryKey = True
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
DictionaryEntry = 'DireccionesContacto_ID_CONTACTO'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Calle'
DictionaryEntry = 'DireccionesContacto_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'DireccionesContacto_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DisplayLabel = 'Provincia'
DictionaryEntry = 'DireccionesContacto_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'DireccionesContacto_CODIGO_POSTAL'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DisplayLabel = 'Persona de contacto'
DictionaryEntry = 'DireccionesContacto_PERSONA_CONTACTO'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'DireccionesContacto_NOMBRE'
DictionaryEntry = 'DireccionesContacto_NOMBRE'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
DisplayLabel = 'Tel'#233'fono'
DictionaryEntry = 'DireccionesContacto_TELEFONO'
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil'
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DisplayLabel = 'Fax'
DictionaryEntry = 'Contactos_FAX'
end
item
Name = 'EMAIL'
DataType = datString
Size = 255
DisplayLabel = 'E-mail'
DictionaryEntry = 'DireccionesContacto_EMAIL'
end
item
Name = 'NOTAS'
DataType = datMemo
DisplayLabel = 'Notas'
DictionaryEntry = 'DireccionesContacto_NOTAS'
end
item
Name = 'PORTE'
DataType = datFloat
DisplayLabel = 'Coste del porte'
DictionaryEntry = 'DireccionesContacto_PORTE'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end>
end
inherited ds_DireccionesContacto: TDADataSource inherited ds_DireccionesContacto: TDADataSource
DataSet = tbl_DireccionesContacto.Dataset DataSet = tbl_DireccionesContacto.Dataset
end end
@ -290,6 +401,11 @@ inherited DataModuleProveedores: TDataModuleProveedores
item item
Name = 'TIENE_SUBCUENTA' Name = 'TIENE_SUBCUENTA'
DataType = datInteger DataType = datInteger
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

178
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -3,25 +3,25 @@ unit schContactosClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_SubCuentasContacto = '{77E2D0D2-685D-460C-8A5C-B58184819D7B}'; RID_SubCuentasContacto = '{A665876F-88B1-480D-B671-45BF9CE0354E}';
RID_Contactos = '{059BCFE8-30A4-4BC4-974F-1E240A1F3379}'; RID_Contactos = '{DBF3555C-25B6-4111-B564-08223B7DEDFF}';
RID_GruposCliente = '{758F5D19-8076-45D9-BB2B-D79D45FFC272}'; RID_GruposCliente = '{B8A3C655-7B91-441C-A02D-56D6F4515A73}';
RID_DatosBancarios = '{CC510C73-A596-4F19-8B13-E0809A7EE519}'; RID_DatosBancarios = '{95A679A6-2656-43A4-AD76-B221555120D1}';
RID_Clientes = '{41895E3B-E13F-4890-9961-CFCF04CAC5D4}'; RID_Clientes = '{B0C7F62A-2118-4C8E-A088-399FB5F4172A}';
RID_Proveedores = '{3BD8FE29-DA71-4E2B-BA0B-4F8CCF53C66C}'; RID_Proveedores = '{905725EC-B1B7-4EEE-878E-5298DA5A4651}';
RID_Empleados = '{10A30112-8DAC-4EED-AFD9-AABC573A83B2}'; RID_Empleados = '{CC3BA198-8F62-4919-9635-F6B9A76A6944}';
RID_DireccionesContacto = '{3AB78171-440E-4F68-AEF8-F877AB0134DE}'; RID_DireccionesContacto = '{25680D30-D90A-4CF6-AF42-3A6607831C93}';
RID_ClientesDescuentos = '{0FA9A43D-7A43-4D44-A4CF-24C55D2F3601}'; RID_ClientesDescuentos = '{760ADCE2-83B9-47D1-ADBE-79EBD056D223}';
RID_ProcedenciasCliente = '{388B32E1-0819-4CF1-B551-6EAF5CDA6CD8}'; RID_ProcedenciasCliente = '{AF653A27-737C-46A1-ADAC-34A2572D34C6}';
RID_GruposProveedor = '{23CFD460-23AC-473C-A97C-EF9D1E2EE6F4}'; RID_GruposProveedor = '{C9B66220-03F7-4D77-B00D-8ADBC3C50FED}';
RID_GruposEmpleado = '{72AB9D68-2DBB-4777-BFE8-CB567B31D695}'; RID_GruposEmpleado = '{E3EAF37B-5015-4CAD-930B-D54819909607}';
RID_Contactos_Refresh = '{492FC030-1BEA-4AE1-A00B-0DC1E3DBF855}'; RID_Contactos_Refresh = '{E9F852B8-287F-4A82-92EC-0E1BF028802D}';
{ Data table names } { Data table names }
nme_SubCuentasContacto = 'SubCuentasContacto'; nme_SubCuentasContacto = 'SubCuentasContacto';
@ -258,6 +258,7 @@ const
fld_ProveedoresCERTIFICACION = 'CERTIFICACION'; fld_ProveedoresCERTIFICACION = 'CERTIFICACION';
fld_ProveedoresIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD'; fld_ProveedoresIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
fld_ProveedoresTIENE_SUBCUENTA = 'TIENE_SUBCUENTA'; fld_ProveedoresTIENE_SUBCUENTA = 'TIENE_SUBCUENTA';
fld_ProveedoresNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
{ Proveedores field indexes } { Proveedores field indexes }
idx_ProveedoresID = 0; idx_ProveedoresID = 0;
@ -297,6 +298,7 @@ const
idx_ProveedoresCERTIFICACION = 34; idx_ProveedoresCERTIFICACION = 34;
idx_ProveedoresIGNORAR_CONTABILIDAD = 35; idx_ProveedoresIGNORAR_CONTABILIDAD = 35;
idx_ProveedoresTIENE_SUBCUENTA = 36; idx_ProveedoresTIENE_SUBCUENTA = 36;
idx_ProveedoresNOMBRE_COMERCIAL = 37;
{ Empleados fields } { Empleados fields }
fld_EmpleadosID = 'ID'; fld_EmpleadosID = 'ID';
@ -371,6 +373,7 @@ const
{ DireccionesContacto fields } { DireccionesContacto fields }
fld_DireccionesContactoID = 'ID'; fld_DireccionesContactoID = 'ID';
fld_DireccionesContactoID_CONTACTO = 'ID_CONTACTO'; fld_DireccionesContactoID_CONTACTO = 'ID_CONTACTO';
fld_DireccionesContactoNIF_CIF = 'NIF_CIF';
fld_DireccionesContactoCALLE = 'CALLE'; fld_DireccionesContactoCALLE = 'CALLE';
fld_DireccionesContactoPOBLACION = 'POBLACION'; fld_DireccionesContactoPOBLACION = 'POBLACION';
fld_DireccionesContactoPROVINCIA = 'PROVINCIA'; fld_DireccionesContactoPROVINCIA = 'PROVINCIA';
@ -389,20 +392,21 @@ const
{ DireccionesContacto field indexes } { DireccionesContacto field indexes }
idx_DireccionesContactoID = 0; idx_DireccionesContactoID = 0;
idx_DireccionesContactoID_CONTACTO = 1; idx_DireccionesContactoID_CONTACTO = 1;
idx_DireccionesContactoCALLE = 2; idx_DireccionesContactoNIF_CIF = 2;
idx_DireccionesContactoPOBLACION = 3; idx_DireccionesContactoCALLE = 3;
idx_DireccionesContactoPROVINCIA = 4; idx_DireccionesContactoPOBLACION = 4;
idx_DireccionesContactoCODIGO_POSTAL = 5; idx_DireccionesContactoPROVINCIA = 5;
idx_DireccionesContactoPERSONA_CONTACTO = 6; idx_DireccionesContactoCODIGO_POSTAL = 6;
idx_DireccionesContactoNOMBRE = 7; idx_DireccionesContactoPERSONA_CONTACTO = 7;
idx_DireccionesContactoTELEFONO = 8; idx_DireccionesContactoNOMBRE = 8;
idx_DireccionesContactoMOVIL = 9; idx_DireccionesContactoTELEFONO = 9;
idx_DireccionesContactoFAX = 10; idx_DireccionesContactoMOVIL = 10;
idx_DireccionesContactoEMAIL = 11; idx_DireccionesContactoFAX = 11;
idx_DireccionesContactoNOTAS = 12; idx_DireccionesContactoEMAIL = 12;
idx_DireccionesContactoPORTE = 13; idx_DireccionesContactoNOTAS = 13;
idx_DireccionesContactoFECHA_ALTA = 14; idx_DireccionesContactoPORTE = 14;
idx_DireccionesContactoFECHA_MODIFICACION = 15; idx_DireccionesContactoFECHA_ALTA = 15;
idx_DireccionesContactoFECHA_MODIFICACION = 16;
{ ClientesDescuentos fields } { ClientesDescuentos fields }
fld_ClientesDescuentosID = 'ID'; fld_ClientesDescuentosID = 'ID';
@ -491,7 +495,7 @@ const
type type
{ ISubCuentasContacto } { ISubCuentasContacto }
ISubCuentasContacto = interface(IDAStronglyTypedDataTable) ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
['{180C71AC-D602-4871-B0B5-30DB9A6F0D3D}'] ['{A265AC9F-4CE6-4C65-9B80-55A01FAD8DE7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -535,7 +539,7 @@ type
end; end;
{ TSubCuentasContactoDataTableRules } { TSubCuentasContactoDataTableRules }
TSubCuentasContactoDataTableRules = class(TDADataTableRules, ISubCuentasContacto) TSubCuentasContactoDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentasContacto)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -586,7 +590,7 @@ type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{517A8780-E06E-4C96-B076-F9975F834557}'] ['{B82C612C-9B19-47AC-A153-33F40F1F966C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -743,7 +747,7 @@ type
end; end;
{ TContactosDataTableRules } { TContactosDataTableRules }
TContactosDataTableRules = class(TDADataTableRules, IContactos) TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -909,7 +913,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{DF6B0030-F21D-462F-BAA1-765346227096}'] ['{F20A31CD-092A-4808-8E35-91F913A0404B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -929,7 +933,7 @@ type
end; end;
{ TGruposClienteDataTableRules } { TGruposClienteDataTableRules }
TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente) TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -956,7 +960,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{71AD9AE5-15E3-4510-920F-C9DCA24935C3}'] ['{F7E3B1A8-464E-441D-96F9-2A8ABBAB189F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1018,7 +1022,7 @@ type
end; end;
{ TDatosBancariosDataTableRules } { TDatosBancariosDataTableRules }
TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios) TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1087,7 +1091,7 @@ type
{ IClientes } { IClientes }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{D314D401-AE3E-4242-ADBA-7879822029DC}'] ['{267B0187-B441-4FC0-BDF7-8E14D73A9112}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1328,7 +1332,7 @@ type
end; end;
{ TClientesDataTableRules } { TClientesDataTableRules }
TClientesDataTableRules = class(TDADataTableRules, IClientes) TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -1578,7 +1582,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{17E80FD0-91B4-4D1C-95ED-3D5C4B42578A}'] ['{80234880-B682-4597-90DF-CDD58C95F600}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1727,6 +1731,10 @@ type
procedure SetTIENE_SUBCUENTAValue(const aValue: Integer); procedure SetTIENE_SUBCUENTAValue(const aValue: Integer);
function GetTIENE_SUBCUENTAIsNull: Boolean; function GetTIENE_SUBCUENTAIsNull: Boolean;
procedure SetTIENE_SUBCUENTAIsNull(const aValue: Boolean); procedure SetTIENE_SUBCUENTAIsNull(const aValue: Boolean);
function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetNOMBRE_COMERCIALIsNull: Boolean;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -1804,10 +1812,12 @@ type
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull; property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property TIENE_SUBCUENTA: Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue; property TIENE_SUBCUENTA: Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue;
property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull; property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
end; end;
{ TProveedoresDataTableRules } { TProveedoresDataTableRules }
TProveedoresDataTableRules = class(TDADataTableRules, IProveedores) TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -1960,6 +1970,10 @@ type
procedure SetTIENE_SUBCUENTAValue(const aValue: Integer); virtual; procedure SetTIENE_SUBCUENTAValue(const aValue: Integer); virtual;
function GetTIENE_SUBCUENTAIsNull: Boolean; virtual; function GetTIENE_SUBCUENTAIsNull: Boolean; virtual;
procedure SetTIENE_SUBCUENTAIsNull(const aValue: Boolean); virtual; procedure SetTIENE_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIALValue: String; virtual;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -2036,6 +2050,8 @@ type
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull; property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property TIENE_SUBCUENTA: Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue; property TIENE_SUBCUENTA: Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue;
property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull; property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -2045,7 +2061,7 @@ type
{ IEmpleados } { IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable) IEmpleados = interface(IDAStronglyTypedDataTable)
['{4AC6F410-2F75-4947-8321-5363F1418AA2}'] ['{0675CA38-A22F-410D-B6C8-8A3C41629E91}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2246,7 +2262,7 @@ type
end; end;
{ TEmpleadosDataTableRules } { TEmpleadosDataTableRules }
TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados) TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
f_FORMACION_BASE: IROStrings; f_FORMACION_BASE: IROStrings;
@ -2464,7 +2480,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{0BEB43AD-BE78-4F2E-B45C-8E6AE76A186A}'] ['{BBD6E216-B44C-4757-837E-2C63DBAB1B87}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2474,6 +2490,10 @@ type
procedure SetID_CONTACTOValue(const aValue: Integer); procedure SetID_CONTACTOValue(const aValue: Integer);
function GetID_CONTACTOIsNull: Boolean; function GetID_CONTACTOIsNull: Boolean;
procedure SetID_CONTACTOIsNull(const aValue: Boolean); procedure SetID_CONTACTOIsNull(const aValue: Boolean);
function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
function GetNIF_CIFIsNull: Boolean;
procedure SetNIF_CIFIsNull(const aValue: Boolean);
function GetCALLEValue: String; function GetCALLEValue: String;
procedure SetCALLEValue(const aValue: String); procedure SetCALLEValue(const aValue: String);
function GetCALLEIsNull: Boolean; function GetCALLEIsNull: Boolean;
@ -2536,6 +2556,8 @@ type
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLE: String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
@ -2567,7 +2589,7 @@ type
end; end;
{ TDireccionesContactoDataTableRules } { TDireccionesContactoDataTableRules }
TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto) TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -2581,6 +2603,10 @@ type
procedure SetID_CONTACTOValue(const aValue: Integer); virtual; procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
function GetID_CONTACTOIsNull: Boolean; virtual; function GetID_CONTACTOIsNull: Boolean; virtual;
procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual; procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual; function GetCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual; procedure SetCALLEValue(const aValue: String); virtual;
function GetCALLEIsNull: Boolean; virtual; function GetCALLEIsNull: Boolean; virtual;
@ -2642,6 +2668,8 @@ type
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLE: String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
@ -2679,7 +2707,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{9323A474-DBCB-4050-A1F4-229966D7A848}'] ['{92A3F3B0-C9C4-4D4D-A311-93FDDA3C6C0D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2717,7 +2745,7 @@ type
end; end;
{ TClientesDescuentosDataTableRules } { TClientesDescuentosDataTableRules }
TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos) TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2762,7 +2790,7 @@ type
{ IProcedenciasCliente } { IProcedenciasCliente }
IProcedenciasCliente = interface(IDAStronglyTypedDataTable) IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
['{459BF966-D8AA-44F0-B23A-704860B7AC98}'] ['{52E73E0C-71AE-443B-86D2-9F0DC0D5FDF7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2782,7 +2810,7 @@ type
end; end;
{ TProcedenciasClienteDataTableRules } { TProcedenciasClienteDataTableRules }
TProcedenciasClienteDataTableRules = class(TDADataTableRules, IProcedenciasCliente) TProcedenciasClienteDataTableRules = class(TIntfObjectDADataTableRules, IProcedenciasCliente)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2809,7 +2837,7 @@ type
{ IGruposProveedor } { IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable) IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{0A10C9D3-D291-47D7-8BE5-15F1178704AB}'] ['{94B8A3A8-8683-43DA-B13A-1E0DBF3901C4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2829,7 +2857,7 @@ type
end; end;
{ TGruposProveedorDataTableRules } { TGruposProveedorDataTableRules }
TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor) TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2856,7 +2884,7 @@ type
{ IGruposEmpleado } { IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable) IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{ADFE0D54-EBBB-444A-9830-D5E39AED2058}'] ['{B3995733-40B5-4A77-B050-2722DEDEF5E8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2876,7 +2904,7 @@ type
end; end;
{ TGruposEmpleadoDataTableRules } { TGruposEmpleadoDataTableRules }
TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado) TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2903,7 +2931,7 @@ type
{ IContactos_Refresh } { IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable) IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{9355FABF-5007-43F5-BB00-9F0C43DA7FD2}'] ['{60A8DD40-4B90-40FA-A22C-2FFF67737F64}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3036,7 +3064,7 @@ type
end; end;
{ TContactos_RefreshDataTableRules } { TContactos_RefreshDataTableRules }
TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh) TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -5750,6 +5778,27 @@ begin
DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsVariant := Null; DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsVariant := Null;
end; end;
function TProveedoresDataTableRules.GetNOMBRE_COMERCIALValue: String;
begin
result := DataTable.Fields[idx_ProveedoresNOMBRE_COMERCIAL].AsString;
end;
procedure TProveedoresDataTableRules.SetNOMBRE_COMERCIALValue(const aValue: String);
begin
DataTable.Fields[idx_ProveedoresNOMBRE_COMERCIAL].AsString := aValue;
end;
function TProveedoresDataTableRules.GetNOMBRE_COMERCIALIsNull: boolean;
begin
result := DataTable.Fields[idx_ProveedoresNOMBRE_COMERCIAL].IsNull;
end;
procedure TProveedoresDataTableRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProveedoresNOMBRE_COMERCIAL].AsVariant := Null;
end;
{ TEmpleadosDataTableRules } { TEmpleadosDataTableRules }
constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable); constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable);
@ -6547,6 +6596,27 @@ begin
DataTable.Fields[idx_DireccionesContactoID_CONTACTO].AsVariant := Null; DataTable.Fields[idx_DireccionesContactoID_CONTACTO].AsVariant := Null;
end; end;
function TDireccionesContactoDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_DireccionesContactoNIF_CIF].AsString;
end;
procedure TDireccionesContactoDataTableRules.SetNIF_CIFValue(const aValue: String);
begin
DataTable.Fields[idx_DireccionesContactoNIF_CIF].AsString := aValue;
end;
function TDireccionesContactoDataTableRules.GetNIF_CIFIsNull: boolean;
begin
result := DataTable.Fields[idx_DireccionesContactoNIF_CIF].IsNull;
end;
procedure TDireccionesContactoDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DireccionesContactoNIF_CIF].AsVariant := Null;
end;
function TDireccionesContactoDataTableRules.GetCALLEValue: String; function TDireccionesContactoDataTableRules.GetCALLEValue: String;
begin begin
result := DataTable.Fields[idx_DireccionesContactoCALLE].AsString; result := DataTable.Fields[idx_DireccionesContactoCALLE].AsString;

138
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

@ -9,24 +9,24 @@ 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_SubCuentasContactoDelta = '{EE9317EA-5374-4D7D-B6CC-8684FE0D6B21}'; RID_SubCuentasContactoDelta = '{6520A6E9-3616-416C-BAF2-9F4B13AAF858}';
RID_ContactosDelta = '{51070042-26A2-4A85-8719-F51520E40F38}'; RID_ContactosDelta = '{A2B38C37-E3AE-4E22-85F7-E76DE13652AB}';
RID_GruposClienteDelta = '{965A879A-4E61-42F4-83FE-22FA07165FB5}'; RID_GruposClienteDelta = '{67072B81-C667-4450-B8E8-9C42A3EE0E3C}';
RID_DatosBancariosDelta = '{5BE9B897-D52F-4D7D-AFC9-A502CECEF42E}'; RID_DatosBancariosDelta = '{221A80E1-2A34-4D52-963B-4D8A6E8CB277}';
RID_ClientesDelta = '{87DD5652-478A-4A00-BDAB-33B2C9B40099}'; RID_ClientesDelta = '{A4468099-7600-4411-A559-107949CA1601}';
RID_ProveedoresDelta = '{B7F03045-3BE9-46AC-A0FB-8D4B288B925E}'; RID_ProveedoresDelta = '{0117BBC8-1EBE-40CA-9819-E5990B88B58C}';
RID_EmpleadosDelta = '{6B64608B-F25E-4210-B02F-87B0EA062378}'; RID_EmpleadosDelta = '{E6D706EA-9D87-4656-BA13-EFEDD8224652}';
RID_DireccionesContactoDelta = '{2B40DFC8-5CAF-4D17-A0EC-7B6E4BB79ACE}'; RID_DireccionesContactoDelta = '{AA255A88-7186-42B2-A48E-5729B8789BFB}';
RID_ClientesDescuentosDelta = '{9028E6CB-E578-4BBA-BD93-7068CB6EEAF2}'; RID_ClientesDescuentosDelta = '{B4309DDF-8679-46EC-9355-28E776C4AC89}';
RID_ProcedenciasClienteDelta = '{5179E843-F6F3-49F7-9979-6561FDA1C6DF}'; RID_ProcedenciasClienteDelta = '{A8BEF20C-78CE-47DE-8509-46E9442F07A2}';
RID_GruposProveedorDelta = '{BF5E7579-41AA-4BB5-B650-224E079D6344}'; RID_GruposProveedorDelta = '{20FC55C8-45F0-46C4-ABCE-7B7B7F339F9A}';
RID_GruposEmpleadoDelta = '{B5F70E42-EBC8-411A-9DAB-11BCA62B8E74}'; RID_GruposEmpleadoDelta = '{37AA7500-1C16-43A6-B55D-869846E760D3}';
RID_Contactos_RefreshDelta = '{AE4FA559-4983-41C6-82F3-39C023E9993D}'; RID_Contactos_RefreshDelta = '{8150E144-7B4B-45AC-8DC6-B0879134E571}';
type type
{ ISubCuentasContactoDelta } { ISubCuentasContactoDelta }
ISubCuentasContactoDelta = interface(ISubCuentasContacto) ISubCuentasContactoDelta = interface(ISubCuentasContacto)
['{EE9317EA-5374-4D7D-B6CC-8684FE0D6B21}'] ['{6520A6E9-3616-416C-BAF2-9F4B13AAF858}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String; function GetOldREF_SUBCUENTAValue : String;
@ -120,7 +120,7 @@ type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{51070042-26A2-4A85-8719-F51520E40F38}'] ['{A2B38C37-E3AE-4E22-85F7-E76DE13652AB}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -443,7 +443,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{965A879A-4E61-42F4-83FE-22FA07165FB5}'] ['{67072B81-C667-4450-B8E8-9C42A3EE0E3C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -489,7 +489,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{5BE9B897-D52F-4D7D-AFC9-A502CECEF42E}'] ['{221A80E1-2A34-4D52-963B-4D8A6E8CB277}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -619,7 +619,7 @@ type
{ IClientesDelta } { IClientesDelta }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{87DD5652-478A-4A00-BDAB-33B2C9B40099}'] ['{A4468099-7600-4411-A559-107949CA1601}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1110,7 +1110,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{B7F03045-3BE9-46AC-A0FB-8D4B288B925E}'] ['{0117BBC8-1EBE-40CA-9819-E5990B88B58C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1149,6 +1149,7 @@ type
function GetOldCERTIFICACIONValue : String; function GetOldCERTIFICACIONValue : String;
function GetOldIGNORAR_CONTABILIDADValue : Integer; function GetOldIGNORAR_CONTABILIDADValue : Integer;
function GetOldTIENE_SUBCUENTAValue : Integer; function GetOldTIENE_SUBCUENTAValue : Integer;
function GetOldNOMBRE_COMERCIALValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -1188,6 +1189,7 @@ type
property OldCERTIFICACION : String read GetOldCERTIFICACIONValue; property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue; property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue; property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
end; end;
{ TProveedoresBusinessProcessorRules } { TProveedoresBusinessProcessorRules }
@ -1418,6 +1420,12 @@ type
function GetOldTIENE_SUBCUENTAIsNull: Boolean; virtual; function GetOldTIENE_SUBCUENTAIsNull: Boolean; virtual;
procedure SetTIENE_SUBCUENTAValue(const aValue: Integer); virtual; procedure SetTIENE_SUBCUENTAValue(const aValue: Integer); virtual;
procedure SetTIENE_SUBCUENTAIsNull(const aValue: Boolean); virtual; procedure SetTIENE_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIALValue: String; virtual;
function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
function GetOldNOMBRE_COMERCIALValue: String; virtual;
function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -1568,6 +1576,10 @@ type
property TIENE_SUBCUENTAIsNull : Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull; property TIENE_SUBCUENTAIsNull : Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue; property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
property OldTIENE_SUBCUENTAIsNull : Boolean read GetOldTIENE_SUBCUENTAIsNull; property OldTIENE_SUBCUENTAIsNull : Boolean read GetOldTIENE_SUBCUENTAIsNull;
property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1577,7 +1589,7 @@ type
{ IEmpleadosDelta } { IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados) IEmpleadosDelta = interface(IEmpleados)
['{6B64608B-F25E-4210-B02F-87B0EA062378}'] ['{E6D706EA-9D87-4656-BA13-EFEDD8224652}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -2000,10 +2012,11 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{2B40DFC8-5CAF-4D17-A0EC-7B6E4BB79ACE}'] ['{AA255A88-7186-42B2-A48E-5729B8789BFB}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
function GetOldNIF_CIFValue : String;
function GetOldCALLEValue : String; function GetOldCALLEValue : String;
function GetOldPOBLACIONValue : String; function GetOldPOBLACIONValue : String;
function GetOldPROVINCIAValue : String; function GetOldPROVINCIAValue : String;
@ -2022,6 +2035,7 @@ type
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldCALLE : String read GetOldCALLEValue; property OldCALLE : String read GetOldCALLEValue;
property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPOBLACION : String read GetOldPOBLACIONValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldPROVINCIA : String read GetOldPROVINCIAValue;
@ -2057,6 +2071,12 @@ type
function GetOldID_CONTACTOIsNull: Boolean; virtual; function GetOldID_CONTACTOIsNull: Boolean; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual; procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual; procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
function GetOldNIF_CIFValue: String; virtual;
function GetOldNIF_CIFIsNull: Boolean; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual; function GetCALLEValue: String; virtual;
function GetCALLEIsNull: Boolean; virtual; function GetCALLEIsNull: Boolean; virtual;
function GetOldCALLEValue: String; virtual; function GetOldCALLEValue: String; virtual;
@ -2150,6 +2170,10 @@ type
property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull; property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
property CALLE : String read GetCALLEValue write SetCALLEValue; property CALLE : String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
property OldCALLE : String read GetOldCALLEValue; property OldCALLE : String read GetOldCALLEValue;
@ -2215,7 +2239,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{9028E6CB-E578-4BBA-BD93-7068CB6EEAF2}'] ['{B4309DDF-8679-46EC-9355-28E776C4AC89}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2297,7 +2321,7 @@ type
{ IProcedenciasClienteDelta } { IProcedenciasClienteDelta }
IProcedenciasClienteDelta = interface(IProcedenciasCliente) IProcedenciasClienteDelta = interface(IProcedenciasCliente)
['{5179E843-F6F3-49F7-9979-6561FDA1C6DF}'] ['{A8BEF20C-78CE-47DE-8509-46E9442F07A2}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2343,7 +2367,7 @@ type
{ IGruposProveedorDelta } { IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor) IGruposProveedorDelta = interface(IGruposProveedor)
['{BF5E7579-41AA-4BB5-B650-224E079D6344}'] ['{20FC55C8-45F0-46C4-ABCE-7B7B7F339F9A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2389,7 +2413,7 @@ type
{ IGruposEmpleadoDelta } { IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado) IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{B5F70E42-EBC8-411A-9DAB-11BCA62B8E74}'] ['{37AA7500-1C16-43A6-B55D-869846E760D3}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2435,7 +2459,7 @@ type
{ IContactos_RefreshDelta } { IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh) IContactos_RefreshDelta = interface(IContactos_Refresh)
['{AE4FA559-4983-41C6-82F3-39C023E9993D}'] ['{8150E144-7B4B-45AC-8DC6-B0879134E571}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -6466,6 +6490,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA] := Null;
end; end;
function TProveedoresBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL];
end;
function TProveedoresBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL]);
end;
function TProveedoresBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOMBRE_COMERCIAL];
end;
function TProveedoresBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOMBRE_COMERCIAL]);
end;
procedure TProveedoresBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL] := aValue;
end;
procedure TProveedoresBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL] := Null;
end;
{ TEmpleadosBusinessProcessorRules } { TEmpleadosBusinessProcessorRules }
constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -7618,6 +7673,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO] := Null;
end; end;
function TDireccionesContactoBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNIF_CIF];
end;
function TDireccionesContactoBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNIF_CIF]);
end;
function TDireccionesContactoBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNIF_CIF];
end;
function TDireccionesContactoBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNIF_CIF]);
end;
procedure TDireccionesContactoBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNIF_CIF] := aValue;
end;
procedure TDireccionesContactoBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNIF_CIF] := Null;
end;
function TDireccionesContactoBusinessProcessorRules.GetCALLEValue: String; function TDireccionesContactoBusinessProcessorRules.GetCALLEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE];

2
Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
View File

@ -152,6 +152,7 @@ begin
ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD]; ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA]; ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL];
Execute; Execute;
end; end;
@ -213,6 +214,7 @@ begin
ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD]; ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA]; ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL];
Execute; Execute;
end; end;

133
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -1025,6 +1025,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'TIENE_SUBCUENTA' DatasetField = 'TIENE_SUBCUENTA'
TableField = 'TIENE_SUBCUENTA' TableField = 'TIENE_SUBCUENTA'
end
item
DatasetField = 'NOMBRE_COMERCIAL'
TableField = 'NOMBRE_COMERCIAL'
end> end>
end> end>
Name = 'Proveedores' Name = 'Proveedores'
@ -1240,6 +1244,11 @@ object srvContactos: TsrvContactos
item item
Name = 'TIENE_SUBCUENTA' Name = 'TIENE_SUBCUENTA'
DataType = datInteger DataType = datInteger
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
end> end>
end end
item item
@ -1643,6 +1652,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'FECHA_MODIFICACION' DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION' TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end> end>
end> end>
Name = 'DireccionesContacto' Name = 'DireccionesContacto'
@ -1660,6 +1673,11 @@ object srvContactos: TsrvContactos
DataType = datInteger DataType = datInteger
DictionaryEntry = 'DireccionesContacto_ID_CONTACTO' DictionaryEntry = 'DireccionesContacto_ID_CONTACTO'
end end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
@ -2912,6 +2930,10 @@ object srvContactos: TsrvContactos
item item
Name = 'TIENE_SUBCUENTA' Name = 'TIENE_SUBCUENTA'
Value = '' Value = ''
end
item
Name = 'NOMBRE_COMERCIAL'
Value = ''
end> end>
Statements = < Statements = <
item item
@ -2921,11 +2943,12 @@ object srvContactos: TsrvContactos
'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' + 'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' +
'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' + 'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' +
'VA,'#10' ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERTIFICACION, GR' + 'VA,'#10' ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERTIFICACION, GR' +
'UPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD, TIENE_SUBCUENTA)'#10' VALU' + 'UPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD, TIENE_SUBCUENTA, NOMBRE' +
'ES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENTO, :DESCRIPCION_PR' + '_COMERCIAL)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENT' +
'OVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA,'#10' :ID_FORMA_PAGO,' + 'O, :DESCRIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA,'#10' ' +
' :TIENDA_WEB, :HOMOLOGADO, :CERTIFICACION, :GRUPO_PROVEEDOR,'#10' ' + ' :ID_FORMA_PAGO, :TIENDA_WEB, :HOMOLOGADO, :CERTIFICACION, :GR' +
' :IGNORAR_CONTABILIDAD, :TIENE_SUBCUENTA)'#10 'UPO_PROVEEDOR,'#10' :IGNORAR_CONTABILIDAD, :TIENE_SUBCUENTA, :NOM' +
'BRE_COMERCIAL)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3005,6 +3028,10 @@ object srvContactos: TsrvContactos
Name = 'TIENE_SUBCUENTA' Name = 'TIENE_SUBCUENTA'
Value = '' Value = ''
end end
item
Name = 'NOMBRE_COMERCIAL'
Value = ''
end
item item
Name = 'OLD_ID_PROVEEDOR' Name = 'OLD_ID_PROVEEDOR'
Value = '' Value = ''
@ -3021,8 +3048,9 @@ object srvContactos: TsrvContactos
'D_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' ' + 'D_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' ' +
' HOMOLOGADO = :HOMOLOGADO,'#10' CERTIFICACION = :CERTIFICACION,'#10' ' + ' HOMOLOGADO = :HOMOLOGADO,'#10' CERTIFICACION = :CERTIFICACION,'#10' ' +
' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD ' + ' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD ' +
'= :IGNORAR_CONTABILIDAD,'#10' TIENE_SUBCUENTA = :TIENE_SUBCUENTA'#10 + '= :IGNORAR_CONTABILIDAD,'#10' TIENE_SUBCUENTA = :TIENE_SUBCUENTA,' +
' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)'#10 #10' NOMBRE_COMERCIAL = :NOMBRE_COMERCIAL'#10' WHERE'#10' (ID_PROVEE' +
'DOR = :OLD_ID_PROVEEDOR)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3035,95 +3063,62 @@ object srvContactos: TsrvContactos
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_DIR_ID' GeneratorName = 'GEN_CONTACTOS_DIR_ID'
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_CONTACTO' Name = 'ID_CONTACTO'
DataType = datInteger
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 = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString
Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'MOVIL' Name = 'MOVIL'
DataType = datString
Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FAX' Name = 'FAX'
DataType = datString
Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'EMAIL' Name = 'EMAIL'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NOTAS' Name = 'NOTAS'
DataType = datMemo
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PORTE' Name = 'PORTE'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput end
item
Name = 'NIF_CIF'
Value = ''
end> end>
Statements = < Statements = <
item item
@ -3132,10 +3127,10 @@ object srvContactos: TsrvContactos
SQL = SQL =
'INSERT'#10' INTO CONTACTOS_DIRECCIONES'#10' (ID, ID_CONTACTO, NOMBRE' + 'INSERT'#10' INTO CONTACTOS_DIRECCIONES'#10' (ID, ID_CONTACTO, NOMBRE' +
', CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' PERSONA_CONTA' + ', CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' PERSONA_CONTA' +
'CTO, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, PORTE)'#10' VALUES'#10' (:I' + 'CTO, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, PORTE, NIF_CIF)'#10' VALUE' +
'D, :ID_CONTACTO, :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIG' + 'S'#10' (:ID, :ID_CONTACTO, :NOMBRE, :CALLE, :POBLACION, :PROVINCI' +
'O_POSTAL,'#10' :PERSONA_CONTACTO, :TELEFONO, :MOVIL, :FAX, :EMAI' + 'A, :CODIGO_POSTAL,'#10' :PERSONA_CONTACTO, :TELEFONO, :MOVIL, :F' +
'L, :NOTAS, :PORTE)' 'AX, :EMAIL, :NOTAS, :PORTE, :NIF_CIF)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3165,97 +3160,59 @@ object srvContactos: TsrvContactos
Params = < Params = <
item item
Name = 'ID_CONTACTO' Name = 'ID_CONTACTO'
DataType = datInteger
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 = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString
Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'MOVIL' Name = 'MOVIL'
DataType = datString
Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FAX' Name = 'FAX'
DataType = datString
Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'EMAIL' Name = 'EMAIL'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NOTAS' Name = 'NOTAS'
DataType = datMemo
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PORTE' Name = '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
@ -3267,8 +3224,8 @@ object srvContactos: TsrvContactos
'POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CO' + 'POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CO' +
'DIGO_POSTAL, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' TELE' + 'DIGO_POSTAL, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' TELE' +
'FONO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' FAX = :FAX,'#10' EMAIL ' + 'FONO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' FAX = :FAX,'#10' EMAIL ' +
'= :EMAIL,'#10' NOTAS = :NOTAS,'#10' PORTE = :PORTE'#10' WHERE'#10' (ID' + '= :EMAIL,'#10' NOTAS = :NOTAS,'#10' PORTE = :PORTE,'#10' NIF_CIF = ' +
' = :OLD_ID)' 'NIF_CIF'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

2
Source/Modulos/Contactos/Views/Contactos_view.dpk
View File

@ -74,7 +74,7 @@ contains
uViewDireccionesEntrega in 'uViewDireccionesEntrega.pas' {frViewDireccionesEntrega: TFrame}, uViewDireccionesEntrega in 'uViewDireccionesEntrega.pas' {frViewDireccionesEntrega: TFrame},
uViewClienteDescuentos in 'uViewClienteDescuentos.pas' {frViewClienteDescuentos: TFrame}, uViewClienteDescuentos in 'uViewClienteDescuentos.pas' {frViewClienteDescuentos: TFrame},
uEditorDireccion in 'uEditorDireccion.pas' {fEditorDireccion}, uEditorDireccion in 'uEditorDireccion.pas' {fEditorDireccion},
uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega}, uEditorElegirDireccion in 'uEditorElegirDireccion.pas' {fEditorElegirDireccion: TfEditorElegirDireccionEntrega},
uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas' {frViewClienteDatosBancarios: TFrame}, uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas' {frViewClienteDatosBancarios: TFrame},
uViewProveedorDatosComerciales in 'uViewProveedorDatosComerciales.pas' {frViewProveedorDatosComerciales: TFrame}, uViewProveedorDatosComerciales in 'uViewProveedorDatosComerciales.pas' {frViewProveedorDatosComerciales: TFrame},
uViewClienteDatosComerciales in 'uViewClienteDatosComerciales.pas' {frViewClienteDatosComerciales: TFrame}, uViewClienteDatosComerciales in 'uViewClienteDatosComerciales.pas' {frViewClienteDatosComerciales: TFrame},

54
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,31 +49,31 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\Base.dcp" />
<DCCReference Include="..\ccpackD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\ccpackD11.dcp" />
<DCCReference Include="..\cfpack_d11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\cfpack_d11.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\Contactos_model.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\designide.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\dsnap.dcp" />
<DCCReference Include="..\FormasPago_controller.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\FormasPago_controller.dcp" />
<DCCReference Include="..\FormasPago_model.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\FormasPago_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\GUIBase.dcp" />
<DCCReference Include="..\GUISDK_D11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\GUISDK_D11.dcp" />
<DCCReference Include="..\JvGlobusD11R.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\JvGlobusD11R.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\rtl.dcp" />
<DCCReference Include="..\TiposIVA_controller.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\TiposIVA_controller.dcp" />
<DCCReference Include="..\TiposIVA_model.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\TiposIVA_model.dcp" />
<DCCReference Include="..\vcl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\vclx.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Views\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas"> <DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form> <Form>fEditorCliente</Form>
@ -98,8 +98,8 @@
<Form>fEditorElegirClientes</Form> <Form>fEditorElegirClientes</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorElegirDireccionEntrega.pas"> <DCCReference Include="uEditorElegirDireccion.pas">
<Form>fEditorElegirDireccionEntrega</Form> <Form>fEditorElegirDireccion</Form>
<DesignClass>TfEditorElegirDireccionEntrega</DesignClass> <DesignClass>TfEditorElegirDireccionEntrega</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorElegirProveedores.pas"> <DCCReference Include="uEditorElegirProveedores.pas">

6
Source/Modulos/Contactos/Views/uContactosViewRegister.pas
View File

@ -13,7 +13,7 @@ uses
uEditorEmpleados, uEditorElegirCLientes, uEditorEmpleados, uEditorElegirCLientes,
uEditorCliente, uEditorProveedor, uEditorCliente, uEditorProveedor,
uEditorEmpleado, uEditorElegirProveedores, uEditorDireccion, uEditorEmpleado, uEditorElegirProveedores, uEditorDireccion,
uEditorElegirDireccionEntrega, uEditorGruposCliente, uEditorProcedenciasCliente, uEditorElegirDireccion, uEditorGruposCliente, uEditorProcedenciasCliente,
uEditorGruposProveedor, uEditorGruposEmpleado, uEditorGruposProveedor, uEditorGruposEmpleado,
uEditorFichasEmpleadoReport, uEditorEtiquetasContactosReport; uEditorFichasEmpleadoReport, uEditorEtiquetasContactosReport;
@ -31,7 +31,7 @@ begin
EditorRegistry.RegisterClass(TfEditorElegirProveedores, 'EditorElegirProveedores'); EditorRegistry.RegisterClass(TfEditorElegirProveedores, 'EditorElegirProveedores');
EditorRegistry.RegisterClass(TfEditorDireccion, 'EditorDireccion'); EditorRegistry.RegisterClass(TfEditorDireccion, 'EditorDireccion');
EditorRegistry.RegisterClass(TfEditorElegirDireccionEntrega, 'EditorElegirDireccionEntrega'); EditorRegistry.RegisterClass(TfEditorElegirDireccion, 'EditorElegirDireccion');
EditorRegistry.RegisterClass(TfEditorGruposCliente, 'EditorGruposCliente'); EditorRegistry.RegisterClass(TfEditorGruposCliente, 'EditorGruposCliente');
EditorRegistry.RegisterClass(TfEditorProcedenciasCliente, 'EditorProcedenciasCliente'); EditorRegistry.RegisterClass(TfEditorProcedenciasCliente, 'EditorProcedenciasCliente');
@ -56,7 +56,7 @@ begin
EditorRegistry.UnRegisterClass(TfEditorElegirProveedores); EditorRegistry.UnRegisterClass(TfEditorElegirProveedores);
EditorRegistry.UnRegisterClass(TfEditorDireccion); EditorRegistry.UnRegisterClass(TfEditorDireccion);
EditorRegistry.UnRegisterClass(TfEditorElegirDireccionEntrega); EditorRegistry.UnRegisterClass(TfEditorElegirDireccion);
EditorRegistry.UnRegisterClass(TfEditorGruposCliente); EditorRegistry.UnRegisterClass(TfEditorGruposCliente);
EditorRegistry.UnRegisterClass(TfEditorProcedenciasCliente); EditorRegistry.UnRegisterClass(TfEditorProcedenciasCliente);

75
Source/Modulos/Contactos/Views/uEditorDireccion.dfm
View File

@ -19,13 +19,13 @@ object fEditorDireccion: TfEditorDireccion
Left = 8 Left = 8
Top = 8 Top = 8
Width = 322 Width = 322
Height = 511 Height = 553
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Shape = bsFrame Shape = bsFrame
end end
object Label1: TLabel object Label1: TLabel
Left = 20 Left = 20
Top = 67 Top = 93
Width = 110 Width = 110
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -33,7 +33,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object Label2: TLabel object Label2: TLabel
Left = 20 Left = 20
Top = 131 Top = 157
Width = 110 Width = 110
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -41,7 +41,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object Label3: TLabel object Label3: TLabel
Left = 20 Left = 20
Top = 159 Top = 185
Width = 110 Width = 110
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -49,7 +49,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object Label4: TLabel object Label4: TLabel
Left = 20 Left = 20
Top = 185 Top = 211
Width = 110 Width = 110
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -57,7 +57,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object Label5: TLabel object Label5: TLabel
Left = 20 Left = 20
Top = 27 Top = 53
Width = 110 Width = 110
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -65,7 +65,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object Label6: TLabel object Label6: TLabel
Left = 20 Left = 20
Top = 227 Top = 263
Width = 109 Width = 109
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -73,7 +73,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object Label7: TLabel object Label7: TLabel
Left = 21 Left = 21
Top = 251 Top = 287
Width = 109 Width = 109
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -81,7 +81,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object PngSpeedButton3: TPngSpeedButton object PngSpeedButton3: TPngSpeedButton
Left = 304 Left = 304
Top = 320 Top = 356
Width = 23 Width = 23
Height = 22 Height = 22
OnClick = PngSpeedButton3Click OnClick = PngSpeedButton3Click
@ -106,7 +106,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object Label8: TLabel object Label8: TLabel
Left = 21 Left = 21
Top = 323 Top = 359
Width = 109 Width = 109
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -114,7 +114,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object Label9: TLabel object Label9: TLabel
Left = 21 Left = 21
Top = 363 Top = 399
Width = 109 Width = 109
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -122,14 +122,14 @@ object fEditorDireccion: TfEditorDireccion
end end
object Bevel2: TBevel object Bevel2: TBevel
Left = 20 Left = 20
Top = 457 Top = 491
Width = 306 Width = 306
Height = 9 Height = 9
Shape = bsBottomLine Shape = bsBottomLine
end end
object Label10: TLabel object Label10: TLabel
Left = 21 Left = 21
Top = 489 Top = 523
Width = 156 Width = 156
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -137,7 +137,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object Label11: TLabel object Label11: TLabel
Left = 21 Left = 21
Top = 275 Top = 311
Width = 109 Width = 109
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -145,12 +145,20 @@ object fEditorDireccion: TfEditorDireccion
end end
object Label12: TLabel object Label12: TLabel
Left = 21 Left = 21
Top = 299 Top = 335
Width = 109 Width = 109
Height = 13 Height = 13
AutoSize = False AutoSize = False
Caption = 'Fax:' Caption = 'Fax:'
end end
object Label13: TLabel
Left = 20
Top = 26
Width = 110
Height = 13
AutoSize = False
Caption = 'NIF / CIF:'
end
object OKBtn: TButton object OKBtn: TButton
Left = 343 Left = 343
Top = 7 Top = 7
@ -160,7 +168,6 @@ object fEditorDireccion: TfEditorDireccion
Caption = '&Aceptar' Caption = '&Aceptar'
ModalResult = 1 ModalResult = 1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 350
end end
object CancelBtn: TButton object CancelBtn: TButton
Left = 343 Left = 343
@ -172,11 +179,10 @@ object fEditorDireccion: TfEditorDireccion
Caption = '&Cancelar' Caption = '&Cancelar'
ModalResult = 2 ModalResult = 2
TabOrder = 1 TabOrder = 1
ExplicitLeft = 350
end end
object eDireccion: TDBEdit object eDireccion: TDBEdit
Left = 135 Left = 135
Top = 65 Top = 91
Width = 191 Width = 191
Height = 57 Height = 57
AutoSelect = False AutoSelect = False
@ -187,7 +193,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object ePoblacion: TDBEdit object ePoblacion: TDBEdit
Left = 135 Left = 135
Top = 128 Top = 154
Width = 191 Width = 191
Height = 21 Height = 21
DataField = 'POBLACION' DataField = 'POBLACION'
@ -196,7 +202,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object eProvincia: TDBEdit object eProvincia: TDBEdit
Left = 135 Left = 135
Top = 156 Top = 182
Width = 191 Width = 191
Height = 21 Height = 21
DataField = 'PROVINCIA' DataField = 'PROVINCIA'
@ -205,7 +211,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object eCodigoPostal: TDBEdit object eCodigoPostal: TDBEdit
Left = 135 Left = 135
Top = 182 Top = 208
Width = 191 Width = 191
Height = 21 Height = 21
DataField = 'CODIGO_POSTAL' DataField = 'CODIGO_POSTAL'
@ -213,8 +219,8 @@ object fEditorDireccion: TfEditorDireccion
TabOrder = 6 TabOrder = 6
end end
object eNombre: TDBEdit object eNombre: TDBEdit
Left = 135 Left = 136
Top = 24 Top = 50
Width = 191 Width = 191
Height = 21 Height = 21
DataField = 'NOMBRE' DataField = 'NOMBRE'
@ -223,7 +229,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object ePersonaContacto: TDBEdit object ePersonaContacto: TDBEdit
Left = 135 Left = 135
Top = 224 Top = 260
Width = 191 Width = 191
Height = 21 Height = 21
DataField = 'PERSONA_CONTACTO' DataField = 'PERSONA_CONTACTO'
@ -232,7 +238,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object eTelefono: TDBEdit object eTelefono: TDBEdit
Left = 136 Left = 136
Top = 248 Top = 284
Width = 191 Width = 191
Height = 21 Height = 21
DataField = 'TELEFONO' DataField = 'TELEFONO'
@ -241,7 +247,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object eMail: TcxDBHyperLinkEdit object eMail: TcxDBHyperLinkEdit
Left = 136 Left = 136
Top = 320 Top = 356
DataBinding.DataField = 'EMAIL' DataBinding.DataField = 'EMAIL'
DataBinding.DataSource = dsDireccion DataBinding.DataSource = dsDireccion
Properties.OnEditValueChanged = eMailPropertiesEditValueChanged Properties.OnEditValueChanged = eMailPropertiesEditValueChanged
@ -263,7 +269,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object eNotas: TDBMemo object eNotas: TDBMemo
Left = 136 Left = 136
Top = 360 Top = 396
Width = 190 Width = 190
Height = 94 Height = 94
DataField = 'NOTAS' DataField = 'NOTAS'
@ -273,7 +279,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object ePortes: TcxDBCurrencyEdit object ePortes: TcxDBCurrencyEdit
Left = 183 Left = 183
Top = 486 Top = 520
DataBinding.DataField = 'PORTE' DataBinding.DataField = 'PORTE'
DataBinding.DataSource = dsDireccion DataBinding.DataSource = dsDireccion
Properties.UseThousandSeparator = True Properties.UseThousandSeparator = True
@ -290,7 +296,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object eMovil: TDBEdit object eMovil: TDBEdit
Left = 136 Left = 136
Top = 272 Top = 308
Width = 191 Width = 191
Height = 21 Height = 21
DataField = 'MOVIL' DataField = 'MOVIL'
@ -299,13 +305,22 @@ object fEditorDireccion: TfEditorDireccion
end end
object eFax: TDBEdit object eFax: TDBEdit
Left = 136 Left = 136
Top = 296 Top = 332
Width = 191 Width = 191
Height = 21 Height = 21
DataField = 'FAX' DataField = 'FAX'
DataSource = dsDireccion DataSource = dsDireccion
TabOrder = 13 TabOrder = 13
end end
object eNifCif: TDBEdit
Left = 136
Top = 23
Width = 191
Height = 21
DataField = 'NIF_CIF'
DataSource = dsDireccion
TabOrder = 14
end
object dsDireccion: TDADataSource object dsDireccion: TDADataSource
Left = 352 Left = 352
Top = 72 Top = 72

2
Source/Modulos/Contactos/Views/uEditorDireccion.pas
View File

@ -40,6 +40,8 @@ type
eMovil: TDBEdit; eMovil: TDBEdit;
Label12: TLabel; Label12: TLabel;
eFax: TDBEdit; eFax: TDBEdit;
Label13: TLabel;
eNifCif: TDBEdit;
procedure PngSpeedButton3Click(Sender: TObject); procedure PngSpeedButton3Click(Sender: TObject);
procedure eMailPropertiesEditValueChanged(Sender: TObject); procedure eMailPropertiesEditValueChanged(Sender: TObject);
procedure eMailPropertiesValidate(Sender: TObject; procedure eMailPropertiesValidate(Sender: TObject;

247
Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm
View File

@ -1,247 +0,0 @@
object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
Left = 227
Top = 108
BorderStyle = bsDialog
Caption = 'Elegir una direcciones de cliente'
ClientHeight = 383
ClientWidth = 599
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
Position = poOwnerFormCenter
PixelsPerInch = 96
TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader
Left = 0
Top = 0
Width = 599
Height = 60
CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWindowText
CaptionFont.Height = -11
CaptionFont.Name = 'Tahoma'
CaptionFont.Style = [fsBold]
CommentFont.Charset = DEFAULT_CHARSET
CommentFont.Color = clWindowText
CommentFont.Height = -11
CommentFont.Name = 'Tahoma'
CommentFont.Style = []
SymbolFont.Charset = DEFAULT_CHARSET
SymbolFont.Color = clHighlightText
SymbolFont.Height = -35
SymbolFont.Name = 'Wingdings'
SymbolFont.Style = [fsBold]
Captions.Strings = (
'Seleccione una direcci'#243'n del cliente')
Comments.Strings = (
'El cliente dispone de varias direcciones dadas de alta en su fic' +
'ha. Seleccione la direcci'#243'n del cliente que quiere utilizar.')
Gradient.FromColor = clHighlight
Gradient.ToColor = clWindow
Gradient.Active = False
Gradient.Orientation = fgdVertical
BufferedDraw = False
ExplicitLeft = -57
ExplicitTop = 27
ExplicitWidth = 656
end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion
Left = 0
Top = 334
Width = 599
Height = 49
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitTop = 334
ExplicitWidth = 599
inherited JvFooter1: TJvFooter
Width = 599
ExplicitWidth = 599
inherited bSeleccionar: TJvFooterBtn
Left = 387
ExplicitLeft = 387
end
inherited bCancelar: TJvFooterBtn
Left = 491
ExplicitLeft = 491
end
end
inherited BarraSeleccionActionList: TActionList
Top = 11
inherited actSeleccionar: TAction
OnExecute = frViewBarraSeleccion1actSeleccionarExecute
end
inherited actCancelar: TAction
OnExecute = frViewBarraSeleccion1actCancelarExecute
end
end
end
object DBCtrlGrid1: TDBCtrlGrid
Left = 8
Top = 66
Width = 583
Height = 261
Margins.Left = 10
Margins.Top = 10
Margins.Right = 10
Margins.Bottom = 0
AllowDelete = False
AllowInsert = False
Color = clBtnFace
DataSource = dsDirecciones
PanelHeight = 87
PanelWidth = 566
ParentColor = False
TabOrder = 1
SelectedColor = clHighlight
OnDblClick = DBCtrlGrid1DblClick
object eCalle: TDBText
Left = 48
Top = 28
Width = 512
Height = 17
DataField = 'CALLE'
DataSource = dsDirecciones
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
object ePoblacion: TDBText
Left = 70
Top = 47
Width = 277
Height = 17
DataField = 'POBLACION'
DataSource = dsDirecciones
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
object eTelefono: TDBText
Left = 423
Top = 66
Width = 137
Height = 17
DataField = 'TELEFONO'
DataSource = dsDirecciones
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
object eProvincia: TDBText
Left = 423
Top = 47
Width = 137
Height = 17
DataField = 'PROVINCIA'
DataSource = dsDirecciones
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
object ePersonaContacto: TDBText
Left = 124
Top = 66
Width = 284
Height = 17
DataField = 'PERSONA_CONTACTO'
DataSource = dsDirecciones
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
object eNombre: TDBText
Left = 8
Top = 7
Width = 345
Height = 17
DataField = 'NOMBRE'
DataSource = dsDirecciones
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
object eCodigoPostal: TDBText
Left = 353
Top = 47
Width = 64
Height = 17
DataField = 'CODIGO_POSTAL'
DataSource = dsDirecciones
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
object Label1: TLabel
Left = 15
Top = 28
Width = 27
Height = 13
Caption = 'Calle:'
OnDblClick = ComponenteDblClick
end
object Label2: TLabel
Left = 15
Top = 47
Width = 49
Height = 13
Caption = 'Poblaci'#243'n:'
OnDblClick = ComponenteDblClick
end
object Label4: TLabel
Left = 15
Top = 66
Width = 103
Height = 13
Caption = 'Persona de contacto:'
OnDblClick = ComponenteDblClick
end
end
object dsDirecciones: TDADataSource
Left = 24
Top = 286
end
end

110
Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas
View File

@ -1,110 +0,0 @@
unit uEditorElegirDireccionEntrega;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
uIEditorElegirDireccionEntrega, uCustomView,
uViewBase, uViewBarraSeleccion, JvExControls, JvComponent, JvgWizardHeader,
DBCGrids, uBizDireccionesContacto, uDAInterfaces;
type
TfEditorElegirDireccionEntrega = class(TForm, IEditorElegirDireccionEntrega)
dsDirecciones: TDADataSource;
frViewBarraSeleccion1: TfrViewBarraSeleccion;
JvgWizardHeader1: TJvgWizardHeader;
DBCtrlGrid1: TDBCtrlGrid;
eCalle: TDBText;
ePoblacion: TDBText;
eTelefono: TDBText;
eProvincia: TDBText;
ePersonaContacto: TDBText;
eNombre: TDBText;
eCodigoPostal: TDBText;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
procedure DBCtrlGrid1DblClick(Sender: TObject);
procedure ComponenteDblClick(Sender: TObject);
protected
FDirecciones: IBizDireccionesContacto;
function GetDireccion: IBizDireccionesContacto;
procedure SetDireccion(const Value: IBizDireccionesContacto);
procedure SetMensaje (const AValue: String);
function GetMensaje: String;
function GetDireccionSeleccionada: IBizDireccionesContacto;
public
property Mensaje : String read GetMensaje write SetMensaje;
property Direccion: IBizDireccionesContacto read GetDireccion write SetDireccion;
property DireccionSeleccionada: IBizDireccionesContacto read GetDireccionSeleccionada;
end;
implementation
{$R *.dfm}
uses
uDireccionesContactoController;
{ TfEditorDireccionEntrega }
procedure TfEditorElegirDireccionEntrega.DBCtrlGrid1DblClick(Sender: TObject);
begin
frViewBarraSeleccion1.actSeleccionar.Execute;
end;
procedure TfEditorElegirDireccionEntrega.ComponenteDblClick(Sender: TObject);
begin
DBCtrlGrid1DblClick(Sender);
end;
procedure TfEditorElegirDireccionEntrega.frViewBarraSeleccion1actCancelarExecute(
Sender: TObject);
begin
ModalResult := mrCancel;
end;
procedure TfEditorElegirDireccionEntrega.frViewBarraSeleccion1actSeleccionarExecute(
Sender: TObject);
begin
ModalResult := mrOk;
end;
function TfEditorElegirDireccionEntrega.GetDireccion: IBizDireccionesContacto;
begin
Result := FDirecciones;
end;
function TfEditorElegirDireccionEntrega.GetDireccionSeleccionada: IBizDireccionesContacto;
begin
// Devuelvo el mismo objeto que recibo pero con el punto de lectura
// posicionado en la dirección elegida.
Result := FDirecciones;
end;
function TfEditorElegirDireccionEntrega.GetMensaje: String;
begin
Result := JvgWizardHeader1.Comments.Text;
end;
procedure TfEditorElegirDireccionEntrega.SetDireccion(const Value: IBizDireccionesContacto);
begin
FDirecciones := Value;
if Assigned(FDirecciones) then
dsDirecciones.DataTable := FDirecciones.DataTable
else
dsDirecciones.DataTable := NIL;
end;
procedure TfEditorElegirDireccionEntrega.SetMensaje(const AValue: String);
begin
JvgWizardHeader1.Comments.Text := AValue;
end;
end.

124
Source/Modulos/Contactos/Views/uEditorProveedor.dfm
View File

@ -83,129 +83,129 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 634 ExplicitWidth = 634
ExplicitHeight = 461 ExplicitHeight = 461
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 589 Left = 572
Top = 218 Top = 218
ExplicitLeft = 589 ExplicitLeft = 572
ExplicitTop = 218 ExplicitTop = 218
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 589 Left = 572
Top = 190 Top = 190
ExplicitLeft = 589 ExplicitLeft = 572
ExplicitTop = 190 ExplicitTop = 190
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 589 Left = 572
Top = 162 Top = 162
ExplicitLeft = 589 ExplicitLeft = 572
ExplicitTop = 162 ExplicitTop = 162
end end
inherited Label1: TLabel inherited Label1: TLabel
Left = 391 Left = 381
Top = 341 Top = 341
Width = 342 Width = 342
ExplicitLeft = 391 ExplicitLeft = 381
ExplicitTop = 341 ExplicitTop = 341
ExplicitWidth = 342 ExplicitWidth = 342
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 241 Top = 243
ExplicitTop = 241 ExplicitTop = 243
ExplicitWidth = 174 ExplicitWidth = 174
Width = 174 Width = 174
end end
inherited eProvincia: TcxDBTextEdit inherited eProvincia: TcxDBTextEdit
Top = 295 Top = 297
ExplicitTop = 295 ExplicitTop = 297
ExplicitWidth = 174 ExplicitWidth = 174
Width = 174 Width = 174
end end
inherited ePoblacion: TcxDBTextEdit inherited ePoblacion: TcxDBTextEdit
Top = 268 Top = 270
ExplicitTop = 268 ExplicitTop = 270
ExplicitWidth = 108 ExplicitWidth = 108
Width = 108 Width = 108
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 298 Left = 288
Top = 268 Top = 270
ExplicitLeft = 298 ExplicitLeft = 288
ExplicitTop = 268 ExplicitTop = 270
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 424 Top = 426
ExplicitTop = 424 ExplicitTop = 426
ExplicitWidth = 580 ExplicitWidth = 580
ExplicitHeight = 56 ExplicitHeight = 56
Height = 56 Height = 56
Width = 580 Width = 580
end end
inherited cxDBCheckBox1: TcxDBCheckBox inherited cxDBCheckBox1: TcxDBCheckBox
Left = 391 Left = 381
Top = 373 Top = 373
ExplicitLeft = 391 ExplicitLeft = 381
ExplicitTop = 373 ExplicitTop = 373
ExplicitWidth = 310 ExplicitWidth = 310
Width = 310 Width = 310
end end
inherited cxDBCheckBox2: TcxDBCheckBox inherited cxDBCheckBox2: TcxDBCheckBox
Top = 346 Top = 348
ExplicitTop = 346 ExplicitTop = 348
ExplicitWidth = 326 ExplicitWidth = 326
Width = 326 Width = 326
end end
inherited eCertificaciones: TcxDBTextEdit inherited eCertificaciones: TcxDBTextEdit
Top = 373 Top = 375
ExplicitTop = 373 ExplicitTop = 375
ExplicitWidth = 227 ExplicitWidth = 227
Width = 227 Width = 227
end end
inherited cbGrupoProveedor: TcxDBComboBox inherited cbGrupoProveedor: TcxDBComboBox
Top = 138 Top = 165
ExplicitTop = 138 ExplicitTop = 165
ExplicitWidth = 227 ExplicitWidth = 227
Width = 227 Width = 227
end end
inherited eDescripcionProveedor: TcxDBTextEdit inherited eDescripcionProveedor: TcxDBTextEdit
Top = 84
ExplicitTop = 84
ExplicitWidth = 221
Width = 221
end
inherited eCodigoAsignado: TcxDBTextEdit
Top = 111 Top = 111
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 221 ExplicitWidth = 221
Width = 221 Width = 221
end end
inherited eCodigoAsignado: TcxDBTextEdit
Top = 138
ExplicitTop = 138
ExplicitWidth = 221
Width = 221
end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 486 Left = 476
Top = 57 Top = 57
ExplicitLeft = 486 ExplicitLeft = 476
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 486 Left = 476
Top = 30 Top = 30
ExplicitLeft = 486 ExplicitLeft = 476
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 486 Left = 476
Top = 84 Top = 84
ExplicitLeft = 486 ExplicitLeft = 476
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 486 Left = 476
Top = 111 Top = 111
ExplicitLeft = 486 ExplicitLeft = 476
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
@ -217,35 +217,33 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 263 Width = 263
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 215
Top = 30 Top = 30
ExplicitLeft = 215
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 254 ExplicitWidth = 254
Width = 254 Width = 254
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 486 Left = 476
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 486 ExplicitLeft = 476
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 129 ExplicitWidth = 129
Width = 129 Width = 129
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 486 Left = 476
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 486 ExplicitLeft = 476
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 486 Left = 476
Top = 217 Top = 217
ExplicitLeft = 486 ExplicitLeft = 476
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
@ -257,15 +255,15 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 100 Width = 100
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 214 Top = 216
ExplicitTop = 214 ExplicitTop = 216
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
inherited frViewTienda1: TfrViewTienda inherited frViewTienda1: TfrViewTienda
Left = 391 Left = 381
Top = 270 Top = 270
ExplicitLeft = 391 ExplicitLeft = 381
ExplicitTop = 270 ExplicitTop = 270
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
@ -274,6 +272,12 @@ inherited fEditorProveedor: TfEditorProveedor
end end
end end
end end
inherited eNombreComercial: TcxDBTextEdit
Top = 84
ExplicitTop = 84
ExplicitWidth = 192
Width = 192
end
end end
end end
end end
@ -410,6 +414,18 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 634 Width = 634
ExplicitWidth = 634 ExplicitWidth = 634
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end

1
Source/Modulos/Contactos/Views/uViewCliente.dfm
View File

@ -334,7 +334,6 @@ inherited frViewCliente: TfrViewCliente
inherited dxLayoutControlContactoGroup1: TdxLayoutGroup inherited dxLayoutControlContactoGroup1: TdxLayoutGroup
object dxLayoutControlContactoItem24: TdxLayoutItem object dxLayoutControlContactoItem24: TdxLayoutItem
Caption = 'Nombre comercial:' Caption = 'Nombre comercial:'
Visible = False
Control = eNombreComercial Control = eNombreComercial
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

20
Source/Modulos/Contactos/Views/uViewDireccionesEntrega.dfm
View File

@ -15,6 +15,10 @@ inherited frViewDireccionesEntrega: TfrViewDireccionesEntrega
OptionsData.DeletingConfirmation = False OptionsData.DeletingConfirmation = False
OptionsData.Editing = False OptionsData.Editing = False
OptionsData.Inserting = False OptionsData.Inserting = False
object cxGridViewNIF_CIF: TcxGridDBColumn
Caption = 'NIF/CIF'
DataBinding.FieldName = 'NIF_CIF'
end
object cxGridViewNOMBRE: TcxGridDBColumn object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Nombre' Caption = 'Nombre'
DataBinding.FieldName = 'NOMBRE' DataBinding.FieldName = 'NOMBRE'
@ -76,31 +80,15 @@ inherited frViewDireccionesEntrega: TfrViewDireccionesEntrega
Width = 583 Width = 583
ExplicitWidth = 583 ExplicitWidth = 583
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 62 ExplicitWidth = 62
end end
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 74 ExplicitWidth = 74
end end
inherited ToolButton5: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton2: TToolButton inherited ToolButton2: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 67 ExplicitWidth = 67
end end
inherited ToolButton6: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 117 ExplicitWidth = 117
end end
end end

1
Source/Modulos/Contactos/Views/uViewDireccionesEntrega.pas
View File

@ -23,6 +23,7 @@ type
cxGridViewTELEFONO: TcxGridDBColumn; cxGridViewTELEFONO: TcxGridDBColumn;
cxGridViewEMAIL: TcxGridDBColumn; cxGridViewEMAIL: TcxGridDBColumn;
cxGridViewPORTE: TcxGridDBColumn; cxGridViewPORTE: TcxGridDBColumn;
cxGridViewNIF_CIF: TcxGridDBColumn;
procedure cxGridViewDblClick(Sender: TObject); procedure cxGridViewDblClick(Sender: TObject);
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
protected protected

103
Source/Modulos/Contactos/Views/uViewProveedor.dfm
View File

@ -35,7 +35,7 @@ inherited frViewProveedor: TfrViewProveedor
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 138 Left = 138
Top = 380 Top = 380
TabOrder = 7 TabOrder = 8
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitTop = 380 ExplicitTop = 380
ExplicitWidth = 264 ExplicitWidth = 264
@ -44,7 +44,7 @@ inherited frViewProveedor: TfrViewProveedor
inherited eProvincia: TcxDBTextEdit inherited eProvincia: TcxDBTextEdit
Left = 138 Left = 138
Top = 434 Top = 434
TabOrder = 10 TabOrder = 11
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitTop = 434 ExplicitTop = 434
ExplicitWidth = 264 ExplicitWidth = 264
@ -53,7 +53,7 @@ inherited frViewProveedor: TfrViewProveedor
inherited ePoblacion: TcxDBTextEdit inherited ePoblacion: TcxDBTextEdit
Left = 138 Left = 138
Top = 407 Top = 407
TabOrder = 8 TabOrder = 9
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitTop = 407 ExplicitTop = 407
ExplicitWidth = 163 ExplicitWidth = 163
@ -62,13 +62,13 @@ inherited frViewProveedor: TfrViewProveedor
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 307 Left = 307
Top = 407 Top = 407
TabOrder = 9 TabOrder = 10
ExplicitLeft = 307 ExplicitLeft = 307
ExplicitTop = 407 ExplicitTop = 407
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 575 Top = 575
TabOrder = 22 TabOrder = 23
ExplicitTop = 575 ExplicitTop = 575
ExplicitWidth = 630 ExplicitWidth = 630
ExplicitHeight = 20 ExplicitHeight = 20
@ -97,7 +97,7 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 21 TabOrder = 22
Width = 310 Width = 310
end end
object cxDBCheckBox2: TcxDBCheckBox [10] object cxDBCheckBox2: TcxDBCheckBox [10]
@ -121,7 +121,7 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11 TabOrder = 12
Width = 326 Width = 326
end end
object eCertificaciones: TcxDBTextEdit [11] object eCertificaciones: TcxDBTextEdit [11]
@ -140,12 +140,12 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12 TabOrder = 13
Width = 227 Width = 227
end end
object cbGrupoProveedor: TcxDBComboBox [12] object cbGrupoProveedor: TcxDBComboBox [12]
Left = 138 Left = 138
Top = 136 Top = 163
DataBinding.DataField = 'GRUPO_PROVEEDOR' DataBinding.DataField = 'GRUPO_PROVEEDOR'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -164,32 +164,13 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 6
Width = 227 Width = 227
end end
object eDescripcionProveedor: TcxDBTextEdit [13] object eDescripcionProveedor: TcxDBTextEdit [13]
Left = 138
Top = 82
DataBinding.DataField = 'DESCRIPCION_PROVEEDOR'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Width = 221
end
object eCodigoAsignado: TcxDBTextEdit [14]
Left = 138 Left = 138
Top = 109 Top = 109
DataBinding.DataField = 'CODIGO_ASIGNADO' DataBinding.DataField = 'DESCRIPCION_PROVEEDOR'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -205,30 +186,49 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 4 TabOrder = 4
Width = 221 Width = 221
end end
object eCodigoAsignado: TcxDBTextEdit [14]
Left = 138
Top = 136
DataBinding.DataField = 'CODIGO_ASIGNADO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
Width = 221
end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 497 Left = 497
TabOrder = 14 TabOrder = 15
ExplicitLeft = 497 ExplicitLeft = 497
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 497 Left = 497
TabOrder = 13 TabOrder = 14
ExplicitLeft = 497 ExplicitLeft = 497
ExplicitWidth = 127 ExplicitWidth = 127
Width = 127 Width = 127
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 497 Left = 497
TabOrder = 15 TabOrder = 16
ExplicitLeft = 497 ExplicitLeft = 497
ExplicitWidth = 155 ExplicitWidth = 155
Width = 155 Width = 155
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 497 Left = 497
TabOrder = 16 TabOrder = 17
ExplicitLeft = 497 ExplicitLeft = 497
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
@ -248,7 +248,7 @@ inherited frViewProveedor: TfrViewProveedor
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 497 Left = 497
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
TabOrder = 17 TabOrder = 18
ExplicitLeft = 497 ExplicitLeft = 497
ExplicitWidth = 133 ExplicitWidth = 133
Width = 133 Width = 133
@ -256,14 +256,14 @@ inherited frViewProveedor: TfrViewProveedor
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 497 Left = 497
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
TabOrder = 18 TabOrder = 19
ExplicitLeft = 497 ExplicitLeft = 497
ExplicitWidth = 133 ExplicitWidth = 133
Width = 133 Width = 133
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 497 Left = 497
TabOrder = 19 TabOrder = 20
ExplicitLeft = 497 ExplicitLeft = 497
ExplicitWidth = 133 ExplicitWidth = 133
Width = 133 Width = 133
@ -277,7 +277,7 @@ inherited frViewProveedor: TfrViewProveedor
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Left = 138 Left = 138
Top = 353 Top = 353
TabOrder = 6 TabOrder = 7
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitTop = 353 ExplicitTop = 353
ExplicitWidth = 256 ExplicitWidth = 256
@ -286,7 +286,7 @@ inherited frViewProveedor: TfrViewProveedor
inherited frViewTienda1: TfrViewTienda inherited frViewTienda1: TfrViewTienda
Left = 402 Left = 402
Width = 290 Width = 290
TabOrder = 20 TabOrder = 21
ExplicitLeft = 402 ExplicitLeft = 402
ExplicitWidth = 290 ExplicitWidth = 290
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -298,10 +298,35 @@ inherited frViewProveedor: TfrViewProveedor
end end
end end
end end
object eNombreComercial: TcxDBTextEdit [27]
Left = 138
Top = 82
DataBinding.DataField = 'NOMBRE_COMERCIAL'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Width = 192
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
inherited dxLayoutControlContactoGroup1: TdxLayoutGroup inherited dxLayoutControlContactoGroup1: TdxLayoutGroup
object dxLayoutControlContactoItem27: TdxLayoutItem
Caption = 'Nombre comercial:'
Control = eNombreComercial
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem21: TdxLayoutItem object dxLayoutControlContactoItem21: TdxLayoutItem
Caption = 'Proveedor de...:' Caption = 'Proveedor de...:'
Control = eDescripcionProveedor Control = eDescripcionProveedor

2
Source/Modulos/Contactos/Views/uViewProveedor.pas
View File

@ -32,6 +32,8 @@ type
dxLayoutControlContactoItem24: TdxLayoutItem; dxLayoutControlContactoItem24: TdxLayoutItem;
eCodigoAsignado: TcxDBTextEdit; eCodigoAsignado: TcxDBTextEdit;
dxLayoutControlContactoItem26: TdxLayoutItem; dxLayoutControlContactoItem26: TdxLayoutItem;
dxLayoutControlContactoItem27: TdxLayoutItem;
eNombreComercial: TcxDBTextEdit;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure cbGrupoProveedorPropertiesInitPopup(Sender: TObject); procedure cbGrupoProveedorPropertiesInitPopup(Sender: TObject);

14
Source/Modulos/Contactos/Views/uViewProveedores.dfm
View File

@ -34,6 +34,10 @@ inherited frViewProveedores: TfrViewProveedores
Options.HorzSizing = False Options.HorzSizing = False
Width = 22 Width = 22
end end
object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn [6]
Caption = 'Nombre comercial'
DataBinding.FieldName = 'NOMBRE_COMERCIAL'
end
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
@ -44,7 +48,17 @@ inherited frViewProveedores: TfrViewProveedores
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 483 Width = 483
ExplicitWidth = 483 ExplicitWidth = 483
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 234
ExplicitLeft = 234
ExplicitWidth = 228 ExplicitWidth = 228
Width = 228 Width = 228
end end

BIN
Source/Modulos/Contactos/Views/uViewProveedores.pas
View File

Binary file not shown.

44
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasCliente, Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasCliente,
uClientesController, uDetallesFacturaClienteController, uBizAlbaranesCliente, uClientesController, uDetallesFacturaClienteController, uBizAlbaranesCliente,
uBizFacturasCliente; uBizFacturasCliente, uBizDireccionesContacto;
type type
IFacturasClienteController = interface(IObservador) IFacturasClienteController = interface(IObservador)
@ -49,6 +49,8 @@ type
function ElegirFacturas(AFacturas : IBizFacturaCliente; AMensaje: String; AMultiSelect: Boolean): IBizFacturaCliente; function ElegirFacturas(AFacturas : IBizFacturaCliente; AMensaje: String; AMultiSelect: Boolean): IBizFacturaCliente;
function ExtraerSeleccionados(ARecibosCliente: IBizFacturaCliente) : IBizFacturaCliente; function ExtraerSeleccionados(ARecibosCliente: IBizFacturaCliente) : IBizFacturaCliente;
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente);
procedure SetID_Tienda (AFactura: IBizFacturaCliente; const ID_Tienda: Integer); procedure SetID_Tienda (AFactura: IBizFacturaCliente; const ID_Tienda: Integer);
procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer); procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer); procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer);
@ -112,6 +114,8 @@ type
function ElegirFacturas(AFacturas : IBizFacturaCliente; AMensaje: String; AMultiSelect: Boolean): IBizFacturaCliente; function ElegirFacturas(AFacturas : IBizFacturaCliente; AMensaje: String; AMultiSelect: Boolean): IBizFacturaCliente;
function ExtraerSeleccionados(AFacturasCliente: IBizFacturaCliente) : IBizFacturaCliente; function ExtraerSeleccionados(AFacturasCliente: IBizFacturaCliente) : IBizFacturaCliente;
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente);
procedure SetID_Tienda (AFactura: IBizFacturaCliente; const ID_Tienda: Integer); procedure SetID_Tienda (AFactura: IBizFacturaCliente; const ID_Tienda: Integer);
procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer); procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer); procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer);
@ -500,6 +504,44 @@ begin
FiltrarEmpresa(Result); FiltrarEmpresa(Result);
end; end;
procedure TFacturasClienteController.CopiarDireccion(
const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente);
var
bEnEdicion : Boolean;
begin
if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignado (CopiarDireccionEnvio)');
if not Assigned(ADireccionEnvio) then
raise Exception.Create ('No se ha indicado la dirección (CopiarDireccionEnvio)');
if AFactura.DataTable.Active then
AFactura.DataTable.Active := True;
if ADireccionEnvio.DataTable.Active then
ADireccionEnvio.DataTable.Active := True;
bEnEdicion := (AFactura.DataTable.State in dsEditModes);
if not bEnEdicion then
AFactura.Edit;
ShowHourglassCursor;
AFactura.Edit;
try
AFactura.CALLE := ADireccionEnvio.CALLE;
AFactura.POBLACION := ADireccionEnvio.POBLACION;
AFactura.CODIGO_POSTAL := ADireccionEnvio.CODIGO_POSTAL;
AFactura.PROVINCIA := ADireccionEnvio.PROVINCIA;
AFactura.NIF_CIF := ADireccionEnvio.NIF_CIF;
AFactura.NOMBRE := ADireccionEnvio.NOMBRE;
if not bEnEdicion then
AFactura.Post;
finally
HideHourglassCursor;
end;
end;
constructor TFacturasClienteController.Create; constructor TFacturasClienteController.Create;
begin begin
inherited; inherited;

10
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -137,6 +137,16 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
DataType = datInteger DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_CLIENTE' DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
end end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_COMERCIAL_CLIENTE'
DataType = datString
Size = 255
end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString DataType = datString

120
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -9,8 +9,8 @@ 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_FacturasCliente = '{002FC909-9064-4D9C-AA64-A28325D42EC4}'; RID_FacturasCliente = '{C39C2786-BDB8-49DE-9EAC-91698C9EBFFA}';
RID_FacturasCliente_Detalles = '{9A3BDA83-5AEB-4FD6-8914-CFDE2AE53C06}'; RID_FacturasCliente_Detalles = '{263850A9-538B-4EC7-B310-3E4C2EE93339}';
{ Data table names } { Data table names }
nme_FacturasCliente = 'FacturasCliente'; nme_FacturasCliente = 'FacturasCliente';
@ -34,6 +34,8 @@ const
fld_FacturasClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_FacturasClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_FacturasClienteOBSERVACIONES = 'OBSERVACIONES'; fld_FacturasClienteOBSERVACIONES = 'OBSERVACIONES';
fld_FacturasClienteID_CLIENTE = 'ID_CLIENTE'; fld_FacturasClienteID_CLIENTE = 'ID_CLIENTE';
fld_FacturasClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
fld_FacturasClienteNIF_CIF = 'NIF_CIF'; fld_FacturasClienteNIF_CIF = 'NIF_CIF';
fld_FacturasClienteNOMBRE = 'NOMBRE'; fld_FacturasClienteNOMBRE = 'NOMBRE';
fld_FacturasClienteCALLE = 'CALLE'; fld_FacturasClienteCALLE = 'CALLE';
@ -74,27 +76,29 @@ const
idx_FacturasClienteIMPORTE_TOTAL = 14; idx_FacturasClienteIMPORTE_TOTAL = 14;
idx_FacturasClienteOBSERVACIONES = 15; idx_FacturasClienteOBSERVACIONES = 15;
idx_FacturasClienteID_CLIENTE = 16; idx_FacturasClienteID_CLIENTE = 16;
idx_FacturasClienteNIF_CIF = 17; idx_FacturasClienteNOMBRE_CLIENTE = 17;
idx_FacturasClienteNOMBRE = 18; idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 18;
idx_FacturasClienteCALLE = 19; idx_FacturasClienteNIF_CIF = 19;
idx_FacturasClientePOBLACION = 20; idx_FacturasClienteNOMBRE = 20;
idx_FacturasClientePROVINCIA = 21; idx_FacturasClienteCALLE = 21;
idx_FacturasClienteCODIGO_POSTAL = 22; idx_FacturasClientePOBLACION = 22;
idx_FacturasClienteFECHA_ALTA = 23; idx_FacturasClientePROVINCIA = 23;
idx_FacturasClienteFECHA_MODIFICACION = 24; idx_FacturasClienteCODIGO_POSTAL = 24;
idx_FacturasClienteUSUARIO = 25; idx_FacturasClienteFECHA_ALTA = 25;
idx_FacturasClienteID_FORMA_PAGO = 26; idx_FacturasClienteFECHA_MODIFICACION = 26;
idx_FacturasClienteRECARGO_EQUIVALENCIA = 27; idx_FacturasClienteUSUARIO = 27;
idx_FacturasClienteID_TIPO_IVA = 28; idx_FacturasClienteID_FORMA_PAGO = 28;
idx_FacturasClienteIMPORTE_NETO = 29; idx_FacturasClienteRECARGO_EQUIVALENCIA = 29;
idx_FacturasClienteIMPORTE_PORTE = 30; idx_FacturasClienteID_TIPO_IVA = 30;
idx_FacturasClienteID_AGENTE = 31; idx_FacturasClienteIMPORTE_NETO = 31;
idx_FacturasClienteREFERENCIA_COMISION = 32; idx_FacturasClienteIMPORTE_PORTE = 32;
idx_FacturasClienteIGNORAR_CONTABILIDAD = 33; idx_FacturasClienteID_AGENTE = 33;
idx_FacturasClienteID_TIENDA = 34; idx_FacturasClienteREFERENCIA_COMISION = 34;
idx_FacturasClienteTIENDA = 35; idx_FacturasClienteIGNORAR_CONTABILIDAD = 35;
idx_FacturasClienteID_SUBCUENTA = 36; idx_FacturasClienteID_TIENDA = 36;
idx_FacturasClienteSUBCUENTA = 37; idx_FacturasClienteTIENDA = 37;
idx_FacturasClienteID_SUBCUENTA = 38;
idx_FacturasClienteSUBCUENTA = 39;
{ FacturasCliente_Detalles fields } { FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID'; fld_FacturasCliente_DetallesID = 'ID';
@ -131,7 +135,7 @@ const
type type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{77B09FE8-CC07-4A1D-87AA-D36AEB54D2BE}'] ['{DAB1C0BD-33A9-4AFD-B37A-5402F2FAC3A5}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -200,6 +204,14 @@ type
procedure SetID_CLIENTEValue(const aValue: Integer); procedure SetID_CLIENTEValue(const aValue: Integer);
function GetID_CLIENTEIsNull: Boolean; function GetID_CLIENTEIsNull: Boolean;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); procedure SetID_CLIENTEIsNull(const aValue: Boolean);
function GetNOMBRE_CLIENTEValue: String;
procedure SetNOMBRE_CLIENTEValue(const aValue: String);
function GetNOMBRE_CLIENTEIsNull: Boolean;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
function GetNOMBRE_COMERCIAL_CLIENTEValue: String;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean);
function GetNIF_CIFValue: String; function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String); procedure SetNIF_CIFValue(const aValue: String);
function GetNIF_CIFIsNull: Boolean; function GetNIF_CIFIsNull: Boolean;
@ -321,6 +333,10 @@ type
property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@ -439,6 +455,14 @@ type
procedure SetID_CLIENTEValue(const aValue: Integer); virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetID_CLIENTEIsNull: Boolean; virtual; function GetID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_CLIENTEValue: String; virtual;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual; function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual; procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNIF_CIFIsNull: Boolean; virtual; function GetNIF_CIFIsNull: Boolean; virtual;
@ -559,6 +583,10 @@ type
property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@ -610,7 +638,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{5705755D-4FD6-4B5E-B60C-72155D3868DD}'] ['{D3CAD64F-1C21-4C1F-9BEE-04D8DAD24072}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1178,6 +1206,48 @@ begin
DataTable.Fields[idx_FacturasClienteID_CLIENTE].AsVariant := Null; DataTable.Fields[idx_FacturasClienteID_CLIENTE].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetNOMBRE_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteNOMBRE_CLIENTE].AsString;
end;
procedure TFacturasClienteDataTableRules.SetNOMBRE_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClienteNOMBRE_CLIENTE].AsString := aValue;
end;
function TFacturasClienteDataTableRules.GetNOMBRE_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteNOMBRE_CLIENTE].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteNOMBRE_CLIENTE].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE].AsString;
end;
procedure TFacturasClienteDataTableRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE].AsString := aValue;
end;
function TFacturasClienteDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetNIF_CIFValue: String; function TFacturasClienteDataTableRules.GetNIF_CIFValue: String;
begin begin
result := DataTable.Fields[idx_FacturasClienteNIF_CIF].AsString; result := DataTable.Fields[idx_FacturasClienteNIF_CIF].AsString;

94
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,13 +9,13 @@ 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_FacturasClienteDelta = '{9F142F33-556F-41B3-A527-27FF1BDAB48E}'; RID_FacturasClienteDelta = '{46477AC1-BF12-4410-9EA7-3D1C21A049B9}';
RID_FacturasCliente_DetallesDelta = '{A97D0506-4C6F-4078-A30F-8768419E7E0F}'; RID_FacturasCliente_DetallesDelta = '{64DA04CA-425B-42E0-A86A-4B521E488AA9}';
type type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{9F142F33-556F-41B3-A527-27FF1BDAB48E}'] ['{46477AC1-BF12-4410-9EA7-3D1C21A049B9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -34,6 +34,8 @@ type
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Currency;
function GetOldOBSERVACIONESValue : IROStrings; function GetOldOBSERVACIONESValue : IROStrings;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
function GetOldNOMBRE_CLIENTEValue : String;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
function GetOldCALLEValue : String; function GetOldCALLEValue : String;
@ -74,6 +76,8 @@ type
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
property OldCALLE : String read GetOldCALLEValue; property OldCALLE : String read GetOldCALLEValue;
@ -205,6 +209,18 @@ type
function GetOldID_CLIENTEIsNull: Boolean; virtual; function GetOldID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_CLIENTEValue: String; virtual;
function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
function GetOldNOMBRE_CLIENTEValue: String; virtual;
function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
function GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual; function GetNIF_CIFValue: String; virtual;
function GetNIF_CIFIsNull: Boolean; virtual; function GetNIF_CIFIsNull: Boolean; virtual;
function GetOldNIF_CIFValue: String; virtual; function GetOldNIF_CIFValue: String; virtual;
@ -401,6 +417,14 @@ type
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull; property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull;
property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetOldNOMBRE_COMERCIAL_CLIENTEIsNull;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIF : String read GetOldNIF_CIFValue;
@ -494,7 +518,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{A97D0506-4C6F-4078-A30F-8768419E7E0F}'] ['{64DA04CA-425B-42E0-A86A-4B521E488AA9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -1233,6 +1257,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_CLIENTE] := Null;
end; end;
function TFacturasClienteBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_CLIENTE];
end;
function TFacturasClienteBusinessProcessorRules.GetNOMBRE_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_CLIENTE]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE_CLIENTE];
end;
function TFacturasClienteBusinessProcessorRules.GetOldNOMBRE_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE_CLIENTE]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_CLIENTE] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_CLIENTE] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE];
end;
function TFacturasClienteBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE];
end;
function TFacturasClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetNIF_CIFValue: String; function TFacturasClienteBusinessProcessorRules.GetNIF_CIFValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNIF_CIF]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNIF_CIF];

18
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -174,6 +174,14 @@ object srvFacturasCliente: TsrvFacturasCliente
item item
DatasetField = 'SUBCUENTA' DatasetField = 'SUBCUENTA'
TableField = 'SUBCUENTA' TableField = 'SUBCUENTA'
end
item
DatasetField = 'NOMBRE_CLIENTE'
TableField = 'NOMBRE_CLIENTE'
end
item
DatasetField = 'NOMBRE_COMERCIAL_CLIENTE'
TableField = 'NOMBRE_COMERCIAL_CLIENTE'
end> end>
end> end>
Name = 'FacturasCliente' Name = 'FacturasCliente'
@ -269,6 +277,16 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datInteger DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_CLIENTE' DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
end end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_COMERCIAL_CLIENTE'
DataType = datString
Size = 255
end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString DataType = datString

25
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk
View File

@ -32,7 +32,27 @@ requires
Articulos_view, Articulos_view,
AlbCli_FacCli_relation, AlbCli_FacCli_relation,
Contabilidad_view, Contabilidad_view,
Contabilidad_controller; Contabilidad_controller,
vcl,
rtl,
dbrtl,
DataAbstract_Core_D11,
vcldb,
dsnap,
adortl,
RemObjects_Core_D11,
PngComponentsD10,
PNG_D10,
vclactnband,
vclx,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
cxEditorsD11,
cxDataD11,
vcljpg,
dxLayoutControlD11,
dxComnD11;
contains contains
uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas', uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas',
@ -44,6 +64,7 @@ contains
uEditorFacturasClienteReport in 'uEditorFacturasClienteReport.pas' {fEditorFacturasClientePreview}, uEditorFacturasClienteReport in 'uEditorFacturasClienteReport.pas' {fEditorFacturasClientePreview},
uEditorElegirArticulosFacturaCliente in 'uEditorElegirArticulosFacturaCliente.pas' {fEditorElegirArticulosFacturaCliente: TForm}, uEditorElegirArticulosFacturaCliente in 'uEditorElegirArticulosFacturaCliente.pas' {fEditorElegirArticulosFacturaCliente: TForm},
uViewElegirArticulosFacturasCliente in 'uViewElegirArticulosFacturasCliente.pas' {frViewElegirArticulosFacturasCliente: TFrame}, uViewElegirArticulosFacturasCliente in 'uViewElegirArticulosFacturasCliente.pas' {frViewElegirArticulosFacturasCliente: TFrame},
uEditorElegirFacturasCliente in 'uEditorElegirFacturasCliente.pas' {fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente}; uEditorElegirFacturasCliente in 'uEditorElegirFacturasCliente.pas' {fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente},
uViewClienteFactura in 'uViewClienteFactura.pas' {frViewClienteFactura: TFrame};
end. end.

40
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
View File

@ -49,14 +49,29 @@
<DelphiCompile Include="FacturasCliente_view.dpk"> <DelphiCompile Include="FacturasCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" /> <DCCReference Include="AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" /> <DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_view.dcp" /> <DCCReference Include="Contabilidad_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_view.dcp" /> <DCCReference Include="Contabilidad_view.dcp" />
<DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" /> <DCCReference Include="Contactos_view.dcp" />
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" /> <DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="FacturasCliente_controller.dcp" />
<DCCReference Include="FacturasCliente_model.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas"> <DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
<Form>fEditorElegirArticulosFacturaCliente</Form> <Form>fEditorElegirArticulosFacturaCliente</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
@ -77,6 +92,10 @@
<Form>fEditorFacturasClientePreview</Form> <Form>fEditorFacturasClientePreview</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uFacturasClienteViewRegister.pas" /> <DCCReference Include="uFacturasClienteViewRegister.pas" />
<DCCReference Include="uViewClienteFactura.pas">
<Form>frViewClienteFactura</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDetallesFacturaCliente.pas"> <DCCReference Include="uViewDetallesFacturaCliente.pas">
<Form>frViewDetallesFacturaCliente</Form> <Form>frViewDetallesFacturaCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
@ -93,6 +112,11 @@
<Form>frViewFacturasCliente</Form> <Form>frViewFacturasCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

52
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -71,7 +71,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 765 Width = 765
Height = 378 Height = 378
ActivePage = pagContabilidad
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
@ -103,70 +102,49 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Height = 350 Height = 350
ExplicitWidth = 757 ExplicitWidth = 757
ExplicitHeight = 350 ExplicitHeight = 350
inherited eReferencia: TcxDBTextEdit inherited frViewClienteFactura1: TfrViewClienteFactura
ExplicitWidth = 159
Width = 159
end
inherited edtFecha: TcxDBDateEdit
ExplicitWidth = 159
Width = 159
end
inherited memObservaciones: TcxDBMemo
ExplicitWidth = 301
ExplicitHeight = 159
Height = 159
Width = 301
end
inherited frViewClienteFactura: TfrViewDatosYSeleccionCliente
Width = 314 Width = 314
ExplicitWidth = 314 ExplicitWidth = 314
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 314 Width = 314
ExplicitWidth = 314
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = dsDataTable
ExplicitWidth = 224 ExplicitWidth = 224
Width = 224 Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = dsDataTable
ExplicitWidth = 562 ExplicitWidth = 562
Width = 562 Width = 562
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = dsDataTable
ExplicitWidth = 562 ExplicitWidth = 562
Width = 562 Width = 562
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = dsDataTable
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = dsDataTable
ExplicitWidth = 327 ExplicitWidth = 327
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 242 Left = 225
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = dsDataTable
ExplicitLeft = 242 ExplicitLeft = 225
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 132 Left = 115
ExplicitLeft = 132 ExplicitLeft = 115
end end
end inherited cxDBTextEdit1: TcxDBTextEdit
end ExplicitWidth = 283
inherited cbFormaPago: TcxDBLookupComboBox Width = 283
ExplicitWidth = 78
Width = 78
end
inherited frViewTienda1: TfrViewTienda
inherited dxLayoutControl1: TdxLayoutControl
inherited cbTienda: TcxComboBox
ExplicitWidth = 399
Width = 399
end end
end end
end end

39
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -83,7 +83,8 @@ implementation
uses uses
uBizContactos, uDataModuleUsuarios, uFactuGES_App, uSubCuentasController, uBizContactos, uDataModuleUsuarios, uFactuGES_App, uSubCuentasController,
uDetallesFacturaClienteController, uDialogUtils, uDataTableUtils; uDetallesFacturaClienteController, uDialogUtils, uDataTableUtils,
uViewClienteFactura, uBizDireccionesContacto, uClientesController;
// uGenerarAlbaranesCliFacCliUtils; // uGenerarAlbaranesCliFacCliUtils;
@ -301,8 +302,10 @@ end;
procedure TfEditorFacturaCliente.OnClienteChanged(Sender: TObject); procedure TfEditorFacturaCliente.OnClienteChanged(Sender: TObject);
var var
FDetallesController : IDetallesFacturaClienteController; FDetallesController : IDetallesFacturaClienteController;
AClientesController : IClientesController;
ADireccion : IBizDireccionesContacto;
begin begin
FFactura.Cliente := frViewFacturaCliente1.frViewClienteFactura.Cliente; FFactura.Cliente := frViewFacturaCliente1.frViewClienteFactura1.Cliente;
if not (FFactura.DataTable.State in dsEditModes) then if not (FFactura.DataTable.State in dsEditModes) then
FFactura.DataTable.Edit; FFactura.DataTable.Edit;
@ -314,6 +317,30 @@ begin
else else
Factura.RE := 0; Factura.RE := 0;
// En el caso de tener direcciones asociadas, se debe dar la posibilidad de elegir la dirección principal o las secundarias para la factura
AClientesController := TClientesController.Create;
try
case FFactura.Cliente.Direcciones.RecordCount of
0 : //No hay direcciones secundarias asociadas
else ADireccion := AClientesController.ElegirDireccion(FFactura.Cliente, 'Seleccione la dirección del proveedor que quiere utilizar como dirección fiscal de esta factura.');
end;
// Si hay dirección de envio, copiarla al albarán y poner el coste del porte
if Assigned(ADireccion) then
begin
try
FFactura.Edit;
FFactura.IMPORTE_PORTE := ADireccion.PORTE;
FController.CopiarDireccion(ADireccion, FFactura);
finally
ADireccion := NIL;
end;
end
finally
AClientesController := Nil;
end;
// Si la factura tiene detalles hay que mirar si los descuentos y otros campos // Si la factura tiene detalles hay que mirar si los descuentos y otros campos
// para los artículos hay que cambiarlos. // para los artículos hay que cambiarlos.
if (FFactura.Detalles.RecordCount > 0) then if (FFactura.Detalles.RecordCount > 0) then
@ -409,8 +436,8 @@ begin
if Assigned(FViewFactura) then if Assigned(FViewFactura) then
begin begin
frViewFacturaCliente1.frViewClienteFactura.Cliente := FFactura.Cliente; frViewFacturaCliente1.frViewClienteFactura1.Cliente := FFactura.Cliente;
frViewFacturaCliente1.frViewClienteFactura.OnClienteChanged := OnClienteChanged; frViewFacturaCliente1.frViewClienteFactura1.OnClienteChanged := OnClienteChanged;
FViewFactura.Factura := FFactura; FViewFactura.Factura := FFactura;
frViewDetallesFacturaCliente1.Detalles := FFactura.Detalles; frViewDetallesFacturaCliente1.Detalles := FFactura.Detalles;
@ -424,8 +451,8 @@ begin
end end
else begin else begin
frViewFacturaCliente1.frViewClienteFactura.OnClienteChanged := NIL; frViewFacturaCliente1.frViewClienteFactura1.OnClienteChanged := NIL;
frViewFacturaCliente1.frViewClienteFactura.Cliente := NIL; frViewFacturaCliente1.frViewClienteFactura1.Cliente := NIL;
dsDataTable.DataTable := NIL; dsDataTable.DataTable := NIL;
frViewTotales1.DADataSource.DataTable := NIL; frViewTotales1.DADataSource.DataTable := NIL;
frViewTotales1.dsTiposIVA.DataTable := NIL; frViewTotales1.dsTiposIVA.DataTable := NIL;

116
Source/Modulos/Facturas de cliente/Views/uViewClienteFactura.dfm Normal file
View File

@ -0,0 +1,116 @@
inherited frViewClienteFactura: TfrViewClienteFactura
Width = 357
Height = 318
ExplicitWidth = 357
ExplicitHeight = 318
inherited dxLayoutControl1: TdxLayoutControl
Width = 357
Height = 318
object Bevel1: TBevel [0]
Left = 81
Top = 71
Width = 266
Height = 13
Shape = bsBottomLine
end
inherited edtlNombre: TcxDBTextEdit
Left = 81
Top = 94
TabOrder = 3
ExplicitLeft = 81
ExplicitTop = 94
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 81
Top = 121
TabOrder = 4
ExplicitLeft = 81
ExplicitTop = 121
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
Left = 81
Top = 148
TabOrder = 5
ExplicitLeft = 81
ExplicitTop = 148
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
Left = 81
Top = 175
TabOrder = 6
ExplicitLeft = 81
ExplicitTop = 175
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
Left = 81
Top = 202
TabOrder = 8
ExplicitLeft = 81
ExplicitTop = 202
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 265
Top = 175
TabOrder = 7
ExplicitLeft = 265
ExplicitTop = 175
end
inherited Button3: TBitBtn
Left = 155
Top = 229
TabOrder = 9
ExplicitLeft = 155
ExplicitTop = 229
end
object cxDBTextEdit1: TcxDBTextEdit [10]
Left = 81
Top = 41
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Height = 21
Width = 283
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
object dxLayoutControl1Item10: TdxLayoutItem [1]
Caption = 'Nombre:'
Control = cxDBTextEdit1
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item11: TdxLayoutItem [2]
Caption = 'Datos fiscales'
Offsets.Bottom = 3
Offsets.Top = 3
Control = Bevel1
ControlOptions.ShowBorder = False
end
inherited dxLayoutControl1Item1: TdxLayoutItem
Caption = 'Raz'#243'n:'
end
end
end
end

30
Source/Modulos/Facturas de cliente/Views/uViewClienteFactura.pas Normal file
View File

@ -0,0 +1,30 @@
unit uViewClienteFactura;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDatosYSeleccionCliente, ImgList, PngImageList, ActnList, DB,
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer,
cxEdit, cxTextEdit, cxDBEdit, cxControls, ExtCtrls;
type
TfrViewClienteFactura = class(TfrViewDatosYSeleccionCliente)
dxLayoutControl1Item10: TdxLayoutItem;
cxDBTextEdit1: TcxDBTextEdit;
Bevel1: TBevel;
dxLayoutControl1Item11: TdxLayoutItem;
private
{ Private declarations }
public
{ Public declarations }
end;
var
frViewClienteFactura: TfrViewClienteFactura;
implementation
{$R *.dfm}
end.

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

@ -62,7 +62,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 275 Top = 325
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -78,64 +78,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Height = 159 Height = 159
Width = 301 Width = 301
end end
inline frViewClienteFactura: TfrViewDatosYSeleccionCliente
Left = 401
Top = 30
Width = 314
Height = 215
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 5
ReadOnly = False
ExplicitLeft = 401
ExplicitTop = 30
ExplicitWidth = 314
ExplicitHeight = 215
inherited dxLayoutControl1: TdxLayoutControl
Width = 314
Height = 215
ExplicitWidth = 101
ExplicitHeight = 215
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 224
Width = 224
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 = 192
DataBinding.DataSource = DADataSource
ExplicitLeft = 192
end
inherited Button3: TBitBtn
Left = 82
ExplicitLeft = 82
end
end
end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 124 Left = 124
Top = 84 Top = 84
@ -204,6 +146,58 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end end
end end
end end
inline frViewClienteFactura1: TfrViewClienteFactura
Left = 401
Top = 30
Width = 398
Height = 265
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 5
ReadOnly = False
ExplicitLeft = 401
ExplicitTop = 30
ExplicitWidth = 398
ExplicitHeight = 265
inherited dxLayoutControl1: TdxLayoutControl
Width = 398
Height = 265
ExplicitWidth = 398
ExplicitHeight = 265
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 158
Width = 158
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 192
ExplicitLeft = 192
end
inherited Button3: TBitBtn
Left = 82
ExplicitLeft = 82
end
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -268,7 +262,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
AlignVert = avClient AlignVert = avClient
Caption = 'Datos del cliente' Caption = 'Datos del cliente'
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
Control = frViewClienteFactura Control = frViewClienteFactura1
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

12
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
View File

@ -10,7 +10,7 @@ uses
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, uDAInterfaces, uBizFormasPago, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, uBizFormasPago,
uViewTienda, uFacturasClienteController; uViewTienda, uFacturasClienteController, uViewClienteFactura;
type type
IViewFacturaCliente = interface(IViewBase) IViewFacturaCliente = interface(IViewBase)
@ -37,8 +37,6 @@ type
dxLayoutControl1Item5: TdxLayoutItem; dxLayoutControl1Item5: TdxLayoutItem;
memObservaciones: TcxDBMemo; memObservaciones: TcxDBMemo;
dxLayoutControl1Group5: TdxLayoutGroup; dxLayoutControl1Group5: TdxLayoutGroup;
dxLayoutControl1Item6: TdxLayoutItem;
frViewClienteFactura: TfrViewDatosYSeleccionCliente;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
dsFormaPago: TDADataSource; dsFormaPago: TDADataSource;
@ -52,6 +50,8 @@ type
dxLayoutControl1Group4: TdxLayoutGroup; dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutControl1Item3: TdxLayoutItem; dxLayoutControl1Item3: TdxLayoutItem;
dxLayoutControl1Group7: TdxLayoutGroup; dxLayoutControl1Group7: TdxLayoutGroup;
dxLayoutControl1Item6: TdxLayoutItem;
frViewClienteFactura1: TfrViewClienteFactura;
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
@ -115,7 +115,7 @@ begin
FController := Value; FController := Value;
if Assigned(FController) then if Assigned(FController) then
frViewClienteFactura.Controller := FController.ClienteController; frViewClienteFactura1.Controller := FController.ClienteController;
end; end;
procedure TfrViewFacturaCliente.SetFactura(const Value: IBizFacturaCliente); procedure TfrViewFacturaCliente.SetFactura(const Value: IBizFacturaCliente);
@ -143,12 +143,12 @@ begin
end end
else else
ACadena := 'Elija el cliente al que se le realizará la factura.'; ACadena := 'Elija el cliente al que se le realizará la factura.';
frViewClienteFactura.MsgElegirCliente := ACadena; frViewClienteFactura1.MsgElegirCliente := ACadena;
end end
else begin else begin
DADataSource.DataTable := NIL; DADataSource.DataTable := NIL;
dsFormaPago.DataTable := NIL; dsFormaPago.DataTable := NIL;
frViewClienteFactura.Cliente := NIL frViewClienteFactura1.Cliente := NIL
end; end;
end; end;

8
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -58,11 +58,15 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Width = 28 Width = 28
end end
object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE_COMERCIAL_CLIENTE'
end
object cxGridViewNIF_CIF: TcxGridDBColumn object cxGridViewNIF_CIF: TcxGridDBColumn
DataBinding.FieldName = 'NIF_CIF' DataBinding.FieldName = 'NIF_CIF'
Visible = False Visible = False
end end
object cxGridViewNOMBRE: TcxGridDBColumn object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Raz'#243'n'
DataBinding.FieldName = 'NOMBRE' DataBinding.FieldName = 'NOMBRE'
Width = 181 Width = 181
end end
@ -131,6 +135,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
VisibleForCustomization = False VisibleForCustomization = False
Width = 54 Width = 54
end end
object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
Caption = 'Cliente'
DataBinding.FieldName = 'NOMBRE_CLIENTE'
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todas' Caption = 'Todas'

BIN
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

Binary file not shown.

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

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasProveedor, Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasProveedor,
uProveedoresController, uDetallesFacturaProveedorController, uBizFacturasProveedor, uProveedoresController, uDetallesFacturaProveedorController, uBizFacturasProveedor,
uBizAlbaranesProveedor; uBizAlbaranesProveedor, uBizDireccionesContacto;
type type
IFacturasProveedorController = interface(IObservador) IFacturasProveedorController = interface(IObservador)
@ -48,6 +48,8 @@ type
function ElegirFacturas(AFacturas : IBizFacturaProveedor; AMensaje: String; AMultiSelect: Boolean): IBizFacturaProveedor; function ElegirFacturas(AFacturas : IBizFacturaProveedor; AMensaje: String; AMultiSelect: Boolean): IBizFacturaProveedor;
function ExtraerSeleccionados(ARecibosProveedor: IBizFacturaProveedor) : IBizFacturaProveedor; function ExtraerSeleccionados(ARecibosProveedor: IBizFacturaProveedor) : IBizFacturaProveedor;
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaProveedor);
procedure SetID_Tienda (AFactura: IBizFacturaProveedor; const ID_Tienda: Integer); procedure SetID_Tienda (AFactura: IBizFacturaProveedor; const ID_Tienda: Integer);
procedure SetIdSubcuenta (AFactura: IBizFacturaProveedor; const IdSubCuenta: Integer); procedure SetIdSubcuenta (AFactura: IBizFacturaProveedor; const IdSubCuenta: Integer);
procedure SetIgnorarContabilidad (AFactura: IBizFacturaProveedor; const Ignorar: Integer); procedure SetIgnorarContabilidad (AFactura: IBizFacturaProveedor; const Ignorar: Integer);
@ -72,8 +74,10 @@ type
function ValidarFactura(AFactura: IBizFacturaProveedor): Boolean; function ValidarFactura(AFactura: IBizFacturaProveedor): Boolean;
procedure GenerarRecibos(AFactura: IBizFacturaProveedor); procedure GenerarRecibos(AFactura: IBizFacturaProveedor);
protected protected
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
public public
property ProveedorController: IProveedoresController read GetProveedorController write SetProveedorController; property ProveedorController: IProveedoresController read GetProveedorController write SetProveedorController;
property DetallesController: IDetallesFacturaProveedorController read GetDetallesController write SetDetallesController; property DetallesController: IDetallesFacturaProveedorController read GetDetallesController write SetDetallesController;
@ -110,6 +114,8 @@ type
function ElegirFacturas(AFacturas : IBizFacturaProveedor; AMensaje: String; AMultiSelect: Boolean): IBizFacturaProveedor; function ElegirFacturas(AFacturas : IBizFacturaProveedor; AMensaje: String; AMultiSelect: Boolean): IBizFacturaProveedor;
function ExtraerSeleccionados(AFacturasProveedor: IBizFacturaProveedor) : IBizFacturaProveedor; function ExtraerSeleccionados(AFacturasProveedor: IBizFacturaProveedor) : IBizFacturaProveedor;
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaProveedor);
procedure SetID_Tienda (AFactura: IBizFacturaProveedor; const ID_Tienda: Integer); procedure SetID_Tienda (AFactura: IBizFacturaProveedor; const ID_Tienda: Integer);
procedure SetIdSubcuenta (AFactura: IBizFacturaProveedor; const IdSubCuenta: Integer); procedure SetIdSubcuenta (AFactura: IBizFacturaProveedor; const IdSubCuenta: Integer);
procedure SetIgnorarContabilidad (AFactura: IBizFacturaProveedor; const Ignorar: Integer); procedure SetIgnorarContabilidad (AFactura: IBizFacturaProveedor; const Ignorar: Integer);
@ -491,6 +497,45 @@ begin
FiltrarEmpresa(Result); FiltrarEmpresa(Result);
end; end;
procedure TFacturasProveedorController.CopiarDireccion(const ADireccionEnvio: IBizDireccionesContacto;
AFactura: IBizFacturaProveedor);
var
bEnEdicion : Boolean;
begin
if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignado (CopiarDireccionEnvio)');
if not Assigned(ADireccionEnvio) then
raise Exception.Create ('No se ha indicado la dirección (CopiarDireccionEnvio)');
if AFactura.DataTable.Active then
AFactura.DataTable.Active := True;
if ADireccionEnvio.DataTable.Active then
ADireccionEnvio.DataTable.Active := True;
bEnEdicion := (AFactura.DataTable.State in dsEditModes);
if not bEnEdicion then
AFactura.Edit;
ShowHourglassCursor;
AFactura.Edit;
try
AFactura.CALLE := ADireccionEnvio.CALLE;
AFactura.POBLACION := ADireccionEnvio.POBLACION;
AFactura.CODIGO_POSTAL := ADireccionEnvio.CODIGO_POSTAL;
AFactura.PROVINCIA := ADireccionEnvio.PROVINCIA;
AFactura.NIF_CIF := ADireccionEnvio.NIF_CIF;
AFactura.NOMBRE := ADireccionEnvio.NOMBRE;
if not bEnEdicion then
AFactura.Post;
finally
HideHourglassCursor;
end;
end;
constructor TFacturasProveedorController.Create; constructor TFacturasProveedorController.Create;
begin begin
inherited; inherited;
@ -556,6 +601,9 @@ begin
end; end;
function TFacturasProveedorController.ValidarFactura(AFactura: IBizFacturaProveedor): Boolean; function TFacturasProveedorController.ValidarFactura(AFactura: IBizFacturaProveedor): Boolean;
var
AFormaPago: IBizFormaPago;
begin begin
Result := False; Result := False;
@ -585,12 +633,28 @@ begin
if (AFactura.IGNORAR_CONTABILIDAD = 0) and (AFactura.Proveedor.SubCuentas.ID < 1) then if (AFactura.IGNORAR_CONTABILIDAD = 0) and (AFactura.Proveedor.SubCuentas.ID < 1) then
raise Exception.Create('Para que la factura pueda pasar la parte contable es necesario que el proveedor tenga asignada una subcuenta'); raise Exception.Create('Para que la factura pueda pasar la parte contable es necesario que el proveedor tenga asignada una subcuenta');
{ Esta validación puede saltar cuando se generan facturas automáticamente {Al no poder generarse facturas automáticamente a partir de otros documentos validamos estos campos obligatorios}
por albaranes o pedidos y el Proveedor no tiene Tipo de IVA puesto. } if (AFactura.ID_TIPO_IVA = 0) then
{ if (AFactura.ID_TIPO_IVA = 0) then raise Exception.Create('Debe indicar un tipo de IVA para esta factura');
raise Exception.Create('Debe indicar un tipo de IVA para esta factura');}
//En caso de ser un Abono no podra tener un importe total positivo if (AFactura.ID_FORMA_PAGO = 0) then
raise Exception.Create('Debe indicar una forma de pago para esta factura');
with TFormasPagoController.Create do
begin
try
AFormaPago := Buscar(AFactura.ID_FORMA_PAGO);
AFormaPago.DataTable.Active := True;
if (AFormaPago.Plazos.RecordCount = 0)
and (EsFechaVacia(AFactura.FECHA_VENCIMIENTO)) then
raise Exception.Create('Debe indicar una fecha de vencimiento para esta factura');
finally
AFormaPago := NIL;
Free;
end;
end;
//En caso de ser un Abono no podra tener un importe total positivo
if (AFactura.TIPO = CTE_TIPO_ABONO) then if (AFactura.TIPO = CTE_TIPO_ABONO) then
if (AFactura.IMPORTE_TOTAL >= 0) then if (AFactura.IMPORTE_TOTAL >= 0) then
raise Exception.Create('Un abono nunca no puede tener un importe positivo'); raise Exception.Create('Un abono nunca no puede tener un importe positivo');
@ -1095,16 +1159,12 @@ var
ARecibos: IBizRecibosProveedor; ARecibos: IBizRecibosProveedor;
i: Integer; i: Integer;
begin begin
if not Assigned(AFactura) then if not Assigned(AFactura) then
Exit; Exit;
AFormasPagoController := TFormasPagoController.Create; AFormasPagoController := TFormasPagoController.Create;
AFormaPago := AFormasPagoController.Buscar(AFactura.ID_FORMA_PAGO); AFormaPago := AFormasPagoController.Buscar(AFactura.ID_FORMA_PAGO);
AFormaPago.DataTable.Active := True; AFormaPago.DataTable.Active := True;
if AFormaPago.DataTable.RecordCount <> 1 then
Exit; //No hay forma de pago en la factura y por lo tanto no se generan recibos
//raise Exception.Create('No existe la forma de pago de la factura');
ARecibosProveedorController := TRecibosProveedorController.Create; ARecibosProveedorController := TRecibosProveedorController.Create;
//Eliminamos todos los recibos que tuviera la factura porque sabemos que todos //Eliminamos todos los recibos que tuviera la factura porque sabemos que todos
@ -1113,27 +1173,45 @@ begin
ARecibos := ARecibosProveedorController.BuscarRecibosFactura(AFactura.ID); ARecibos := ARecibosProveedorController.BuscarRecibosFactura(AFactura.ID);
ARecibosProveedorController.EliminarTodo(ARecibos); ARecibosProveedorController.EliminarTodo(ARecibos);
//Vamos a generar todos los recibos necesarios para la factura //Se cambia la lógica para acana, en el caso de elegir una forma de pago sin plazos
With AFormaPago.Plazos.DataTable do //y meter una fecha de vencimiento se generará un recibo con el 100% y fecha de vencimiento de la factura
if AFormaPago.Plazos.RecordCount < 1 then
begin begin
i := 1; ARecibos := ARecibosProveedorController.Nuevo;
First; ARecibos.Edit;
while not eof do ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.ID_EMPRESA := AFactura.ID_EMPRESA;
ARecibos.ID_PROVEEDOR := AFactura.ID_PROVEEDOR;
ARecibos.ID_TIENDA := AFactura.ID_TIENDA;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - 1';
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_VENCIMIENTO;
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL;
ARecibosProveedorController.Guardar(ARecibos);
end
else
//Vamos a generar todos los recibos necesarios para la factura
With AFormaPago.Plazos.DataTable do
begin begin
ARecibos := ARecibosProveedorController.Nuevo; i := 1;
ARecibos.Edit; First;
ARecibos.ID_FACTURA := AFactura.ID; while not eof do
ARecibos.ID_EMPRESA := AFactura.ID_EMPRESA; begin
ARecibos.ID_PROVEEDOR := AFactura.ID_PROVEEDOR; ARecibos := ARecibosProveedorController.Nuevo;
ARecibos.ID_TIENDA := AFactura.ID_TIENDA; ARecibos.Edit;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i); ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS; ARecibos.ID_EMPRESA := AFactura.ID_EMPRESA;
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100); ARecibos.ID_PROVEEDOR := AFactura.ID_PROVEEDOR;
ARecibosProveedorController.Guardar(ARecibos); ARecibos.ID_TIENDA := AFactura.ID_TIENDA;
Inc(i); ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
Next; ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
ARecibosProveedorController.Guardar(ARecibos);
Inc(i);
Next;
end;
end; end;
end;
//Liberamos //Liberamos
AFormasPagoController := Nil; AFormasPagoController := Nil;

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

@ -66,6 +66,10 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
DisplayLabel = 'Fecha de las factura' DisplayLabel = 'Fecha de las factura'
DictionaryEntry = 'FacturasProveedor_FECHA_FACTURA' DictionaryEntry = 'FacturasProveedor_FECHA_FACTURA'
end end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
@ -139,6 +143,16 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
DisplayLabel = 'FacturasProveedor_ID_PROVEEDOR' DisplayLabel = 'FacturasProveedor_ID_PROVEEDOR'
DictionaryEntry = 'FacturasProveedor_ID_PROVEEDOR' DictionaryEntry = 'FacturasProveedor_ID_PROVEEDOR'
end end
item
Name = 'NOMBRE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_COMERCIAL_PROVEEDOR'
DataType = datString
Size = 255
end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString DataType = datString

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

@ -9,12 +9,19 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" /> <Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" />
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" /> <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" /> <Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" /> <Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Data\Contactos_data.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" /> <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" /> <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
<Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
<Projects Include="Controller\FacturasProveedor_controller.dproj" /> <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" />
@ -63,6 +70,15 @@
<Target Name="Contactos_view:Make"> <Target Name="Contactos_view:Make">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" /> <MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Articulos_controller">
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="" />
</Target>
<Target Name="Articulos_controller:Clean">
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Articulos_controller:Make">
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="Make" />
</Target>
<Target Name="Articulos_view"> <Target Name="Articulos_view">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="" /> <MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="" />
</Target> </Target>
@ -72,6 +88,33 @@
<Target Name="Articulos_view:Make"> <Target Name="Articulos_view:Make">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" /> <MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="PedidosProveedor_controller">
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_controller:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_controller:Make">
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesProveedor_controller">
<MSBuild Projects="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" Targets="" />
</Target>
<Target Name="AlbaranesProveedor_controller:Clean">
<MSBuild Projects="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesProveedor_controller:Make">
<MSBuild Projects="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="RecibosProveedor_controller">
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="" />
</Target>
<Target Name="RecibosProveedor_controller:Clean">
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosProveedor_controller:Make">
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_model"> <Target Name="FacturasProveedor_model">
<MSBuild Projects="Model\FacturasProveedor_model.dproj" Targets="" /> <MSBuild Projects="Model\FacturasProveedor_model.dproj" Targets="" />
</Target> </Target>
@ -171,14 +214,41 @@
<Target Name="Contactos_model:Make"> <Target Name="Contactos_model:Make">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Make" /> <MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Contactos_controller">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
</Target>
<Target Name="Contactos_controller:Clean">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_controller:Make">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_data">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="" />
</Target>
<Target Name="Contactos_data:Clean">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_data:Make">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_controller">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_controller:Clean">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_controller:Make">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;Contabilidad_view;Contabilidad_controller;Contactos_model" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_controller;AlbaranesProveedor_controller;RecibosProveedor_controller;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;Contabilidad_view;Contabilidad_controller;Contactos_model;Contactos_controller;Contactos_data;FacturasCliente_controller" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase: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;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;RecibosProveedor_controller:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_data:Clean;FacturasCliente_controller:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase: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;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;RecibosProveedor_controller:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_data:Make;FacturasCliente_controller:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

@ -9,8 +9,8 @@ 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_FacturasProveedor = '{802DA96D-6573-4CBF-BBA2-38E4E0BF9C20}'; RID_FacturasProveedor = '{C1A41E2D-D6D0-4C5E-81A9-721D4AFFE1F4}';
RID_FacturasProveedor_Detalles = '{3FF532D1-7C43-424B-B91C-C88BAD4881BE}'; RID_FacturasProveedor_Detalles = '{30413551-703B-40FA-8212-2B1312AF4F45}';
{ Data table names } { Data table names }
nme_FacturasProveedor = 'FacturasProveedor'; nme_FacturasProveedor = 'FacturasProveedor';
@ -23,6 +23,7 @@ const
fld_FacturasProveedorTIPO = 'TIPO'; fld_FacturasProveedorTIPO = 'TIPO';
fld_FacturasProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; fld_FacturasProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
fld_FacturasProveedorFECHA_FACTURA = 'FECHA_FACTURA'; fld_FacturasProveedorFECHA_FACTURA = 'FECHA_FACTURA';
fld_FacturasProveedorFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
fld_FacturasProveedorSITUACION = 'SITUACION'; fld_FacturasProveedorSITUACION = 'SITUACION';
fld_FacturasProveedorBASE_IMPONIBLE = 'BASE_IMPONIBLE'; fld_FacturasProveedorBASE_IMPONIBLE = 'BASE_IMPONIBLE';
fld_FacturasProveedorDESCUENTO = 'DESCUENTO'; fld_FacturasProveedorDESCUENTO = 'DESCUENTO';
@ -34,6 +35,8 @@ const
fld_FacturasProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_FacturasProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_FacturasProveedorOBSERVACIONES = 'OBSERVACIONES'; fld_FacturasProveedorOBSERVACIONES = 'OBSERVACIONES';
fld_FacturasProveedorID_PROVEEDOR = 'ID_PROVEEDOR'; fld_FacturasProveedorID_PROVEEDOR = 'ID_PROVEEDOR';
fld_FacturasProveedorNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
fld_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR = 'NOMBRE_COMERCIAL_PROVEEDOR';
fld_FacturasProveedorNIF_CIF = 'NIF_CIF'; fld_FacturasProveedorNIF_CIF = 'NIF_CIF';
fld_FacturasProveedorNOMBRE = 'NOMBRE'; fld_FacturasProveedorNOMBRE = 'NOMBRE';
fld_FacturasProveedorCALLE = 'CALLE'; fld_FacturasProveedorCALLE = 'CALLE';
@ -61,36 +64,39 @@ const
idx_FacturasProveedorTIPO = 3; idx_FacturasProveedorTIPO = 3;
idx_FacturasProveedorREFERENCIA_PROVEEDOR = 4; idx_FacturasProveedorREFERENCIA_PROVEEDOR = 4;
idx_FacturasProveedorFECHA_FACTURA = 5; idx_FacturasProveedorFECHA_FACTURA = 5;
idx_FacturasProveedorSITUACION = 6; idx_FacturasProveedorFECHA_VENCIMIENTO = 6;
idx_FacturasProveedorBASE_IMPONIBLE = 7; idx_FacturasProveedorSITUACION = 7;
idx_FacturasProveedorDESCUENTO = 8; idx_FacturasProveedorBASE_IMPONIBLE = 8;
idx_FacturasProveedorIMPORTE_DESCUENTO = 9; idx_FacturasProveedorDESCUENTO = 9;
idx_FacturasProveedorIVA = 10; idx_FacturasProveedorIMPORTE_DESCUENTO = 10;
idx_FacturasProveedorIMPORTE_IVA = 11; idx_FacturasProveedorIVA = 11;
idx_FacturasProveedorRE = 12; idx_FacturasProveedorIMPORTE_IVA = 12;
idx_FacturasProveedorIMPORTE_RE = 13; idx_FacturasProveedorRE = 13;
idx_FacturasProveedorIMPORTE_TOTAL = 14; idx_FacturasProveedorIMPORTE_RE = 14;
idx_FacturasProveedorOBSERVACIONES = 15; idx_FacturasProveedorIMPORTE_TOTAL = 15;
idx_FacturasProveedorID_PROVEEDOR = 16; idx_FacturasProveedorOBSERVACIONES = 16;
idx_FacturasProveedorNIF_CIF = 17; idx_FacturasProveedorID_PROVEEDOR = 17;
idx_FacturasProveedorNOMBRE = 18; idx_FacturasProveedorNOMBRE_PROVEEDOR = 18;
idx_FacturasProveedorCALLE = 19; idx_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR = 19;
idx_FacturasProveedorPOBLACION = 20; idx_FacturasProveedorNIF_CIF = 20;
idx_FacturasProveedorPROVINCIA = 21; idx_FacturasProveedorNOMBRE = 21;
idx_FacturasProveedorCODIGO_POSTAL = 22; idx_FacturasProveedorCALLE = 22;
idx_FacturasProveedorFECHA_ALTA = 23; idx_FacturasProveedorPOBLACION = 23;
idx_FacturasProveedorFECHA_MODIFICACION = 24; idx_FacturasProveedorPROVINCIA = 24;
idx_FacturasProveedorUSUARIO = 25; idx_FacturasProveedorCODIGO_POSTAL = 25;
idx_FacturasProveedorID_FORMA_PAGO = 26; idx_FacturasProveedorFECHA_ALTA = 26;
idx_FacturasProveedorRECARGO_EQUIVALENCIA = 27; idx_FacturasProveedorFECHA_MODIFICACION = 27;
idx_FacturasProveedorID_TIPO_IVA = 28; idx_FacturasProveedorUSUARIO = 28;
idx_FacturasProveedorIMPORTE_NETO = 29; idx_FacturasProveedorID_FORMA_PAGO = 29;
idx_FacturasProveedorIMPORTE_PORTE = 30; idx_FacturasProveedorRECARGO_EQUIVALENCIA = 30;
idx_FacturasProveedorIGNORAR_CONTABILIDAD = 31; idx_FacturasProveedorID_TIPO_IVA = 31;
idx_FacturasProveedorID_TIENDA = 32; idx_FacturasProveedorIMPORTE_NETO = 32;
idx_FacturasProveedorTIENDA = 33; idx_FacturasProveedorIMPORTE_PORTE = 33;
idx_FacturasProveedorID_SUBCUENTA = 34; idx_FacturasProveedorIGNORAR_CONTABILIDAD = 34;
idx_FacturasProveedorSUBCUENTA = 35; idx_FacturasProveedorID_TIENDA = 35;
idx_FacturasProveedorTIENDA = 36;
idx_FacturasProveedorID_SUBCUENTA = 37;
idx_FacturasProveedorSUBCUENTA = 38;
{ FacturasProveedor_Detalles fields } { FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID = 'ID'; fld_FacturasProveedor_DetallesID = 'ID';
@ -127,7 +133,7 @@ const
type type
{ IFacturasProveedor } { IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable) IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{ADC8C0DC-48B7-4189-AC00-BA9A50CE70C4}'] ['{4BDA0973-DD80-4CEF-AEA6-34D91B8A485F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -153,6 +159,10 @@ type
procedure SetFECHA_FACTURAValue(const aValue: DateTime); procedure SetFECHA_FACTURAValue(const aValue: DateTime);
function GetFECHA_FACTURAIsNull: Boolean; function GetFECHA_FACTURAIsNull: Boolean;
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
function GetFECHA_VENCIMIENTOValue: DateTime;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
function GetFECHA_VENCIMIENTOIsNull: Boolean;
procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
function GetSITUACIONValue: String; function GetSITUACIONValue: String;
procedure SetSITUACIONValue(const aValue: String); procedure SetSITUACIONValue(const aValue: String);
function GetSITUACIONIsNull: Boolean; function GetSITUACIONIsNull: Boolean;
@ -196,6 +206,14 @@ type
procedure SetID_PROVEEDORValue(const aValue: Integer); procedure SetID_PROVEEDORValue(const aValue: Integer);
function GetID_PROVEEDORIsNull: Boolean; function GetID_PROVEEDORIsNull: Boolean;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
function GetNOMBRE_PROVEEDORValue: String;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
function GetNOMBRE_PROVEEDORIsNull: Boolean;
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
function GetNOMBRE_COMERCIAL_PROVEEDORValue: String;
procedure SetNOMBRE_COMERCIAL_PROVEEDORValue(const aValue: String);
function GetNOMBRE_COMERCIAL_PROVEEDORIsNull: Boolean;
procedure SetNOMBRE_COMERCIAL_PROVEEDORIsNull(const aValue: Boolean);
function GetNIF_CIFValue: String; function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String); procedure SetNIF_CIFValue(const aValue: String);
function GetNIF_CIFIsNull: Boolean; function GetNIF_CIFIsNull: Boolean;
@ -287,6 +305,8 @@ type
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
@ -309,6 +329,10 @@ type
property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property NOMBRE_COMERCIAL_PROVEEDOR: String read GetNOMBRE_COMERCIAL_PROVEEDORValue write SetNOMBRE_COMERCIAL_PROVEEDORValue;
property NOMBRE_COMERCIAL_PROVEEDORIsNull: Boolean read GetNOMBRE_COMERCIAL_PROVEEDORIsNull write SetNOMBRE_COMERCIAL_PROVEEDORIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@ -380,6 +404,10 @@ type
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
function GetFECHA_FACTURAIsNull: Boolean; virtual; function GetFECHA_FACTURAIsNull: Boolean; virtual;
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual; procedure SetFECHA_FACTURAIsNull(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;
function GetSITUACIONValue: String; virtual; function GetSITUACIONValue: String; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual; procedure SetSITUACIONValue(const aValue: String); virtual;
function GetSITUACIONIsNull: Boolean; virtual; function GetSITUACIONIsNull: Boolean; virtual;
@ -423,6 +451,14 @@ type
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual; function GetID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_PROVEEDORValue: String; virtual;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIAL_PROVEEDORValue: String; virtual;
procedure SetNOMBRE_COMERCIAL_PROVEEDORValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIAL_PROVEEDORIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual; function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual; procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNIF_CIFIsNull: Boolean; virtual; function GetNIF_CIFIsNull: Boolean; virtual;
@ -513,6 +549,8 @@ type
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
@ -535,6 +573,10 @@ type
property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property NOMBRE_COMERCIAL_PROVEEDOR: String read GetNOMBRE_COMERCIAL_PROVEEDORValue write SetNOMBRE_COMERCIAL_PROVEEDORValue;
property NOMBRE_COMERCIAL_PROVEEDORIsNull: Boolean read GetNOMBRE_COMERCIAL_PROVEEDORIsNull write SetNOMBRE_COMERCIAL_PROVEEDORIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@ -582,7 +624,7 @@ type
{ IFacturasProveedor_Detalles } { IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{D16CA232-F0BA-4312-B507-9D67A38B081F}'] ['{A98F227B-0E99-4F1B-9D14-57E3B766C981}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -923,6 +965,27 @@ begin
DataTable.Fields[idx_FacturasProveedorFECHA_FACTURA].AsVariant := Null; DataTable.Fields[idx_FacturasProveedorFECHA_FACTURA].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;
function TFacturasProveedorDataTableRules.GetSITUACIONValue: String; function TFacturasProveedorDataTableRules.GetSITUACIONValue: String;
begin begin
result := DataTable.Fields[idx_FacturasProveedorSITUACION].AsString; result := DataTable.Fields[idx_FacturasProveedorSITUACION].AsString;
@ -1150,6 +1213,48 @@ begin
DataTable.Fields[idx_FacturasProveedorID_PROVEEDOR].AsVariant := Null; DataTable.Fields[idx_FacturasProveedorID_PROVEEDOR].AsVariant := Null;
end; end;
function TFacturasProveedorDataTableRules.GetNOMBRE_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_FacturasProveedorNOMBRE_PROVEEDOR].AsString;
end;
procedure TFacturasProveedorDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasProveedorNOMBRE_PROVEEDOR].AsString := aValue;
end;
function TFacturasProveedorDataTableRules.GetNOMBRE_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedorNOMBRE_PROVEEDOR].IsNull;
end;
procedure TFacturasProveedorDataTableRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedorNOMBRE_PROVEEDOR].AsVariant := Null;
end;
function TFacturasProveedorDataTableRules.GetNOMBRE_COMERCIAL_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR].AsString;
end;
procedure TFacturasProveedorDataTableRules.SetNOMBRE_COMERCIAL_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR].AsString := aValue;
end;
function TFacturasProveedorDataTableRules.GetNOMBRE_COMERCIAL_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR].IsNull;
end;
procedure TFacturasProveedorDataTableRules.SetNOMBRE_COMERCIAL_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR].AsVariant := Null;
end;
function TFacturasProveedorDataTableRules.GetNIF_CIFValue: String; function TFacturasProveedorDataTableRules.GetNIF_CIFValue: String;
begin begin
result := DataTable.Fields[idx_FacturasProveedorNIF_CIF].AsString; result := DataTable.Fields[idx_FacturasProveedorNIF_CIF].AsString;

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

@ -9,13 +9,13 @@ 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_FacturasProveedorDelta = '{91DA6A6D-8DED-41A1-BC58-3F8BA43570B9}'; RID_FacturasProveedorDelta = '{FC1B803A-C284-40C6-B1DB-9CBB0EFFA393}';
RID_FacturasProveedor_DetallesDelta = '{F264DBEE-8AE8-40B8-B153-A141DA741744}'; RID_FacturasProveedor_DetallesDelta = '{6277ABDB-ACDE-4763-AAE1-E74B4A1BA48E}';
type type
{ IFacturasProveedorDelta } { IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor) IFacturasProveedorDelta = interface(IFacturasProveedor)
['{91DA6A6D-8DED-41A1-BC58-3F8BA43570B9}'] ['{FC1B803A-C284-40C6-B1DB-9CBB0EFFA393}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -23,6 +23,7 @@ type
function GetOldTIPOValue : String; function GetOldTIPOValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String; function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldFECHA_FACTURAValue : DateTime; function GetOldFECHA_FACTURAValue : DateTime;
function GetOldFECHA_VENCIMIENTOValue : DateTime;
function GetOldSITUACIONValue : String; function GetOldSITUACIONValue : String;
function GetOldBASE_IMPONIBLEValue : Currency; function GetOldBASE_IMPONIBLEValue : Currency;
function GetOldDESCUENTOValue : Float; function GetOldDESCUENTOValue : Float;
@ -34,6 +35,8 @@ type
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Currency;
function GetOldOBSERVACIONESValue : IROStrings; function GetOldOBSERVACIONESValue : IROStrings;
function GetOldID_PROVEEDORValue : Integer; function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldNOMBRE_COMERCIAL_PROVEEDORValue : String;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
function GetOldCALLEValue : String; function GetOldCALLEValue : String;
@ -61,6 +64,7 @@ type
property OldTIPO : String read GetOldTIPOValue; property OldTIPO : String read GetOldTIPOValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
property OldSITUACION : String read GetOldSITUACIONValue; property OldSITUACION : String read GetOldSITUACIONValue;
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue;
@ -72,6 +76,8 @@ type
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldNOMBRE_COMERCIAL_PROVEEDOR : String read GetOldNOMBRE_COMERCIAL_PROVEEDORValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
property OldCALLE : String read GetOldCALLEValue; property OldCALLE : String read GetOldCALLEValue;
@ -136,6 +142,12 @@ type
function GetOldFECHA_FACTURAIsNull: Boolean; virtual; function GetOldFECHA_FACTURAIsNull: Boolean; virtual;
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual; procedure SetFECHA_FACTURAIsNull(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;
function GetSITUACIONValue: String; virtual; function GetSITUACIONValue: String; virtual;
function GetSITUACIONIsNull: Boolean; virtual; function GetSITUACIONIsNull: Boolean; virtual;
function GetOldSITUACIONValue: String; virtual; function GetOldSITUACIONValue: String; virtual;
@ -201,6 +213,18 @@ type
function GetOldID_PROVEEDORIsNull: Boolean; virtual; function GetOldID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_PROVEEDORValue: String; virtual;
function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
function GetOldNOMBRE_PROVEEDORValue: String; virtual;
function GetOldNOMBRE_PROVEEDORIsNull: Boolean; virtual;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIAL_PROVEEDORValue: String; virtual;
function GetNOMBRE_COMERCIAL_PROVEEDORIsNull: Boolean; virtual;
function GetOldNOMBRE_COMERCIAL_PROVEEDORValue: String; virtual;
function GetOldNOMBRE_COMERCIAL_PROVEEDORIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_PROVEEDORValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual; function GetNIF_CIFValue: String; virtual;
function GetNIF_CIFIsNull: Boolean; virtual; function GetNIF_CIFIsNull: Boolean; virtual;
function GetOldNIF_CIFValue: String; virtual; function GetOldNIF_CIFValue: String; virtual;
@ -341,6 +365,10 @@ type
property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull; property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull;
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;
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property OldSITUACION : String read GetOldSITUACIONValue; property OldSITUACION : String read GetOldSITUACIONValue;
@ -385,6 +413,14 @@ type
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull; property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldNOMBRE_PROVEEDORIsNull : Boolean read GetOldNOMBRE_PROVEEDORIsNull;
property NOMBRE_COMERCIAL_PROVEEDOR : String read GetNOMBRE_COMERCIAL_PROVEEDORValue write SetNOMBRE_COMERCIAL_PROVEEDORValue;
property NOMBRE_COMERCIAL_PROVEEDORIsNull : Boolean read GetNOMBRE_COMERCIAL_PROVEEDORIsNull write SetNOMBRE_COMERCIAL_PROVEEDORIsNull;
property OldNOMBRE_COMERCIAL_PROVEEDOR : String read GetOldNOMBRE_COMERCIAL_PROVEEDORValue;
property OldNOMBRE_COMERCIAL_PROVEEDORIsNull : Boolean read GetOldNOMBRE_COMERCIAL_PROVEEDORIsNull;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIF : String read GetOldNIF_CIFValue;
@ -470,7 +506,7 @@ type
{ IFacturasProveedor_DetallesDelta } { IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{F264DBEE-8AE8-40B8-B153-A141DA741744}'] ['{6277ABDB-ACDE-4763-AAE1-E74B4A1BA48E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -871,6 +907,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_FACTURA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_FACTURA] := 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;
function TFacturasProveedorBusinessProcessorRules.GetSITUACIONValue: String; function TFacturasProveedorBusinessProcessorRules.GetSITUACIONValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorSITUACION]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorSITUACION];
@ -1209,6 +1276,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_PROVEEDOR] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_PROVEEDOR] := Null;
end; end;
function TFacturasProveedorBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNOMBRE_PROVEEDOR];
end;
function TFacturasProveedorBusinessProcessorRules.GetNOMBRE_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNOMBRE_PROVEEDOR]);
end;
function TFacturasProveedorBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorNOMBRE_PROVEEDOR];
end;
function TFacturasProveedorBusinessProcessorRules.GetOldNOMBRE_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorNOMBRE_PROVEEDOR]);
end;
procedure TFacturasProveedorBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNOMBRE_PROVEEDOR] := aValue;
end;
procedure TFacturasProveedorBusinessProcessorRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNOMBRE_PROVEEDOR] := Null;
end;
function TFacturasProveedorBusinessProcessorRules.GetNOMBRE_COMERCIAL_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR];
end;
function TFacturasProveedorBusinessProcessorRules.GetNOMBRE_COMERCIAL_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR]);
end;
function TFacturasProveedorBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR];
end;
function TFacturasProveedorBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR]);
end;
procedure TFacturasProveedorBusinessProcessorRules.SetNOMBRE_COMERCIAL_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR] := aValue;
end;
procedure TFacturasProveedorBusinessProcessorRules.SetNOMBRE_COMERCIAL_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR] := Null;
end;
function TFacturasProveedorBusinessProcessorRules.GetNIF_CIFValue: String; function TFacturasProveedorBusinessProcessorRules.GetNIF_CIFValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNIF_CIF]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNIF_CIF];

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

@ -25,8 +25,8 @@ package FacturasProveedor_plugin;
{$IMPLICITBUILD ON} {$IMPLICITBUILD ON}
requires requires
FacturasProveedor_view, FacturasProveedor_controller,
FacturasProveedor_controller; FacturasProveedor_view;
contains contains
uPluginFacturasProveedor in 'uPluginFacturasProveedor.pas' {PluginFacturasProveedor}; uPluginFacturasProveedor in 'uPluginFacturasProveedor.pas' {PluginFacturasProveedor};

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

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{e7d762a1-3a15-46b2-bd5b-3821d13b8347}</ProjectGuid> <ProjectGuid>{e7d762a1-3a15-46b2-bd5b-3821d13b8347}</ProjectGuid>
<MainSource>FacturasProveedor_plugin.dpk</MainSource> <MainSource>FacturasProveedor_plugin.dpk</MainSource>
@ -66,7 +67,6 @@
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006

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

@ -47,6 +47,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DatasetField = 'FECHA_FACTURA' DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA' TableField = 'FECHA_FACTURA'
end end
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
end
item item
DatasetField = 'SITUACION' DatasetField = 'SITUACION'
TableField = 'SITUACION' TableField = 'SITUACION'
@ -166,6 +170,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item item
DatasetField = 'SUBCUENTA' DatasetField = 'SUBCUENTA'
TableField = 'SUBCUENTA' TableField = 'SUBCUENTA'
end
item
DatasetField = 'NOMBRE_PROVEEDOR'
TableField = 'NOMBRE_PROVEEDOR'
end
item
DatasetField = 'NOMBRE_COMERCIAL_PROVEEDOR'
TableField = 'NOMBRE_COMERCIAL_PROVEEDOR'
end> end>
end> end>
Name = 'FacturasProveedor' Name = 'FacturasProveedor'
@ -206,6 +218,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'FacturasProveedor_FECHA_FACTURA' DictionaryEntry = 'FacturasProveedor_FECHA_FACTURA'
end end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
@ -262,6 +278,16 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datInteger DataType = datInteger
DictionaryEntry = 'FacturasProveedor_ID_PROVEEDOR' DictionaryEntry = 'FacturasProveedor_ID_PROVEEDOR'
end end
item
Name = 'NOMBRE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_COMERCIAL_PROVEEDOR'
DataType = datString
Size = 255
end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString DataType = datString
@ -613,6 +639,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
Value = '' Value = ''
end end
item
Name = 'FECHA_VENCIMIENTO'
Value = ''
end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
Value = '' Value = ''
@ -724,21 +754,21 @@ object srvFacturasProveedor: TsrvFacturasProveedor
TargetTable = 'FACTURAS_PROVEEDOR' TargetTable = 'FACTURAS_PROVEEDOR'
SQL = SQL =
'INSERT'#10' INTO FACTURAS_PROVEEDOR'#10' (ID, ID_EMPRESA, REFERENCIA' + 'INSERT'#10' INTO FACTURAS_PROVEEDOR'#10' (ID, ID_EMPRESA, REFERENCIA' +
', REFERENCIA_PROVEEDOR,'#10' FECHA_FACTURA, BASE_IMPONIBLE, DESC' + ', REFERENCIA_PROVEEDOR,'#10' FECHA_FACTURA, FECHA_VENCIMIENTO, B' +
'UENTO,'#10' IMPORTE_DESCUENTO, IVA, IMPORTE_IVA, RE, IMPORTE_RE,' + 'ASE_IMPONIBLE, DESCUENTO,'#10' IMPORTE_DESCUENTO, IVA, IMPORTE_I' +
' '#10' IMPORTE_TOTAL, OBSERVACIONES, ID_PROVEEDOR, NIF_CIF, '#10' ' + 'VA, RE, IMPORTE_RE, '#10' IMPORTE_TOTAL, OBSERVACIONES, ID_PROVE' +
' NOMBRE, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, '#10' FECH' + 'EDOR, NIF_CIF, '#10' NOMBRE, CALLE, POBLACION, PROVINCIA, CODIGO' +
'A_ALTA, FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, '#10' RECARG' + '_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_FORMA' +
'O_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE, IGNORA' + '_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IM' +
'R_CONTABILIDAD,'#10' ID_TIENDA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, ' + 'PORTE_PORTE, IGNORAR_CONTABILIDAD,'#10' ID_TIENDA)'#10' VALUES'#10' ' +
':REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :BASE_I' + '(:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' :FEC' +
'MPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IV' + 'HA_FACTURA, :FECHA_VENCIMIENTO, :BASE_IMPONIBLE, :DESCUENTO,'#10' ' +
'A, :RE, :IMPORTE_RE, '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :ID_P' + ' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE, '#10' ' +
'ROVEEDOR, :NIF_CIF, '#10' :NOMBRE, :CALLE, :POBLACION, :PROVINCI' + ' :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF, '#10' ' +
'A, :CODIGO_POSTAL, '#10' :FECHA_ALTA, :FECHA_MODIFICACION, :USUA' + ' :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' ' +
'RIO, :ID_FORMA_PAGO, '#10' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, ' + ':FECHA_ALTA, :FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10' ' +
':IMPORTE_NETO, '#10' :IMPORTE_PORTE, :IGNORAR_CONTABILIDAD, :ID_' + ' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMP' +
'TIENDA)'#10' '#10' '#10#10 'ORTE_PORTE, :IGNORAR_CONTABILIDAD, :ID_TIENDA)'#10' '#10' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -785,6 +815,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
Value = '' Value = ''
end end
item
Name = 'FECHA_VENCIMIENTO'
Value = ''
end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
Value = '' Value = ''
@ -902,20 +936,21 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'UPDATE FACTURAS_PROVEEDOR'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA = ' + 'UPDATE FACTURAS_PROVEEDOR'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA = ' +
':ID_EMPRESA, '#10' REFERENCIA = :REFERENCIA, '#10' REFERENCIA_PROV' + ':ID_EMPRESA, '#10' REFERENCIA = :REFERENCIA, '#10' REFERENCIA_PROV' +
'EEDOR = :REFERENCIA_PROVEEDOR,'#10' FECHA_FACTURA = :FECHA_FACTUR' + 'EEDOR = :REFERENCIA_PROVEEDOR,'#10' FECHA_FACTURA = :FECHA_FACTUR' +
'A, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCU' + 'A, '#10' FECHA_VENCIMIENTO = :FECHA_VENCIMIENTO,'#10' BASE_IMPONIB' +
'ENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' IVA = :I' + 'LE = :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_D' +
'VA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' RE = :RE, '#10' IMPORTE' + 'ESCUENTO = :IMPORTE_DESCUENTO, '#10' IVA = :IVA, '#10' IMPORTE_IVA' +
'_RE = :IMPORTE_RE, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' OBS' + ' = :IMPORTE_IVA, '#10' RE = :RE, '#10' IMPORTE_RE = :IMPORTE_RE, '#10 +
'ERVACIONES = :OBSERVACIONES, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, ' + ' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' OBSERVACIONES = :OBSERV' +
#10' NIF_CIF = :NIF_CIF, '#10' NOMBRE = :NOMBRE, '#10' CALLE = :CA' + 'ACIONES, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' NIF_CIF = :NIF_' +
'LLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10 + 'CIF, '#10' NOMBRE = :NOMBRE, '#10' CALLE = :CALLE, '#10' POBLACION ' +
' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' FECHA_ALTA = :FECHA_ALT' + '= :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = ' +
'A, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO =' + ':CODIGO_POSTAL, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFI' +
' :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' RECARGO_EQU' + 'CACION = :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' ID_F' +
'IVALENCIA = :RECARGO_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_I' + 'ORMA_PAGO = :ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA = :RECARGO' +
'VA, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMP' + '_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_IVA, '#10' IMPORTE_NET' +
'ORTE_PORTE,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' ' + 'O = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNO' +
' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10' (ID = :OLD_ID)'#10 'RAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TI' +
'ENDA'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

@ -30,7 +30,29 @@ requires
GUIBase, GUIBase,
Articulos_view, Articulos_view,
Contabilidad_controller, Contabilidad_controller,
Contabilidad_view; Contabilidad_view,
Contactos_model,
Contactos_controller,
vcl,
rtl,
dbrtl,
DataAbstract_Core_D11,
vcldb,
dsnap,
adortl,
RemObjects_Core_D11,
PngComponentsD10,
PNG_D10,
vclactnband,
vclx,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
cxEditorsD11,
cxDataD11,
vcljpg,
dxLayoutControlD11,
dxComnD11;
contains contains
uFacturasProveedorViewRegister in 'uFacturasProveedorViewRegister.pas', uFacturasProveedorViewRegister in 'uFacturasProveedorViewRegister.pas',
@ -41,6 +63,7 @@ contains
uEditorElegirArticulosFacturaProveedor in 'uEditorElegirArticulosFacturaProveedor.pas' {fEditorElegirArticulosFacturaProveedor: TfEditorElegirArticulosFacturaProveedor}, uEditorElegirArticulosFacturaProveedor in 'uEditorElegirArticulosFacturaProveedor.pas' {fEditorElegirArticulosFacturaProveedor: TfEditorElegirArticulosFacturaProveedor},
uViewElegirArticulosFacturasProveedor in 'uViewElegirArticulosFacturasProveedor.pas' {frViewElegirArticulosFacturasProveedor: TFrame}, uViewElegirArticulosFacturasProveedor in 'uViewElegirArticulosFacturasProveedor.pas' {frViewElegirArticulosFacturasProveedor: TFrame},
uViewDetallesFacturaProveedor in 'uViewDetallesFacturaProveedor.pas' {frViewDetallesFacturaProveedor: TFrame}, uViewDetallesFacturaProveedor in 'uViewDetallesFacturaProveedor.pas' {frViewDetallesFacturaProveedor: TFrame},
uEditorFacturasProveedorReport in 'uEditorFacturasProveedorReport.pas' {fEditorFacturasProveedorReport: TfEditorFacturasProveedorReport}; uEditorFacturasProveedorReport in 'uEditorFacturasProveedorReport.pas' {fEditorFacturasProveedorReport: TfEditorFacturasProveedorReport},
uViewProveedorFactura in 'uViewProveedorFactura.pas' {frViewProveedorFactura: TFrame};
end. end.

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

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{0292650a-554d-47ac-933a-ac71d1f18f02}</ProjectGuid> <ProjectGuid>{0292650a-554d-47ac-933a-ac71d1f18f02}</ProjectGuid>
<MainSource>FacturasProveedor_view.dpk</MainSource> <MainSource>FacturasProveedor_view.dpk</MainSource>
@ -41,6 +42,10 @@
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><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="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>
<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><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
@ -49,12 +54,34 @@
<DelphiCompile Include="FacturasProveedor_view.dpk"> <DelphiCompile Include="FacturasProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\Articulos_view.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" /> <DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_view.dcp" /> <DCCReference Include="..\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\Lib\FacturasProveedor_controller.dcp" /> <DCCReference Include="..\Contabilidad_view.dcp" />
<DCCReference Include="..\..\Lib\FacturasProveedor_model.dcp" /> <DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxComnD11.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxLayoutControlD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\FacturasProveedor_controller.dcp" />
<DCCReference Include="..\FacturasProveedor_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas"> <DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas">
<Form>fEditorElegirArticulosFacturaProveedor</Form> <Form>fEditorElegirArticulosFacturaProveedor</Form>
<DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass> <DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass>
@ -88,6 +115,10 @@
<Form>frViewFacturasProveedor</Form> <Form>frViewFacturasProveedor</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewProveedorFactura.pas">
<Form>frViewProveedorFactura</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

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

@ -71,7 +71,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 740 Width = 740
Height = 342 Height = 342
ActivePage = pagContabilidad
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
@ -125,39 +124,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 169 Width = 169
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 210 Left = 240
ExplicitLeft = 210 ExplicitLeft = 240
end end
inherited eReferenciaProveedor: TcxDBTextEdit inherited eReferenciaProveedor: TcxDBTextEdit
ExplicitWidth = 316 ExplicitWidth = 316
Width = 316 Width = 316
end end
inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
Left = 370
ExplicitLeft = 370
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 241
Width = 241
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 289
Width = 289
end
end
end
inherited frViewTienda1: TfrViewTienda inherited frViewTienda1: TfrViewTienda
Width = 320 Width = 320
ExplicitWidth = 320 ExplicitWidth = 320
@ -169,6 +142,51 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end end
end end
inherited frViewProveedorFactura1: TfrViewProveedorFactura
Left = 400
Width = 350
ExplicitLeft = 400
ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl
Width = 350
ExplicitWidth = 350
inherited Bevel1: TBevel
Width = 242
ExplicitWidth = 242
end
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = dsDataTable
ExplicitWidth = 266
Width = 266
end
inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = dsDataTable
ExplicitWidth = 266
Width = 266
end
inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = dsDataTable
ExplicitWidth = 266
Width = 266
end
inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = dsDataTable
ExplicitWidth = 148
Width = 148
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 266
Width = 266
end
inherited edtCodigoPostal: TcxDBTextEdit
DataBinding.DataSource = dsDataTable
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
end
end
end end
end end
end end

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

@ -80,7 +80,8 @@ implementation
uses uses
uBizContactos, uDataModuleUsuarios, uFactuGES_App, uSubCuentasController, uBizContactos, uDataModuleUsuarios, uFactuGES_App, uSubCuentasController,
uDetallesFacturaProveedorController, uDialogUtils, uDataTableUtils; uDetallesFacturaProveedorController, uProveedoresController, uDialogUtils,
uDataTableUtils, uBizDireccionesContacto, uViewProveedorFactura;
// uGenerarAlbaranesProvFacProvUtils; // uGenerarAlbaranesProvFacProvUtils;
@ -284,14 +285,16 @@ AppFactuGES.ShowCapado;
{ {
inherited; inherited;
FController.Print(FFactura); FController.Print(FFactura);
} }
end; end;
procedure TfEditorFacturaProveedor.OnProveedorChanged(Sender: TObject); procedure TfEditorFacturaProveedor.OnProveedorChanged(Sender: TObject);
var var
FDetallesController : IDetallesFacturaProveedorController; FDetallesController : IDetallesFacturaProveedorController;
AProveedoresController : IProveedoresController;
ADireccion : IBizDireccionesContacto;
begin begin
FFactura.Proveedor := frViewFacturaProveedor1.frViewProveedorFactura.Proveedor; FFactura.Proveedor := frViewFacturaProveedor1.frViewProveedorFactura1.Proveedor;
if not (FFactura.DataTable.State in dsEditModes) then if not (FFactura.DataTable.State in dsEditModes) then
FFactura.DataTable.Edit; FFactura.DataTable.Edit;
@ -303,6 +306,29 @@ begin
// else // else
// Factura.RE := 0; // Factura.RE := 0;
// En el caso de tener direcciones asociadas, se debe dar la posibilidad de elegir la dirección principal o las secundarias para la factura
AProveedoresController := TProveedoresController.Create;
try
case FFactura.Proveedor.Direcciones.RecordCount of
0 : //No hay direcciones secundarias asociadas
else ADireccion := AProveedoresController.ElegirDireccion(FFactura.Proveedor, 'Seleccione la dirección del proveedor que quiere utilizar como dirección fiscal de esta factura.');
end;
// Si hay dirección de envio, copiarla al albarán y poner el coste del porte
if Assigned(ADireccion) then
begin
try
FFactura.Edit;
FFactura.IMPORTE_PORTE := ADireccion.PORTE;
FController.CopiarDireccion(ADireccion, FFactura);
finally
ADireccion := NIL;
end;
end
finally
AProveedoresController := Nil;
end;
// Si la factura tiene detalles hay que mirar si los descuentos y otros campos // Si la factura tiene detalles hay que mirar si los descuentos y otros campos
// para los artículos hay que cambiarlos. // para los artículos hay que cambiarlos.
if (FFactura.Detalles.RecordCount > 0) then if (FFactura.Detalles.RecordCount > 0) then
@ -402,8 +428,8 @@ begin
if Assigned(FViewFactura) then if Assigned(FViewFactura) then
begin begin
frViewFacturaProveedor1.frViewProveedorFactura.Proveedor := FFactura.Proveedor; frViewFacturaProveedor1.frViewProveedorFactura1.Proveedor := FFactura.Proveedor;
frViewFacturaProveedor1.frViewProveedorFactura.OnProveedorChanged := OnProveedorChanged; frViewFacturaProveedor1.frViewProveedorFactura1.OnProveedorChanged := OnProveedorChanged;
FViewFactura.Factura := FFactura; FViewFactura.Factura := FFactura;
frViewDetallesFacturaProveedor1.Detalles := FFactura.Detalles; frViewDetallesFacturaProveedor1.Detalles := FFactura.Detalles;
@ -417,8 +443,8 @@ begin
end end
else begin else begin
frViewFacturaProveedor1.frViewProveedorFactura.OnProveedorChanged := NIL; frViewFacturaProveedor1.frViewProveedorFactura1.OnProveedorChanged := NIL;
frViewFacturaProveedor1.frViewProveedorFactura.Proveedor := NIL; frViewFacturaProveedor1.frViewProveedorFactura1.Proveedor := NIL;
dsDataTable.DataTable := NIL; dsDataTable.DataTable := NIL;
frViewTotales1.DADataSource.DataTable := NIL; frViewTotales1.DADataSource.DataTable := NIL;
frViewTotales1.dsTiposIVA.DataTable := NIL; frViewTotales1.dsTiposIVA.DataTable := NIL;

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

@ -284,47 +284,11 @@ begin
end; end;
procedure TfEditorFacturasProveedor.NuevoInterno; procedure TfEditorFacturasProveedor.NuevoInterno;
var
Respuesta : Integer;
// FPedidosProveedorController : IPedidosProveedorController;
// APedido : IBizPedidoProveedor;
//FAlbaranesProveedorController : IAlbaranesProveedorController;
//AAlbaranes : IBizAlbaranProveedor;
//AFacturasNuevas : IBizFacturaProveedor;
//i : integer;
begin begin
inherited; inherited;
Respuesta := JsNuevaFacturaDialog.Execute; if FController.Anadir(Facturas) then
FController.Ver(Facturas);
if Respuesta <> IDCANCEL then
begin
case JsNuevaFacturaDialog.CustomButtonResult of
300 : begin // Utilizar un pedido
{ FPedidosProveedorController := TPedidosProveedorController.Create;
try
APedido := FPedidosProveedorController.ElegirPedidos(FPedidosProveedorController.BuscarPendientes,
'Elija el pedido de proveedor que desea utilizar para dar de alta la factura.'
+ #10#13 + 'Tenga en cuenta que sólo se podrán utilizar pedidos que no tengan ningún albarán ya asociado.', False);
if Assigned(APedido) then
begin
if FController.Anadir(Facturas, APedido) then
FController.Ver(Facturas);
end;
finally
FPedidosClienteController := NIL;
end;}
end;
200 : begin // Utilizar albaranes
// GenerarFacturaProv;
actRefrescar.Execute;
end;
100 : begin // Factura nuevo vacio
if FController.Anadir(Facturas) then
FController.Ver(Facturas);
end;
end;
end;
end; end;
procedure TfEditorFacturasProveedor.PonerTitulos(const ATitulo: string); procedure TfEditorFacturasProveedor.PonerTitulos(const ATitulo: string);

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

@ -1,6 +1,6 @@
inherited frViewFacturaProveedor: TfrViewFacturaProveedor inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 732 Width = 798
Height = 410 Height = 514
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,8 +9,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 732 Width = 798
Height = 410 Height = 514
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
@ -19,10 +19,10 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304 ExplicitHeight = 304
DesignSize = ( DesignSize = (
732 798
410) 514)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 136 Left = 124
Top = 30 Top = 30
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
@ -42,7 +42,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 159 Width = 159
end end
object edtFecha: TcxDBDateEdit object edtFecha: TcxDBDateEdit
Left = 136 Left = 124
Top = 84 Top = 84
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA' DataBinding.DataField = 'FECHA_FACTURA'
@ -64,7 +64,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 262 Top = 320
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -76,13 +76,13 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 8
Height = 159 Height = 170
Width = 301 Width = 754
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 136 Left = 124
Top = 111 Top = 138
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -108,20 +108,20 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 4
Width = 169 Width = 169
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 210 Left = 306
Top = 111 Top = 138
Width = 132 Width = 132
Height = 23 Height = 23
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
TabOrder = 4 TabOrder = 5
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object eReferenciaProveedor: TcxDBTextEdit object eReferenciaProveedor: TcxDBTextEdit
Left = 136 Left = 124
Top = 57 Top = 57
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_PROVEEDOR' DataBinding.DataField = 'REFERENCIA_PROVEEDOR'
@ -140,11 +140,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
TabOrder = 1 TabOrder = 1
Width = 316 Width = 316
end end
inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor inline frViewTienda1: TfrViewTienda
Left = 370 Left = 22
Top = 30 Top = 191
Width = 340 Width = 320
Height = 202 Height = 36
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -153,12 +153,67 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 6
ReadOnly = False ReadOnly = False
ExplicitLeft = 370 ExplicitLeft = 22
ExplicitTop = 30 ExplicitTop = 191
ExplicitWidth = 340 ExplicitWidth = 320
ExplicitHeight = 36
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 340 Width = 320
ExplicitWidth = 340 ExplicitWidth = 320
inherited cbTienda: TcxComboBox
ExplicitWidth = 376
Width = 376
end
end
end
object edtFechaVencimiento: TcxDBDateEdit
Left = 124
Top = 111
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Width = 158
end
inline frViewProveedorFactura1: TfrViewProveedorFactura
Left = 466
Top = 30
Width = 312
Height = 260
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 7
ReadOnly = False
ExplicitLeft = 466
ExplicitTop = 30
ExplicitWidth = 312
ExplicitHeight = 260
inherited dxLayoutControl1: TdxLayoutControl
Width = 312
inherited Bevel1: TBevel
Width = 242
ExplicitWidth = 242
end
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562 ExplicitWidth = 562
Width = 562 Width = 562
@ -168,46 +223,24 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 562 Width = 562
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 241 ExplicitWidth = 177
Width = 241 Width = 177
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 289 ExplicitWidth = 327
Width = 289 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 248 Left = 218
ExplicitLeft = 248 ExplicitLeft = 218
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 132 Left = 102
ExplicitLeft = 132 ExplicitLeft = 102
end end
end inherited cxDBTextEdit1: TcxDBTextEdit
end ExplicitWidth = 276
inline frViewTienda1: TfrViewTienda Width = 276
Left = 22
Top = 164
Width = 320
Height = 36
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 5
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 164
ExplicitWidth = 320
ExplicitHeight = 36
inherited dxLayoutControl1: TdxLayoutControl
Width = 320
ExplicitWidth = 210
inherited cbTienda: TcxComboBox
ExplicitWidth = 376
Width = 376
end end
end end
end end
@ -216,6 +249,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group7: TdxLayoutGroup object dxLayoutControl1Group7: TdxLayoutGroup
AutoAligns = [aaHorizontal]
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
@ -236,7 +270,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
Caption = 'Referencia proveedor:' Caption = 'Factura proveedor:'
Control = eReferenciaProveedor Control = eReferenciaProveedor
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -245,6 +279,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Control = edtFecha Control = edtFecha
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Fecha vencimiento:'
Control = edtFechaVencimiento
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -279,8 +318,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
AlignVert = avClient AlignVert = avClient
Caption = 'Datos del proveedor' Caption = 'Datos del proveedor'
object dxLayoutControl1Item3: TdxLayoutItem object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical] Control = frViewProveedorFactura1
Control = frViewProveedorFactura
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -322,4 +360,13 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Left = 64 Left = 64
Top = 24 Top = 24
end end
object ActionList1: TActionList
Left = 32
Top = 120
object actElegirDireccion: TAction
Caption = 'Elegir una direcci'#243'n de env'#237'o...'
OnExecute = actElegirDireccionExecute
OnUpdate = actElegirDireccionUpdate
end
end
end end

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

@ -10,7 +10,8 @@ uses
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, uViewTienda, uFacturasProveedorController; uDAInterfaces, uBizFormasPago, uViewTienda, uFacturasProveedorController,
ActnList, uViewProveedorFactura;
type type
IViewFacturaProveedor = interface(IViewBase) IViewFacturaProveedor = interface(IViewBase)
@ -48,17 +49,23 @@ type
dxLayoutControl1Group6: TdxLayoutGroup; dxLayoutControl1Group6: TdxLayoutGroup;
dxLayoutControl1Item6: TdxLayoutItem; dxLayoutControl1Item6: TdxLayoutItem;
eReferenciaProveedor: TcxDBTextEdit; eReferenciaProveedor: TcxDBTextEdit;
dxLayoutControl1Item3: TdxLayoutItem;
frViewProveedorFactura: TfrViewDatosYSeleccionProveedor;
dxLayoutControl1Group4: TdxLayoutGroup; dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutControl1Item7: TdxLayoutItem; dxLayoutControl1Item7: TdxLayoutItem;
frViewTienda1: TfrViewTienda; frViewTienda1: TfrViewTienda;
dxLayoutControl1Group7: TdxLayoutGroup; dxLayoutControl1Group7: TdxLayoutGroup;
dxLayoutControl1Item8: TdxLayoutItem;
edtFechaVencimiento: TcxDBDateEdit;
ActionList1: TActionList;
actElegirDireccion: TAction;
dxLayoutControl1Item3: TdxLayoutItem;
frViewProveedorFactura1: TfrViewProveedorFactura;
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure frViewProveedorFacturaButton1Click(Sender: TObject); procedure frViewProveedorFacturaButton1Click(Sender: TObject);
procedure frViewProveedorFacturaButton2Click(Sender: TObject); procedure frViewProveedorFacturaButton2Click(Sender: TObject);
procedure actElegirDireccionExecute(Sender: TObject);
procedure actElegirDireccionUpdate(Sender: TObject);
protected protected
FFactura : IBizFacturaProveedor; FFactura : IBizFacturaProveedor;
FFormasPago : IBizFormaPago; FFormasPago : IBizFormaPago;
@ -78,12 +85,46 @@ type
implementation implementation
uses uses
uDataModuleContactos, schFacturasProveedorClient_Intf; uDataModuleContactos, schFacturasProveedorClient_Intf, uBizDireccionesContacto,
uProveedoresController;
{$R *.dfm} {$R *.dfm}
{ TfrViewFacturaProveedor } { TfrViewFacturaProveedor }
procedure TfrViewFacturaProveedor.actElegirDireccionExecute(Sender: TObject);
var
AProveedoresController : IProveedoresController;
ADireccion : IBizDireccionesContacto;
begin
inherited;
AProveedoresController := TProveedoresController.Create;
try
ADireccion := AProveedoresController.ElegirDireccion(FFactura.Proveedor,
'Seleccione la dirección del Proveedor que quiere utilizar como dirección de envio de este Albaran.');
if Assigned(ADireccion) then
Controller.CopiarDireccion(ADireccion, FFactura);
finally
AProveedoresController := NIL;
end;
end;
procedure TfrViewFacturaProveedor.actElegirDireccionUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (not ReadOnly) and
Assigned(FFactura) and
FFactura.DataTable.Active and
Assigned(FFactura.Proveedor) and
Assigned(FFactura.Proveedor) and
Assigned(FFactura.Proveedor.Direcciones) and
FFactura.Proveedor.Direcciones.DataTable.Active and
(FFactura.Proveedor.Direcciones.DataTable.RecordCount > 0);
end;
procedure TfrViewFacturaProveedor.bFormasPagoClick(Sender: TObject); procedure TfrViewFacturaProveedor.bFormasPagoClick(Sender: TObject);
begin begin
inherited; inherited;
@ -96,7 +137,7 @@ begin
inherited; inherited;
FFormasPago := Nil; FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create; FFormasPagoController := TFormasPagoController.Create;
frViewProveedorFactura.MsgElegirProveedor := 'Elija el proveedor al que se le realizará la factura.'; frViewProveedorFactura1.MsgElegirProveedor := 'Elija el proveedor al que se le realizará la factura.';
end; end;
procedure TfrViewFacturaProveedor.CustomViewDestroy(Sender: TObject); procedure TfrViewFacturaProveedor.CustomViewDestroy(Sender: TObject);
@ -126,7 +167,7 @@ begin
if (Application.MessageBox('Si cambia de proveedor, se eliminarán todos sus artículos de la factura actual, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then if (Application.MessageBox('Si cambia de proveedor, se eliminarán todos sus artículos de la factura actual, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
Exit; Exit;
end; end;
frViewProveedorFactura.actAnadirContacto.Execute; frViewProveedorFactura1.actAnadirContacto.Execute;
end; end;
function TfrViewFacturaProveedor.GetController: IFacturasProveedorController; function TfrViewFacturaProveedor.GetController: IFacturasProveedorController;
@ -144,7 +185,7 @@ begin
FController := Value; FController := Value;
if Assigned(FController) then if Assigned(FController) then
frViewProveedorFactura.Controller := Controller.ProveedorController; frViewProveedorFactura1.Controller := Controller.ProveedorController;
end; end;
procedure TfrViewFacturaProveedor.SetFactura(const Value: IBizFacturaProveedor); procedure TfrViewFacturaProveedor.SetFactura(const Value: IBizFacturaProveedor);
@ -171,7 +212,7 @@ begin
else begin else begin
DADataSource.DataTable := NIL; DADataSource.DataTable := NIL;
dsFormaPago.DataTable := NIL; dsFormaPago.DataTable := NIL;
frViewProveedorFactura.Proveedor := NIL frViewProveedorFactura1.Proveedor := NIL
end; end;
end; end;

9
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
View File

@ -75,12 +75,16 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Width = 27 Width = 27
end end
object cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn
Caption = 'Proveedor'
DataBinding.FieldName = 'NOMBRE_PROVEEDOR'
end
object cxGridViewNIF_CIF: TcxGridDBColumn object cxGridViewNIF_CIF: TcxGridDBColumn
DataBinding.FieldName = 'NIF_CIF' DataBinding.FieldName = 'NIF_CIF'
Visible = False Visible = False
end end
object cxGridViewNOMBRE: TcxGridDBColumn object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Proveedor' Caption = 'Raz'#243'n social'
DataBinding.FieldName = 'NOMBRE' DataBinding.FieldName = 'NOMBRE'
Width = 212 Width = 212
end end
@ -146,6 +150,9 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
DataBinding.FieldName = 'REFERENCIA_COMISION' DataBinding.FieldName = 'REFERENCIA_COMISION'
Visible = False Visible = False
end end
object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE_COMERCIAL'
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todas' Caption = 'Todas'

BIN
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
View File

Binary file not shown.

108
Source/Modulos/Facturas de proveedor/Views/uViewProveedorFactura.dfm Normal file
View File

@ -0,0 +1,108 @@
inherited frViewProveedorFactura: TfrViewProveedorFactura
Height = 270
ExplicitHeight = 270
inherited dxLayoutControl1: TdxLayoutControl
Height = 270
ExplicitHeight = 270
object Bevel1: TBevel [0]
Left = 81
Top = 71
Width = 242
Height = 12
Shape = bsBottomLine
end
inherited edtlNombre: TcxDBTextEdit
Left = 81
Top = 94
TabOrder = 3
ExplicitLeft = 81
ExplicitTop = 94
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 81
Top = 121
TabOrder = 4
ExplicitLeft = 81
ExplicitTop = 121
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
Left = 81
Top = 148
TabOrder = 5
ExplicitLeft = 81
ExplicitTop = 148
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
Left = 81
Top = 175
TabOrder = 6
ExplicitLeft = 81
ExplicitTop = 175
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
Left = 81
Top = 202
TabOrder = 8
ExplicitLeft = 81
ExplicitTop = 202
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Top = 175
TabOrder = 7
ExplicitTop = 175
end
inherited Button3: TBitBtn
Top = 229
TabOrder = 9
ExplicitTop = 229
end
object cxDBTextEdit1: TcxDBTextEdit [10]
Left = 81
Top = 41
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Height = 21
Width = 276
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
object dxLayoutControl1Item10: TdxLayoutItem [1]
Caption = 'Nombre:'
Control = cxDBTextEdit1
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item11: TdxLayoutItem [2]
Caption = 'Datos fiscales'
Offsets.Bottom = 3
Offsets.Top = 3
Control = Bevel1
ControlOptions.ShowBorder = False
end
inherited dxLayoutControl1Item1: TdxLayoutItem
Caption = 'Raz'#243'n:'
end
end
end
end

30
Source/Modulos/Facturas de proveedor/Views/uViewProveedorFactura.pas Normal file
View File

@ -0,0 +1,30 @@
unit uViewProveedorFactura;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDatosYSeleccionProveedor, ImgList, PngImageList, ActnList, DB,
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer,
cxEdit, cxTextEdit, cxDBEdit, cxControls, ExtCtrls;
type
TfrViewProveedorFactura = class(TfrViewDatosYSeleccionProveedor)
dxLayoutControl1Item10: TdxLayoutItem;
cxDBTextEdit1: TcxDBTextEdit;
Bevel1: TBevel;
dxLayoutControl1Item11: TdxLayoutItem;
private
{ Private declarations }
public
{ Public declarations }
end;
var
frViewProveedorFactura: TfrViewProveedorFactura;
implementation
{$R *.dfm}
end.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -106,12 +106,8 @@ uses
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas', schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas',
schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas', schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas', schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas', schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
uBizRecibosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas', uBizRecibosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas',
@ -119,7 +115,11 @@ uses
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas'; schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

501
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,255 +1,254 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">1</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.1.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.1.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 25 de marzo de 2008 19:25</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">1</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.1.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.1.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 25 de marzo de 2008 19:25</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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </ProjectExtensions>
</ProjectExtensions> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <ItemGroup>
<ItemGroup> <DelphiCompile Include="FactuGES_Server.dpr">
<DelphiCompile Include="FactuGES_Server.dpr"> <MainSource>MainSource</MainSource>
<MainSource>MainSource</MainSource> </DelphiCompile>
</DelphiCompile> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" /> <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas"> <Form>srvEjercicios</Form>
<Form>srvEjercicios</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <Form>srvEmpresas</Form>
<Form>srvEmpresas</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" /> <DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <Form>srvAlbaranesCliente</Form>
<Form>srvAlbaranesCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <Form>srvAlbaranesProveedor</Form>
<Form>srvAlbaranesProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <Form>srvAlmacenes</Form>
<Form>srvAlmacenes</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas"> <Form>srvContabilidad</Form>
<Form>srvContabilidad</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <Form>RptEtiquetasContacto</Form>
<Form>RptEtiquetasContacto</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> <Form>RptFichasEmpleado</Form>
<Form>RptFichasEmpleado</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <Form>srvContactos</Form>
<Form>srvContactos</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <Form>RptFacturasCliente</Form>
<Form>RptFacturasCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <Form>srvFacturasCliente</Form>
<Form>srvFacturasCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </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\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> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <Form>srvHistoricoMovimientos</Form>
<Form>srvHistoricoMovimientos</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <Form>srvInventario</Form>
<Form>srvInventario</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <Form>srvPedidosProveedor</Form>
<Form>srvPedidosProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <Form>RptPresupuestosCliente</Form>
<Form>RptPresupuestosCliente</Form> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <Form>srvPresupuestosCliente</Form>
<Form>srvPresupuestosCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <Form>RptRecibosCliente</Form>
<Form>RptRecibosCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <Form>srvRecibosCliente</Form>
<Form>srvRecibosCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <Form>srvRecibosProveedor</Form>
<Form>srvRecibosProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <Form>srvReferencias</Form>
<Form>srvReferencias</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <Form>srvRemesasCliente</Form>
<Form>srvRemesasCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <Form>srvRemesasProveedor</Form>
<Form>srvRemesasProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <Form>srvUnidadesMedida</Form>
<Form>srvUnidadesMedida</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" /> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <Form>srvConfiguracion</Form>
<Form>srvConfiguracion</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uConexionBD.pas">
<DCCReference Include="Configuracion\uConexionBD.pas"> <Form>frConexionBD</Form>
<Form>frConexionBD</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TFrame</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uConfGeneral.pas">
<DCCReference Include="Configuracion\uConfGeneral.pas"> <Form>frConfGeneral</Form>
<Form>frConfGeneral</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TFrame</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uConfiguracion.pas">
<DCCReference Include="Configuracion\uConfiguracion.pas"> <Form>fConfiguracion</Form>
<Form>fConfiguracion</Form> <DesignClass>TForm</DesignClass>
<DesignClass>TForm</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <Form>FrameConfiguracion</Form>
<Form>FrameConfiguracion</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TFrame</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="srvLogin_Impl.pas">
<DCCReference Include="srvLogin_Impl.pas"> <Form>srvLogin</Form>
<Form>srvLogin</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="uAcercaDe.pas">
<DCCReference Include="uAcercaDe.pas"> <Form>fAcercaDe</Form>
<Form>fAcercaDe</Form> </DCCReference>
</DCCReference> <DCCReference Include="uDataModuleServer.pas">
<DCCReference Include="uDataModuleServer.pas"> <Form>dmServer</Form>
<Form>dmServer</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="uServerMainForm.pas">
<DCCReference Include="uServerMainForm.pas"> <Form>fServerForm</Form>
<Form>fServerForm</Form> </DCCReference>
</DCCReference> <DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\RegExpr.pas" /> <DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas" /> <DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas" /> <DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas" /> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" /> <DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" /> <DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas" /> <DCCReference Include="Utiles\uSesionesUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas" /> </ItemGroup>
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.1.0.0\0" VALUE "FileVersion", "1.1.0.0\0"
VALUE "ProductVersion", "1.1.0.0\0" VALUE "ProductVersion", "1.1.0.0\0"
VALUE "CompileDate", "martes, 01 de abril de 2008 19:10\0" VALUE "CompileDate", "martes, 08 de abril de 2008 20:49\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"