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
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@189 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
2538756931
commit
6b422218ea
@ -891,6 +891,7 @@ CREATE TABLE FACTURAS_PROVEEDOR (
|
||||
REFERENCIA VARCHAR(255),
|
||||
REFERENCIA_PROVEEDOR VARCHAR(255),
|
||||
FECHA_FACTURA DATE,
|
||||
FECHA_VENCIMIENTO DATE,
|
||||
BASE_IMPONIBLE TIPO_IMPORTE,
|
||||
DESCUENTO TIPO_PORCENTAJE,
|
||||
IMPORTE_DESCUENTO TIPO_IMPORTE,
|
||||
@ -1194,7 +1195,8 @@ CREATE TABLE PROVEEDORES_DATOS (
|
||||
CERTIFICACION VARCHAR(255),
|
||||
HOMOLOGADO SMALLINT,
|
||||
IGNORAR_CONTABILIDAD TIPO_ID,
|
||||
TIENE_SUBCUENTA TIPO_ID
|
||||
TIENE_SUBCUENTA TIPO_ID,
|
||||
NOMBRE_COMERCIAL VARCHAR(255)
|
||||
);
|
||||
|
||||
CREATE TABLE PROVEEDORES_GRUPOS (
|
||||
@ -2228,6 +2230,8 @@ CREATE VIEW V_FACTURAS_CLIENTE(
|
||||
IMPORTE_TOTAL,
|
||||
OBSERVACIONES,
|
||||
ID_CLIENTE,
|
||||
NOMBRE_CLIENTE,
|
||||
NOMBRE_COMERCIAL_CLIENTE,
|
||||
NIF_CIF,
|
||||
NOMBRE,
|
||||
CALLE,
|
||||
@ -2267,6 +2271,8 @@ SELECT FACTURAS_CLIENTE.ID,
|
||||
FACTURAS_CLIENTE.IMPORTE_TOTAL,
|
||||
FACTURAS_CLIENTE.OBSERVACIONES,
|
||||
FACTURAS_CLIENTE.ID_CLIENTE,
|
||||
V_CLIENTES.NOMBRE,
|
||||
V_CLIENTES.NOMBRE_COMERCIAL,
|
||||
FACTURAS_CLIENTE.NIF_CIF,
|
||||
FACTURAS_CLIENTE.NOMBRE,
|
||||
FACTURAS_CLIENTE.CALLE,
|
||||
@ -2294,6 +2300,8 @@ SELECT FACTURAS_CLIENTE.ID,
|
||||
ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
|
||||
LEFT JOIN COMISIONES_LIQUIDADAS
|
||||
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
|
||||
ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE)
|
||||
LEFT JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = FACTURAS_CLIENTE.ID_TIENDA)
|
||||
@ -2310,6 +2318,7 @@ CREATE VIEW V_FACTURAS_PROVEEDOR(
|
||||
TIPO,
|
||||
REFERENCIA_PROVEEDOR,
|
||||
FECHA_FACTURA,
|
||||
FECHA_VENCIMIENTO,
|
||||
SITUACION,
|
||||
BASE_IMPONIBLE,
|
||||
DESCUENTO,
|
||||
@ -2321,6 +2330,8 @@ CREATE VIEW V_FACTURAS_PROVEEDOR(
|
||||
IMPORTE_TOTAL,
|
||||
OBSERVACIONES,
|
||||
ID_PROVEEDOR,
|
||||
NOMBRE_PROVEEDOR,
|
||||
NOMBRE_COMERCIAL_PROVEEDOR,
|
||||
NIF_CIF,
|
||||
NOMBRE,
|
||||
CALLE,
|
||||
@ -2347,6 +2358,7 @@ SELECT FACTURAS_PROVEEDOR.ID,
|
||||
CASE WHEN (FACTURAS_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO,
|
||||
FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR,
|
||||
FACTURAS_PROVEEDOR.FECHA_FACTURA,
|
||||
FACTURAS_PROVEEDOR.FECHA_VENCIMIENTO,
|
||||
TRIM(V_FAC_PRO_SITUACION.SITUACION),
|
||||
FACTURAS_PROVEEDOR.BASE_IMPONIBLE,
|
||||
FACTURAS_PROVEEDOR.DESCUENTO,
|
||||
@ -2358,6 +2370,8 @@ SELECT FACTURAS_PROVEEDOR.ID,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
|
||||
FACTURAS_PROVEEDOR.OBSERVACIONES,
|
||||
FACTURAS_PROVEEDOR.ID_PROVEEDOR,
|
||||
V_PROVEEDORES.NOMBRE,
|
||||
V_PROVEEDORES.NOMBRE_COMERCIAL,
|
||||
FACTURAS_PROVEEDOR.NIF_CIF,
|
||||
FACTURAS_PROVEEDOR.NOMBRE,
|
||||
FACTURAS_PROVEEDOR.CALLE,
|
||||
@ -2381,6 +2395,8 @@ SELECT FACTURAS_PROVEEDOR.ID,
|
||||
FROM V_FAC_PRO_SITUACION
|
||||
LEFT JOIN FACTURAS_PROVEEDOR
|
||||
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
|
||||
ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
|
||||
LEFT JOIN EMPRESAS_TIENDAS
|
||||
@ -3018,8 +3034,6 @@ FROM V_PED_PROV_ARTICULOS
|
||||
GROUP BY V_PED_PROV_ARTICULOS.ID_PEDIDO
|
||||
;
|
||||
|
||||
|
||||
|
||||
/* View: V_PROVEEDORES */
|
||||
CREATE VIEW V_PROVEEDORES(
|
||||
ID,
|
||||
@ -3058,7 +3072,8 @@ CREATE VIEW V_PROVEEDORES(
|
||||
HOMOLOGADO,
|
||||
CERTIFICACION,
|
||||
IGNORAR_CONTABILIDAD,
|
||||
TIENE_SUBCUENTA)
|
||||
TIENE_SUBCUENTA,
|
||||
NOMBRE_COMERCIAL)
|
||||
AS
|
||||
SELECT
|
||||
V_CONTACTOS.ID,
|
||||
@ -3097,7 +3112,8 @@ SELECT
|
||||
PROVEEDORES_DATOS.HOMOLOGADO,
|
||||
PROVEEDORES_DATOS.CERTIFICACION,
|
||||
PROVEEDORES_DATOS.IGNORAR_CONTABILIDAD,
|
||||
PROVEEDORES_DATOS.TIENE_SUBCUENTA
|
||||
PROVEEDORES_DATOS.TIENE_SUBCUENTA,
|
||||
PROVEEDORES_DATOS.NOMBRE_COMERCIAL
|
||||
FROM
|
||||
PROVEEDORES_DATOS
|
||||
INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID)
|
||||
|
||||
@ -58,47 +58,47 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\PluginSDK_D10R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\PluginSDK_D10R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
|
||||
@ -10,7 +10,11 @@
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
<Projects Include="..\..\Servidor\FactuGES_Server.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="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
|
||||
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
|
||||
<Projects Include="Controller\AlbaranesProveedor_controller.dproj" />
|
||||
<Projects Include="Data\AlbaranesProveedor_data.dproj" />
|
||||
<Projects Include="Model\AlbaranesProveedor_model.dproj" />
|
||||
@ -131,14 +135,50 @@
|
||||
<Target Name="FactuGES_Server:Make">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_view">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_view:Clean">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_view:Make">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -108,8 +108,7 @@ type
|
||||
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor);
|
||||
procedure VerDireccionEntrega(AAlbaran : IBizAlbaranProveedor);
|
||||
function Duplicar(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor;
|
||||
procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto;
|
||||
AAlbaran: IBizAlbaranProveedor);
|
||||
procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto; AAlbaran: IBizAlbaranProveedor);
|
||||
|
||||
procedure QuitarDireccionEnvio(AAlbaran: IBizAlbaranProveedor);
|
||||
function ExtraerSeleccionados(AAlbaran: IBizAlbaranProveedor) : IBizAlbaranProveedor;
|
||||
|
||||
@ -352,6 +352,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
|
||||
ExplicitHeight = 32
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 366
|
||||
ExplicitWidth = 366
|
||||
inherited cbTienda: TcxComboBox
|
||||
ExplicitWidth = 376
|
||||
Width = 376
|
||||
|
||||
@ -138,7 +138,7 @@ begin
|
||||
AProveedoresController := NIL;
|
||||
AAlbaranController := NIL;
|
||||
end;
|
||||
}
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranProveedor.actElegirDireccionUpdate(Sender: TObject);
|
||||
|
||||
@ -505,7 +505,7 @@ object srvContabilidad: TsrvContabilidad
|
||||
'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' +
|
||||
'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
|
||||
ColumnMappings = <
|
||||
item
|
||||
|
||||
@ -160,17 +160,8 @@ begin
|
||||
|
||||
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 := 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;
|
||||
|
||||
if VarIsNull(dsData.FieldValues[0]) then
|
||||
@ -178,8 +169,8 @@ begin
|
||||
else
|
||||
NumCuenta := dsData.FieldValues[0];
|
||||
Inc(NumCuenta);
|
||||
RefSubCuenta := format('%.5d', [NumCuenta]);
|
||||
RefSubCuenta := IntToStr(REFERENCIA_PROVEEDORES) + RefTienda + RefSubCuenta;
|
||||
RefSubCuenta := format('%.7d', [NumCuenta]);
|
||||
RefSubCuenta := IntToStr(REFERENCIA_PROVEEDORES) + RefSubCuenta;
|
||||
|
||||
dsData := NIL;
|
||||
dsData := schContabilidad.NewDataset(AConn, 'DarIDCuenta', ['ID_EJERCICIO', 'REFERENCIA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES]);
|
||||
|
||||
@ -61,7 +61,7 @@ contains
|
||||
uIEditorElegirContactos in 'View\uIEditorElegirContactos.pas',
|
||||
uIEditorDireccionContacto in 'View\uIEditorDireccionContacto.pas',
|
||||
uDireccionesContactoController in 'uDireccionesContactoController.pas',
|
||||
uIEditorElegirDireccionEntrega in 'View\uIEditorElegirDireccionEntrega.pas',
|
||||
uIEditorElegirDireccion in 'View\uIEditorElegirDireccion.pas',
|
||||
uGruposClienteController in 'uGruposClienteController.pas',
|
||||
uIEditorGruposCliente in 'View\uIEditorGruposCliente.pas',
|
||||
uGruposProveedorController in 'uGruposProveedorController.pas',
|
||||
|
||||
@ -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\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>
|
||||
@ -62,6 +104,23 @@
|
||||
<DelphiCompile Include="Contactos_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</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="uContactosController.pas" />
|
||||
<DCCReference Include="uDireccionesContactoController.pas" />
|
||||
@ -73,21 +132,6 @@
|
||||
<DCCReference Include="uGruposProveedorController.pas" />
|
||||
<DCCReference Include="uProcedenciasClienteController.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\uIEditorClientes.pas" />
|
||||
<DCCReference Include="View\uIEditorContacto.pas" />
|
||||
@ -95,7 +139,7 @@
|
||||
<DCCReference Include="View\uIEditorDireccionContacto.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirClientes.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirContactos.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirDireccionEntrega.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirDireccion.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirProveedores.pas" />
|
||||
<DCCReference Include="View\uIEditorEmpleado.pas" />
|
||||
<DCCReference Include="View\uIEditorEmpleados.pas" />
|
||||
@ -107,8 +151,6 @@
|
||||
<DCCReference Include="View\uIEditorProcedenciasCliente.pas" />
|
||||
<DCCReference Include="View\uIEditorProveedor.pas" />
|
||||
<DCCReference Include="View\uIEditorProveedores.pas" />
|
||||
<DCCReference Include="View\vcl.dcp" />
|
||||
<DCCReference Include="View\vcldb.dcp" />
|
||||
<None Include="ModelSupport_Contactos_controller\default.txaPackage" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
@ -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.
|
||||
|
||||
@ -57,7 +57,7 @@ implementation
|
||||
uses
|
||||
Forms, Classes, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils,
|
||||
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
|
||||
uIEditorElegirClientes, uIEditorElegirDireccionEntrega, uEditorGridBase,
|
||||
uIEditorElegirClientes, uIEditorElegirDireccion, uEditorGridBase,
|
||||
Dialogs;
|
||||
|
||||
{ TClientesController }
|
||||
@ -128,11 +128,11 @@ end;
|
||||
function TClientesController.ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto;
|
||||
AMensaje: String): IBizDireccionesContacto;
|
||||
var
|
||||
AEditor : IEditorElegirDireccionEntrega;
|
||||
AEditor : IEditorElegirDireccion;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
CreateEditor('EditorElegirDireccionEntrega', IEditorElegirDireccionEntrega, AEditor);
|
||||
CreateEditor('EditorElegirDireccion', IEditorElegirDireccion, AEditor);
|
||||
try
|
||||
with AEditor do
|
||||
begin
|
||||
|
||||
@ -5,7 +5,8 @@ interface
|
||||
|
||||
uses
|
||||
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
|
||||
uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos;
|
||||
uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos,
|
||||
uBizDireccionesContacto, uDireccionesContactoController;
|
||||
|
||||
type
|
||||
IContactosController = interface
|
||||
@ -28,6 +29,7 @@ type
|
||||
|
||||
function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto;
|
||||
procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer);
|
||||
function ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto;
|
||||
end;
|
||||
|
||||
TContactosController = class(TInterfacedObject, IContactosController)
|
||||
@ -59,13 +61,14 @@ type
|
||||
function ElegirContacto(AContactos : IBizContacto;
|
||||
AMensaje: String; AMultiSelect: Boolean): IBizContacto; virtual; abstract;
|
||||
procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer);
|
||||
function ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Dialogs, uEditorRegistryUtils, cxControls, DB, uDAInterfaces, uDataTableUtils,
|
||||
schContactosClient_Intf, uFactuGES_App, Variants;
|
||||
schContactosClient_Intf, uFactuGES_App, Variants, JSDialogs, JSDialog;
|
||||
|
||||
{ TContactosController }
|
||||
|
||||
@ -126,6 +129,56 @@ begin
|
||||
inherited;
|
||||
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;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
@ -11,7 +11,6 @@ type
|
||||
IProveedoresController = interface(IContactosController)
|
||||
['{50F10D01-5120-470D-A61D-99FE8A76DF93}']
|
||||
function BuscarTodosTiendaWeb: IBizProveedor;
|
||||
function ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto; AMensaje: String): IBizDireccionesContacto;
|
||||
function EsEliminable(AProveedor: IBizContacto): Boolean;
|
||||
function Eliminar(AProveedor: IBizContacto; AllItems: Boolean = false): Boolean; overload;
|
||||
procedure Preview(AProveedor : IBizProveedor; AllItems: Boolean = false);
|
||||
@ -32,13 +31,11 @@ type
|
||||
function BuscarTodos: IBizContacto; override;
|
||||
function BuscarTodosTiendaWeb: IBizProveedor;
|
||||
function Nuevo : IBizContacto; override;
|
||||
function Guardar(AContacto : IBizContacto): Boolean; override;
|
||||
function Guardar(AContacto : IBizContacto): Boolean; override;
|
||||
procedure Ver(AContacto : IBizContacto); override;
|
||||
procedure VerTodos(AContactos: IBizContacto); override;
|
||||
function ElegirContacto(AContactos : IBizContacto;
|
||||
AMensaje: String; AMultiSelect: Boolean): IBizContacto; override;
|
||||
function ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto;
|
||||
AMensaje: String): IBizDireccionesContacto;
|
||||
function EsEliminable(AProveedor: IBizContacto): Boolean;
|
||||
function Eliminar(AProveedor: IBizContacto; AllItems: Boolean = false): Boolean; overload;
|
||||
procedure Preview(AProveedor : IBizProveedor; AllItems: Boolean = false);
|
||||
@ -52,8 +49,8 @@ implementation
|
||||
uses
|
||||
Classes, SysUtils, cxControls, Dialogs, uDataModuleProveedores, uEditorRegistryUtils,
|
||||
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
|
||||
uIEditorElegirProveedores, Controls, uIEditorElegirDireccionEntrega,
|
||||
uEditorGridBase;
|
||||
uIEditorElegirProveedores, Controls, uIEditorElegirDireccion,
|
||||
uEditorGridBase, JSDialogs, JSDialog, Windows;
|
||||
|
||||
{ TProveedoresController }
|
||||
|
||||
@ -114,30 +111,6 @@ begin
|
||||
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;
|
||||
//En el caso de eliminar almenos un elemento del conjunto se devuelve true
|
||||
var
|
||||
|
||||
@ -10,6 +10,117 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
inherited ds_Contactos: TDADataSource
|
||||
DataSet = tbl_Contactos.Dataset
|
||||
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
|
||||
DataSet = tbl_DireccionesContacto.Dataset
|
||||
end
|
||||
|
||||
@ -4,6 +4,117 @@ inherited DataModuleProveedores: TDataModuleProveedores
|
||||
inherited ds_Contactos: TDADataSource
|
||||
DataSet = tbl_Contactos.Dataset
|
||||
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
|
||||
DataSet = tbl_DireccionesContacto.Dataset
|
||||
end
|
||||
@ -290,6 +401,11 @@ inherited DataModuleProveedores: TDataModuleProveedores
|
||||
item
|
||||
Name = 'TIENE_SUBCUENTA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -3,25 +3,25 @@ unit schContactosClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_SubCuentasContacto = '{77E2D0D2-685D-460C-8A5C-B58184819D7B}';
|
||||
RID_Contactos = '{059BCFE8-30A4-4BC4-974F-1E240A1F3379}';
|
||||
RID_GruposCliente = '{758F5D19-8076-45D9-BB2B-D79D45FFC272}';
|
||||
RID_DatosBancarios = '{CC510C73-A596-4F19-8B13-E0809A7EE519}';
|
||||
RID_Clientes = '{41895E3B-E13F-4890-9961-CFCF04CAC5D4}';
|
||||
RID_Proveedores = '{3BD8FE29-DA71-4E2B-BA0B-4F8CCF53C66C}';
|
||||
RID_Empleados = '{10A30112-8DAC-4EED-AFD9-AABC573A83B2}';
|
||||
RID_DireccionesContacto = '{3AB78171-440E-4F68-AEF8-F877AB0134DE}';
|
||||
RID_ClientesDescuentos = '{0FA9A43D-7A43-4D44-A4CF-24C55D2F3601}';
|
||||
RID_ProcedenciasCliente = '{388B32E1-0819-4CF1-B551-6EAF5CDA6CD8}';
|
||||
RID_GruposProveedor = '{23CFD460-23AC-473C-A97C-EF9D1E2EE6F4}';
|
||||
RID_GruposEmpleado = '{72AB9D68-2DBB-4777-BFE8-CB567B31D695}';
|
||||
RID_Contactos_Refresh = '{492FC030-1BEA-4AE1-A00B-0DC1E3DBF855}';
|
||||
RID_SubCuentasContacto = '{A665876F-88B1-480D-B671-45BF9CE0354E}';
|
||||
RID_Contactos = '{DBF3555C-25B6-4111-B564-08223B7DEDFF}';
|
||||
RID_GruposCliente = '{B8A3C655-7B91-441C-A02D-56D6F4515A73}';
|
||||
RID_DatosBancarios = '{95A679A6-2656-43A4-AD76-B221555120D1}';
|
||||
RID_Clientes = '{B0C7F62A-2118-4C8E-A088-399FB5F4172A}';
|
||||
RID_Proveedores = '{905725EC-B1B7-4EEE-878E-5298DA5A4651}';
|
||||
RID_Empleados = '{CC3BA198-8F62-4919-9635-F6B9A76A6944}';
|
||||
RID_DireccionesContacto = '{25680D30-D90A-4CF6-AF42-3A6607831C93}';
|
||||
RID_ClientesDescuentos = '{760ADCE2-83B9-47D1-ADBE-79EBD056D223}';
|
||||
RID_ProcedenciasCliente = '{AF653A27-737C-46A1-ADAC-34A2572D34C6}';
|
||||
RID_GruposProveedor = '{C9B66220-03F7-4D77-B00D-8ADBC3C50FED}';
|
||||
RID_GruposEmpleado = '{E3EAF37B-5015-4CAD-930B-D54819909607}';
|
||||
RID_Contactos_Refresh = '{E9F852B8-287F-4A82-92EC-0E1BF028802D}';
|
||||
|
||||
{ Data table names }
|
||||
nme_SubCuentasContacto = 'SubCuentasContacto';
|
||||
@ -258,6 +258,7 @@ const
|
||||
fld_ProveedoresCERTIFICACION = 'CERTIFICACION';
|
||||
fld_ProveedoresIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
|
||||
fld_ProveedoresTIENE_SUBCUENTA = 'TIENE_SUBCUENTA';
|
||||
fld_ProveedoresNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
|
||||
|
||||
{ Proveedores field indexes }
|
||||
idx_ProveedoresID = 0;
|
||||
@ -297,6 +298,7 @@ const
|
||||
idx_ProveedoresCERTIFICACION = 34;
|
||||
idx_ProveedoresIGNORAR_CONTABILIDAD = 35;
|
||||
idx_ProveedoresTIENE_SUBCUENTA = 36;
|
||||
idx_ProveedoresNOMBRE_COMERCIAL = 37;
|
||||
|
||||
{ Empleados fields }
|
||||
fld_EmpleadosID = 'ID';
|
||||
@ -371,6 +373,7 @@ const
|
||||
{ DireccionesContacto fields }
|
||||
fld_DireccionesContactoID = 'ID';
|
||||
fld_DireccionesContactoID_CONTACTO = 'ID_CONTACTO';
|
||||
fld_DireccionesContactoNIF_CIF = 'NIF_CIF';
|
||||
fld_DireccionesContactoCALLE = 'CALLE';
|
||||
fld_DireccionesContactoPOBLACION = 'POBLACION';
|
||||
fld_DireccionesContactoPROVINCIA = 'PROVINCIA';
|
||||
@ -389,20 +392,21 @@ const
|
||||
{ DireccionesContacto field indexes }
|
||||
idx_DireccionesContactoID = 0;
|
||||
idx_DireccionesContactoID_CONTACTO = 1;
|
||||
idx_DireccionesContactoCALLE = 2;
|
||||
idx_DireccionesContactoPOBLACION = 3;
|
||||
idx_DireccionesContactoPROVINCIA = 4;
|
||||
idx_DireccionesContactoCODIGO_POSTAL = 5;
|
||||
idx_DireccionesContactoPERSONA_CONTACTO = 6;
|
||||
idx_DireccionesContactoNOMBRE = 7;
|
||||
idx_DireccionesContactoTELEFONO = 8;
|
||||
idx_DireccionesContactoMOVIL = 9;
|
||||
idx_DireccionesContactoFAX = 10;
|
||||
idx_DireccionesContactoEMAIL = 11;
|
||||
idx_DireccionesContactoNOTAS = 12;
|
||||
idx_DireccionesContactoPORTE = 13;
|
||||
idx_DireccionesContactoFECHA_ALTA = 14;
|
||||
idx_DireccionesContactoFECHA_MODIFICACION = 15;
|
||||
idx_DireccionesContactoNIF_CIF = 2;
|
||||
idx_DireccionesContactoCALLE = 3;
|
||||
idx_DireccionesContactoPOBLACION = 4;
|
||||
idx_DireccionesContactoPROVINCIA = 5;
|
||||
idx_DireccionesContactoCODIGO_POSTAL = 6;
|
||||
idx_DireccionesContactoPERSONA_CONTACTO = 7;
|
||||
idx_DireccionesContactoNOMBRE = 8;
|
||||
idx_DireccionesContactoTELEFONO = 9;
|
||||
idx_DireccionesContactoMOVIL = 10;
|
||||
idx_DireccionesContactoFAX = 11;
|
||||
idx_DireccionesContactoEMAIL = 12;
|
||||
idx_DireccionesContactoNOTAS = 13;
|
||||
idx_DireccionesContactoPORTE = 14;
|
||||
idx_DireccionesContactoFECHA_ALTA = 15;
|
||||
idx_DireccionesContactoFECHA_MODIFICACION = 16;
|
||||
|
||||
{ ClientesDescuentos fields }
|
||||
fld_ClientesDescuentosID = 'ID';
|
||||
@ -491,7 +495,7 @@ const
|
||||
type
|
||||
{ ISubCuentasContacto }
|
||||
ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{180C71AC-D602-4871-B0B5-30DB9A6F0D3D}']
|
||||
['{A265AC9F-4CE6-4C65-9B80-55A01FAD8DE7}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -535,7 +539,7 @@ type
|
||||
end;
|
||||
|
||||
{ TSubCuentasContactoDataTableRules }
|
||||
TSubCuentasContactoDataTableRules = class(TDADataTableRules, ISubCuentasContacto)
|
||||
TSubCuentasContactoDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentasContacto)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -586,7 +590,7 @@ type
|
||||
|
||||
{ IContactos }
|
||||
IContactos = interface(IDAStronglyTypedDataTable)
|
||||
['{517A8780-E06E-4C96-B076-F9975F834557}']
|
||||
['{B82C612C-9B19-47AC-A153-33F40F1F966C}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -743,7 +747,7 @@ type
|
||||
end;
|
||||
|
||||
{ TContactosDataTableRules }
|
||||
TContactosDataTableRules = class(TDADataTableRules, IContactos)
|
||||
TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
procedure NOTAS_OnChange(Sender: TObject);
|
||||
@ -909,7 +913,7 @@ type
|
||||
|
||||
{ IGruposCliente }
|
||||
IGruposCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{DF6B0030-F21D-462F-BAA1-765346227096}']
|
||||
['{F20A31CD-092A-4808-8E35-91F913A0404B}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -929,7 +933,7 @@ type
|
||||
end;
|
||||
|
||||
{ TGruposClienteDataTableRules }
|
||||
TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
|
||||
TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -956,7 +960,7 @@ type
|
||||
|
||||
{ IDatosBancarios }
|
||||
IDatosBancarios = interface(IDAStronglyTypedDataTable)
|
||||
['{71AD9AE5-15E3-4510-920F-C9DCA24935C3}']
|
||||
['{F7E3B1A8-464E-441D-96F9-2A8ABBAB189F}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1018,7 +1022,7 @@ type
|
||||
end;
|
||||
|
||||
{ TDatosBancariosDataTableRules }
|
||||
TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
|
||||
TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -1087,7 +1091,7 @@ type
|
||||
|
||||
{ IClientes }
|
||||
IClientes = interface(IDAStronglyTypedDataTable)
|
||||
['{D314D401-AE3E-4242-ADBA-7879822029DC}']
|
||||
['{267B0187-B441-4FC0-BDF7-8E14D73A9112}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1328,7 +1332,7 @@ type
|
||||
end;
|
||||
|
||||
{ TClientesDataTableRules }
|
||||
TClientesDataTableRules = class(TDADataTableRules, IClientes)
|
||||
TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
procedure NOTAS_OnChange(Sender: TObject);
|
||||
@ -1578,7 +1582,7 @@ type
|
||||
|
||||
{ IProveedores }
|
||||
IProveedores = interface(IDAStronglyTypedDataTable)
|
||||
['{17E80FD0-91B4-4D1C-95ED-3D5C4B42578A}']
|
||||
['{80234880-B682-4597-90DF-CDD58C95F600}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1727,6 +1731,10 @@ type
|
||||
procedure SetTIENE_SUBCUENTAValue(const aValue: Integer);
|
||||
function GetTIENE_SUBCUENTAIsNull: 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 }
|
||||
@ -1804,10 +1812,12 @@ type
|
||||
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
|
||||
property TIENE_SUBCUENTA: Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue;
|
||||
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;
|
||||
|
||||
{ TProveedoresDataTableRules }
|
||||
TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
|
||||
TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
procedure NOTAS_OnChange(Sender: TObject);
|
||||
@ -1960,6 +1970,10 @@ type
|
||||
procedure SetTIENE_SUBCUENTAValue(const aValue: Integer); virtual;
|
||||
function GetTIENE_SUBCUENTAIsNull: 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 }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -2036,6 +2050,8 @@ type
|
||||
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
|
||||
property TIENE_SUBCUENTA: Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue;
|
||||
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
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -2045,7 +2061,7 @@ type
|
||||
|
||||
{ IEmpleados }
|
||||
IEmpleados = interface(IDAStronglyTypedDataTable)
|
||||
['{4AC6F410-2F75-4947-8321-5363F1418AA2}']
|
||||
['{0675CA38-A22F-410D-B6C8-8A3C41629E91}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2246,7 +2262,7 @@ type
|
||||
end;
|
||||
|
||||
{ TEmpleadosDataTableRules }
|
||||
TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
|
||||
TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
f_FORMACION_BASE: IROStrings;
|
||||
@ -2464,7 +2480,7 @@ type
|
||||
|
||||
{ IDireccionesContacto }
|
||||
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{0BEB43AD-BE78-4F2E-B45C-8E6AE76A186A}']
|
||||
['{BBD6E216-B44C-4757-837E-2C63DBAB1B87}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2474,6 +2490,10 @@ type
|
||||
procedure SetID_CONTACTOValue(const aValue: Integer);
|
||||
function GetID_CONTACTOIsNull: 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;
|
||||
procedure SetCALLEValue(const aValue: String);
|
||||
function GetCALLEIsNull: Boolean;
|
||||
@ -2536,6 +2556,8 @@ type
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
|
||||
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 CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
|
||||
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
|
||||
@ -2567,7 +2589,7 @@ type
|
||||
end;
|
||||
|
||||
{ TDireccionesContactoDataTableRules }
|
||||
TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
|
||||
TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
procedure NOTAS_OnChange(Sender: TObject);
|
||||
@ -2581,6 +2603,10 @@ type
|
||||
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
|
||||
function GetID_CONTACTOIsNull: 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;
|
||||
procedure SetCALLEValue(const aValue: String); virtual;
|
||||
function GetCALLEIsNull: Boolean; virtual;
|
||||
@ -2642,6 +2668,8 @@ type
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
|
||||
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 CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
|
||||
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
|
||||
@ -2679,7 +2707,7 @@ type
|
||||
|
||||
{ IClientesDescuentos }
|
||||
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
|
||||
['{9323A474-DBCB-4050-A1F4-229966D7A848}']
|
||||
['{92A3F3B0-C9C4-4D4D-A311-93FDDA3C6C0D}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2717,7 +2745,7 @@ type
|
||||
end;
|
||||
|
||||
{ TClientesDescuentosDataTableRules }
|
||||
TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
|
||||
TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -2762,7 +2790,7 @@ type
|
||||
|
||||
{ IProcedenciasCliente }
|
||||
IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{459BF966-D8AA-44F0-B23A-704860B7AC98}']
|
||||
['{52E73E0C-71AE-443B-86D2-9F0DC0D5FDF7}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2782,7 +2810,7 @@ type
|
||||
end;
|
||||
|
||||
{ TProcedenciasClienteDataTableRules }
|
||||
TProcedenciasClienteDataTableRules = class(TDADataTableRules, IProcedenciasCliente)
|
||||
TProcedenciasClienteDataTableRules = class(TIntfObjectDADataTableRules, IProcedenciasCliente)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -2809,7 +2837,7 @@ type
|
||||
|
||||
{ IGruposProveedor }
|
||||
IGruposProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{0A10C9D3-D291-47D7-8BE5-15F1178704AB}']
|
||||
['{94B8A3A8-8683-43DA-B13A-1E0DBF3901C4}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2829,7 +2857,7 @@ type
|
||||
end;
|
||||
|
||||
{ TGruposProveedorDataTableRules }
|
||||
TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
|
||||
TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -2856,7 +2884,7 @@ type
|
||||
|
||||
{ IGruposEmpleado }
|
||||
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
|
||||
['{ADFE0D54-EBBB-444A-9830-D5E39AED2058}']
|
||||
['{B3995733-40B5-4A77-B050-2722DEDEF5E8}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2876,7 +2904,7 @@ type
|
||||
end;
|
||||
|
||||
{ TGruposEmpleadoDataTableRules }
|
||||
TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
|
||||
TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -2903,7 +2931,7 @@ type
|
||||
|
||||
{ IContactos_Refresh }
|
||||
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{9355FABF-5007-43F5-BB00-9F0C43DA7FD2}']
|
||||
['{60A8DD40-4B90-40FA-A22C-2FFF67737F64}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -3036,7 +3064,7 @@ type
|
||||
end;
|
||||
|
||||
{ TContactos_RefreshDataTableRules }
|
||||
TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
|
||||
TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
procedure NOTAS_OnChange(Sender: TObject);
|
||||
@ -5750,6 +5778,27 @@ begin
|
||||
DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsVariant := Null;
|
||||
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 }
|
||||
constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable);
|
||||
@ -6547,6 +6596,27 @@ begin
|
||||
DataTable.Fields[idx_DireccionesContactoID_CONTACTO].AsVariant := Null;
|
||||
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;
|
||||
begin
|
||||
result := DataTable.Fields[idx_DireccionesContactoCALLE].AsString;
|
||||
|
||||
@ -9,24 +9,24 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_SubCuentasContactoDelta = '{EE9317EA-5374-4D7D-B6CC-8684FE0D6B21}';
|
||||
RID_ContactosDelta = '{51070042-26A2-4A85-8719-F51520E40F38}';
|
||||
RID_GruposClienteDelta = '{965A879A-4E61-42F4-83FE-22FA07165FB5}';
|
||||
RID_DatosBancariosDelta = '{5BE9B897-D52F-4D7D-AFC9-A502CECEF42E}';
|
||||
RID_ClientesDelta = '{87DD5652-478A-4A00-BDAB-33B2C9B40099}';
|
||||
RID_ProveedoresDelta = '{B7F03045-3BE9-46AC-A0FB-8D4B288B925E}';
|
||||
RID_EmpleadosDelta = '{6B64608B-F25E-4210-B02F-87B0EA062378}';
|
||||
RID_DireccionesContactoDelta = '{2B40DFC8-5CAF-4D17-A0EC-7B6E4BB79ACE}';
|
||||
RID_ClientesDescuentosDelta = '{9028E6CB-E578-4BBA-BD93-7068CB6EEAF2}';
|
||||
RID_ProcedenciasClienteDelta = '{5179E843-F6F3-49F7-9979-6561FDA1C6DF}';
|
||||
RID_GruposProveedorDelta = '{BF5E7579-41AA-4BB5-B650-224E079D6344}';
|
||||
RID_GruposEmpleadoDelta = '{B5F70E42-EBC8-411A-9DAB-11BCA62B8E74}';
|
||||
RID_Contactos_RefreshDelta = '{AE4FA559-4983-41C6-82F3-39C023E9993D}';
|
||||
RID_SubCuentasContactoDelta = '{6520A6E9-3616-416C-BAF2-9F4B13AAF858}';
|
||||
RID_ContactosDelta = '{A2B38C37-E3AE-4E22-85F7-E76DE13652AB}';
|
||||
RID_GruposClienteDelta = '{67072B81-C667-4450-B8E8-9C42A3EE0E3C}';
|
||||
RID_DatosBancariosDelta = '{221A80E1-2A34-4D52-963B-4D8A6E8CB277}';
|
||||
RID_ClientesDelta = '{A4468099-7600-4411-A559-107949CA1601}';
|
||||
RID_ProveedoresDelta = '{0117BBC8-1EBE-40CA-9819-E5990B88B58C}';
|
||||
RID_EmpleadosDelta = '{E6D706EA-9D87-4656-BA13-EFEDD8224652}';
|
||||
RID_DireccionesContactoDelta = '{AA255A88-7186-42B2-A48E-5729B8789BFB}';
|
||||
RID_ClientesDescuentosDelta = '{B4309DDF-8679-46EC-9355-28E776C4AC89}';
|
||||
RID_ProcedenciasClienteDelta = '{A8BEF20C-78CE-47DE-8509-46E9442F07A2}';
|
||||
RID_GruposProveedorDelta = '{20FC55C8-45F0-46C4-ABCE-7B7B7F339F9A}';
|
||||
RID_GruposEmpleadoDelta = '{37AA7500-1C16-43A6-B55D-869846E760D3}';
|
||||
RID_Contactos_RefreshDelta = '{8150E144-7B4B-45AC-8DC6-B0879134E571}';
|
||||
|
||||
type
|
||||
{ ISubCuentasContactoDelta }
|
||||
ISubCuentasContactoDelta = interface(ISubCuentasContacto)
|
||||
['{EE9317EA-5374-4D7D-B6CC-8684FE0D6B21}']
|
||||
['{6520A6E9-3616-416C-BAF2-9F4B13AAF858}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_SUBCUENTAValue : String;
|
||||
@ -120,7 +120,7 @@ type
|
||||
|
||||
{ IContactosDelta }
|
||||
IContactosDelta = interface(IContactos)
|
||||
['{51070042-26A2-4A85-8719-F51520E40F38}']
|
||||
['{A2B38C37-E3AE-4E22-85F7-E76DE13652AB}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -443,7 +443,7 @@ type
|
||||
|
||||
{ IGruposClienteDelta }
|
||||
IGruposClienteDelta = interface(IGruposCliente)
|
||||
['{965A879A-4E61-42F4-83FE-22FA07165FB5}']
|
||||
['{67072B81-C667-4450-B8E8-9C42A3EE0E3C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -489,7 +489,7 @@ type
|
||||
|
||||
{ IDatosBancariosDelta }
|
||||
IDatosBancariosDelta = interface(IDatosBancarios)
|
||||
['{5BE9B897-D52F-4D7D-AFC9-A502CECEF42E}']
|
||||
['{221A80E1-2A34-4D52-963B-4D8A6E8CB277}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -619,7 +619,7 @@ type
|
||||
|
||||
{ IClientesDelta }
|
||||
IClientesDelta = interface(IClientes)
|
||||
['{87DD5652-478A-4A00-BDAB-33B2C9B40099}']
|
||||
['{A4468099-7600-4411-A559-107949CA1601}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1110,7 +1110,7 @@ type
|
||||
|
||||
{ IProveedoresDelta }
|
||||
IProveedoresDelta = interface(IProveedores)
|
||||
['{B7F03045-3BE9-46AC-A0FB-8D4B288B925E}']
|
||||
['{0117BBC8-1EBE-40CA-9819-E5990B88B58C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1149,6 +1149,7 @@ type
|
||||
function GetOldCERTIFICACIONValue : String;
|
||||
function GetOldIGNORAR_CONTABILIDADValue : Integer;
|
||||
function GetOldTIENE_SUBCUENTAValue : Integer;
|
||||
function GetOldNOMBRE_COMERCIALValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -1188,6 +1189,7 @@ type
|
||||
property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
|
||||
property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
|
||||
property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
|
||||
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
|
||||
end;
|
||||
|
||||
{ TProveedoresBusinessProcessorRules }
|
||||
@ -1418,6 +1420,12 @@ type
|
||||
function GetOldTIENE_SUBCUENTAIsNull: Boolean; virtual;
|
||||
procedure SetTIENE_SUBCUENTAValue(const aValue: Integer); 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 }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -1568,6 +1576,10 @@ type
|
||||
property TIENE_SUBCUENTAIsNull : Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
|
||||
property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
|
||||
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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -1577,7 +1589,7 @@ type
|
||||
|
||||
{ IEmpleadosDelta }
|
||||
IEmpleadosDelta = interface(IEmpleados)
|
||||
['{6B64608B-F25E-4210-B02F-87B0EA062378}']
|
||||
['{E6D706EA-9D87-4656-BA13-EFEDD8224652}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -2000,10 +2012,11 @@ type
|
||||
|
||||
{ IDireccionesContactoDelta }
|
||||
IDireccionesContactoDelta = interface(IDireccionesContacto)
|
||||
['{2B40DFC8-5CAF-4D17-A0EC-7B6E4BB79ACE}']
|
||||
['{AA255A88-7186-42B2-A48E-5729B8789BFB}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
function GetOldNIF_CIFValue : String;
|
||||
function GetOldCALLEValue : String;
|
||||
function GetOldPOBLACIONValue : String;
|
||||
function GetOldPROVINCIAValue : String;
|
||||
@ -2022,6 +2035,7 @@ type
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
|
||||
property OldNIF_CIF : String read GetOldNIF_CIFValue;
|
||||
property OldCALLE : String read GetOldCALLEValue;
|
||||
property OldPOBLACION : String read GetOldPOBLACIONValue;
|
||||
property OldPROVINCIA : String read GetOldPROVINCIAValue;
|
||||
@ -2057,6 +2071,12 @@ type
|
||||
function GetOldID_CONTACTOIsNull: Boolean; virtual;
|
||||
procedure SetID_CONTACTOValue(const aValue: Integer); 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 GetCALLEIsNull: Boolean; virtual;
|
||||
function GetOldCALLEValue: String; virtual;
|
||||
@ -2150,6 +2170,10 @@ type
|
||||
property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
|
||||
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
|
||||
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 CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
|
||||
property OldCALLE : String read GetOldCALLEValue;
|
||||
@ -2215,7 +2239,7 @@ type
|
||||
|
||||
{ IClientesDescuentosDelta }
|
||||
IClientesDescuentosDelta = interface(IClientesDescuentos)
|
||||
['{9028E6CB-E578-4BBA-BD93-7068CB6EEAF2}']
|
||||
['{B4309DDF-8679-46EC-9355-28E776C4AC89}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
@ -2297,7 +2321,7 @@ type
|
||||
|
||||
{ IProcedenciasClienteDelta }
|
||||
IProcedenciasClienteDelta = interface(IProcedenciasCliente)
|
||||
['{5179E843-F6F3-49F7-9979-6561FDA1C6DF}']
|
||||
['{A8BEF20C-78CE-47DE-8509-46E9442F07A2}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -2343,7 +2367,7 @@ type
|
||||
|
||||
{ IGruposProveedorDelta }
|
||||
IGruposProveedorDelta = interface(IGruposProveedor)
|
||||
['{BF5E7579-41AA-4BB5-B650-224E079D6344}']
|
||||
['{20FC55C8-45F0-46C4-ABCE-7B7B7F339F9A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -2389,7 +2413,7 @@ type
|
||||
|
||||
{ IGruposEmpleadoDelta }
|
||||
IGruposEmpleadoDelta = interface(IGruposEmpleado)
|
||||
['{B5F70E42-EBC8-411A-9DAB-11BCA62B8E74}']
|
||||
['{37AA7500-1C16-43A6-B55D-869846E760D3}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -2435,7 +2459,7 @@ type
|
||||
|
||||
{ IContactos_RefreshDelta }
|
||||
IContactos_RefreshDelta = interface(IContactos_Refresh)
|
||||
['{AE4FA559-4983-41C6-82F3-39C023E9993D}']
|
||||
['{8150E144-7B4B-45AC-8DC6-B0879134E571}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldNIF_CIFValue : String;
|
||||
@ -6466,6 +6490,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA] := Null;
|
||||
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 }
|
||||
constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
@ -7618,6 +7673,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO] := Null;
|
||||
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;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE];
|
||||
|
||||
@ -152,6 +152,7 @@ begin
|
||||
ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
|
||||
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
|
||||
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
|
||||
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL];
|
||||
Execute;
|
||||
end;
|
||||
|
||||
@ -213,6 +214,7 @@ begin
|
||||
ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
|
||||
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
|
||||
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
|
||||
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL];
|
||||
Execute;
|
||||
end;
|
||||
|
||||
|
||||
@ -1025,6 +1025,10 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
DatasetField = 'TIENE_SUBCUENTA'
|
||||
TableField = 'TIENE_SUBCUENTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE_COMERCIAL'
|
||||
TableField = 'NOMBRE_COMERCIAL'
|
||||
end>
|
||||
end>
|
||||
Name = 'Proveedores'
|
||||
@ -1240,6 +1244,11 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
Name = 'TIENE_SUBCUENTA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -1643,6 +1652,10 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
DatasetField = 'FECHA_MODIFICACION'
|
||||
TableField = 'FECHA_MODIFICACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NIF_CIF'
|
||||
TableField = 'NIF_CIF'
|
||||
end>
|
||||
end>
|
||||
Name = 'DireccionesContacto'
|
||||
@ -1660,6 +1673,11 @@ object srvContactos: TsrvContactos
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'DireccionesContacto_ID_CONTACTO'
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
@ -2912,6 +2930,10 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
Name = 'TIENE_SUBCUENTA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -2921,11 +2943,12 @@ object srvContactos: TsrvContactos
|
||||
'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' +
|
||||
'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' +
|
||||
'VA,'#10' ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERTIFICACION, GR' +
|
||||
'UPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD, TIENE_SUBCUENTA)'#10' VALU' +
|
||||
'ES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENTO, :DESCRIPCION_PR' +
|
||||
'OVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA,'#10' :ID_FORMA_PAGO,' +
|
||||
' :TIENDA_WEB, :HOMOLOGADO, :CERTIFICACION, :GRUPO_PROVEEDOR,'#10' ' +
|
||||
' :IGNORAR_CONTABILIDAD, :TIENE_SUBCUENTA)'#10
|
||||
'UPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD, TIENE_SUBCUENTA, NOMBRE' +
|
||||
'_COMERCIAL)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENT' +
|
||||
'O, :DESCRIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA,'#10' ' +
|
||||
' :ID_FORMA_PAGO, :TIENDA_WEB, :HOMOLOGADO, :CERTIFICACION, :GR' +
|
||||
'UPO_PROVEEDOR,'#10' :IGNORAR_CONTABILIDAD, :TIENE_SUBCUENTA, :NOM' +
|
||||
'BRE_COMERCIAL)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -3005,6 +3028,10 @@ object srvContactos: TsrvContactos
|
||||
Name = 'TIENE_SUBCUENTA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID_PROVEEDOR'
|
||||
Value = ''
|
||||
@ -3021,8 +3048,9 @@ object srvContactos: TsrvContactos
|
||||
'D_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' ' +
|
||||
' HOMOLOGADO = :HOMOLOGADO,'#10' CERTIFICACION = :CERTIFICACION,'#10' ' +
|
||||
' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD ' +
|
||||
'= :IGNORAR_CONTABILIDAD,'#10' TIENE_SUBCUENTA = :TIENE_SUBCUENTA'#10 +
|
||||
' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)'#10
|
||||
'= :IGNORAR_CONTABILIDAD,'#10' TIENE_SUBCUENTA = :TIENE_SUBCUENTA,' +
|
||||
#10' NOMBRE_COMERCIAL = :NOMBRE_COMERCIAL'#10' WHERE'#10' (ID_PROVEE' +
|
||||
'DOR = :OLD_ID_PROVEEDOR)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -3035,95 +3063,62 @@ object srvContactos: TsrvContactos
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONTACTOS_DIR_ID'
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'FAX'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'EMAIL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'NOTAS'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PORTE'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -3132,10 +3127,10 @@ object srvContactos: TsrvContactos
|
||||
SQL =
|
||||
'INSERT'#10' INTO CONTACTOS_DIRECCIONES'#10' (ID, ID_CONTACTO, NOMBRE' +
|
||||
', CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' PERSONA_CONTA' +
|
||||
'CTO, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, PORTE)'#10' VALUES'#10' (:I' +
|
||||
'D, :ID_CONTACTO, :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIG' +
|
||||
'O_POSTAL,'#10' :PERSONA_CONTACTO, :TELEFONO, :MOVIL, :FAX, :EMAI' +
|
||||
'L, :NOTAS, :PORTE)'
|
||||
'CTO, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, PORTE, NIF_CIF)'#10' VALUE' +
|
||||
'S'#10' (:ID, :ID_CONTACTO, :NOMBRE, :CALLE, :POBLACION, :PROVINCI' +
|
||||
'A, :CODIGO_POSTAL,'#10' :PERSONA_CONTACTO, :TELEFONO, :MOVIL, :F' +
|
||||
'AX, :EMAIL, :NOTAS, :PORTE, :NIF_CIF)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -3165,97 +3160,59 @@ object srvContactos: TsrvContactos
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'FAX'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'EMAIL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'NOTAS'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PORTE'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -3267,8 +3224,8 @@ object srvContactos: TsrvContactos
|
||||
'POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CO' +
|
||||
'DIGO_POSTAL, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' TELE' +
|
||||
'FONO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' FAX = :FAX,'#10' EMAIL ' +
|
||||
'= :EMAIL,'#10' NOTAS = :NOTAS,'#10' PORTE = :PORTE'#10' WHERE'#10' (ID' +
|
||||
' = :OLD_ID)'
|
||||
'= :EMAIL,'#10' NOTAS = :NOTAS,'#10' PORTE = :PORTE,'#10' NIF_CIF = ' +
|
||||
'NIF_CIF'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -74,7 +74,7 @@ contains
|
||||
uViewDireccionesEntrega in 'uViewDireccionesEntrega.pas' {frViewDireccionesEntrega: TFrame},
|
||||
uViewClienteDescuentos in 'uViewClienteDescuentos.pas' {frViewClienteDescuentos: TFrame},
|
||||
uEditorDireccion in 'uEditorDireccion.pas' {fEditorDireccion},
|
||||
uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega},
|
||||
uEditorElegirDireccion in 'uEditorElegirDireccion.pas' {fEditorElegirDireccion: TfEditorElegirDireccionEntrega},
|
||||
uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas' {frViewClienteDatosBancarios: TFrame},
|
||||
uViewProveedorDatosComerciales in 'uViewProveedorDatosComerciales.pas' {frViewProveedorDatosComerciales: TFrame},
|
||||
uViewClienteDatosComerciales in 'uViewClienteDatosComerciales.pas' {frViewClienteDatosComerciales: TFrame},
|
||||
|
||||
@ -49,31 +49,31 @@
|
||||
<DelphiCompile Include="Contactos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\designide.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vclactnband.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="..\vclx.dcp" />
|
||||
<DCCReference Include="..\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\Base.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\designide.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Views\xmlrtl.dcp" />
|
||||
<DCCReference Include="uContactosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorCliente.pas">
|
||||
<Form>fEditorCliente</Form>
|
||||
@ -98,8 +98,8 @@
|
||||
<Form>fEditorElegirClientes</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorElegirDireccionEntrega.pas">
|
||||
<Form>fEditorElegirDireccionEntrega</Form>
|
||||
<DCCReference Include="uEditorElegirDireccion.pas">
|
||||
<Form>fEditorElegirDireccion</Form>
|
||||
<DesignClass>TfEditorElegirDireccionEntrega</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorElegirProveedores.pas">
|
||||
|
||||
@ -13,7 +13,7 @@ uses
|
||||
uEditorEmpleados, uEditorElegirCLientes,
|
||||
uEditorCliente, uEditorProveedor,
|
||||
uEditorEmpleado, uEditorElegirProveedores, uEditorDireccion,
|
||||
uEditorElegirDireccionEntrega, uEditorGruposCliente, uEditorProcedenciasCliente,
|
||||
uEditorElegirDireccion, uEditorGruposCliente, uEditorProcedenciasCliente,
|
||||
uEditorGruposProveedor, uEditorGruposEmpleado,
|
||||
uEditorFichasEmpleadoReport, uEditorEtiquetasContactosReport;
|
||||
|
||||
@ -31,7 +31,7 @@ begin
|
||||
EditorRegistry.RegisterClass(TfEditorElegirProveedores, 'EditorElegirProveedores');
|
||||
|
||||
EditorRegistry.RegisterClass(TfEditorDireccion, 'EditorDireccion');
|
||||
EditorRegistry.RegisterClass(TfEditorElegirDireccionEntrega, 'EditorElegirDireccionEntrega');
|
||||
EditorRegistry.RegisterClass(TfEditorElegirDireccion, 'EditorElegirDireccion');
|
||||
|
||||
EditorRegistry.RegisterClass(TfEditorGruposCliente, 'EditorGruposCliente');
|
||||
EditorRegistry.RegisterClass(TfEditorProcedenciasCliente, 'EditorProcedenciasCliente');
|
||||
@ -56,7 +56,7 @@ begin
|
||||
EditorRegistry.UnRegisterClass(TfEditorElegirProveedores);
|
||||
|
||||
EditorRegistry.UnRegisterClass(TfEditorDireccion);
|
||||
EditorRegistry.UnRegisterClass(TfEditorElegirDireccionEntrega);
|
||||
EditorRegistry.UnRegisterClass(TfEditorElegirDireccion);
|
||||
|
||||
EditorRegistry.UnRegisterClass(TfEditorGruposCliente);
|
||||
EditorRegistry.UnRegisterClass(TfEditorProcedenciasCliente);
|
||||
|
||||
@ -19,13 +19,13 @@ object fEditorDireccion: TfEditorDireccion
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 322
|
||||
Height = 511
|
||||
Height = 553
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Shape = bsFrame
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 20
|
||||
Top = 67
|
||||
Top = 93
|
||||
Width = 110
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
@ -33,7 +33,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 20
|
||||
Top = 131
|
||||
Top = 157
|
||||
Width = 110
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
@ -41,7 +41,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 20
|
||||
Top = 159
|
||||
Top = 185
|
||||
Width = 110
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
@ -49,7 +49,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 20
|
||||
Top = 185
|
||||
Top = 211
|
||||
Width = 110
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
@ -57,7 +57,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 20
|
||||
Top = 27
|
||||
Top = 53
|
||||
Width = 110
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
@ -65,7 +65,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 20
|
||||
Top = 227
|
||||
Top = 263
|
||||
Width = 109
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
@ -73,7 +73,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 21
|
||||
Top = 251
|
||||
Top = 287
|
||||
Width = 109
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
@ -81,7 +81,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object PngSpeedButton3: TPngSpeedButton
|
||||
Left = 304
|
||||
Top = 320
|
||||
Top = 356
|
||||
Width = 23
|
||||
Height = 22
|
||||
OnClick = PngSpeedButton3Click
|
||||
@ -106,7 +106,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 21
|
||||
Top = 323
|
||||
Top = 359
|
||||
Width = 109
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
@ -114,7 +114,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 21
|
||||
Top = 363
|
||||
Top = 399
|
||||
Width = 109
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
@ -122,14 +122,14 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object Bevel2: TBevel
|
||||
Left = 20
|
||||
Top = 457
|
||||
Top = 491
|
||||
Width = 306
|
||||
Height = 9
|
||||
Shape = bsBottomLine
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 21
|
||||
Top = 489
|
||||
Top = 523
|
||||
Width = 156
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
@ -137,7 +137,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 21
|
||||
Top = 275
|
||||
Top = 311
|
||||
Width = 109
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
@ -145,12 +145,20 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 21
|
||||
Top = 299
|
||||
Top = 335
|
||||
Width = 109
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
Caption = 'Fax:'
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 20
|
||||
Top = 26
|
||||
Width = 110
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
Caption = 'NIF / CIF:'
|
||||
end
|
||||
object OKBtn: TButton
|
||||
Left = 343
|
||||
Top = 7
|
||||
@ -160,7 +168,6 @@ object fEditorDireccion: TfEditorDireccion
|
||||
Caption = '&Aceptar'
|
||||
ModalResult = 1
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 350
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 343
|
||||
@ -172,11 +179,10 @@ object fEditorDireccion: TfEditorDireccion
|
||||
Caption = '&Cancelar'
|
||||
ModalResult = 2
|
||||
TabOrder = 1
|
||||
ExplicitLeft = 350
|
||||
end
|
||||
object eDireccion: TDBEdit
|
||||
Left = 135
|
||||
Top = 65
|
||||
Top = 91
|
||||
Width = 191
|
||||
Height = 57
|
||||
AutoSelect = False
|
||||
@ -187,7 +193,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object ePoblacion: TDBEdit
|
||||
Left = 135
|
||||
Top = 128
|
||||
Top = 154
|
||||
Width = 191
|
||||
Height = 21
|
||||
DataField = 'POBLACION'
|
||||
@ -196,7 +202,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object eProvincia: TDBEdit
|
||||
Left = 135
|
||||
Top = 156
|
||||
Top = 182
|
||||
Width = 191
|
||||
Height = 21
|
||||
DataField = 'PROVINCIA'
|
||||
@ -205,7 +211,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object eCodigoPostal: TDBEdit
|
||||
Left = 135
|
||||
Top = 182
|
||||
Top = 208
|
||||
Width = 191
|
||||
Height = 21
|
||||
DataField = 'CODIGO_POSTAL'
|
||||
@ -213,8 +219,8 @@ object fEditorDireccion: TfEditorDireccion
|
||||
TabOrder = 6
|
||||
end
|
||||
object eNombre: TDBEdit
|
||||
Left = 135
|
||||
Top = 24
|
||||
Left = 136
|
||||
Top = 50
|
||||
Width = 191
|
||||
Height = 21
|
||||
DataField = 'NOMBRE'
|
||||
@ -223,7 +229,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object ePersonaContacto: TDBEdit
|
||||
Left = 135
|
||||
Top = 224
|
||||
Top = 260
|
||||
Width = 191
|
||||
Height = 21
|
||||
DataField = 'PERSONA_CONTACTO'
|
||||
@ -232,7 +238,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object eTelefono: TDBEdit
|
||||
Left = 136
|
||||
Top = 248
|
||||
Top = 284
|
||||
Width = 191
|
||||
Height = 21
|
||||
DataField = 'TELEFONO'
|
||||
@ -241,7 +247,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object eMail: TcxDBHyperLinkEdit
|
||||
Left = 136
|
||||
Top = 320
|
||||
Top = 356
|
||||
DataBinding.DataField = 'EMAIL'
|
||||
DataBinding.DataSource = dsDireccion
|
||||
Properties.OnEditValueChanged = eMailPropertiesEditValueChanged
|
||||
@ -263,7 +269,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object eNotas: TDBMemo
|
||||
Left = 136
|
||||
Top = 360
|
||||
Top = 396
|
||||
Width = 190
|
||||
Height = 94
|
||||
DataField = 'NOTAS'
|
||||
@ -273,7 +279,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object ePortes: TcxDBCurrencyEdit
|
||||
Left = 183
|
||||
Top = 486
|
||||
Top = 520
|
||||
DataBinding.DataField = 'PORTE'
|
||||
DataBinding.DataSource = dsDireccion
|
||||
Properties.UseThousandSeparator = True
|
||||
@ -290,7 +296,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object eMovil: TDBEdit
|
||||
Left = 136
|
||||
Top = 272
|
||||
Top = 308
|
||||
Width = 191
|
||||
Height = 21
|
||||
DataField = 'MOVIL'
|
||||
@ -299,13 +305,22 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object eFax: TDBEdit
|
||||
Left = 136
|
||||
Top = 296
|
||||
Top = 332
|
||||
Width = 191
|
||||
Height = 21
|
||||
DataField = 'FAX'
|
||||
DataSource = dsDireccion
|
||||
TabOrder = 13
|
||||
end
|
||||
object eNifCif: TDBEdit
|
||||
Left = 136
|
||||
Top = 23
|
||||
Width = 191
|
||||
Height = 21
|
||||
DataField = 'NIF_CIF'
|
||||
DataSource = dsDireccion
|
||||
TabOrder = 14
|
||||
end
|
||||
object dsDireccion: TDADataSource
|
||||
Left = 352
|
||||
Top = 72
|
||||
|
||||
@ -40,6 +40,8 @@ type
|
||||
eMovil: TDBEdit;
|
||||
Label12: TLabel;
|
||||
eFax: TDBEdit;
|
||||
Label13: TLabel;
|
||||
eNifCif: TDBEdit;
|
||||
procedure PngSpeedButton3Click(Sender: TObject);
|
||||
procedure eMailPropertiesEditValueChanged(Sender: TObject);
|
||||
procedure eMailPropertiesValidate(Sender: TObject;
|
||||
|
||||
@ -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
|
||||
@ -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.
|
||||
@ -83,129 +83,129 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ExplicitWidth = 634
|
||||
ExplicitHeight = 461
|
||||
inherited PngSpeedButton1: TPngSpeedButton
|
||||
Left = 589
|
||||
Left = 572
|
||||
Top = 218
|
||||
ExplicitLeft = 589
|
||||
ExplicitLeft = 572
|
||||
ExplicitTop = 218
|
||||
end
|
||||
inherited PngSpeedButton2: TPngSpeedButton
|
||||
Left = 589
|
||||
Left = 572
|
||||
Top = 190
|
||||
ExplicitLeft = 589
|
||||
ExplicitLeft = 572
|
||||
ExplicitTop = 190
|
||||
end
|
||||
inherited PngSpeedButton3: TPngSpeedButton
|
||||
Left = 589
|
||||
Left = 572
|
||||
Top = 162
|
||||
ExplicitLeft = 589
|
||||
ExplicitLeft = 572
|
||||
ExplicitTop = 162
|
||||
end
|
||||
inherited Label1: TLabel
|
||||
Left = 391
|
||||
Left = 381
|
||||
Top = 341
|
||||
Width = 342
|
||||
ExplicitLeft = 391
|
||||
ExplicitLeft = 381
|
||||
ExplicitTop = 341
|
||||
ExplicitWidth = 342
|
||||
end
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
Top = 241
|
||||
ExplicitTop = 241
|
||||
Top = 243
|
||||
ExplicitTop = 243
|
||||
ExplicitWidth = 174
|
||||
Width = 174
|
||||
end
|
||||
inherited eProvincia: TcxDBTextEdit
|
||||
Top = 295
|
||||
ExplicitTop = 295
|
||||
Top = 297
|
||||
ExplicitTop = 297
|
||||
ExplicitWidth = 174
|
||||
Width = 174
|
||||
end
|
||||
inherited ePoblacion: TcxDBTextEdit
|
||||
Top = 268
|
||||
ExplicitTop = 268
|
||||
Top = 270
|
||||
ExplicitTop = 270
|
||||
ExplicitWidth = 108
|
||||
Width = 108
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 298
|
||||
Top = 268
|
||||
ExplicitLeft = 298
|
||||
ExplicitTop = 268
|
||||
Left = 288
|
||||
Top = 270
|
||||
ExplicitLeft = 288
|
||||
ExplicitTop = 270
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
Top = 424
|
||||
ExplicitTop = 424
|
||||
Top = 426
|
||||
ExplicitTop = 426
|
||||
ExplicitWidth = 580
|
||||
ExplicitHeight = 56
|
||||
Height = 56
|
||||
Width = 580
|
||||
end
|
||||
inherited cxDBCheckBox1: TcxDBCheckBox
|
||||
Left = 391
|
||||
Left = 381
|
||||
Top = 373
|
||||
ExplicitLeft = 391
|
||||
ExplicitLeft = 381
|
||||
ExplicitTop = 373
|
||||
ExplicitWidth = 310
|
||||
Width = 310
|
||||
end
|
||||
inherited cxDBCheckBox2: TcxDBCheckBox
|
||||
Top = 346
|
||||
ExplicitTop = 346
|
||||
Top = 348
|
||||
ExplicitTop = 348
|
||||
ExplicitWidth = 326
|
||||
Width = 326
|
||||
end
|
||||
inherited eCertificaciones: TcxDBTextEdit
|
||||
Top = 373
|
||||
ExplicitTop = 373
|
||||
Top = 375
|
||||
ExplicitTop = 375
|
||||
ExplicitWidth = 227
|
||||
Width = 227
|
||||
end
|
||||
inherited cbGrupoProveedor: TcxDBComboBox
|
||||
Top = 138
|
||||
ExplicitTop = 138
|
||||
Top = 165
|
||||
ExplicitTop = 165
|
||||
ExplicitWidth = 227
|
||||
Width = 227
|
||||
end
|
||||
inherited eDescripcionProveedor: TcxDBTextEdit
|
||||
Top = 84
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
end
|
||||
inherited eCodigoAsignado: TcxDBTextEdit
|
||||
Top = 111
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
end
|
||||
inherited eCodigoAsignado: TcxDBTextEdit
|
||||
Top = 138
|
||||
ExplicitTop = 138
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 486
|
||||
Left = 476
|
||||
Top = 57
|
||||
ExplicitLeft = 486
|
||||
ExplicitLeft = 476
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 172
|
||||
Width = 172
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 486
|
||||
Left = 476
|
||||
Top = 30
|
||||
ExplicitLeft = 486
|
||||
ExplicitLeft = 476
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 172
|
||||
Width = 172
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 486
|
||||
Left = 476
|
||||
Top = 84
|
||||
ExplicitLeft = 486
|
||||
ExplicitLeft = 476
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 172
|
||||
Width = 172
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 486
|
||||
Left = 476
|
||||
Top = 111
|
||||
ExplicitLeft = 486
|
||||
ExplicitLeft = 476
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 172
|
||||
Width = 172
|
||||
@ -217,35 +217,33 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 263
|
||||
end
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 215
|
||||
Top = 30
|
||||
ExplicitLeft = 215
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 254
|
||||
Width = 254
|
||||
end
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Left = 486
|
||||
Left = 476
|
||||
Top = 162
|
||||
Properties.Prefix = 'mailto:'
|
||||
ExplicitLeft = 486
|
||||
ExplicitLeft = 476
|
||||
ExplicitTop = 162
|
||||
ExplicitWidth = 129
|
||||
Width = 129
|
||||
end
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 486
|
||||
Left = 476
|
||||
Top = 190
|
||||
Properties.Prefix = 'mailto:'
|
||||
ExplicitLeft = 486
|
||||
ExplicitLeft = 476
|
||||
ExplicitTop = 190
|
||||
ExplicitWidth = 165
|
||||
Width = 165
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 486
|
||||
Left = 476
|
||||
Top = 217
|
||||
ExplicitLeft = 486
|
||||
ExplicitLeft = 476
|
||||
ExplicitTop = 217
|
||||
ExplicitWidth = 165
|
||||
Width = 165
|
||||
@ -257,15 +255,15 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 100
|
||||
end
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Top = 214
|
||||
ExplicitTop = 214
|
||||
Top = 216
|
||||
ExplicitTop = 216
|
||||
ExplicitWidth = 253
|
||||
Width = 253
|
||||
end
|
||||
inherited frViewTienda1: TfrViewTienda
|
||||
Left = 391
|
||||
Left = 381
|
||||
Top = 270
|
||||
ExplicitLeft = 391
|
||||
ExplicitLeft = 381
|
||||
ExplicitTop = 270
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited cbTienda: TcxComboBox
|
||||
@ -274,6 +272,12 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited eNombreComercial: TcxDBTextEdit
|
||||
Top = 84
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 192
|
||||
Width = 192
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -410,6 +414,18 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 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
|
||||
|
||||
@ -334,7 +334,6 @@ inherited frViewCliente: TfrViewCliente
|
||||
inherited dxLayoutControlContactoGroup1: TdxLayoutGroup
|
||||
object dxLayoutControlContactoItem24: TdxLayoutItem
|
||||
Caption = 'Nombre comercial:'
|
||||
Visible = False
|
||||
Control = eNombreComercial
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
|
||||
@ -15,6 +15,10 @@ inherited frViewDireccionesEntrega: TfrViewDireccionesEntrega
|
||||
OptionsData.DeletingConfirmation = False
|
||||
OptionsData.Editing = False
|
||||
OptionsData.Inserting = False
|
||||
object cxGridViewNIF_CIF: TcxGridDBColumn
|
||||
Caption = 'NIF/CIF'
|
||||
DataBinding.FieldName = 'NIF_CIF'
|
||||
end
|
||||
object cxGridViewNOMBRE: TcxGridDBColumn
|
||||
Caption = 'Nombre'
|
||||
DataBinding.FieldName = 'NOMBRE'
|
||||
@ -76,31 +80,15 @@ inherited frViewDireccionesEntrega: TfrViewDireccionesEntrega
|
||||
Width = 583
|
||||
ExplicitWidth = 583
|
||||
inherited ToolButton1: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 62
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 74
|
||||
end
|
||||
inherited ToolButton5: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 67
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 117
|
||||
end
|
||||
end
|
||||
|
||||
@ -23,6 +23,7 @@ type
|
||||
cxGridViewTELEFONO: TcxGridDBColumn;
|
||||
cxGridViewEMAIL: TcxGridDBColumn;
|
||||
cxGridViewPORTE: TcxGridDBColumn;
|
||||
cxGridViewNIF_CIF: TcxGridDBColumn;
|
||||
procedure cxGridViewDblClick(Sender: TObject);
|
||||
procedure actEliminarExecute(Sender: TObject);
|
||||
protected
|
||||
|
||||
@ -35,7 +35,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
Left = 138
|
||||
Top = 380
|
||||
TabOrder = 7
|
||||
TabOrder = 8
|
||||
ExplicitLeft = 138
|
||||
ExplicitTop = 380
|
||||
ExplicitWidth = 264
|
||||
@ -44,7 +44,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
inherited eProvincia: TcxDBTextEdit
|
||||
Left = 138
|
||||
Top = 434
|
||||
TabOrder = 10
|
||||
TabOrder = 11
|
||||
ExplicitLeft = 138
|
||||
ExplicitTop = 434
|
||||
ExplicitWidth = 264
|
||||
@ -53,7 +53,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
inherited ePoblacion: TcxDBTextEdit
|
||||
Left = 138
|
||||
Top = 407
|
||||
TabOrder = 8
|
||||
TabOrder = 9
|
||||
ExplicitLeft = 138
|
||||
ExplicitTop = 407
|
||||
ExplicitWidth = 163
|
||||
@ -62,13 +62,13 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 307
|
||||
Top = 407
|
||||
TabOrder = 9
|
||||
TabOrder = 10
|
||||
ExplicitLeft = 307
|
||||
ExplicitTop = 407
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
Top = 575
|
||||
TabOrder = 22
|
||||
TabOrder = 23
|
||||
ExplicitTop = 575
|
||||
ExplicitWidth = 630
|
||||
ExplicitHeight = 20
|
||||
@ -97,7 +97,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 21
|
||||
TabOrder = 22
|
||||
Width = 310
|
||||
end
|
||||
object cxDBCheckBox2: TcxDBCheckBox [10]
|
||||
@ -121,7 +121,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 11
|
||||
TabOrder = 12
|
||||
Width = 326
|
||||
end
|
||||
object eCertificaciones: TcxDBTextEdit [11]
|
||||
@ -140,12 +140,12 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 12
|
||||
TabOrder = 13
|
||||
Width = 227
|
||||
end
|
||||
object cbGrupoProveedor: TcxDBComboBox [12]
|
||||
Left = 138
|
||||
Top = 136
|
||||
Top = 163
|
||||
DataBinding.DataField = 'GRUPO_PROVEEDOR'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Properties.ImmediatePost = True
|
||||
@ -164,32 +164,13 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 5
|
||||
TabOrder = 6
|
||||
Width = 227
|
||||
end
|
||||
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
|
||||
Top = 109
|
||||
DataBinding.DataField = 'CODIGO_ASIGNADO'
|
||||
DataBinding.DataField = 'DESCRIPCION_PROVEEDOR'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
@ -205,30 +186,49 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
TabOrder = 4
|
||||
Width = 221
|
||||
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
|
||||
Left = 497
|
||||
TabOrder = 14
|
||||
TabOrder = 15
|
||||
ExplicitLeft = 497
|
||||
ExplicitWidth = 91
|
||||
Width = 91
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 497
|
||||
TabOrder = 13
|
||||
TabOrder = 14
|
||||
ExplicitLeft = 497
|
||||
ExplicitWidth = 127
|
||||
Width = 127
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 497
|
||||
TabOrder = 15
|
||||
TabOrder = 16
|
||||
ExplicitLeft = 497
|
||||
ExplicitWidth = 155
|
||||
Width = 155
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 497
|
||||
TabOrder = 16
|
||||
TabOrder = 17
|
||||
ExplicitLeft = 497
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
@ -248,7 +248,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Left = 497
|
||||
Properties.Prefix = 'mailto:'
|
||||
TabOrder = 17
|
||||
TabOrder = 18
|
||||
ExplicitLeft = 497
|
||||
ExplicitWidth = 133
|
||||
Width = 133
|
||||
@ -256,14 +256,14 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 497
|
||||
Properties.Prefix = 'mailto:'
|
||||
TabOrder = 18
|
||||
TabOrder = 19
|
||||
ExplicitLeft = 497
|
||||
ExplicitWidth = 133
|
||||
Width = 133
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 497
|
||||
TabOrder = 19
|
||||
TabOrder = 20
|
||||
ExplicitLeft = 497
|
||||
ExplicitWidth = 133
|
||||
Width = 133
|
||||
@ -277,7 +277,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Left = 138
|
||||
Top = 353
|
||||
TabOrder = 6
|
||||
TabOrder = 7
|
||||
ExplicitLeft = 138
|
||||
ExplicitTop = 353
|
||||
ExplicitWidth = 256
|
||||
@ -286,7 +286,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
inherited frViewTienda1: TfrViewTienda
|
||||
Left = 402
|
||||
Width = 290
|
||||
TabOrder = 20
|
||||
TabOrder = 21
|
||||
ExplicitLeft = 402
|
||||
ExplicitWidth = 290
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
@ -298,10 +298,35 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
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 dxLayoutControlContactoGroup9: TdxLayoutGroup
|
||||
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
|
||||
inherited dxLayoutControlContactoGroup1: TdxLayoutGroup
|
||||
object dxLayoutControlContactoItem27: TdxLayoutItem
|
||||
Caption = 'Nombre comercial:'
|
||||
Control = eNombreComercial
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlContactoItem21: TdxLayoutItem
|
||||
Caption = 'Proveedor de...:'
|
||||
Control = eDescripcionProveedor
|
||||
|
||||
@ -32,6 +32,8 @@ type
|
||||
dxLayoutControlContactoItem24: TdxLayoutItem;
|
||||
eCodigoAsignado: TcxDBTextEdit;
|
||||
dxLayoutControlContactoItem26: TdxLayoutItem;
|
||||
dxLayoutControlContactoItem27: TdxLayoutItem;
|
||||
eNombreComercial: TcxDBTextEdit;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure cbGrupoProveedorPropertiesInitPopup(Sender: TObject);
|
||||
|
||||
@ -34,6 +34,10 @@ inherited frViewProveedores: TfrViewProveedores
|
||||
Options.HorzSizing = False
|
||||
Width = 22
|
||||
end
|
||||
object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn [6]
|
||||
Caption = 'Nombre comercial'
|
||||
DataBinding.FieldName = 'NOMBRE_COMERCIAL'
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
@ -44,7 +48,17 @@ inherited frViewProveedores: TfrViewProveedores
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 483
|
||||
ExplicitWidth = 483
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 234
|
||||
ExplicitLeft = 234
|
||||
ExplicitWidth = 228
|
||||
Width = 228
|
||||
end
|
||||
|
||||
Binary file not shown.
@ -6,7 +6,7 @@ interface
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasCliente,
|
||||
uClientesController, uDetallesFacturaClienteController, uBizAlbaranesCliente,
|
||||
uBizFacturasCliente;
|
||||
uBizFacturasCliente, uBizDireccionesContacto;
|
||||
|
||||
type
|
||||
IFacturasClienteController = interface(IObservador)
|
||||
@ -49,6 +49,8 @@ type
|
||||
function ElegirFacturas(AFacturas : IBizFacturaCliente; AMensaje: String; AMultiSelect: Boolean): IBizFacturaCliente;
|
||||
function ExtraerSeleccionados(ARecibosCliente: IBizFacturaCliente) : IBizFacturaCliente;
|
||||
|
||||
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente);
|
||||
|
||||
procedure SetID_Tienda (AFactura: IBizFacturaCliente; const ID_Tienda: Integer);
|
||||
procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
|
||||
procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer);
|
||||
@ -112,6 +114,8 @@ type
|
||||
function ElegirFacturas(AFacturas : IBizFacturaCliente; AMensaje: String; AMultiSelect: Boolean): IBizFacturaCliente;
|
||||
function ExtraerSeleccionados(AFacturasCliente: IBizFacturaCliente) : IBizFacturaCliente;
|
||||
|
||||
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente);
|
||||
|
||||
procedure SetID_Tienda (AFactura: IBizFacturaCliente; const ID_Tienda: Integer);
|
||||
procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
|
||||
procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer);
|
||||
@ -500,6 +504,44 @@ begin
|
||||
FiltrarEmpresa(Result);
|
||||
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;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
@ -137,6 +137,16 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
|
||||
@ -9,8 +9,8 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_FacturasCliente = '{002FC909-9064-4D9C-AA64-A28325D42EC4}';
|
||||
RID_FacturasCliente_Detalles = '{9A3BDA83-5AEB-4FD6-8914-CFDE2AE53C06}';
|
||||
RID_FacturasCliente = '{C39C2786-BDB8-49DE-9EAC-91698C9EBFFA}';
|
||||
RID_FacturasCliente_Detalles = '{263850A9-538B-4EC7-B310-3E4C2EE93339}';
|
||||
|
||||
{ Data table names }
|
||||
nme_FacturasCliente = 'FacturasCliente';
|
||||
@ -34,6 +34,8 @@ const
|
||||
fld_FacturasClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL';
|
||||
fld_FacturasClienteOBSERVACIONES = 'OBSERVACIONES';
|
||||
fld_FacturasClienteID_CLIENTE = 'ID_CLIENTE';
|
||||
fld_FacturasClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
|
||||
fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
|
||||
fld_FacturasClienteNIF_CIF = 'NIF_CIF';
|
||||
fld_FacturasClienteNOMBRE = 'NOMBRE';
|
||||
fld_FacturasClienteCALLE = 'CALLE';
|
||||
@ -74,27 +76,29 @@ const
|
||||
idx_FacturasClienteIMPORTE_TOTAL = 14;
|
||||
idx_FacturasClienteOBSERVACIONES = 15;
|
||||
idx_FacturasClienteID_CLIENTE = 16;
|
||||
idx_FacturasClienteNIF_CIF = 17;
|
||||
idx_FacturasClienteNOMBRE = 18;
|
||||
idx_FacturasClienteCALLE = 19;
|
||||
idx_FacturasClientePOBLACION = 20;
|
||||
idx_FacturasClientePROVINCIA = 21;
|
||||
idx_FacturasClienteCODIGO_POSTAL = 22;
|
||||
idx_FacturasClienteFECHA_ALTA = 23;
|
||||
idx_FacturasClienteFECHA_MODIFICACION = 24;
|
||||
idx_FacturasClienteUSUARIO = 25;
|
||||
idx_FacturasClienteID_FORMA_PAGO = 26;
|
||||
idx_FacturasClienteRECARGO_EQUIVALENCIA = 27;
|
||||
idx_FacturasClienteID_TIPO_IVA = 28;
|
||||
idx_FacturasClienteIMPORTE_NETO = 29;
|
||||
idx_FacturasClienteIMPORTE_PORTE = 30;
|
||||
idx_FacturasClienteID_AGENTE = 31;
|
||||
idx_FacturasClienteREFERENCIA_COMISION = 32;
|
||||
idx_FacturasClienteIGNORAR_CONTABILIDAD = 33;
|
||||
idx_FacturasClienteID_TIENDA = 34;
|
||||
idx_FacturasClienteTIENDA = 35;
|
||||
idx_FacturasClienteID_SUBCUENTA = 36;
|
||||
idx_FacturasClienteSUBCUENTA = 37;
|
||||
idx_FacturasClienteNOMBRE_CLIENTE = 17;
|
||||
idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 18;
|
||||
idx_FacturasClienteNIF_CIF = 19;
|
||||
idx_FacturasClienteNOMBRE = 20;
|
||||
idx_FacturasClienteCALLE = 21;
|
||||
idx_FacturasClientePOBLACION = 22;
|
||||
idx_FacturasClientePROVINCIA = 23;
|
||||
idx_FacturasClienteCODIGO_POSTAL = 24;
|
||||
idx_FacturasClienteFECHA_ALTA = 25;
|
||||
idx_FacturasClienteFECHA_MODIFICACION = 26;
|
||||
idx_FacturasClienteUSUARIO = 27;
|
||||
idx_FacturasClienteID_FORMA_PAGO = 28;
|
||||
idx_FacturasClienteRECARGO_EQUIVALENCIA = 29;
|
||||
idx_FacturasClienteID_TIPO_IVA = 30;
|
||||
idx_FacturasClienteIMPORTE_NETO = 31;
|
||||
idx_FacturasClienteIMPORTE_PORTE = 32;
|
||||
idx_FacturasClienteID_AGENTE = 33;
|
||||
idx_FacturasClienteREFERENCIA_COMISION = 34;
|
||||
idx_FacturasClienteIGNORAR_CONTABILIDAD = 35;
|
||||
idx_FacturasClienteID_TIENDA = 36;
|
||||
idx_FacturasClienteTIENDA = 37;
|
||||
idx_FacturasClienteID_SUBCUENTA = 38;
|
||||
idx_FacturasClienteSUBCUENTA = 39;
|
||||
|
||||
{ FacturasCliente_Detalles fields }
|
||||
fld_FacturasCliente_DetallesID = 'ID';
|
||||
@ -131,7 +135,7 @@ const
|
||||
type
|
||||
{ IFacturasCliente }
|
||||
IFacturasCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{77B09FE8-CC07-4A1D-87AA-D36AEB54D2BE}']
|
||||
['{DAB1C0BD-33A9-4AFD-B37A-5402F2FAC3A5}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -200,6 +204,14 @@ type
|
||||
procedure SetID_CLIENTEValue(const aValue: Integer);
|
||||
function GetID_CLIENTEIsNull: 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;
|
||||
procedure SetNIF_CIFValue(const aValue: String);
|
||||
function GetNIF_CIFIsNull: Boolean;
|
||||
@ -321,6 +333,10 @@ type
|
||||
property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
|
||||
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
||||
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_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
@ -439,6 +455,14 @@ type
|
||||
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
|
||||
function GetID_CLIENTEIsNull: 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;
|
||||
procedure SetNIF_CIFValue(const aValue: String); virtual;
|
||||
function GetNIF_CIFIsNull: Boolean; virtual;
|
||||
@ -559,6 +583,10 @@ type
|
||||
property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
|
||||
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
||||
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_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
@ -610,7 +638,7 @@ type
|
||||
|
||||
{ IFacturasCliente_Detalles }
|
||||
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{5705755D-4FD6-4B5E-B60C-72155D3868DD}']
|
||||
['{D3CAD64F-1C21-4C1F-9BEE-04D8DAD24072}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1178,6 +1206,48 @@ begin
|
||||
DataTable.Fields[idx_FacturasClienteID_CLIENTE].AsVariant := Null;
|
||||
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;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteNIF_CIF].AsString;
|
||||
|
||||
@ -9,13 +9,13 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_FacturasClienteDelta = '{9F142F33-556F-41B3-A527-27FF1BDAB48E}';
|
||||
RID_FacturasCliente_DetallesDelta = '{A97D0506-4C6F-4078-A30F-8768419E7E0F}';
|
||||
RID_FacturasClienteDelta = '{46477AC1-BF12-4410-9EA7-3D1C21A049B9}';
|
||||
RID_FacturasCliente_DetallesDelta = '{64DA04CA-425B-42E0-A86A-4B521E488AA9}';
|
||||
|
||||
type
|
||||
{ IFacturasClienteDelta }
|
||||
IFacturasClienteDelta = interface(IFacturasCliente)
|
||||
['{9F142F33-556F-41B3-A527-27FF1BDAB48E}']
|
||||
['{46477AC1-BF12-4410-9EA7-3D1C21A049B9}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -34,6 +34,8 @@ type
|
||||
function GetOldIMPORTE_TOTALValue : Currency;
|
||||
function GetOldOBSERVACIONESValue : IROStrings;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
function GetOldNOMBRE_CLIENTEValue : String;
|
||||
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
|
||||
function GetOldNIF_CIFValue : String;
|
||||
function GetOldNOMBREValue : String;
|
||||
function GetOldCALLEValue : String;
|
||||
@ -74,6 +76,8 @@ type
|
||||
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
||||
property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
|
||||
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 OldNOMBRE : String read GetOldNOMBREValue;
|
||||
property OldCALLE : String read GetOldCALLEValue;
|
||||
@ -205,6 +209,18 @@ type
|
||||
function GetOldID_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetID_CLIENTEValue(const aValue: Integer); 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_CIFIsNull: Boolean; virtual;
|
||||
function GetOldNIF_CIFValue: String; virtual;
|
||||
@ -401,6 +417,14 @@ type
|
||||
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
|
||||
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
||||
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_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
||||
property OldNIF_CIF : String read GetOldNIF_CIFValue;
|
||||
@ -494,7 +518,7 @@ type
|
||||
|
||||
{ IFacturasCliente_DetallesDelta }
|
||||
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
|
||||
['{A97D0506-4C6F-4078-A30F-8768419E7E0F}']
|
||||
['{64DA04CA-425B-42E0-A86A-4B521E488AA9}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
@ -1233,6 +1257,68 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_CLIENTE] := Null;
|
||||
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;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNIF_CIF];
|
||||
|
||||
@ -174,6 +174,14 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
item
|
||||
DatasetField = 'SUBCUENTA'
|
||||
TableField = 'SUBCUENTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE_CLIENTE'
|
||||
TableField = 'NOMBRE_CLIENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE_COMERCIAL_CLIENTE'
|
||||
TableField = 'NOMBRE_COMERCIAL_CLIENTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'FacturasCliente'
|
||||
@ -269,6 +277,16 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
|
||||
@ -32,7 +32,27 @@ requires
|
||||
Articulos_view,
|
||||
AlbCli_FacCli_relation,
|
||||
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
|
||||
uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas',
|
||||
@ -44,6 +64,7 @@ contains
|
||||
uEditorFacturasClienteReport in 'uEditorFacturasClienteReport.pas' {fEditorFacturasClientePreview},
|
||||
uEditorElegirArticulosFacturaCliente in 'uEditorElegirArticulosFacturaCliente.pas' {fEditorElegirArticulosFacturaCliente: TForm},
|
||||
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.
|
||||
|
||||
@ -49,14 +49,29 @@
|
||||
<DelphiCompile Include="FacturasCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="Contabilidad_view.dcp" />
|
||||
<DCCReference Include="Contactos_view.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="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">
|
||||
<Form>fEditorElegirArticulosFacturaCliente</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
@ -77,6 +92,10 @@
|
||||
<Form>fEditorFacturasClientePreview</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uFacturasClienteViewRegister.pas" />
|
||||
<DCCReference Include="uViewClienteFactura.pas">
|
||||
<Form>frViewClienteFactura</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewDetallesFacturaCliente.pas">
|
||||
<Form>frViewDetallesFacturaCliente</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
@ -93,6 +112,11 @@
|
||||
<Form>frViewFacturasCliente</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -71,7 +71,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 765
|
||||
Height = 378
|
||||
ActivePage = pagContabilidad
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 79
|
||||
@ -103,70 +102,49 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Height = 350
|
||||
ExplicitWidth = 757
|
||||
ExplicitHeight = 350
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
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
|
||||
inherited frViewClienteFactura1: TfrViewClienteFactura
|
||||
Width = 314
|
||||
ExplicitWidth = 314
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 314
|
||||
ExplicitWidth = 314
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
|
||||
DataBinding.DataSource = dsDataTable
|
||||
ExplicitWidth = 224
|
||||
Width = 224
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
|
||||
DataBinding.DataSource = dsDataTable
|
||||
ExplicitWidth = 562
|
||||
Width = 562
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
|
||||
DataBinding.DataSource = dsDataTable
|
||||
ExplicitWidth = 562
|
||||
Width = 562
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
|
||||
DataBinding.DataSource = dsDataTable
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
|
||||
DataBinding.DataSource = dsDataTable
|
||||
ExplicitWidth = 327
|
||||
Width = 327
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 242
|
||||
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
|
||||
ExplicitLeft = 242
|
||||
Left = 225
|
||||
DataBinding.DataSource = dsDataTable
|
||||
ExplicitLeft = 225
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 132
|
||||
ExplicitLeft = 132
|
||||
Left = 115
|
||||
ExplicitLeft = 115
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited cbFormaPago: TcxDBLookupComboBox
|
||||
ExplicitWidth = 78
|
||||
Width = 78
|
||||
end
|
||||
inherited frViewTienda1: TfrViewTienda
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited cbTienda: TcxComboBox
|
||||
ExplicitWidth = 399
|
||||
Width = 399
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -83,7 +83,8 @@ implementation
|
||||
|
||||
uses
|
||||
uBizContactos, uDataModuleUsuarios, uFactuGES_App, uSubCuentasController,
|
||||
uDetallesFacturaClienteController, uDialogUtils, uDataTableUtils;
|
||||
uDetallesFacturaClienteController, uDialogUtils, uDataTableUtils,
|
||||
uViewClienteFactura, uBizDireccionesContacto, uClientesController;
|
||||
// uGenerarAlbaranesCliFacCliUtils;
|
||||
|
||||
|
||||
@ -301,8 +302,10 @@ end;
|
||||
procedure TfEditorFacturaCliente.OnClienteChanged(Sender: TObject);
|
||||
var
|
||||
FDetallesController : IDetallesFacturaClienteController;
|
||||
AClientesController : IClientesController;
|
||||
ADireccion : IBizDireccionesContacto;
|
||||
begin
|
||||
FFactura.Cliente := frViewFacturaCliente1.frViewClienteFactura.Cliente;
|
||||
FFactura.Cliente := frViewFacturaCliente1.frViewClienteFactura1.Cliente;
|
||||
|
||||
if not (FFactura.DataTable.State in dsEditModes) then
|
||||
FFactura.DataTable.Edit;
|
||||
@ -314,6 +317,30 @@ begin
|
||||
else
|
||||
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
|
||||
// para los artículos hay que cambiarlos.
|
||||
if (FFactura.Detalles.RecordCount > 0) then
|
||||
@ -409,8 +436,8 @@ begin
|
||||
|
||||
if Assigned(FViewFactura) then
|
||||
begin
|
||||
frViewFacturaCliente1.frViewClienteFactura.Cliente := FFactura.Cliente;
|
||||
frViewFacturaCliente1.frViewClienteFactura.OnClienteChanged := OnClienteChanged;
|
||||
frViewFacturaCliente1.frViewClienteFactura1.Cliente := FFactura.Cliente;
|
||||
frViewFacturaCliente1.frViewClienteFactura1.OnClienteChanged := OnClienteChanged;
|
||||
|
||||
FViewFactura.Factura := FFactura;
|
||||
frViewDetallesFacturaCliente1.Detalles := FFactura.Detalles;
|
||||
@ -424,8 +451,8 @@ begin
|
||||
|
||||
end
|
||||
else begin
|
||||
frViewFacturaCliente1.frViewClienteFactura.OnClienteChanged := NIL;
|
||||
frViewFacturaCliente1.frViewClienteFactura.Cliente := NIL;
|
||||
frViewFacturaCliente1.frViewClienteFactura1.OnClienteChanged := NIL;
|
||||
frViewFacturaCliente1.frViewClienteFactura1.Cliente := NIL;
|
||||
dsDataTable.DataTable := NIL;
|
||||
frViewTotales1.DADataSource.DataTable := NIL;
|
||||
frViewTotales1.dsTiposIVA.DataTable := NIL;
|
||||
|
||||
116
Source/Modulos/Facturas de cliente/Views/uViewClienteFactura.dfm
Normal file
116
Source/Modulos/Facturas de cliente/Views/uViewClienteFactura.dfm
Normal 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
|
||||
@ -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.
|
||||
@ -62,7 +62,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
end
|
||||
object memObservaciones: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 275
|
||||
Top = 325
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -78,64 +78,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Height = 159
|
||||
Width = 301
|
||||
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
|
||||
Left = 124
|
||||
Top = 84
|
||||
@ -204,6 +146,58 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
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
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -268,7 +262,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
AlignVert = avClient
|
||||
Caption = 'Datos del cliente'
|
||||
object dxLayoutControl1Item6: TdxLayoutItem
|
||||
Control = frViewClienteFactura
|
||||
Control = frViewClienteFactura1
|
||||
ControlOptions.AutoColor = True
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
|
||||
@ -10,7 +10,7 @@ uses
|
||||
cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxSpinEdit, StdCtrls, Mask,
|
||||
DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
|
||||
cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, uBizFormasPago,
|
||||
uViewTienda, uFacturasClienteController;
|
||||
uViewTienda, uFacturasClienteController, uViewClienteFactura;
|
||||
|
||||
type
|
||||
IViewFacturaCliente = interface(IViewBase)
|
||||
@ -37,8 +37,6 @@ type
|
||||
dxLayoutControl1Item5: TdxLayoutItem;
|
||||
memObservaciones: TcxDBMemo;
|
||||
dxLayoutControl1Group5: TdxLayoutGroup;
|
||||
dxLayoutControl1Item6: TdxLayoutItem;
|
||||
frViewClienteFactura: TfrViewDatosYSeleccionCliente;
|
||||
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||
dsFormaPago: TDADataSource;
|
||||
@ -52,6 +50,8 @@ type
|
||||
dxLayoutControl1Group4: TdxLayoutGroup;
|
||||
dxLayoutControl1Item3: TdxLayoutItem;
|
||||
dxLayoutControl1Group7: TdxLayoutGroup;
|
||||
dxLayoutControl1Item6: TdxLayoutItem;
|
||||
frViewClienteFactura1: TfrViewClienteFactura;
|
||||
procedure bFormasPagoClick(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
@ -115,7 +115,7 @@ begin
|
||||
FController := Value;
|
||||
|
||||
if Assigned(FController) then
|
||||
frViewClienteFactura.Controller := FController.ClienteController;
|
||||
frViewClienteFactura1.Controller := FController.ClienteController;
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturaCliente.SetFactura(const Value: IBizFacturaCliente);
|
||||
@ -143,12 +143,12 @@ begin
|
||||
end
|
||||
else
|
||||
ACadena := 'Elija el cliente al que se le realizará la factura.';
|
||||
frViewClienteFactura.MsgElegirCliente := ACadena;
|
||||
frViewClienteFactura1.MsgElegirCliente := ACadena;
|
||||
end
|
||||
else begin
|
||||
DADataSource.DataTable := NIL;
|
||||
dsFormaPago.DataTable := NIL;
|
||||
frViewClienteFactura.Cliente := NIL
|
||||
frViewClienteFactura1.Cliente := NIL
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -58,11 +58,15 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Width = 28
|
||||
end
|
||||
object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'NOMBRE_COMERCIAL_CLIENTE'
|
||||
end
|
||||
object cxGridViewNIF_CIF: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'NIF_CIF'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewNOMBRE: TcxGridDBColumn
|
||||
Caption = 'Raz'#243'n'
|
||||
DataBinding.FieldName = 'NOMBRE'
|
||||
Width = 181
|
||||
end
|
||||
@ -131,6 +135,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
VisibleForCustomization = False
|
||||
Width = 54
|
||||
end
|
||||
object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
|
||||
Caption = 'Cliente'
|
||||
DataBinding.FieldName = 'NOMBRE_CLIENTE'
|
||||
end
|
||||
end
|
||||
inherited cxGridLevel: TcxGridLevel
|
||||
Caption = 'Todas'
|
||||
|
||||
Binary file not shown.
@ -6,7 +6,7 @@ interface
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasProveedor,
|
||||
uProveedoresController, uDetallesFacturaProveedorController, uBizFacturasProveedor,
|
||||
uBizAlbaranesProveedor;
|
||||
uBizAlbaranesProveedor, uBizDireccionesContacto;
|
||||
|
||||
type
|
||||
IFacturasProveedorController = interface(IObservador)
|
||||
@ -48,6 +48,8 @@ type
|
||||
function ElegirFacturas(AFacturas : IBizFacturaProveedor; AMensaje: String; AMultiSelect: Boolean): IBizFacturaProveedor;
|
||||
function ExtraerSeleccionados(ARecibosProveedor: IBizFacturaProveedor) : IBizFacturaProveedor;
|
||||
|
||||
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaProveedor);
|
||||
|
||||
procedure SetID_Tienda (AFactura: IBizFacturaProveedor; const ID_Tienda: Integer);
|
||||
procedure SetIdSubcuenta (AFactura: IBizFacturaProveedor; const IdSubCuenta: Integer);
|
||||
procedure SetIgnorarContabilidad (AFactura: IBizFacturaProveedor; const Ignorar: Integer);
|
||||
@ -72,8 +74,10 @@ type
|
||||
|
||||
function ValidarFactura(AFactura: IBizFacturaProveedor): Boolean;
|
||||
procedure GenerarRecibos(AFactura: IBizFacturaProveedor);
|
||||
|
||||
protected
|
||||
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
|
||||
|
||||
public
|
||||
property ProveedorController: IProveedoresController read GetProveedorController write SetProveedorController;
|
||||
property DetallesController: IDetallesFacturaProveedorController read GetDetallesController write SetDetallesController;
|
||||
@ -110,6 +114,8 @@ type
|
||||
function ElegirFacturas(AFacturas : IBizFacturaProveedor; AMensaje: String; AMultiSelect: Boolean): IBizFacturaProveedor;
|
||||
function ExtraerSeleccionados(AFacturasProveedor: IBizFacturaProveedor) : IBizFacturaProveedor;
|
||||
|
||||
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaProveedor);
|
||||
|
||||
procedure SetID_Tienda (AFactura: IBizFacturaProveedor; const ID_Tienda: Integer);
|
||||
procedure SetIdSubcuenta (AFactura: IBizFacturaProveedor; const IdSubCuenta: Integer);
|
||||
procedure SetIgnorarContabilidad (AFactura: IBizFacturaProveedor; const Ignorar: Integer);
|
||||
@ -491,6 +497,45 @@ begin
|
||||
FiltrarEmpresa(Result);
|
||||
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;
|
||||
begin
|
||||
inherited;
|
||||
@ -556,6 +601,9 @@ begin
|
||||
end;
|
||||
|
||||
function TFacturasProveedorController.ValidarFactura(AFactura: IBizFacturaProveedor): Boolean;
|
||||
var
|
||||
AFormaPago: IBizFormaPago;
|
||||
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
@ -585,12 +633,28 @@ begin
|
||||
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');
|
||||
|
||||
{ Esta validación puede saltar cuando se generan facturas automáticamente
|
||||
por albaranes o pedidos y el Proveedor no tiene Tipo de IVA puesto. }
|
||||
{ if (AFactura.ID_TIPO_IVA = 0) then
|
||||
raise Exception.Create('Debe indicar un tipo de IVA para esta factura');}
|
||||
{Al no poder generarse facturas automáticamente a partir de otros documentos validamos estos campos obligatorios}
|
||||
if (AFactura.ID_TIPO_IVA = 0) then
|
||||
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.IMPORTE_TOTAL >= 0) then
|
||||
raise Exception.Create('Un abono nunca no puede tener un importe positivo');
|
||||
@ -1095,16 +1159,12 @@ var
|
||||
ARecibos: IBizRecibosProveedor;
|
||||
i: Integer;
|
||||
begin
|
||||
|
||||
if not Assigned(AFactura) then
|
||||
Exit;
|
||||
|
||||
AFormasPagoController := TFormasPagoController.Create;
|
||||
AFormaPago := AFormasPagoController.Buscar(AFactura.ID_FORMA_PAGO);
|
||||
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;
|
||||
//Eliminamos todos los recibos que tuviera la factura porque sabemos que todos
|
||||
@ -1113,27 +1173,45 @@ begin
|
||||
ARecibos := ARecibosProveedorController.BuscarRecibosFactura(AFactura.ID);
|
||||
ARecibosProveedorController.EliminarTodo(ARecibos);
|
||||
|
||||
//Vamos a generar todos los recibos necesarios para la factura
|
||||
With AFormaPago.Plazos.DataTable do
|
||||
//Se cambia la lógica para acana, en el caso de elegir una forma de pago sin plazos
|
||||
//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
|
||||
i := 1;
|
||||
First;
|
||||
while not eof do
|
||||
ARecibos := ARecibosProveedorController.Nuevo;
|
||||
ARecibos.Edit;
|
||||
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
|
||||
ARecibos := ARecibosProveedorController.Nuevo;
|
||||
ARecibos.Edit;
|
||||
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 + ' - ' + IntToStr(i);
|
||||
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;
|
||||
i := 1;
|
||||
First;
|
||||
while not eof do
|
||||
begin
|
||||
ARecibos := ARecibosProveedorController.Nuevo;
|
||||
ARecibos.Edit;
|
||||
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 + ' - ' + IntToStr(i);
|
||||
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;
|
||||
|
||||
//Liberamos
|
||||
AFormasPagoController := Nil;
|
||||
|
||||
@ -66,6 +66,10 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
|
||||
DisplayLabel = 'Fecha de las factura'
|
||||
DictionaryEntry = 'FacturasProveedor_FECHA_FACTURA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
@ -139,6 +143,16 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
|
||||
DisplayLabel = 'FacturasProveedor_ID_PROVEEDOR'
|
||||
DictionaryEntry = 'FacturasProveedor_ID_PROVEEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
|
||||
@ -9,12 +9,19 @@
|
||||
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||
<Projects Include="..\..\GUIBase\GUIBase.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="..\Contabilidad\Controller\Contabilidad_controller.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\Views\Contactos_view.dproj" />
|
||||
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.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="Data\FacturasProveedor_data.dproj" />
|
||||
<Projects Include="Model\FacturasProveedor_model.dproj" />
|
||||
@ -63,6 +70,15 @@
|
||||
<Target Name="Contactos_view:Make">
|
||||
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
|
||||
</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">
|
||||
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -72,6 +88,33 @@
|
||||
<Target Name="Articulos_view:Make">
|
||||
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" />
|
||||
</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">
|
||||
<MSBuild Projects="Model\FacturasProveedor_model.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -171,14 +214,41 @@
|
||||
<Target Name="Contactos_model:Make">
|
||||
<MSBuild Projects="..\Contactos\Model\Contactos_model.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="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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -9,8 +9,8 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_FacturasProveedor = '{802DA96D-6573-4CBF-BBA2-38E4E0BF9C20}';
|
||||
RID_FacturasProveedor_Detalles = '{3FF532D1-7C43-424B-B91C-C88BAD4881BE}';
|
||||
RID_FacturasProveedor = '{C1A41E2D-D6D0-4C5E-81A9-721D4AFFE1F4}';
|
||||
RID_FacturasProveedor_Detalles = '{30413551-703B-40FA-8212-2B1312AF4F45}';
|
||||
|
||||
{ Data table names }
|
||||
nme_FacturasProveedor = 'FacturasProveedor';
|
||||
@ -23,6 +23,7 @@ const
|
||||
fld_FacturasProveedorTIPO = 'TIPO';
|
||||
fld_FacturasProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
|
||||
fld_FacturasProveedorFECHA_FACTURA = 'FECHA_FACTURA';
|
||||
fld_FacturasProveedorFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
|
||||
fld_FacturasProveedorSITUACION = 'SITUACION';
|
||||
fld_FacturasProveedorBASE_IMPONIBLE = 'BASE_IMPONIBLE';
|
||||
fld_FacturasProveedorDESCUENTO = 'DESCUENTO';
|
||||
@ -34,6 +35,8 @@ const
|
||||
fld_FacturasProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL';
|
||||
fld_FacturasProveedorOBSERVACIONES = 'OBSERVACIONES';
|
||||
fld_FacturasProveedorID_PROVEEDOR = 'ID_PROVEEDOR';
|
||||
fld_FacturasProveedorNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
|
||||
fld_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR = 'NOMBRE_COMERCIAL_PROVEEDOR';
|
||||
fld_FacturasProveedorNIF_CIF = 'NIF_CIF';
|
||||
fld_FacturasProveedorNOMBRE = 'NOMBRE';
|
||||
fld_FacturasProveedorCALLE = 'CALLE';
|
||||
@ -61,36 +64,39 @@ const
|
||||
idx_FacturasProveedorTIPO = 3;
|
||||
idx_FacturasProveedorREFERENCIA_PROVEEDOR = 4;
|
||||
idx_FacturasProveedorFECHA_FACTURA = 5;
|
||||
idx_FacturasProveedorSITUACION = 6;
|
||||
idx_FacturasProveedorBASE_IMPONIBLE = 7;
|
||||
idx_FacturasProveedorDESCUENTO = 8;
|
||||
idx_FacturasProveedorIMPORTE_DESCUENTO = 9;
|
||||
idx_FacturasProveedorIVA = 10;
|
||||
idx_FacturasProveedorIMPORTE_IVA = 11;
|
||||
idx_FacturasProveedorRE = 12;
|
||||
idx_FacturasProveedorIMPORTE_RE = 13;
|
||||
idx_FacturasProveedorIMPORTE_TOTAL = 14;
|
||||
idx_FacturasProveedorOBSERVACIONES = 15;
|
||||
idx_FacturasProveedorID_PROVEEDOR = 16;
|
||||
idx_FacturasProveedorNIF_CIF = 17;
|
||||
idx_FacturasProveedorNOMBRE = 18;
|
||||
idx_FacturasProveedorCALLE = 19;
|
||||
idx_FacturasProveedorPOBLACION = 20;
|
||||
idx_FacturasProveedorPROVINCIA = 21;
|
||||
idx_FacturasProveedorCODIGO_POSTAL = 22;
|
||||
idx_FacturasProveedorFECHA_ALTA = 23;
|
||||
idx_FacturasProveedorFECHA_MODIFICACION = 24;
|
||||
idx_FacturasProveedorUSUARIO = 25;
|
||||
idx_FacturasProveedorID_FORMA_PAGO = 26;
|
||||
idx_FacturasProveedorRECARGO_EQUIVALENCIA = 27;
|
||||
idx_FacturasProveedorID_TIPO_IVA = 28;
|
||||
idx_FacturasProveedorIMPORTE_NETO = 29;
|
||||
idx_FacturasProveedorIMPORTE_PORTE = 30;
|
||||
idx_FacturasProveedorIGNORAR_CONTABILIDAD = 31;
|
||||
idx_FacturasProveedorID_TIENDA = 32;
|
||||
idx_FacturasProveedorTIENDA = 33;
|
||||
idx_FacturasProveedorID_SUBCUENTA = 34;
|
||||
idx_FacturasProveedorSUBCUENTA = 35;
|
||||
idx_FacturasProveedorFECHA_VENCIMIENTO = 6;
|
||||
idx_FacturasProveedorSITUACION = 7;
|
||||
idx_FacturasProveedorBASE_IMPONIBLE = 8;
|
||||
idx_FacturasProveedorDESCUENTO = 9;
|
||||
idx_FacturasProveedorIMPORTE_DESCUENTO = 10;
|
||||
idx_FacturasProveedorIVA = 11;
|
||||
idx_FacturasProveedorIMPORTE_IVA = 12;
|
||||
idx_FacturasProveedorRE = 13;
|
||||
idx_FacturasProveedorIMPORTE_RE = 14;
|
||||
idx_FacturasProveedorIMPORTE_TOTAL = 15;
|
||||
idx_FacturasProveedorOBSERVACIONES = 16;
|
||||
idx_FacturasProveedorID_PROVEEDOR = 17;
|
||||
idx_FacturasProveedorNOMBRE_PROVEEDOR = 18;
|
||||
idx_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR = 19;
|
||||
idx_FacturasProveedorNIF_CIF = 20;
|
||||
idx_FacturasProveedorNOMBRE = 21;
|
||||
idx_FacturasProveedorCALLE = 22;
|
||||
idx_FacturasProveedorPOBLACION = 23;
|
||||
idx_FacturasProveedorPROVINCIA = 24;
|
||||
idx_FacturasProveedorCODIGO_POSTAL = 25;
|
||||
idx_FacturasProveedorFECHA_ALTA = 26;
|
||||
idx_FacturasProveedorFECHA_MODIFICACION = 27;
|
||||
idx_FacturasProveedorUSUARIO = 28;
|
||||
idx_FacturasProveedorID_FORMA_PAGO = 29;
|
||||
idx_FacturasProveedorRECARGO_EQUIVALENCIA = 30;
|
||||
idx_FacturasProveedorID_TIPO_IVA = 31;
|
||||
idx_FacturasProveedorIMPORTE_NETO = 32;
|
||||
idx_FacturasProveedorIMPORTE_PORTE = 33;
|
||||
idx_FacturasProveedorIGNORAR_CONTABILIDAD = 34;
|
||||
idx_FacturasProveedorID_TIENDA = 35;
|
||||
idx_FacturasProveedorTIENDA = 36;
|
||||
idx_FacturasProveedorID_SUBCUENTA = 37;
|
||||
idx_FacturasProveedorSUBCUENTA = 38;
|
||||
|
||||
{ FacturasProveedor_Detalles fields }
|
||||
fld_FacturasProveedor_DetallesID = 'ID';
|
||||
@ -127,7 +133,7 @@ const
|
||||
type
|
||||
{ IFacturasProveedor }
|
||||
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{ADC8C0DC-48B7-4189-AC00-BA9A50CE70C4}']
|
||||
['{4BDA0973-DD80-4CEF-AEA6-34D91B8A485F}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -153,6 +159,10 @@ type
|
||||
procedure SetFECHA_FACTURAValue(const aValue: DateTime);
|
||||
function GetFECHA_FACTURAIsNull: 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;
|
||||
procedure SetSITUACIONValue(const aValue: String);
|
||||
function GetSITUACIONIsNull: Boolean;
|
||||
@ -196,6 +206,14 @@ type
|
||||
procedure SetID_PROVEEDORValue(const aValue: Integer);
|
||||
function GetID_PROVEEDORIsNull: 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;
|
||||
procedure SetNIF_CIFValue(const aValue: String);
|
||||
function GetNIF_CIFIsNull: Boolean;
|
||||
@ -287,6 +305,8 @@ type
|
||||
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
|
||||
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
|
||||
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 SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
|
||||
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
|
||||
@ -309,6 +329,10 @@ type
|
||||
property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
|
||||
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
||||
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_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
@ -380,6 +404,10 @@ type
|
||||
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
|
||||
function GetFECHA_FACTURAIsNull: 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;
|
||||
procedure SetSITUACIONValue(const aValue: String); virtual;
|
||||
function GetSITUACIONIsNull: Boolean; virtual;
|
||||
@ -423,6 +451,14 @@ type
|
||||
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
|
||||
function GetID_PROVEEDORIsNull: 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;
|
||||
procedure SetNIF_CIFValue(const aValue: String); virtual;
|
||||
function GetNIF_CIFIsNull: Boolean; virtual;
|
||||
@ -513,6 +549,8 @@ type
|
||||
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
|
||||
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
|
||||
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 SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
|
||||
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
|
||||
@ -535,6 +573,10 @@ type
|
||||
property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
|
||||
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
||||
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_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
@ -582,7 +624,7 @@ type
|
||||
|
||||
{ IFacturasProveedor_Detalles }
|
||||
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{D16CA232-F0BA-4312-B507-9D67A38B081F}']
|
||||
['{A98F227B-0E99-4F1B-9D14-57E3B766C981}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -923,6 +965,27 @@ begin
|
||||
DataTable.Fields[idx_FacturasProveedorFECHA_FACTURA].AsVariant := Null;
|
||||
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;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasProveedorSITUACION].AsString;
|
||||
@ -1150,6 +1213,48 @@ begin
|
||||
DataTable.Fields[idx_FacturasProveedorID_PROVEEDOR].AsVariant := Null;
|
||||
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;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasProveedorNIF_CIF].AsString;
|
||||
|
||||
@ -9,13 +9,13 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_FacturasProveedorDelta = '{91DA6A6D-8DED-41A1-BC58-3F8BA43570B9}';
|
||||
RID_FacturasProveedor_DetallesDelta = '{F264DBEE-8AE8-40B8-B153-A141DA741744}';
|
||||
RID_FacturasProveedorDelta = '{FC1B803A-C284-40C6-B1DB-9CBB0EFFA393}';
|
||||
RID_FacturasProveedor_DetallesDelta = '{6277ABDB-ACDE-4763-AAE1-E74B4A1BA48E}';
|
||||
|
||||
type
|
||||
{ IFacturasProveedorDelta }
|
||||
IFacturasProveedorDelta = interface(IFacturasProveedor)
|
||||
['{91DA6A6D-8DED-41A1-BC58-3F8BA43570B9}']
|
||||
['{FC1B803A-C284-40C6-B1DB-9CBB0EFFA393}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -23,6 +23,7 @@ type
|
||||
function GetOldTIPOValue : String;
|
||||
function GetOldREFERENCIA_PROVEEDORValue : String;
|
||||
function GetOldFECHA_FACTURAValue : DateTime;
|
||||
function GetOldFECHA_VENCIMIENTOValue : DateTime;
|
||||
function GetOldSITUACIONValue : String;
|
||||
function GetOldBASE_IMPONIBLEValue : Currency;
|
||||
function GetOldDESCUENTOValue : Float;
|
||||
@ -34,6 +35,8 @@ type
|
||||
function GetOldIMPORTE_TOTALValue : Currency;
|
||||
function GetOldOBSERVACIONESValue : IROStrings;
|
||||
function GetOldID_PROVEEDORValue : Integer;
|
||||
function GetOldNOMBRE_PROVEEDORValue : String;
|
||||
function GetOldNOMBRE_COMERCIAL_PROVEEDORValue : String;
|
||||
function GetOldNIF_CIFValue : String;
|
||||
function GetOldNOMBREValue : String;
|
||||
function GetOldCALLEValue : String;
|
||||
@ -61,6 +64,7 @@ type
|
||||
property OldTIPO : String read GetOldTIPOValue;
|
||||
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
|
||||
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
|
||||
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
|
||||
property OldSITUACION : String read GetOldSITUACIONValue;
|
||||
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
|
||||
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
||||
@ -72,6 +76,8 @@ type
|
||||
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
||||
property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
|
||||
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 OldNOMBRE : String read GetOldNOMBREValue;
|
||||
property OldCALLE : String read GetOldCALLEValue;
|
||||
@ -136,6 +142,12 @@ type
|
||||
function GetOldFECHA_FACTURAIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_FACTURAValue(const aValue: DateTime); 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 GetSITUACIONIsNull: Boolean; virtual;
|
||||
function GetOldSITUACIONValue: String; virtual;
|
||||
@ -201,6 +213,18 @@ type
|
||||
function GetOldID_PROVEEDORIsNull: Boolean; virtual;
|
||||
procedure SetID_PROVEEDORValue(const aValue: Integer); 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_CIFIsNull: Boolean; virtual;
|
||||
function GetOldNIF_CIFValue: String; virtual;
|
||||
@ -341,6 +365,10 @@ type
|
||||
property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
|
||||
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
|
||||
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 SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
|
||||
property OldSITUACION : String read GetOldSITUACIONValue;
|
||||
@ -385,6 +413,14 @@ type
|
||||
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
|
||||
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
|
||||
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_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
||||
property OldNIF_CIF : String read GetOldNIF_CIFValue;
|
||||
@ -470,7 +506,7 @@ type
|
||||
|
||||
{ IFacturasProveedor_DetallesDelta }
|
||||
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
|
||||
['{F264DBEE-8AE8-40B8-B153-A141DA741744}']
|
||||
['{6277ABDB-ACDE-4763-AAE1-E74B4A1BA48E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
@ -871,6 +907,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_FACTURA] := Null;
|
||||
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;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorSITUACION];
|
||||
@ -1209,6 +1276,68 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_PROVEEDOR] := Null;
|
||||
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;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNIF_CIF];
|
||||
|
||||
@ -25,8 +25,8 @@ package FacturasProveedor_plugin;
|
||||
{$IMPLICITBUILD ON}
|
||||
|
||||
requires
|
||||
FacturasProveedor_view,
|
||||
FacturasProveedor_controller;
|
||||
FacturasProveedor_controller,
|
||||
FacturasProveedor_view;
|
||||
|
||||
contains
|
||||
uPluginFacturasProveedor in 'uPluginFacturasProveedor.pas' {PluginFacturasProveedor};
|
||||
|
||||
@ -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>
|
||||
<ProjectGuid>{e7d762a1-3a15-46b2-bd5b-3821d13b8347}</ProjectGuid>
|
||||
<MainSource>FacturasProveedor_plugin.dpk</MainSource>
|
||||
@ -66,7 +67,6 @@
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
|
||||
@ -47,6 +47,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
DatasetField = 'FECHA_FACTURA'
|
||||
TableField = 'FECHA_FACTURA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_VENCIMIENTO'
|
||||
TableField = 'FECHA_VENCIMIENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'SITUACION'
|
||||
TableField = 'SITUACION'
|
||||
@ -166,6 +170,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
item
|
||||
DatasetField = 'SUBCUENTA'
|
||||
TableField = 'SUBCUENTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE_PROVEEDOR'
|
||||
TableField = 'NOMBRE_PROVEEDOR'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE_COMERCIAL_PROVEEDOR'
|
||||
TableField = 'NOMBRE_COMERCIAL_PROVEEDOR'
|
||||
end>
|
||||
end>
|
||||
Name = 'FacturasProveedor'
|
||||
@ -206,6 +218,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'FacturasProveedor_FECHA_FACTURA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
@ -262,6 +278,16 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasProveedor_ID_PROVEEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
@ -613,6 +639,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
Name = 'FECHA_FACTURA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
Value = ''
|
||||
@ -724,21 +754,21 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
TargetTable = 'FACTURAS_PROVEEDOR'
|
||||
SQL =
|
||||
'INSERT'#10' INTO FACTURAS_PROVEEDOR'#10' (ID, ID_EMPRESA, REFERENCIA' +
|
||||
', REFERENCIA_PROVEEDOR,'#10' FECHA_FACTURA, BASE_IMPONIBLE, DESC' +
|
||||
'UENTO,'#10' IMPORTE_DESCUENTO, IVA, IMPORTE_IVA, RE, IMPORTE_RE,' +
|
||||
' '#10' IMPORTE_TOTAL, OBSERVACIONES, ID_PROVEEDOR, NIF_CIF, '#10' ' +
|
||||
' NOMBRE, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, '#10' FECH' +
|
||||
'A_ALTA, FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, '#10' RECARG' +
|
||||
'O_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE, IGNORA' +
|
||||
'R_CONTABILIDAD,'#10' ID_TIENDA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, ' +
|
||||
':REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :BASE_I' +
|
||||
'MPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IV' +
|
||||
'A, :RE, :IMPORTE_RE, '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :ID_P' +
|
||||
'ROVEEDOR, :NIF_CIF, '#10' :NOMBRE, :CALLE, :POBLACION, :PROVINCI' +
|
||||
'A, :CODIGO_POSTAL, '#10' :FECHA_ALTA, :FECHA_MODIFICACION, :USUA' +
|
||||
'RIO, :ID_FORMA_PAGO, '#10' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, ' +
|
||||
':IMPORTE_NETO, '#10' :IMPORTE_PORTE, :IGNORAR_CONTABILIDAD, :ID_' +
|
||||
'TIENDA)'#10' '#10' '#10#10
|
||||
', REFERENCIA_PROVEEDOR,'#10' FECHA_FACTURA, FECHA_VENCIMIENTO, B' +
|
||||
'ASE_IMPONIBLE, DESCUENTO,'#10' IMPORTE_DESCUENTO, IVA, IMPORTE_I' +
|
||||
'VA, RE, IMPORTE_RE, '#10' IMPORTE_TOTAL, OBSERVACIONES, ID_PROVE' +
|
||||
'EDOR, NIF_CIF, '#10' NOMBRE, CALLE, POBLACION, PROVINCIA, CODIGO' +
|
||||
'_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_FORMA' +
|
||||
'_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IM' +
|
||||
'PORTE_PORTE, IGNORAR_CONTABILIDAD,'#10' ID_TIENDA)'#10' VALUES'#10' ' +
|
||||
'(:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' :FEC' +
|
||||
'HA_FACTURA, :FECHA_VENCIMIENTO, :BASE_IMPONIBLE, :DESCUENTO,'#10' ' +
|
||||
' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE, '#10' ' +
|
||||
' :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF, '#10' ' +
|
||||
' :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' ' +
|
||||
':FECHA_ALTA, :FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10' ' +
|
||||
' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMP' +
|
||||
'ORTE_PORTE, :IGNORAR_CONTABILIDAD, :ID_TIENDA)'#10' '#10' '#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -785,6 +815,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
Name = 'FECHA_FACTURA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
Value = ''
|
||||
@ -902,20 +936,21 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
'UPDATE FACTURAS_PROVEEDOR'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA = ' +
|
||||
':ID_EMPRESA, '#10' REFERENCIA = :REFERENCIA, '#10' REFERENCIA_PROV' +
|
||||
'EEDOR = :REFERENCIA_PROVEEDOR,'#10' FECHA_FACTURA = :FECHA_FACTUR' +
|
||||
'A, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCU' +
|
||||
'ENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' IVA = :I' +
|
||||
'VA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' RE = :RE, '#10' IMPORTE' +
|
||||
'_RE = :IMPORTE_RE, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' OBS' +
|
||||
'ERVACIONES = :OBSERVACIONES, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, ' +
|
||||
#10' NIF_CIF = :NIF_CIF, '#10' NOMBRE = :NOMBRE, '#10' CALLE = :CA' +
|
||||
'LLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10 +
|
||||
' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' FECHA_ALTA = :FECHA_ALT' +
|
||||
'A, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO =' +
|
||||
' :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' RECARGO_EQU' +
|
||||
'IVALENCIA = :RECARGO_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_I' +
|
||||
'VA, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMP' +
|
||||
'ORTE_PORTE,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' ' +
|
||||
' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
'A, '#10' FECHA_VENCIMIENTO = :FECHA_VENCIMIENTO,'#10' BASE_IMPONIB' +
|
||||
'LE = :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_D' +
|
||||
'ESCUENTO = :IMPORTE_DESCUENTO, '#10' IVA = :IVA, '#10' IMPORTE_IVA' +
|
||||
' = :IMPORTE_IVA, '#10' RE = :RE, '#10' IMPORTE_RE = :IMPORTE_RE, '#10 +
|
||||
' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' OBSERVACIONES = :OBSERV' +
|
||||
'ACIONES, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' NIF_CIF = :NIF_' +
|
||||
'CIF, '#10' NOMBRE = :NOMBRE, '#10' CALLE = :CALLE, '#10' POBLACION ' +
|
||||
'= :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = ' +
|
||||
':CODIGO_POSTAL, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFI' +
|
||||
'CACION = :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' ID_F' +
|
||||
'ORMA_PAGO = :ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA = :RECARGO' +
|
||||
'_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_IVA, '#10' IMPORTE_NET' +
|
||||
'O = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNO' +
|
||||
'RAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TI' +
|
||||
'ENDA'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -30,7 +30,29 @@ requires
|
||||
GUIBase,
|
||||
Articulos_view,
|
||||
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
|
||||
uFacturasProveedorViewRegister in 'uFacturasProveedorViewRegister.pas',
|
||||
@ -41,6 +63,7 @@ contains
|
||||
uEditorElegirArticulosFacturaProveedor in 'uEditorElegirArticulosFacturaProveedor.pas' {fEditorElegirArticulosFacturaProveedor: TfEditorElegirArticulosFacturaProveedor},
|
||||
uViewElegirArticulosFacturasProveedor in 'uViewElegirArticulosFacturasProveedor.pas' {frViewElegirArticulosFacturasProveedor: 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.
|
||||
|
||||
@ -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>
|
||||
<ProjectGuid>{0292650a-554d-47ac-933a-ac71d1f18f02}</ProjectGuid>
|
||||
<MainSource>FacturasProveedor_view.dpk</MainSource>
|
||||
@ -41,6 +42,10 @@
|
||||
<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>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<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>
|
||||
</ProjectExtensions>
|
||||
@ -49,12 +54,34 @@
|
||||
<DelphiCompile Include="FacturasProveedor_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="..\Contabilidad_view.dcp" />
|
||||
<DCCReference Include="..\Contactos_controller.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">
|
||||
<Form>fEditorElegirArticulosFacturaProveedor</Form>
|
||||
<DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass>
|
||||
@ -88,6 +115,10 @@
|
||||
<Form>frViewFacturasProveedor</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewProveedorFactura.pas">
|
||||
<Form>frViewProveedorFactura</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -71,7 +71,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 740
|
||||
Height = 342
|
||||
ActivePage = pagContabilidad
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 79
|
||||
@ -125,39 +124,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
Width = 169
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 210
|
||||
ExplicitLeft = 210
|
||||
Left = 240
|
||||
ExplicitLeft = 240
|
||||
end
|
||||
inherited eReferenciaProveedor: TcxDBTextEdit
|
||||
ExplicitWidth = 316
|
||||
Width = 316
|
||||
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
|
||||
Width = 320
|
||||
ExplicitWidth = 320
|
||||
@ -169,6 +142,51 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
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
|
||||
|
||||
@ -80,7 +80,8 @@ implementation
|
||||
|
||||
uses
|
||||
uBizContactos, uDataModuleUsuarios, uFactuGES_App, uSubCuentasController,
|
||||
uDetallesFacturaProveedorController, uDialogUtils, uDataTableUtils;
|
||||
uDetallesFacturaProveedorController, uProveedoresController, uDialogUtils,
|
||||
uDataTableUtils, uBizDireccionesContacto, uViewProveedorFactura;
|
||||
// uGenerarAlbaranesProvFacProvUtils;
|
||||
|
||||
|
||||
@ -284,14 +285,16 @@ AppFactuGES.ShowCapado;
|
||||
{
|
||||
inherited;
|
||||
FController.Print(FFactura);
|
||||
}
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturaProveedor.OnProveedorChanged(Sender: TObject);
|
||||
var
|
||||
FDetallesController : IDetallesFacturaProveedorController;
|
||||
AProveedoresController : IProveedoresController;
|
||||
ADireccion : IBizDireccionesContacto;
|
||||
begin
|
||||
FFactura.Proveedor := frViewFacturaProveedor1.frViewProveedorFactura.Proveedor;
|
||||
FFactura.Proveedor := frViewFacturaProveedor1.frViewProveedorFactura1.Proveedor;
|
||||
|
||||
if not (FFactura.DataTable.State in dsEditModes) then
|
||||
FFactura.DataTable.Edit;
|
||||
@ -303,6 +306,29 @@ begin
|
||||
// else
|
||||
// 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
|
||||
// para los artículos hay que cambiarlos.
|
||||
if (FFactura.Detalles.RecordCount > 0) then
|
||||
@ -402,8 +428,8 @@ begin
|
||||
|
||||
if Assigned(FViewFactura) then
|
||||
begin
|
||||
frViewFacturaProveedor1.frViewProveedorFactura.Proveedor := FFactura.Proveedor;
|
||||
frViewFacturaProveedor1.frViewProveedorFactura.OnProveedorChanged := OnProveedorChanged;
|
||||
frViewFacturaProveedor1.frViewProveedorFactura1.Proveedor := FFactura.Proveedor;
|
||||
frViewFacturaProveedor1.frViewProveedorFactura1.OnProveedorChanged := OnProveedorChanged;
|
||||
|
||||
FViewFactura.Factura := FFactura;
|
||||
frViewDetallesFacturaProveedor1.Detalles := FFactura.Detalles;
|
||||
@ -417,8 +443,8 @@ begin
|
||||
|
||||
end
|
||||
else begin
|
||||
frViewFacturaProveedor1.frViewProveedorFactura.OnProveedorChanged := NIL;
|
||||
frViewFacturaProveedor1.frViewProveedorFactura.Proveedor := NIL;
|
||||
frViewFacturaProveedor1.frViewProveedorFactura1.OnProveedorChanged := NIL;
|
||||
frViewFacturaProveedor1.frViewProveedorFactura1.Proveedor := NIL;
|
||||
dsDataTable.DataTable := NIL;
|
||||
frViewTotales1.DADataSource.DataTable := NIL;
|
||||
frViewTotales1.dsTiposIVA.DataTable := NIL;
|
||||
|
||||
@ -284,47 +284,11 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasProveedor.NuevoInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
// FPedidosProveedorController : IPedidosProveedorController;
|
||||
// APedido : IBizPedidoProveedor;
|
||||
//FAlbaranesProveedorController : IAlbaranesProveedorController;
|
||||
//AAlbaranes : IBizAlbaranProveedor;
|
||||
//AFacturasNuevas : IBizFacturaProveedor;
|
||||
//i : integer;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
Respuesta := JsNuevaFacturaDialog.Execute;
|
||||
|
||||
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;
|
||||
if FController.Anadir(Facturas) then
|
||||
FController.Ver(Facturas);
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasProveedor.PonerTitulos(const ATitulo: string);
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
Width = 732
|
||||
Height = 410
|
||||
Width = 798
|
||||
Height = 514
|
||||
Align = alClient
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
@ -9,8 +9,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 732
|
||||
Height = 410
|
||||
Width = 798
|
||||
Height = 514
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
@ -19,10 +19,10 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 304
|
||||
DesignSize = (
|
||||
732
|
||||
410)
|
||||
798
|
||||
514)
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 136
|
||||
Left = 124
|
||||
Top = 30
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA'
|
||||
@ -42,7 +42,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
Width = 159
|
||||
end
|
||||
object edtFecha: TcxDBDateEdit
|
||||
Left = 136
|
||||
Left = 124
|
||||
Top = 84
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_FACTURA'
|
||||
@ -64,7 +64,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
end
|
||||
object memObservaciones: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 262
|
||||
Top = 320
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -76,13 +76,13 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
Height = 159
|
||||
Width = 301
|
||||
TabOrder = 8
|
||||
Height = 170
|
||||
Width = 754
|
||||
end
|
||||
object cbFormaPago: TcxDBLookupComboBox
|
||||
Left = 136
|
||||
Top = 111
|
||||
Left = 124
|
||||
Top = 138
|
||||
DataBinding.DataField = 'ID_FORMA_PAGO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ImmediatePost = True
|
||||
@ -108,20 +108,20 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 3
|
||||
TabOrder = 4
|
||||
Width = 169
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 210
|
||||
Top = 111
|
||||
Left = 306
|
||||
Top = 138
|
||||
Width = 132
|
||||
Height = 23
|
||||
Caption = 'Ver las formas de pago...'
|
||||
TabOrder = 4
|
||||
TabOrder = 5
|
||||
OnClick = bFormasPagoClick
|
||||
end
|
||||
object eReferenciaProveedor: TcxDBTextEdit
|
||||
Left = 136
|
||||
Left = 124
|
||||
Top = 57
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA_PROVEEDOR'
|
||||
@ -140,11 +140,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
TabOrder = 1
|
||||
Width = 316
|
||||
end
|
||||
inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
|
||||
Left = 370
|
||||
Top = 30
|
||||
Width = 340
|
||||
Height = 202
|
||||
inline frViewTienda1: TfrViewTienda
|
||||
Left = 22
|
||||
Top = 191
|
||||
Width = 320
|
||||
Height = 36
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
@ -153,12 +153,67 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 6
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 370
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 340
|
||||
ExplicitLeft = 22
|
||||
ExplicitTop = 191
|
||||
ExplicitWidth = 320
|
||||
ExplicitHeight = 36
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 340
|
||||
ExplicitWidth = 340
|
||||
Width = 320
|
||||
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
|
||||
ExplicitWidth = 562
|
||||
Width = 562
|
||||
@ -168,46 +223,24 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
Width = 562
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
ExplicitWidth = 241
|
||||
Width = 241
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
ExplicitWidth = 289
|
||||
Width = 289
|
||||
ExplicitWidth = 327
|
||||
Width = 327
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 248
|
||||
ExplicitLeft = 248
|
||||
Left = 218
|
||||
ExplicitLeft = 218
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 132
|
||||
ExplicitLeft = 132
|
||||
Left = 102
|
||||
ExplicitLeft = 102
|
||||
end
|
||||
end
|
||||
end
|
||||
inline frViewTienda1: TfrViewTienda
|
||||
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
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -216,6 +249,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group7: TdxLayoutGroup
|
||||
AutoAligns = [aaHorizontal]
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
@ -236,7 +270,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item6: TdxLayoutItem
|
||||
Caption = 'Referencia proveedor:'
|
||||
Caption = 'Factura proveedor:'
|
||||
Control = eReferenciaProveedor
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
@ -245,6 +279,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
Control = edtFecha
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item8: TdxLayoutItem
|
||||
Caption = 'Fecha vencimiento:'
|
||||
Control = edtFechaVencimiento
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -279,8 +318,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
AlignVert = avClient
|
||||
Caption = 'Datos del proveedor'
|
||||
object dxLayoutControl1Item3: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
Control = frViewProveedorFactura
|
||||
Control = frViewProveedorFactura1
|
||||
ControlOptions.AutoColor = True
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
@ -322,4 +360,13 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
Left = 64
|
||||
Top = 24
|
||||
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
|
||||
|
||||
@ -10,7 +10,8 @@ uses
|
||||
cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxSpinEdit, StdCtrls, Mask,
|
||||
DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
|
||||
cxDBLookupComboBox, uFormasPagoController, uViewDatosYSeleccionProveedor,
|
||||
uDAInterfaces, uBizFormasPago, uViewTienda, uFacturasProveedorController;
|
||||
uDAInterfaces, uBizFormasPago, uViewTienda, uFacturasProveedorController,
|
||||
ActnList, uViewProveedorFactura;
|
||||
|
||||
type
|
||||
IViewFacturaProveedor = interface(IViewBase)
|
||||
@ -48,17 +49,23 @@ type
|
||||
dxLayoutControl1Group6: TdxLayoutGroup;
|
||||
dxLayoutControl1Item6: TdxLayoutItem;
|
||||
eReferenciaProveedor: TcxDBTextEdit;
|
||||
dxLayoutControl1Item3: TdxLayoutItem;
|
||||
frViewProveedorFactura: TfrViewDatosYSeleccionProveedor;
|
||||
dxLayoutControl1Group4: TdxLayoutGroup;
|
||||
dxLayoutControl1Item7: TdxLayoutItem;
|
||||
frViewTienda1: TfrViewTienda;
|
||||
dxLayoutControl1Group7: TdxLayoutGroup;
|
||||
dxLayoutControl1Item8: TdxLayoutItem;
|
||||
edtFechaVencimiento: TcxDBDateEdit;
|
||||
ActionList1: TActionList;
|
||||
actElegirDireccion: TAction;
|
||||
dxLayoutControl1Item3: TdxLayoutItem;
|
||||
frViewProveedorFactura1: TfrViewProveedorFactura;
|
||||
procedure bFormasPagoClick(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure frViewProveedorFacturaButton1Click(Sender: TObject);
|
||||
procedure frViewProveedorFacturaButton2Click(Sender: TObject);
|
||||
procedure actElegirDireccionExecute(Sender: TObject);
|
||||
procedure actElegirDireccionUpdate(Sender: TObject);
|
||||
protected
|
||||
FFactura : IBizFacturaProveedor;
|
||||
FFormasPago : IBizFormaPago;
|
||||
@ -78,12 +85,46 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
uDataModuleContactos, schFacturasProveedorClient_Intf;
|
||||
uDataModuleContactos, schFacturasProveedorClient_Intf, uBizDireccionesContacto,
|
||||
uProveedoresController;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ 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);
|
||||
begin
|
||||
inherited;
|
||||
@ -96,7 +137,7 @@ begin
|
||||
inherited;
|
||||
FFormasPago := Nil;
|
||||
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;
|
||||
|
||||
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
|
||||
Exit;
|
||||
end;
|
||||
frViewProveedorFactura.actAnadirContacto.Execute;
|
||||
frViewProveedorFactura1.actAnadirContacto.Execute;
|
||||
end;
|
||||
|
||||
function TfrViewFacturaProveedor.GetController: IFacturasProveedorController;
|
||||
@ -144,7 +185,7 @@ begin
|
||||
FController := Value;
|
||||
|
||||
if Assigned(FController) then
|
||||
frViewProveedorFactura.Controller := Controller.ProveedorController;
|
||||
frViewProveedorFactura1.Controller := Controller.ProveedorController;
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturaProveedor.SetFactura(const Value: IBizFacturaProveedor);
|
||||
@ -171,7 +212,7 @@ begin
|
||||
else begin
|
||||
DADataSource.DataTable := NIL;
|
||||
dsFormaPago.DataTable := NIL;
|
||||
frViewProveedorFactura.Proveedor := NIL
|
||||
frViewProveedorFactura1.Proveedor := NIL
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -75,12 +75,16 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Width = 27
|
||||
end
|
||||
object cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn
|
||||
Caption = 'Proveedor'
|
||||
DataBinding.FieldName = 'NOMBRE_PROVEEDOR'
|
||||
end
|
||||
object cxGridViewNIF_CIF: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'NIF_CIF'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewNOMBRE: TcxGridDBColumn
|
||||
Caption = 'Proveedor'
|
||||
Caption = 'Raz'#243'n social'
|
||||
DataBinding.FieldName = 'NOMBRE'
|
||||
Width = 212
|
||||
end
|
||||
@ -146,6 +150,9 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
|
||||
DataBinding.FieldName = 'REFERENCIA_COMISION'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'NOMBRE_COMERCIAL'
|
||||
end
|
||||
end
|
||||
inherited cxGridLevel: TcxGridLevel
|
||||
Caption = 'Todas'
|
||||
|
||||
Binary file not shown.
@ -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
|
||||
@ -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.
|
||||
Binary file not shown.
@ -106,12 +106,8 @@ uses
|
||||
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
|
||||
schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_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',
|
||||
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',
|
||||
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.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',
|
||||
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_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 ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -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">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
|
||||
<Form>srvEjercicios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
|
||||
<DCCReference Include="..\Base\schBase_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\uBizAlbaranClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizAlbaranProveedorServer.PAS" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
|
||||
<Form>srvContabilidad</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||
<Form>RptFichasEmpleado</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizFacturasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizFacturasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.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\schFormasPagoServer_Intf.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\schHistoricoMovimientosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizPedidosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizPresupuestosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizPagosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizPagosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizRemesasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizRemesasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\Servidor\srvTiposIVA_Impl.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\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\RegExpr.pas" />
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas" />
|
||||
</ItemGroup>
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
|
||||
<Form>srvEjercicios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
|
||||
<DCCReference Include="..\Base\schBase_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\uBizAlbaranClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizAlbaranProveedorServer.PAS"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
|
||||
<Form>srvContabilidad</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||
<Form>RptFichasEmpleado</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizFacturasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizFacturasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.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\schFormasPagoServer_Intf.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\schHistoricoMovimientosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizPedidosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizPresupuestosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizPagosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizPagosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizRemesasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizRemesasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\Servidor\srvTiposIVA_Impl.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\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\RegExpr.pas"/>
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
|
||||
@ -14,7 +14,7 @@ BEGIN
|
||||
BEGIN
|
||||
VALUE "FileVersion", "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
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user