Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se separan contratos de cliente entre empresas, y se añade REFERENCIA_CLIENTE para presupuestos, contratos, albaranes

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@60 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2013-05-17 12:34:32 +00:00
parent 47046d5eed
commit 3924759cd9
48 changed files with 1697 additions and 866 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

20
Database/scripts/factuges.sql
View File

@ -1268,7 +1268,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
IMPORTE_RE TIPO_IMPORTE,
ID_CONTRATO TIPO_ID,
NO_VALORADO TIPO_BOOLEANO,
TIPO_PRESUPUESTO VARCHAR(255)
TIPO_PRESUPUESTO VARCHAR(255),
REFERENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES
);
CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
@ -1330,7 +1331,8 @@ CREATE TABLE CONTRATOS_CLIENTE (
RECARGO_EQUIVALENCIA TIPO_BOOLEANO,
RE TIPO_PORCENTAJE,
IMPORTE_RE TIPO_IMPORTE,
TIPO_CONTRATO VARCHAR(255)
TIPO_CONTRATO VARCHAR(255),
REFERENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES
);
CREATE TABLE CONTRATOS_CLIENTE_DETALLES (
@ -3659,6 +3661,7 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
FECHA_VIGENCIA,
FECHA_DECISION,
REFERENCIA,
REFERENCIA_CLIENTE,
SITUACION,
ID_CLIENTE,
ID_DIRECCION,
@ -3702,6 +3705,7 @@ SELECT
PRESUPUESTOS_CLIENTE.FECHA_VIGENCIA,
PRESUPUESTOS_CLIENTE.FECHA_DECISION,
PRESUPUESTOS_CLIENTE.REFERENCIA,
PRESUPUESTOS_CLIENTE.REFERENCIA_CLIENTE,
PRESUPUESTOS_CLIENTE.SITUACION,
PRESUPUESTOS_CLIENTE.ID_CLIENTE,
PRESUPUESTOS_CLIENTE.ID_DIRECCION,
@ -3756,7 +3760,7 @@ CREATE VIEW V_CONTRATOS_CLIENTE(
NOMBRE_COMERCIAL_CLIENTE,
NIF_CIF,
NOMBRE,
ID_DIRECCION,
ID_DIRECCION,
CALLE,
POBLACION,
PROVINCIA,
@ -3792,11 +3796,11 @@ CREATE VIEW V_CONTRATOS_CLIENTE(
ID_VENDEDOR,
VENDEDOR,
PERSONA_CONTACTO,
TIPO_CONTRATO)
TIPO_CONTRATO,
REFERENCIA_CLIENTE)
AS
SELECT CONTRATOS_CLIENTE.ID,
/* CONTRATOS_CLIENTE.ID_EMPRESA,*/
EMPRESAS_CONTACTOS.ID_EMPRESA,
CONTRATOS_CLIENTE.ID_EMPRESA,
CONTRATOS_CLIENTE.ID_CLIENTE,
CONTACTOS.NOMBRE,
CONTACTOS.REFERENCIA,
@ -3839,10 +3843,10 @@ SELECT CONTRATOS_CLIENTE.ID,
CONTRATOS_CLIENTE.ID_VENDEDOR,
CONTACTOS2.NOMBRE AS VENDEDOR,
CONTRATOS_CLIENTE.PERSONA_CONTACTO,
CONTRATOS_CLIENTE.TIPO_CONTRATO
CONTRATOS_CLIENTE.TIPO_CONTRATO,
CONTRATOS_CLIENTE.REFERENCIA_CLIENTE
FROM CONTRATOS_CLIENTE
LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = CONTRATOS_CLIENTE.ID_CLIENTE)
LEFT JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO = CONTACTOS.ID)
LEFT OUTER JOIN CONTACTOS CONTACTOS2 ON (CONTRATOS_CLIENTE.ID_VENDEDOR = CONTACTOS2.ID)
INNER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = CONTRATOS_CLIENTE.ID_CLIENTE)
LEFT JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = CONTRATOS_CLIENTE.ID_TIENDA)

24
Source/ApplicationBase/Empresas/Model/uBizEmpresas.pas
View File

@ -8,6 +8,10 @@ uses
const
BIZ_CLIENT_EMPRESA = 'Client.Empresa';
CTE_EMPRESAS_CONTACTOS_COMUNES = 'EMPRESAS_CONTACTOS_COMUNES';
CTE_EMPRESAS_PRESUPUESTOS_COMUNES = 'EMPRESAS_PRESUPUESTOS_COMUNES';
CTE_EMPRESAS_CONTRATOS_COMUNES = 'EMPRESAS_CONTRATOS_COMUNES';
type
IBizEmpresa = interface (IEmpresas)
@ -23,6 +27,9 @@ type
function GetEmpresasPresupuestosComunes : TStringList;
property EmpresasPresupuestosComunes: TStringList read GetEmpresasPresupuestosComunes;
function GetEmpresasContratosComunes : TStringList;
property EmpresasContratosComunes: TStringList read GetEmpresasContratosComunes;
function EsNuevo : Boolean;
end;
@ -32,7 +39,8 @@ type
FDatosBancariosLink : TDADataSource;
FTiendas : IBizEmpresaTienda;
FTiendasLink : TDADataSource;
FEmpresasPresupuestosComunes : TStringList;
FEmpresasPresupuestosComunes : TStringList;
FEmpresasContratosComunes : TStringList;
procedure OnNewRecord(Sender: TDADataTable); override;
@ -41,6 +49,7 @@ type
procedure SetTiendas(AValue : IBizEmpresaTienda);
function GetTiendas : IBizEmpresaTienda;
function GetEmpresasPresupuestosComunes : TStringList;
function GetEmpresasContratosComunes : TStringList;
public
function EsNuevo : Boolean;
@ -52,6 +61,7 @@ type
property DatosBancarios : IBizEmpresasDatosBancarios read GetDatosBancarios write SetDatosBancarios;
property Tiendas : IBizEmpresaTienda read GetTiendas write SetTiendas;
property EmpresasPresupuestosComunes: TStringList read GetEmpresasPresupuestosComunes;
property EmpresasContratosComunes: TStringList read GetEmpresasContratosComunes;
end;
@ -74,6 +84,7 @@ begin
FTiendasLink.DataTable := aDataTable;
FEmpresasPresupuestosComunes := TStringList.Create;
FEmpresasContratosComunes := TStringList.Create;
end;
destructor TBizEmpresa.Destroy;
@ -83,6 +94,7 @@ begin
FTiendas := NIL;
FTiendasLink.Free;
FreeANDNIL(FEmpresasPresupuestosComunes);
FreeANDNIL(FEmpresasContratosComunes);
inherited;
end;
@ -96,10 +108,18 @@ begin
Result := FDatosBancarios;
end;
function TBizEmpresa.GetEmpresasContratosComunes: TStringList;
begin
if (FEmpresasContratosComunes.Count = 0) then
FEmpresasContratosComunes.CommaText := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_EMPRESAS_CONTRATOS_COMUNES, AppFactuGES.EmpresaActiva.ID);
Result := FEmpresasContratosComunes;
end;
function TBizEmpresa.GetEmpresasPresupuestosComunes: TStringList;
begin
if (FEmpresasPresupuestosComunes.Count = 0) then
FEmpresasPresupuestosComunes.CommaText := AppFactuGES.Configuracion.GetSettingAsString(teBD,'EMPRESAS_PRESUPUESTOS_COMUNES', AppFactuGES.EmpresaActiva.ID);
FEmpresasPresupuestosComunes.CommaText := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_EMPRESAS_PRESUPUESTOS_COMUNES, AppFactuGES.EmpresaActiva.ID);
Result := FEmpresasPresupuestosComunes;
end;

96
Source/Base/Base.dproj
View File

@ -58,55 +58,55 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxPageControlD11.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\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11R.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_D11R.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="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

BIN
Source/Base/Base.res
View File

Binary file not shown.

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Articulos\Base.dcp" />
<DCCReference Include="..\Modulos\Articulos\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\frx11.dcp" />
<DCCReference Include="..\Modulos\Articulos\frxe11.dcp" />
<DCCReference Include="..\Modulos\Articulos\fs11.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Articulos\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Articulos\rtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Articulos\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcldb.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Articulos\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Base.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\frx11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\frxe11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\fs11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

10
Source/Informes/1/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

73
Source/Informes/1/InfContratoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

73
Source/Informes/1/InfPresupuestoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

10
Source/Informes/2/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/InfContratoCliente.fr3 → Source/Informes/2/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/InfPresupuestoCliente.fr3 → Source/Informes/2/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

20
Source/Informes/3/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

75
Source/Informes/3/InfContratoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

75
Source/Informes/3/InfPresupuestoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

26
Source/Informes/4/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

73
Source/Informes/4/InfContratoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

73
Source/Informes/4/InfPresupuestoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

65
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
View File

@ -39,6 +39,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DataType = datString
Size = 255
end
item
Name = 'REF_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
@ -300,31 +305,31 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
SQL =
'SELECT'#10' ALBARANES_CLIENTE.ID,'#10' ALBARANES_CLIENTE.ID_EMPRESA,'#10' ' +
' ALBARANES_CLIENTE.ID_TIENDA,'#10' ALBARANES_CLIENTE.ID_CLIENTE,'#10' ' +
'CONTACTOS.NOMBRE,'#10' CONTACTOS.REFERENCIA as REFERENCIA_CLIENTE,'#10 +
' CONTACTOS.NIF_CIF,'#10' ALBARANES_CLIENTE.FECHA_ALBARAN,'#10' ALBARA' +
'NES_CLIENTE.REFERENCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CALLE, ' +
'CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIONES.POBL' +
'ACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTACTOS_D' +
'IRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' COALE' +
'SCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL' +
') AS CODIGO_POSTAL,'#10' COALESCE(CONTACTOS_DIRECCIONES.TELEFONO, C' +
'ONTACTOS.TELEFONO_1) AS TELEFONO,'#10' COALESCE(CONTACTOS_DIRECCION' +
'ES.MOVIL, CONTACTOS.MOVIL_1) AS MOVIL,'#10' ALBARANES_CLIENTE.PERSO' +
'NA_CONTACTO,'#10' ALBARANES_CLIENTE.OBSERVACIONES,'#10' ALBARANES_CLIE' +
'NTE.IMPORTE_TOTAL,'#10' ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' E' +
'MPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_' +
'EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPR' +
'ESAS.CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS CODIGO_' +
'POSTAL_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMPRESA,'#10' EMP' +
'RESAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS T' +
'ELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOV' +
'IL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10 +
' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CLI' +
'ENTE'#10' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANES_CLIENTE.I' +
'D_EMPRESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_C' +
'LIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (C' +
'ONTACTOS_DIRECCIONES.ID = ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE ' +
'ALBARANES_CLIENTE.ID = :ID'#10
'CONTACTOS.NOMBRE,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE,'#10' ALBAR' +
'ANES_CLIENTE.REFERENCIA_CLIENTE,'#10' CONTACTOS.NIF_CIF,'#10' ALBARANE' +
'S_CLIENTE.FECHA_ALBARAN,'#10' ALBARANES_CLIENTE.REFERENCIA,'#10' COALE' +
'SCE(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' CO' +
'ALESCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS ' +
'POBLACION,'#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS' +
'.PROVINCIA) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIG' +
'O_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' COALESCE(' +
'CONTACTOS_DIRECCIONES.TELEFONO, CONTACTOS.TELEFONO_1) AS TELEFON' +
'O,'#10' COALESCE(CONTACTOS_DIRECCIONES.MOVIL, CONTACTOS.MOVIL_1) AS' +
' MOVIL,'#10' ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' ALBARANES_CLIENT' +
'E.OBSERVACIONES,'#10' ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' ALBARANES_' +
'CLIENTE.FECHA_PREVISTA_ENVIO,'#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPR' +
'ESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIA' +
'L AS RAZON_SOCIAL_EMPRESA,'#10' EMPRESAS.CALLE AS CALLE_EMPRESA,'#10' ' +
'EMPRESAS.CODIGO_POSTAL AS CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.POBL' +
'ACION AS POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA AS PROVINCIA_EM' +
'PRESA,'#10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.F' +
'AX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPR' +
'ESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA' +
'_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CLIENTE'#10' INNER JOIN EMPRESAS ON (' +
'EMPRESAS.ID = ALBARANES_CLIENTE.ID_EMPRESA)'#10' INNER JOIN CONTACT' +
'OS ON (CONTACTOS.ID = ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER' +
' JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = ALBAR' +
'ANES_CLIENTE.ID_DIRECCION)'#10'WHERE ALBARANES_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@ -452,6 +457,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DatasetField = 'MOVIL'
TableField = '<unknown>'
SQLOrigin = 'MOVIL'
end
item
DatasetField = 'REF_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'REF_CLIENTE'
end>
end>
Name = 'Informe_Cabecera'
@ -477,6 +487,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DataType = datString
Size = 255
end
item
Name = 'REF_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString

106
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -6,12 +6,13 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ClientWidth = 787
OnClose = CustomEditorClose
ExplicitWidth = 795
ExplicitHeight = 662
ExplicitHeight = 666
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 787
Caption = 'Nuevo albar'#225'n de cliente'
ExplicitTop = 52
ExplicitWidth = 787
inherited Image1: TImage
Left = 760
@ -129,7 +130,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 787
ExplicitWidth = 787
inherited tbxMain: TTBXToolbar
ExplicitWidth = 488
ExplicitWidth = 551
inherited TBXItem2: TTBXItem
Visible = False
end
@ -156,16 +157,17 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end
inherited pgPaginas: TPageControl
Width = 781
Height = 424
Height = 333
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitTop = 112
ExplicitWidth = 781
ExplicitHeight = 424
ExplicitHeight = 333
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 773
ExplicitHeight = 396
ExplicitHeight = 305
end
object pagContenido: TTabSheet
Caption = 'Contenido'
@ -174,7 +176,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 0
Top = 0
Width = 773
Height = 396
Height = 305
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@ -187,22 +189,22 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 773
ExplicitHeight = 396
ExplicitHeight = 305
inherited ToolBar1: TToolBar
Width = 773
ExplicitWidth = 773
end
inherited cxGrid: TcxGrid
Width = 773
Height = 324
Height = 233
ExplicitWidth = 773
ExplicitHeight = 300
ExplicitHeight = 321
end
inherited TBXDock1: TTBXDock
Width = 773
ExplicitWidth = 773
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548
ExplicitWidth = 622
end
end
end
@ -214,7 +216,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 0
Top = 0
Width = 773
Height = 396
Height = 305
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -225,7 +227,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 773
ExplicitHeight = 396
ExplicitHeight = 305
inherited pnlSup: TPanel
Width = 773
ExplicitWidth = 773
@ -235,13 +237,13 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end
inherited GroupBox1: TGroupBox
Width = 773
Height = 368
Height = 277
ExplicitWidth = 773
ExplicitHeight = 368
ExplicitHeight = 277
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 769
ExplicitHeight = 351
Height = 351
ExplicitHeight = 260
Height = 260
Width = 769
end
end
@ -250,9 +252,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
Top = 536
Top = 448
Width = 787
Height = 73
Height = 161
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -262,31 +264,31 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ParentFont = False
TabOrder = 5
ReadOnly = False
ExplicitTop = 536
ExplicitTop = 448
ExplicitWidth = 787
ExplicitHeight = 73
ExplicitHeight = 161
inherited dxLayoutControl1: TdxLayoutControl
Width = 787
Height = 73
Height = 161
Align = alClient
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 787
ExplicitHeight = 73
ExplicitHeight = 161
inherited Bevel3: TBevel
Left = 378
Left = 377
Top = 11
Width = 7
Height = 54
ExplicitLeft = 378
ExplicitLeft = 377
ExplicitTop = 11
ExplicitWidth = 7
ExplicitHeight = 54
end
inherited Bevel4: TBevel
Left = 494
Left = 493
Top = 53
Width = 210
ExplicitLeft = 494
ExplicitLeft = 493
ExplicitTop = 53
ExplicitWidth = 210
end
@ -300,20 +302,20 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 188
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 565
Left = 564
Top = 88
DataBinding.DataField = ''
Style.IsFontAssigned = True
ExplicitLeft = 565
ExplicitLeft = 564
ExplicitTop = 88
ExplicitWidth = 182
Width = 182
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 495
Left = 494
Top = 169
Style.IsFontAssigned = True
ExplicitLeft = 495
ExplicitLeft = 494
ExplicitTop = 169
ExplicitWidth = 252
Width = 252
@ -326,52 +328,52 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitTop = 38
end
inherited edtIVA: TcxDBSpinEdit
Left = 494
Left = 493
Top = 88
DataBinding.DataField = ''
Style.IsFontAssigned = True
ExplicitLeft = 494
ExplicitLeft = 493
ExplicitTop = 88
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 494
Left = 493
Top = 11
Style.IsFontAssigned = True
ExplicitLeft = 494
ExplicitLeft = 493
ExplicitTop = 11
ExplicitWidth = 253
Width = 253
end
inherited edtRE: TcxDBSpinEdit
Left = 494
Left = 493
Top = 142
DataBinding.DataField = ''
Style.IsFontAssigned = True
ExplicitLeft = 494
ExplicitLeft = 493
ExplicitTop = 142
end
inherited edtIRPF: TcxDBSpinEdit
Left = 494
Left = 493
Top = 115
Style.IsFontAssigned = True
ExplicitLeft = 494
ExplicitLeft = 493
ExplicitTop = 115
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 565
Left = 564
Top = 142
DataBinding.DataField = ''
Style.IsFontAssigned = True
ExplicitLeft = 565
ExplicitLeft = 564
ExplicitTop = 142
ExplicitWidth = 182
Width = 182
end
inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 565
Left = 564
Top = 115
Style.IsFontAssigned = True
ExplicitLeft = 565
ExplicitLeft = 564
ExplicitTop = 115
ExplicitWidth = 56
Width = 56
@ -406,9 +408,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 121
end
inherited bTiposIVA: TButton
Left = 230
Left = 229
Top = 92
ExplicitLeft = 230
ExplicitLeft = 229
ExplicitTop = 92
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
@ -431,12 +433,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Visible = False
end
end
inherited dxLayoutControl1Group6: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Item16: TdxLayoutItem
Visible = False
end
end
inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup
@ -445,15 +441,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Visible = False
end
end
inherited dxLayoutControl1Group9: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Group8: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Item3: TdxLayoutItem
Visible = False
end
end
end
end
@ -462,6 +449,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end
inherited PnlComentario: TPanel [5]
Width = 787
ExplicitTop = 79
ExplicitWidth = 787
inherited lbComentario: TLabel
Width = 777

61
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
View File

@ -1,25 +1,26 @@
inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 825
Width = 851
Height = 512
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 825
ExplicitWidth = 851
ExplicitHeight = 512
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 825
Width = 851
Height = 512
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 825
DesignSize = (
825
851
512)
object Label1: TLabel
Left = 344
Left = 353
Top = 622
Width = 299
Height = 26
@ -81,7 +82,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
inline frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
Left = 344
Left = 353
Top = 28
Width = 442
Height = 221
@ -93,7 +94,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ParentFont = False
TabOrder = 10
ReadOnly = False
ExplicitLeft = 344
ExplicitLeft = 353
ExplicitTop = 28
ExplicitWidth = 442
ExplicitHeight = 221
@ -111,24 +112,24 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 103
end
inherited bVerFichaCliente: TBitBtn
Left = 240
ExplicitLeft = 240
Left = 255
ExplicitLeft = 255
end
inherited edtDireccion: TcxMemo
ExplicitWidth = 437
Width = 437
end
inherited bElegirDireccion: TButton
Left = 409
ExplicitLeft = 409
Left = 424
ExplicitLeft = 424
end
inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 193
Width = 193
end
inherited edtReferencia: TcxDBTextEdit
Left = 282
ExplicitLeft = 282
Left = 289
ExplicitLeft = 289
ExplicitWidth = 103
Width = 103
end
@ -141,7 +142,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
end
object eCalle: TcxDBTextEdit
Left = 438
Left = 447
Top = 396
DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource
@ -160,7 +161,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
object ePoblacion: TcxDBTextEdit
Left = 438
Left = 447
Top = 423
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource
@ -179,7 +180,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 61
end
object eCodigoPostal: TcxDBTextEdit
Left = 721
Left = 745
Top = 423
DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource
@ -198,7 +199,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 65
end
object eProvincia: TcxDBTextEdit
Left = 438
Left = 447
Top = 450
DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource
@ -217,7 +218,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 406
end
object ePersonaContacto: TcxDBTextEdit
Left = 438
Left = 447
Top = 477
DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = DADataSource
@ -237,7 +238,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
object eTlfTrabajo: TcxDBTextEdit
Left = 438
Left = 447
Top = 504
DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = DADataSource
@ -256,7 +257,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
object bElegirDireccion: TBitBtn
Left = 614
Left = 638
Top = 531
Width = 172
Height = 23
@ -265,7 +266,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 20
end
object Button1: TButton
Left = 182
Left = 191
Top = 138
Width = 132
Height = 23
@ -327,7 +328,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 146
end
object bFormasPago: TButton
Left = 182
Left = 191
Top = 109
Width = 132
Height = 23
@ -336,7 +337,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
OnClick = bFormasPagoClick
end
object eFechaRecepcion: TcxDBDateEdit
Left = 478
Left = 487
Top = 339
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION'
@ -361,7 +362,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 239
end
object cbConAlmacen: TCheckBox
Left = 354
Left = 363
Top = 590
Width = 179
Height = 21
@ -370,7 +371,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
OnClick = cbConAlmacenClick
end
object cbAlmacen: TcxDBLookupComboBox
Left = 539
Left = 548
Top = 590
DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = DADataSource
@ -426,7 +427,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
object eFechaPrevista: TcxDBDateEdit
Left = 478
Left = 487
Top = 285
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
@ -458,12 +459,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_CLIENTE'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.Color = clWindow
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
@ -479,7 +478,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
object eFechaEnvio: TcxDBDateEdit
Left = 478
Left = 487
Top = 312
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO'
@ -574,8 +573,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object dxLayoutControl1Item23: TdxLayoutItem
Caption = 'Ref. cliente:'
Enabled = False
Visible = False
Control = eRefCliente
ControlOptions.ShowBorder = False
end

4
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -71,6 +71,10 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
BestFitMaxWidth = 45
Width = 57
end
object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
Caption = 'Ref. Cliente'
DataBinding.FieldName = 'REFERENCIA_CLIENTE'
end
object cxGridViewSITUACION: TcxGridDBColumn
DataBinding.FieldName = 'SITUACION'
BestFitMaxWidth = 45

1
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
View File

@ -59,6 +59,7 @@ type
cxGridViewFECHA_PREVISTA_ENVIO: TcxGridDBColumn;
cxStyleRETRASADOS: TcxStyle;
cxGridViewTIENDA: TcxGridDBColumn;
cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;

12
Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
View File

@ -874,17 +874,25 @@ end;
procedure TContratosClienteController.FiltrarEmpresa(AContrato: IBizContratoCliente);
var
Condicion: TDAWhereExpression;
i: Integer;
Condicion, Condicion2: TDAWhereExpression;
begin
if AContrato.DataTable.Active then
AContrato.DataTable.Active := False;
// Filtrar los contratos actuales por empresa
// Filtrar los presupuestos actuales por empresa
with AContrato.DataTable.DynamicWhere do
begin
// (ID_EMPRESA >= ID)
Condicion := NewBinaryExpression(NewField('', fld_ContratosClienteID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
for i:= 0 to AppFactuGES.EmpresaActiva.EmpresasContratosComunes.Count - 1 do
begin
// (ID_EMPRESA >= ID)
Condicion2 := NewBinaryExpression(NewField('', fld_ContratosClienteID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.EmpresasContratosComunes.Strings[i], datString), dboEqual);
Condicion := NewBinaryExpression(Condicion, Condicion2, dboOR);
end;
if IsEmpty then
Expression := Condicion
else

5
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
View File

@ -320,6 +320,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Size = 255
DisplayLabel = 'Tipo'
DictionaryEntry = 'ContratosCliente_TIPO_CONTRATO'
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

79
Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
View File

@ -3,19 +3,19 @@ unit schContratosClienteClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{1DBD72A0-582B-4F32-8455-A45B6191054E}';
RID_Propiedades = '{8AAD78E4-F1A6-4878-B140-73DDC81C2BE0}';
RID_ListaAnosContratos = '{FB083C00-73FE-4B12-A941-B572555FF37E}';
RID_ContratosClienteBeneficios = '{E24213CE-E549-4596-96B0-7E30EA157262}';
RID_ContratosCliente = '{ECF02D70-7B0A-412D-93F8-E3E58A79B5D3}';
RID_TiposCapitulos = '{71A4C5A8-136B-419C-8766-73E324C003E6}';
RID_ContratosCliente_Detalles = '{60F97EEA-78E8-47C1-BB87-6962689FBE44}';
RID_Valores = '{48C5F21C-CB4D-4CFF-8F94-A1689B8A6F6A}';
RID_Propiedades = '{785C1D59-7EA3-4BFD-8C1F-301A25C59E51}';
RID_ListaAnosContratos = '{DD97448A-A305-401E-B6E0-856207BC471F}';
RID_ContratosClienteBeneficios = '{670B05E3-9404-46E0-AB6C-9DE0712013DD}';
RID_ContratosCliente = '{84D4574F-587F-4D70-A242-18B327F199D8}';
RID_TiposCapitulos = '{09B06749-719A-4B58-96B5-0B0AB2848D61}';
RID_ContratosCliente_Detalles = '{8CDC36E9-9F1D-4CA1-8414-19CAB69BE649}';
{ Data table names }
nme_Valores = 'Valores';
@ -130,6 +130,7 @@ const
fld_ContratosClienteVENDEDOR = 'VENDEDOR';
fld_ContratosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
fld_ContratosClienteTIPO_CONTRATO = 'TIPO_CONTRATO';
fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
{ ContratosCliente field indexes }
idx_ContratosClienteID = 0;
@ -177,6 +178,7 @@ const
idx_ContratosClienteVENDEDOR = 42;
idx_ContratosClientePERSONA_CONTACTO = 43;
idx_ContratosClienteTIPO_CONTRATO = 44;
idx_ContratosClienteREFERENCIA_CLIENTE = 45;
{ TiposCapitulos fields }
fld_TiposCapitulosID = 'ID';
@ -233,7 +235,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{D86FAABE-B20B-48BE-B160-8767CEA84C3C}']
['{01FF5BDE-97A6-44F3-8450-05A5C0C110FA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -259,7 +261,7 @@ type
end;
{ TValoresDataTableRules }
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@ -292,7 +294,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{5AAF3E21-FEBD-4211-AD79-08B1438EF95D}']
['{3523B802-0EB2-46D4-A045-082CE868881C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -318,7 +320,7 @@ type
end;
{ TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@ -351,7 +353,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{397A8CFD-9592-49B7-997B-A206E9159B76}']
['{65EAAFC7-0128-4505-A7E6-2479CB33B7B4}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -365,7 +367,7 @@ type
end;
{ TListaAnosContratosDataTableRules }
TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
private
protected
{ Property getters and setters }
@ -386,7 +388,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{B7C19066-8DBC-473F-A005-CA6CECB8244A}']
['{43C1EDD7-AAC2-4DA4-9AF4-E8CCCADD7F1D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -478,7 +480,7 @@ type
end;
{ TContratosClienteBeneficiosDataTableRules }
TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios)
TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
private
protected
{ Property getters and setters }
@ -577,7 +579,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
['{F9EC2443-6943-4368-85E3-CA5C57103A1A}']
['{F2CA3305-5D91-4993-B9C0-294615C6EBF0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -755,6 +757,10 @@ type
procedure SetTIPO_CONTRATOValue(const aValue: String);
function GetTIPO_CONTRATOIsNull: Boolean;
procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean);
function GetREFERENCIA_CLIENTEValue: String;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
function GetREFERENCIA_CLIENTEIsNull: Boolean;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
{ Properties }
@ -848,10 +854,12 @@ type
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property TIPO_CONTRATO: String read GetTIPO_CONTRATOValue write SetTIPO_CONTRATOValue;
property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
end;
{ TContratosClienteDataTableRules }
TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@ -1039,6 +1047,10 @@ type
procedure SetTIPO_CONTRATOValue(const aValue: String); virtual;
function GetTIPO_CONTRATOIsNull: Boolean; virtual;
procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -1131,6 +1143,8 @@ type
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property TIPO_CONTRATO: String read GetTIPO_CONTRATOValue write SetTIPO_CONTRATOValue;
property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1143,7 +1157,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{81A688E8-AA17-41EE-A1D6-81479918BBF1}']
['{DFC9723A-23C2-4736-A3FE-E2F8F2CF1E92}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1187,7 +1201,7 @@ type
end;
{ TTiposCapitulosDataTableRules }
TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
private
protected
{ Property getters and setters }
@ -1238,7 +1252,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{898E740D-B47B-4359-A144-870FF2217808}']
['{0764F573-7ABD-416B-BD7F-1DF9BA0059AE}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1342,7 +1356,7 @@ type
end;
{ TContratosCliente_DetallesDataTableRules }
TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
private
protected
{ Property getters and setters }
@ -2922,6 +2936,27 @@ begin
DataTable.Fields[idx_ContratosClienteTIPO_CONTRATO].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].AsString;
end;
procedure TContratosClienteDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetREFERENCIA_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].IsNull;
end;
procedure TContratosClienteDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].AsVariant := Null;
end;
{ TTiposCapitulosDataTableRules }
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);

71
Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
View File

@ -9,18 +9,18 @@ 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_ValoresDelta = '{9CE22F1E-3F2B-4AD5-843D-F5128DD7C5F1}';
RID_PropiedadesDelta = '{0F51AF81-3A0A-4867-8ABB-D63B99BBF522}';
RID_ListaAnosContratosDelta = '{F03E531D-9A34-49BC-910B-EBFA48C93D8B}';
RID_ContratosClienteBeneficiosDelta = '{2926FE0C-6BF7-4326-87A6-70303D69EB58}';
RID_ContratosClienteDelta = '{1C1605F5-61F9-41A2-BDB3-B29C6B035DB0}';
RID_TiposCapitulosDelta = '{97A487E0-3FD8-4B85-818B-55EA15B54CA3}';
RID_ContratosCliente_DetallesDelta = '{8C9149BF-C3E8-47F8-A26F-A45942CA736B}';
RID_ValoresDelta = '{D7B7A752-F645-440A-89BD-638862C7819A}';
RID_PropiedadesDelta = '{CF729826-631C-4E85-9467-924596E8706B}';
RID_ListaAnosContratosDelta = '{8DBE8D17-4504-4F6A-81CC-3A9BBB221DBA}';
RID_ContratosClienteBeneficiosDelta = '{00DC7FCA-CE1A-41C2-ACB2-DA5ED5EBFA14}';
RID_ContratosClienteDelta = '{28AAF6A0-991C-4D31-950A-9BD8168FB4C5}';
RID_TiposCapitulosDelta = '{5000E4FA-010F-4828-A493-3E642B69A10A}';
RID_ContratosCliente_DetallesDelta = '{318EAB4A-8BBB-4BCF-92FD-8CB1B40E1956}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{9CE22F1E-3F2B-4AD5-843D-F5128DD7C5F1}']
['{D7B7A752-F645-440A-89BD-638862C7819A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{0F51AF81-3A0A-4867-8ABB-D63B99BBF522}']
['{CF729826-631C-4E85-9467-924596E8706B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
['{F03E531D-9A34-49BC-910B-EBFA48C93D8B}']
['{8DBE8D17-4504-4F6A-81CC-3A9BBB221DBA}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{2926FE0C-6BF7-4326-87A6-70303D69EB58}']
['{00DC7FCA-CE1A-41C2-ACB2-DA5ED5EBFA14}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@ -360,7 +360,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
['{1C1605F5-61F9-41A2-BDB3-B29C6B035DB0}']
['{28AAF6A0-991C-4D31-950A-9BD8168FB4C5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -407,6 +407,7 @@ type
function GetOldVENDEDORValue : String;
function GetOldPERSONA_CONTACTOValue : String;
function GetOldTIPO_CONTRATOValue : String;
function GetOldREFERENCIA_CLIENTEValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -454,6 +455,7 @@ type
property OldVENDEDOR : String read GetOldVENDEDORValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
end;
{ TContratosClienteBusinessProcessorRules }
@ -735,6 +737,12 @@ type
function GetOldTIPO_CONTRATOIsNull: Boolean; virtual;
procedure SetTIPO_CONTRATOValue(const aValue: String); virtual;
procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
function GetOldREFERENCIA_CLIENTEValue: String; virtual;
function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -917,6 +925,10 @@ type
property TIPO_CONTRATOIsNull : Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue;
property OldTIPO_CONTRATOIsNull : Boolean read GetOldTIPO_CONTRATOIsNull;
property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -926,7 +938,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
['{97A487E0-3FD8-4B85-818B-55EA15B54CA3}']
['{5000E4FA-010F-4828-A493-3E642B69A10A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -1020,7 +1032,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{8C9149BF-C3E8-47F8-A26F-A45942CA736B}']
['{318EAB4A-8BBB-4BCF-92FD-8CB1B40E1956}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
@ -3368,6 +3380,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTIPO_CONTRATO] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE];
end;
function TContratosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE]);
end;
function TContratosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteREFERENCIA_CLIENTE];
end;
function TContratosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteREFERENCIA_CLIENTE]);
end;
procedure TContratosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE] := Null;
end;
{ TTiposCapitulosBusinessProcessorRules }
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

48
Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
View File

@ -214,22 +214,22 @@ object RptContratosCliente: TRptContratosCliente
SQL =
'SELECT'#10' V_CONTRATOS_CLIENTE.ID, V_CONTRATOS_CLIENTE.ID_EMPRES' +
'A,'#10' V_CONTRATOS_CLIENTE.FECHA_CONTRATO,'#10' V_CONTRATOS_CLIEN' +
'TE.REFERENCIA,'#10#10' V_CONTRATOS_CLIENTE.FORMA_PAGO,'#10' V_CONTRA' +
'TOS_CLIENTE.PLAZO_ENTREGA,'#10' V_CONTRATOS_CLIENTE.OBSERVACIONES' +
','#10#10' V_CONTRATOS_CLIENTE.IMPORTE_NETO, V_CONTRATOS_CLIENTE.IMP' +
'ORTE_PORTE,'#10' V_CONTRATOS_CLIENTE.DESCUENTO, V_CONTRATOS_CLIEN' +
'TE.IMPORTE_DESCUENTO,'#10' V_CONTRATOS_CLIENTE.BASE_IMPONIBLE, V_' +
'CONTRATOS_CLIENTE.IVA,'#10' V_CONTRATOS_CLIENTE.RE, V_CONTRATOS_C' +
'LIENTE.IMPORTE_RE,'#10' V_CONTRATOS_CLIENTE.ID_CLIENTE,'#10' V_CON' +
'TRATOS_CLIENTE.REF_CLIENTE,'#10' V_CONTRATOS_CLIENTE.NIF_CIF,'#10' ' +
' V_CONTRATOS_CLIENTE.NOMBRE,'#10' V_CONTRATOS_CLIENTE.CALLE,'#10' ' +
'V_CONTRATOS_CLIENTE.POBLACION,'#10' V_CONTRATOS_CLIENTE.PROVINCIA' +
','#10' V_CONTRATOS_CLIENTE.CODIGO_POSTAL,'#10' V_CONTRATOS_CLIENTE' +
'.TELEFONO,'#10' V_CONTRATOS_CLIENTE.MOVIL,'#10' V_CONTRATOS_CLIENT' +
'E.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CONTRATO' +
'S_CLIENTE.PERSONA_CONTACTO,'#10' V_CONTRATOS_CLIENTE.VENDEDOR'#10'FRO' +
'M'#10' V_CONTRATOS_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIENTE.ID = :ID' +
#10
'TE.REFERENCIA,'#10' V_CONTRATOS_CLIENTE.REFERENCIA_CLIENTE,'#10' '#10 +
' V_CONTRATOS_CLIENTE.FORMA_PAGO,'#10' V_CONTRATOS_CLIENTE.PLAZ' +
'O_ENTREGA,'#10' V_CONTRATOS_CLIENTE.OBSERVACIONES,'#10#10' V_CONTRAT' +
'OS_CLIENTE.IMPORTE_NETO, V_CONTRATOS_CLIENTE.IMPORTE_PORTE,'#10' ' +
'V_CONTRATOS_CLIENTE.DESCUENTO, V_CONTRATOS_CLIENTE.IMPORTE_DESCU' +
'ENTO,'#10' V_CONTRATOS_CLIENTE.BASE_IMPONIBLE, V_CONTRATOS_CLIENT' +
'E.IVA,'#10' V_CONTRATOS_CLIENTE.RE, V_CONTRATOS_CLIENTE.IMPORTE_R' +
'E,'#10' V_CONTRATOS_CLIENTE.ID_CLIENTE,'#10' V_CONTRATOS_CLIENTE.R' +
'EF_CLIENTE,'#10' V_CONTRATOS_CLIENTE.NIF_CIF,'#10' V_CONTRATOS_CLI' +
'ENTE.NOMBRE,'#10' V_CONTRATOS_CLIENTE.CALLE,'#10' V_CONTRATOS_CLIE' +
'NTE.POBLACION,'#10' V_CONTRATOS_CLIENTE.PROVINCIA,'#10' V_CONTRATO' +
'S_CLIENTE.CODIGO_POSTAL,'#10' V_CONTRATOS_CLIENTE.TELEFONO,'#10' V' +
'_CONTRATOS_CLIENTE.MOVIL,'#10' V_CONTRATOS_CLIENTE.IMPORTE_IVA, V' +
'_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CONTRATOS_CLIENTE.PERSON' +
'A_CONTACTO,'#10' V_CONTRATOS_CLIENTE.VENDEDOR'#10'FROM'#10' V_CONTRATO' +
'S_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@ -347,6 +347,10 @@ object RptContratosCliente: TRptContratosCliente
item
DatasetField = 'MOVIL'
TableField = 'MOVIL'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end>
end>
Name = 'Informe_Cabecera'
@ -368,6 +372,11 @@ object RptContratosCliente: TRptContratosCliente
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'FORMA_PAGO'
DataType = datMemo
@ -837,7 +846,7 @@ object RptContratosCliente: TRptContratosCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 40925.778794479160000000
ReportOptions.LastChange = 41411.575288125000000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False
@ -882,6 +891,11 @@ object RptContratosCliente: TRptContratosCliente
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'FORMA_PAGO'
DataType = datMemo

129
Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
View File

@ -451,6 +451,10 @@ object srvContratosCliente: TsrvContratosCliente
item
DatasetField = 'TIPO_CONTRATO'
TableField = 'TIPO_CONTRATO'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end>
end>
Name = 'ContratosCliente'
@ -703,6 +707,11 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString
Size = 255
DictionaryEntry = 'ContratosCliente_TIPO_CONTRATO'
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end>
end
item
@ -945,18 +954,17 @@ object srvContratosCliente: TsrvContratosCliente
Commands = <
item
Params = <
item
Name = 'TIPO_CONTRATO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTRATOS_CLI_ID'
Value = ''
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
@ -1143,6 +1151,18 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString
Size = 25
Value = ''
end
item
Name = 'TIPO_CONTRATO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
Value = ''
end>
Statements = <
item
@ -1150,24 +1170,25 @@ object srvContratosCliente: TsrvContratosCliente
Default = True
TargetTable = 'CONTRATOS_CLIENTE'
SQL =
'INSERT'#10' INTO CONTRATOS_CLIENTE'#10' (ID, ID_CLIENTE, NIF_CIF, NO' +
'MBRE, ID_DIRECCION, CALLE, POBLACION, PROVINCIA,'#10' CODIGO_POS' +
'TAL, REFERENCIA, FECHA_CONTRATO, SITUACION, FORMA_PAGO,'#10' PLA' +
'ZO_ENTREGA, OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' +
'HA_ALTA,'#10' USUARIO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, I' +
'MPORTE_DESCUENTO,'#10' BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' +
'_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' +
' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' +
'LEFONO, MOVIL, TIPO_CONTRATO)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :N' +
'IF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10 +
' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :' +
'FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :' +
'INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_' +
'NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE' +
'_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :I' +
'D_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, ' +
':RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL,' +
' :TIPO_CONTRATO)'#10#10
'INSERT'#10' INTO CONTRATOS_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE,' +
' NIF_CIF, NOMBRE, ID_DIRECCION, CALLE, POBLACION, PROVINCIA,'#10' ' +
' CODIGO_POSTAL, REFERENCIA, FECHA_CONTRATO, SITUACION, FORMA_PA' +
'GO,'#10' PLAZO_ENTREGA, OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_' +
'ACTIVAS, FECHA_ALTA,'#10' USUARIO, IMPORTE_NETO, IMPORTE_PORTE, ' +
'DESCUENTO, IMPORTE_DESCUENTO,'#10' BASE_IMPONIBLE, ID_TIPO_IVA, ' +
'IVA, IMPORTE_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ' +
'ID_VENDEDOR, PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUI' +
'VALENCIA, TELEFONO, MOVIL, TIPO_CONTRATO,'#10' REFERENCIA_CLIENT' +
'E)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :NIF_CIF, :NOMBR' +
'E, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_P' +
'OSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' ' +
' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_AC' +
'TIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE' +
'_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :I' +
'D_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10 +
' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_' +
'RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRAT' +
'O, :REFERENCIA_CLIENTE)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1194,13 +1215,12 @@ object srvContratosCliente: TsrvContratosCliente
item
Params = <
item
Name = 'TIPO_CONTRATO'
DataType = datString
Size = 255
Name = 'ID'
DataType = datInteger
Value = ''
end
item
Name = 'ID'
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
@ -1391,6 +1411,18 @@ object srvContratosCliente: TsrvContratosCliente
Size = 25
Value = ''
end
item
Name = 'TIPO_CONTRATO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -1400,26 +1432,27 @@ object srvContratosCliente: TsrvContratosCliente
Connection = 'IBX'
TargetTable = 'CONTRATOS_CLIENTE'
SQL =
'UPDATE CONTRATOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_CLIENTE = :' +
'ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :NOMBRE,'#10' ID' +
'_DIRECCION = :ID_DIRECCION,'#10' CALLE = :CALLE,'#10' POBLACION = ' +
':POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :COD' +
'IGO_POSTAL,'#10' REFERENCIA = :REFERENCIA,'#10' FECHA_CONTRATO = :' +
'FECHA_CONTRATO,'#10' SITUACION = :SITUACION,'#10' FORMA_PAGO = :FO' +
'RMA_PAGO,'#10' PLAZO_ENTREGA = :PLAZO_ENTREGA,'#10' OBSERVACIONES ' +
'= :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,'#10' INCIDENCIA' +
'S_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_MODIFICACION = CURRE' +
'NT_TIMESTAMP,'#10' USUARIO = :USUARIO,'#10' IMPORTE_NETO = :IMPORT' +
'E_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' DESCUENTO = :DES' +
'CUENTO,'#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' BASE_IMP' +
'ONIBLE = :BASE_IMPONIBLE,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IV' +
'A = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL = :I' +
'MPORTE_TOTAL,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA ' +
'= :ID_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' PERSONA_CONTAC' +
'TO = :PERSONA_CONTACTO,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_' +
'RE,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' TELEFO' +
'NO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' TIPO_CONTRATO = :TIPO_CO' +
'NTRATO'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
'UPDATE CONTRATOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA = :' +
'ID_EMPRESA,'#10' ID_CLIENTE = :ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF' +
','#10' NOMBRE = :NOMBRE,'#10' ID_DIRECCION = :ID_DIRECCION,'#10' CA' +
'LLE = :CALLE,'#10' POBLACION = :POBLACION,'#10' PROVINCIA = :PROVI' +
'NCIA,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' REFERENCIA = :REFE' +
'RENCIA,'#10' FECHA_CONTRATO = :FECHA_CONTRATO,'#10' SITUACION = :S' +
'ITUACION,'#10' FORMA_PAGO = :FORMA_PAGO,'#10' PLAZO_ENTREGA = :PLA' +
'ZO_ENTREGA,'#10' OBSERVACIONES = :OBSERVACIONES,'#10' INCIDENCIAS ' +
'= :INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10 +
' FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUAR' +
'IO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPOR' +
'TE_PORTE,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_DESCUENTO = :I' +
'MPORTE_DESCUENTO,'#10' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' ID_T' +
'IPO_IVA = :ID_TIPO_IVA,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IMPOR' +
'TE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' ID_FORMA_PAGO = ' +
':ID_FORMA_PAGO,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_VENDEDOR = :I' +
'D_VENDEDOR,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' RE = :' +
'RE,'#10' IMPORTE_RE = :IMPORTE_RE,'#10' RECARGO_EQUIVALENCIA = :RE' +
'CARGO_EQUIVALENCIA,'#10' TELEFONO = :TELEFONO,'#10' MOVIL = :MOVIL' +
','#10' TIPO_CONTRATO = :TIPO_CONTRATO,'#10' REFERENCIA_CLIENTE = :' +
'REFERENCIA_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>

132
Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm
View File

@ -19,8 +19,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
810
449)
object edtFechaContrato: TcxDBDateEdit
Left = 104
Top = 55
Left = 117
Top = 82
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_CONTRATO'
DataBinding.DataSource = DADataSource
@ -38,11 +38,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
TabOrder = 2
Width = 129
end
object memObservaciones: TcxDBMemo
Left = 377
Left = 389
Top = 289
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
@ -59,12 +59,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10
TabOrder = 11
Height = 200
Width = 507
end
object eReferencia: TcxDBTextEdit
Left = 104
Left = 117
Top = 28
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA'
@ -89,8 +89,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 122
end
object cbFormaPago: TcxDBLookupComboBox
Left = 104
Top = 166
Left = 117
Top = 193
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
@ -117,21 +117,21 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
TabOrder = 6
Width = 122
end
object bFormasPago: TButton
Left = 215
Top = 166
Left = 227
Top = 193
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
TabOrder = 6
TabOrder = 7
OnClick = bFormasPagoClick
end
object cbSituacion: TcxDBImageComboBox
Left = 104
Top = 82
Left = 117
Top = 109
DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource
Properties.Items = <
@ -152,11 +152,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
TabOrder = 4
Width = 260
end
inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato
Left = 377
Left = 389
Top = 28
Width = 127
Height = 225
@ -166,9 +166,9 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 9
TabOrder = 10
ReadOnly = False
ExplicitLeft = 377
ExplicitLeft = 389
ExplicitTop = 28
ExplicitWidth = 127
ExplicitHeight = 225
@ -186,24 +186,24 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 103
end
inherited bVerFichaCliente: TBitBtn
Left = 209
ExplicitLeft = 209
Left = 197
ExplicitLeft = 197
end
inherited edtDireccion: TcxMemo
ExplicitWidth = 121
Width = 121
end
inherited bElegirDireccion: TButton
Left = 378
ExplicitLeft = 378
Left = 366
ExplicitLeft = 366
end
inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 193
Width = 193
end
inherited edtReferencia: TcxDBTextEdit
Left = 267
ExplicitLeft = 267
Left = 261
ExplicitLeft = 261
ExplicitWidth = 103
Width = 103
end
@ -211,7 +211,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end
object memFormaPago: TcxDBMemo
Left = 22
Top = 193
Top = 220
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'FORMA_PAGO'
DataBinding.DataSource = DADataSource
@ -227,35 +227,35 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Height = 100
Width = 396
end
object memPlazoEntrega: TcxDBMemo
Left = 22
Top = 328
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
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 = 8
Height = 100
Width = 396
end
object memPlazoEntrega: TcxDBMemo
Left = 22
Top = 340
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
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 = 9
Height = 100
Width = 396
end
object cbVendedor: TcxDBLookupComboBox
Left = 104
Top = 109
Left = 117
Top = 136
DataBinding.DataField = 'ID_VENDEDOR'
DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID'
@ -280,12 +280,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
TabOrder = 5
Width = 27
end
object cbTipoContrato: TcxDBComboBox
Left = 271
Top = 55
Left = 282
Top = 82
DataBinding.DataField = 'TIPO_CONTRATO'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
@ -305,9 +305,30 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
TabOrder = 3
Width = 113
end
object edtlReferenciaCliente: TcxDBTextEdit
Left = 117
Top = 55
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'REFERENCIA_CLIENTE'
DataBinding.DataSource = DADataSource
ParentFont = False
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 = 1
Height = 21
Width = 335
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -330,6 +351,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Control = eReferencia
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item12: TdxLayoutItem
Caption = 'Referencia cliente:'
Control = edtlReferenciaCliente
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group11: TdxLayoutGroup
ShowCaption = False
Hidden = True

2
Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas
View File

@ -63,6 +63,8 @@ type
dxLayoutControl1Item7: TdxLayoutItem;
cbTipoContrato: TcxDBComboBox;
dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Item12: TdxLayoutItem;
edtlReferenciaCliente: TcxDBTextEdit;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject);

16
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
View File

@ -68,6 +68,10 @@ inherited frViewContratosCliente: TfrViewContratosCliente
SortOrder = soDescending
Width = 58
end
object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
Caption = 'Ref. Cliente'
DataBinding.FieldName = 'REFERENCIA_CLIENTE'
end
object cxGridViewTIPO_CONTRATO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_CONTRATO'
BestFitMaxWidth = 25
@ -126,15 +130,27 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Width = 903
ExplicitWidth = 903
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 806
Width = 806
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 285
Width = 285
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 389
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 389
ExplicitWidth = 504
Width = 504

1
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
View File

@ -40,6 +40,7 @@ type
cxGridViewINCIDENCIAS: TcxGridDBColumn;
cxStyleRECHAZADO: TcxStyle;
cxGridViewTIPO_CONTRATO: TcxGridDBColumn;
cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

5
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -63,6 +63,11 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
DisplayLabel = 'Referencia'
DictionaryEntry = 'PresupuestosCliente_REFERENCIA'
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString

129
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
View File

@ -9,12 +9,12 @@ 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_Valores = '{E7928204-C39F-4E07-9A3D-B32F3BB49D85}';
RID_Propiedades = '{D1BE6EB5-260D-4A6B-ADEF-3FC1FB9CF572}';
RID_ListaAnosPresupuestos = '{95229127-6332-428F-848D-966BCF5A39F6}';
RID_PresupuestosCliente = '{E4555932-F890-4E53-8666-6E4A2B74D518}';
RID_CapitulosPresupuesto = '{DBAF21E8-DB51-4BAD-94FF-4A20A2876FF2}';
RID_PresupuestosCliente_Detalles = '{B7A19F6E-DAA5-4E16-9622-4D99F50E21CE}';
RID_Valores = '{E16B10D1-C266-4C34-B6B3-F1989F42A69D}';
RID_Propiedades = '{32C1DC73-81A3-4292-9235-BED9E72241DD}';
RID_ListaAnosPresupuestos = '{34090E28-8CDD-4F94-8CFE-C253CAC9406C}';
RID_PresupuestosCliente = '{50970F54-A011-4019-9A0B-83FBD7822F82}';
RID_CapitulosPresupuesto = '{0CAADB7F-FAA0-444A-AA5A-D2596E74F088}';
RID_PresupuestosCliente_Detalles = '{51062533-EB77-4CF6-ACC4-1FA88E21C0D0}';
{ Data table names }
nme_Valores = 'Valores';
@ -61,6 +61,7 @@ const
fld_PresupuestosClienteFECHA_VIGENCIA = 'FECHA_VIGENCIA';
fld_PresupuestosClienteFECHA_DECISION = 'FECHA_DECISION';
fld_PresupuestosClienteREFERENCIA = 'REFERENCIA';
fld_PresupuestosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_PresupuestosClienteSITUACION = 'SITUACION';
fld_PresupuestosClienteID_CLIENTE = 'ID_CLIENTE';
fld_PresupuestosClienteID_DIRECCION = 'ID_DIRECCION';
@ -104,41 +105,42 @@ const
idx_PresupuestosClienteFECHA_VIGENCIA = 3;
idx_PresupuestosClienteFECHA_DECISION = 4;
idx_PresupuestosClienteREFERENCIA = 5;
idx_PresupuestosClienteSITUACION = 6;
idx_PresupuestosClienteID_CLIENTE = 7;
idx_PresupuestosClienteID_DIRECCION = 8;
idx_PresupuestosClienteNIF_CIF = 9;
idx_PresupuestosClienteNOMBRE = 10;
idx_PresupuestosClientePERSONA_CONTACTO = 11;
idx_PresupuestosClienteFORMA_PAGO = 12;
idx_PresupuestosClientePLAZO_ENTREGA = 13;
idx_PresupuestosClienteOBSERVACIONES = 14;
idx_PresupuestosClienteINCIDENCIAS = 15;
idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 16;
idx_PresupuestosClienteFECHA_ALTA = 17;
idx_PresupuestosClienteFECHA_MODIFICACION = 18;
idx_PresupuestosClienteUSUARIO = 19;
idx_PresupuestosClienteIMPORTE_NETO = 20;
idx_PresupuestosClienteIMPORTE_PORTE = 21;
idx_PresupuestosClienteDESCUENTO = 22;
idx_PresupuestosClienteIMPORTE_DESCUENTO = 23;
idx_PresupuestosClienteBASE_IMPONIBLE = 24;
idx_PresupuestosClienteID_TIPO_IVA = 25;
idx_PresupuestosClienteIVA = 26;
idx_PresupuestosClienteIMPORTE_IVA = 27;
idx_PresupuestosClienteRE = 28;
idx_PresupuestosClienteIMPORTE_RE = 29;
idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 30;
idx_PresupuestosClienteIMPORTE_TOTAL = 31;
idx_PresupuestosClienteID_FORMA_PAGO = 32;
idx_PresupuestosClienteID_TIENDA = 33;
idx_PresupuestosClienteTIENDA = 34;
idx_PresupuestosClienteID_VENDEDOR = 35;
idx_PresupuestosClienteVENDEDOR = 36;
idx_PresupuestosClienteID_CONTRATO = 37;
idx_PresupuestosClienteREF_CONTRATO = 38;
idx_PresupuestosClienteNO_VALORADO = 39;
idx_PresupuestosClienteTIPO_PRESUPUESTO = 40;
idx_PresupuestosClienteREFERENCIA_CLIENTE = 6;
idx_PresupuestosClienteSITUACION = 7;
idx_PresupuestosClienteID_CLIENTE = 8;
idx_PresupuestosClienteID_DIRECCION = 9;
idx_PresupuestosClienteNIF_CIF = 10;
idx_PresupuestosClienteNOMBRE = 11;
idx_PresupuestosClientePERSONA_CONTACTO = 12;
idx_PresupuestosClienteFORMA_PAGO = 13;
idx_PresupuestosClientePLAZO_ENTREGA = 14;
idx_PresupuestosClienteOBSERVACIONES = 15;
idx_PresupuestosClienteINCIDENCIAS = 16;
idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 17;
idx_PresupuestosClienteFECHA_ALTA = 18;
idx_PresupuestosClienteFECHA_MODIFICACION = 19;
idx_PresupuestosClienteUSUARIO = 20;
idx_PresupuestosClienteIMPORTE_NETO = 21;
idx_PresupuestosClienteIMPORTE_PORTE = 22;
idx_PresupuestosClienteDESCUENTO = 23;
idx_PresupuestosClienteIMPORTE_DESCUENTO = 24;
idx_PresupuestosClienteBASE_IMPONIBLE = 25;
idx_PresupuestosClienteID_TIPO_IVA = 26;
idx_PresupuestosClienteIVA = 27;
idx_PresupuestosClienteIMPORTE_IVA = 28;
idx_PresupuestosClienteRE = 29;
idx_PresupuestosClienteIMPORTE_RE = 30;
idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 31;
idx_PresupuestosClienteIMPORTE_TOTAL = 32;
idx_PresupuestosClienteID_FORMA_PAGO = 33;
idx_PresupuestosClienteID_TIENDA = 34;
idx_PresupuestosClienteTIENDA = 35;
idx_PresupuestosClienteID_VENDEDOR = 36;
idx_PresupuestosClienteVENDEDOR = 37;
idx_PresupuestosClienteID_CONTRATO = 38;
idx_PresupuestosClienteREF_CONTRATO = 39;
idx_PresupuestosClienteNO_VALORADO = 40;
idx_PresupuestosClienteTIPO_PRESUPUESTO = 41;
{ CapitulosPresupuesto fields }
fld_CapitulosPresupuestoID = 'ID';
@ -205,7 +207,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{93D9A956-9F9E-4D63-A10B-A172C285C94E}']
['{D5CB76A1-9B62-4056-9F89-730A4F31838D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -300,7 +302,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{59EB780A-FC81-43F6-9D5D-57B76B94C000}']
['{A512708D-39DE-45D9-A514-EFD79C6FD584}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -347,7 +349,7 @@ type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{EBF28BF5-BC89-4C6F-AE66-B6D895A58A86}']
['{18B6359D-D371-4068-8A84-3DE897B7E7B8}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -382,7 +384,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{BC002141-E0CE-41CB-9AAA-85B093181284}']
['{1F9AD51F-1911-49A2-82BE-37DF2D4B2A11}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -408,6 +410,10 @@ type
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetREFERENCIA_CLIENTEValue: String;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
function GetREFERENCIA_CLIENTEIsNull: Boolean;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetSITUACIONValue: String;
procedure SetSITUACIONValue(const aValue: String);
function GetSITUACIONIsNull: Boolean;
@ -559,6 +565,8 @@ type
property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
@ -668,6 +676,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetSITUACIONValue: String; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual;
function GetSITUACIONIsNull: Boolean; virtual;
@ -818,6 +830,8 @@ type
property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
@ -897,7 +911,7 @@ type
{ ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{A0E7A826-2872-426E-AD39-8FA97AAA61FE}']
['{0D499AEC-C74B-495F-84F1-3FBADEC47C7E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1052,7 +1066,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{81779950-8754-42C2-A214-1147561D7D56}']
['{AF58312B-DFCD-4038-8B41-696C909BD857}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1669,6 +1683,27 @@ begin
DataTable.Fields[idx_PresupuestosClienteREFERENCIA].AsVariant := Null;
end;
function TPresupuestosClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsString;
end;
procedure TPresupuestosClienteDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsString := aValue;
end;
function TPresupuestosClienteDataTableRules.GetREFERENCIA_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].IsNull;
end;
procedure TPresupuestosClienteDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsVariant := Null;
end;
function TPresupuestosClienteDataTableRules.GetSITUACIONValue: String;
begin
result := DataTable.Fields[idx_PresupuestosClienteSITUACION].AsString;

67
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
View File

@ -9,17 +9,17 @@ 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_ValoresDelta = '{13FFF203-FA71-4ED9-AC0A-643A9FE5CAD2}';
RID_PropiedadesDelta = '{6B42D145-11AB-46D7-88D3-65F1BE9C982F}';
RID_ListaAnosPresupuestosDelta = '{ABE39CA0-27B3-4D80-AED4-FE540C66D871}';
RID_PresupuestosClienteDelta = '{717C84FB-EC16-47E3-BD56-A26B1170EF2E}';
RID_CapitulosPresupuestoDelta = '{F39487EB-F059-40C3-ABB1-8B6B4B0E271E}';
RID_PresupuestosCliente_DetallesDelta = '{FE4CE80E-1435-4867-91AC-081602D5BAA4}';
RID_ValoresDelta = '{C002A600-D743-41AD-AB05-509A3CFA752B}';
RID_PropiedadesDelta = '{F6E80F06-3BE5-4098-929E-88D75164E91E}';
RID_ListaAnosPresupuestosDelta = '{B32D0ECD-A7F9-44BC-8F71-68F699493E80}';
RID_PresupuestosClienteDelta = '{4589E19A-FBF6-40BF-8EDC-CDC6CF01A657}';
RID_CapitulosPresupuestoDelta = '{CD65BC24-6D66-463B-8A39-2E83D02E7025}';
RID_PresupuestosCliente_DetallesDelta = '{99470627-E8C7-466D-B7C9-2AB76DD558FC}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{13FFF203-FA71-4ED9-AC0A-643A9FE5CAD2}']
['{C002A600-D743-41AD-AB05-509A3CFA752B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -113,7 +113,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{6B42D145-11AB-46D7-88D3-65F1BE9C982F}']
['{F6E80F06-3BE5-4098-929E-88D75164E91E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -159,7 +159,7 @@ type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{ABE39CA0-27B3-4D80-AED4-FE540C66D871}']
['{B32D0ECD-A7F9-44BC-8F71-68F699493E80}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -193,7 +193,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{717C84FB-EC16-47E3-BD56-A26B1170EF2E}']
['{4589E19A-FBF6-40BF-8EDC-CDC6CF01A657}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -201,6 +201,7 @@ type
function GetOldFECHA_VIGENCIAValue : DateTime;
function GetOldFECHA_DECISIONValue : DateTime;
function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldSITUACIONValue : String;
function GetOldID_CLIENTEValue : Integer;
function GetOldID_DIRECCIONValue : Integer;
@ -244,6 +245,7 @@ type
property OldFECHA_VIGENCIA : DateTime read GetOldFECHA_VIGENCIAValue;
property OldFECHA_DECISION : DateTime read GetOldFECHA_DECISIONValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldSITUACION : String read GetOldSITUACIONValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
@ -330,6 +332,12 @@ type
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
function GetOldREFERENCIA_CLIENTEValue: String; virtual;
function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetSITUACIONValue: String; virtual;
function GetSITUACIONIsNull: Boolean; virtual;
function GetOldSITUACIONValue: String; virtual;
@ -562,6 +570,10 @@ type
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull;
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property OldSITUACION : String read GetOldSITUACIONValue;
@ -711,7 +723,7 @@ type
{ ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{F39487EB-F059-40C3-ABB1-8B6B4B0E271E}']
['{CD65BC24-6D66-463B-8A39-2E83D02E7025}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -865,7 +877,7 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{FE4CE80E-1435-4867-91AC-081602D5BAA4}']
['{99470627-E8C7-466D-B7C9-2AB76DD558FC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
@ -1632,6 +1644,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA] := Null;
end;
function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE];
end;
function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE]);
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE];
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE]);
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE] := aValue;
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE] := Null;
end;
function TPresupuestosClienteBusinessProcessorRules.GetSITUACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteSITUACION];

66
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
View File

@ -208,31 +208,31 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
'SELECT'#10' V_PRESUPUESTOS_CLIENTE.ID, V_PRESUPUESTOS_CLIENTE.ID_' +
'EMPRESA,'#10' V_PRESUPUESTOS_CLIENTE.FECHA_PRESUPUESTO, V_PRESUPU' +
'ESTOS_CLIENTE.FECHA_VIGENCIA,'#10' V_PRESUPUESTOS_CLIENTE.FECHA_D' +
'ECISION,'#10' V_PRESUPUESTOS_CLIENTE.REFERENCIA,'#10#10' V_PRESUPUES' +
'TOS_CLIENTE.FORMA_PAGO,'#10' V_PRESUPUESTOS_CLIENTE.PLAZO_ENTREGA' +
','#10' V_PRESUPUESTOS_CLIENTE.OBSERVACIONES,'#10#10' V_PRESUPUESTOS_' +
'CLIENTE.IMPORTE_NETO, V_PRESUPUESTOS_CLIENTE.IMPORTE_PORTE,'#10' ' +
'V_PRESUPUESTOS_CLIENTE.DESCUENTO, V_PRESUPUESTOS_CLIENTE.IMPORTE' +
'_DESCUENTO,'#10' V_PRESUPUESTOS_CLIENTE.BASE_IMPONIBLE, V_PRESUPU' +
'ESTOS_CLIENTE.IVA,'#10' V_PRESUPUESTOS_CLIENTE.RE, V_PRESUPUESTOS' +
'_CLIENTE.IMPORTE_RE,'#10' V_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#10' ' +
'V_PRESUPUESTOS_CLIENTE.NIF_CIF, CONTACTOS.REFERENCIA as REF_CLIE' +
'NTE,'#10' V_PRESUPUESTOS_CLIENTE.NOMBRE,'#10' V_PRESUPUESTOS_CLIEN' +
'TE.IMPORTE_IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' COALES' +
'CE(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' C' +
'OALESCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS' +
' POBLACION,'#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTAC' +
'TOS.PROVINCIA) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.' +
'CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' CO' +
'ALESCE(CONTACTOS_DIRECCIONES.TELEFONO, CONTACTOS.TELEFONO_1) AS ' +
'TELEFONO,'#10' COALESCE(CONTACTOS_DIRECCIONES.MOVIL, CONTACTOS.MO' +
'VIL_1) AS MOVIL,'#10' V_PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10' ' +
' V_PRESUPUESTOS_CLIENTE.VENDEDOR, V_PRESUPUESTOS_CLIENTE.NO_VAL' +
'ORADO'#10'FROM'#10' V_PRESUPUESTOS_CLIENTE'#10' INNER JOIN CONTACTOS O' +
'N (CONTACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OU' +
'TER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_' +
'PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIE' +
'NTE.ID = :ID'#10
'ECISION,'#10' V_PRESUPUESTOS_CLIENTE.REFERENCIA,'#10' V_PRESUPUEST' +
'OS_CLIENTE.REFERENCIA_CLIENTE,'#10#10' V_PRESUPUESTOS_CLIENTE.FORMA' +
'_PAGO,'#10' V_PRESUPUESTOS_CLIENTE.PLAZO_ENTREGA,'#10' V_PRESUPUES' +
'TOS_CLIENTE.OBSERVACIONES,'#10#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_N' +
'ETO, V_PRESUPUESTOS_CLIENTE.IMPORTE_PORTE,'#10' V_PRESUPUESTOS_CL' +
'IENTE.DESCUENTO, V_PRESUPUESTOS_CLIENTE.IMPORTE_DESCUENTO,'#10' V' +
'_PRESUPUESTOS_CLIENTE.BASE_IMPONIBLE, V_PRESUPUESTOS_CLIENTE.IVA' +
','#10' V_PRESUPUESTOS_CLIENTE.RE, V_PRESUPUESTOS_CLIENTE.IMPORTE_' +
'RE,'#10' V_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#10' V_PRESUPUESTOS_CL' +
'IENTE.NIF_CIF, CONTACTOS.REFERENCIA as REF_CLIENTE,'#10' V_PRESUP' +
'UESTOS_CLIENTE.NOMBRE,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_IVA, V' +
'_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' COALESCE(CONTACTOS_DIRE' +
'CCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS' +
'_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS POBLACION,'#10' C' +
'OALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS' +
' PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CO' +
'NTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' COALESCE(CONTACTOS_' +
'DIRECCIONES.TELEFONO, CONTACTOS.TELEFONO_1) AS TELEFONO,'#10' COA' +
'LESCE(CONTACTOS_DIRECCIONES.MOVIL, CONTACTOS.MOVIL_1) AS MOVIL,'#10 +
' V_PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10' V_PRESUPUESTOS_' +
'CLIENTE.VENDEDOR, V_PRESUPUESTOS_CLIENTE.NO_VALORADO'#10'FROM'#10' V_' +
'PRESUPUESTOS_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID =' +
' V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTO' +
'S_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTOS_CLIE' +
'NTE.ID_DIRECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@ -362,6 +362,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item
DatasetField = 'MOVIL'
TableField = 'MOVIL'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end>
end>
Name = 'Informe_Cabecera'
@ -393,6 +397,11 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'FORMA_PAGO'
DataType = datMemo
@ -868,7 +877,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 40869.748848321760000000
ReportOptions.LastChange = 41411.456087094910000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False
@ -923,6 +932,11 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'FORMA_PAGO'
DataType = datMemo

102
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -316,6 +316,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
DatasetField = 'TIPO_PRESUPUESTO'
TableField = 'TIPO_PRESUPUESTO'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end>
end>
Name = 'PresupuestosCliente'
@ -353,6 +357,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 255
DictionaryEntry = 'PresupuestosCliente_REFERENCIA'
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
@ -859,6 +868,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 255
Value = ''
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'SITUACION'
DataType = datString
@ -1010,23 +1025,24 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
TargetTable = 'PRESUPUESTOS_CLIENTE'
SQL =
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE'#10' (ID, ID_EMPRESA,'#10' FEC' +
'HA_PRESUPUESTO, FECHA_VIGENCIA, FECHA_DECISION, REFERENCIA,'#10' ' +
' SITUACION, ID_CLIENTE, ID_DIRECCION, PERSONA_CONTACTO,'#10' FOR' +
'MA_PAGO, PLAZO_ENTREGA, OBSERVACIONES, INCIDENCIAS,'#10' INCIDEN' +
'CIAS_ACTIVAS, FECHA_ALTA, USUARIO, IMPORTE_NETO, IMPORTE_PORTE,'#10 +
' DESCUENTO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, ID_TIPO_IVA, ' +
'IVA, IMPORTE_IVA,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, IMP' +
'ORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,'#10' ID_CONTR' +
'ATO, NO_VALORADO, TIPO_PRESUPUESTO)'#10' VALUES'#10' (:ID, :ID_EMPRE' +
'SA,'#10' :FECHA_PRESUPUESTO, :FECHA_VIGENCIA, :FECHA_DECISION, :' +
'REFERENCIA,'#10' :SITUACION, :ID_CLIENTE, :ID_DIRECCION, :PERSON' +
'A_CONTACTO,'#10' :FORMA_PAGO, :PLAZO_ENTREGA, :OBSERVACIONES, :I' +
'NCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, :USUAR' +
'IO, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DES' +
'CUENTO, :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA,'#10' ' +
':RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA, :IMPORTE_TOTAL, :ID_FOR' +
'MA_PAGO, :ID_TIENDA, :ID_VENDEDOR,'#10' :ID_CONTRATO, :NO_VALORA' +
'DO, :TIPO_PRESUPUESTO)'#10' '#10#10#10#10#10
'HA_PRESUPUESTO, FECHA_VIGENCIA, FECHA_DECISION, REFERENCIA, REFE' +
'RENCIA_CLIENTE,'#10' SITUACION, ID_CLIENTE, ID_DIRECCION, PERSON' +
'A_CONTACTO,'#10' FORMA_PAGO, PLAZO_ENTREGA, OBSERVACIONES, INCID' +
'ENCIAS,'#10' INCIDENCIAS_ACTIVAS, FECHA_ALTA, USUARIO, IMPORTE_N' +
'ETO, IMPORTE_PORTE,'#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_IMPO' +
'NIBLE, ID_TIPO_IVA, IVA, IMPORTE_IVA,'#10' RE, IMPORTE_RE, RECAR' +
'GO_EQUIVALENCIA, IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VEN' +
'DEDOR,'#10' ID_CONTRATO, NO_VALORADO, TIPO_PRESUPUESTO)'#10' VALUES' +
#10' (:ID, :ID_EMPRESA,'#10' :FECHA_PRESUPUESTO, :FECHA_VIGENCIA' +
', :FECHA_DECISION, :REFERENCIA, :REFERENCIA_CLIENTE,'#10' :SITUA' +
'CION, :ID_CLIENTE, :ID_DIRECCION, :PERSONA_CONTACTO,'#10' :FORMA' +
'_PAGO, :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS,'#10' :INCID' +
'ENCIAS_ACTIVAS, CURRENT_TIMESTAMP, :USUARIO, :IMPORTE_NETO, :IMP' +
'ORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE' +
', :ID_TIPO_IVA, :IVA, :IMPORTE_IVA,'#10' :RE, :IMPORTE_RE, :RECA' +
'RGO_EQUIVALENCIA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_TIENDA, :I' +
'D_VENDEDOR,'#10' :ID_CONTRATO, :NO_VALORADO, :TIPO_PRESUPUESTO)'#10 +
' '#10#10#10#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1054,12 +1070,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
end
item
Params = <
item
Name = 'TIPO_PRESUPUESTO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ID'
DataType = datInteger
@ -1086,6 +1096,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 255
Value = ''
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'SITUACION'
DataType = datString
@ -1224,6 +1240,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datSmallInt
Value = ''
end
item
Name = 'TIPO_PRESUPUESTO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -1237,23 +1259,23 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'UPDATE PRESUPUESTOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' FECHA_PRESU' +
'PUESTO = :FECHA_PRESUPUESTO,'#10' FECHA_VIGENCIA = :FECHA_VIGENCI' +
'A,'#10' FECHA_DECISION = :FECHA_DECISION, '#10' REFERENCIA = :REFE' +
'RENCIA, '#10' SITUACION = :SITUACION,'#10' ID_CLIENTE = :ID_CLIENT' +
'E, '#10' ID_DIRECCION = :ID_DIRECCION,'#10' PERSONA_CONTACTO = :PE' +
'RSONA_CONTACTO,'#10' FORMA_PAGO = :FORMA_PAGO,'#10' PLAZO_ENTREGA ' +
'= :PLAZO_ENTREGA,'#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCID' +
'ENCIAS = :INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_A' +
'CTIVAS, '#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO' +
' = :USUARIO, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_POR' +
'TE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_D' +
'ESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPON' +
'IBLE, '#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' RE ' +
'= :RE,'#10' IMPORTE_RE = :IMPORTE_RE,'#10' ID_TIPO_IVA = :ID_TIPO_' +
'IVA,'#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPOR' +
'TE_TOTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10 +
' ID_TIENDA = :ID_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' ' +
'ID_CONTRATO = :ID_CONTRATO,'#10' NO_VALORADO = :NO_VALORADO,'#10' ' +
'TIPO_PRESUPUESTO = :TIPO_PRESUPUESTO'#10' WHERE'#10' (ID = :OLD_ID)'#10 +
#10
'RENCIA, '#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' SITUA' +
'CION = :SITUACION,'#10' ID_CLIENTE = :ID_CLIENTE, '#10' ID_DIRECCI' +
'ON = :ID_DIRECCION,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' ' +
' FORMA_PAGO = :FORMA_PAGO,'#10' PLAZO_ENTREGA = :PLAZO_ENTREGA,'#10 +
' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDENC' +
'IAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FECHA' +
'_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUARIO, '#10' ' +
'IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORT' +
'E, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORT' +
'E_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' RECARGO' +
'_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' RE = :RE,'#10' IMPORTE' +
'_RE = :IMPORTE_RE,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IVA = :IV' +
'A, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORT' +
'E_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA = :I' +
'D_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' ID_CONTRATO = :ID_' +
'CONTRATO,'#10' NO_VALORADO = :NO_VALORADO,'#10' TIPO_PRESUPUESTO =' +
' :TIPO_PRESUPUESTO'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>

122
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
View File

@ -19,8 +19,8 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
895
555)
object edtFechaPresupuesto: TcxDBDateEdit
Left = 103
Top = 55
Left = 117
Top = 82
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PRESUPUESTO'
DataBinding.DataSource = DADataSource
@ -38,11 +38,11 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
TabOrder = 2
Width = 187
end
object memObservaciones: TcxDBMemo
Left = 432
Left = 436
Top = 288
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
@ -59,12 +59,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12
TabOrder = 13
Height = 245
Width = 793
end
object eReferencia: TcxDBTextEdit
Left = 103
Left = 117
Top = 28
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA'
@ -89,8 +89,8 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Width = 122
end
object cbFormaPago: TcxDBLookupComboBox
Left = 103
Top = 193
Left = 117
Top = 220
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
@ -117,21 +117,21 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
TabOrder = 8
Width = 122
end
object bFormasPago: TButton
Left = 270
Top = 193
Left = 274
Top = 220
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
TabOrder = 8
TabOrder = 9
OnClick = bFormasPagoClick
end
object edtFechaDecision: TcxDBDateEdit
Left = 295
Top = 82
Left = 300
Top = 109
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_DECISION'
DataBinding.DataSource = DADataSource
@ -148,12 +148,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
TabOrder = 5
Width = 260
end
object edtFechaVigencia: TcxDBDateEdit
Left = 103
Top = 82
Left = 117
Top = 109
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VIGENCIA'
DataBinding.DataSource = DADataSource
@ -174,12 +174,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
TabOrder = 4
Width = 260
end
object cbSituacion: TcxDBImageComboBox
Left = 103
Top = 109
Left = 117
Top = 136
DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
@ -205,11 +205,11 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
TabOrder = 6
Width = 260
end
inline frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto
Left = 432
Left = 436
Top = 28
Width = 320
Height = 224
@ -219,9 +219,9 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 11
TabOrder = 12
ReadOnly = False
ExplicitLeft = 432
ExplicitLeft = 436
ExplicitTop = 28
ExplicitWidth = 320
ExplicitHeight = 224
@ -230,31 +230,43 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Height = 224
ExplicitWidth = 320
ExplicitHeight = 224
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 328
ExplicitLeft = 328
Left = 324
ExplicitLeft = 324
end
inherited Button3: TBitBtn
Left = 239
ExplicitLeft = 239
Left = 235
ExplicitLeft = 235
end
inherited edtPersonaContacto: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
inherited edtDireccion: TcxMemo
ExplicitWidth = 121
Width = 121
end
inherited Button4: TButton
Left = 408
ExplicitLeft = 408
Left = 404
ExplicitLeft = 404
end
inherited Button5: TButton
Left = 408
ExplicitLeft = 408
Left = 404
ExplicitLeft = 404
end
inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 363
Width = 363
end
end
end
object memFormaPago: TcxDBMemo
Left = 22
Top = 220
Top = 247
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'FORMA_PAGO'
DataBinding.DataSource = DADataSource
@ -270,13 +282,13 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9
TabOrder = 10
Height = 44
Width = 475
end
object memPlazoEntrega: TcxDBMemo
Left = 22
Top = 358
Top = 373
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource
@ -292,13 +304,13 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10
TabOrder = 11
Height = 100
Width = 396
end
object cbVendedor: TcxDBLookupComboBox
Left = 103
Top = 136
Left = 117
Top = 163
DataBinding.DataField = 'ID_VENDEDOR'
DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID'
@ -323,12 +335,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
TabOrder = 7
Width = 27
end
object cbTipoPresupuesto: TcxDBComboBox
Left = 289
Top = 55
Left = 296
Top = 82
DataBinding.DataField = 'TIPO_PRESUPUESTO'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
@ -343,9 +355,30 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
TabOrder = 3
Width = 186
end
object edtlReferenciaCliente: TcxDBTextEdit
Left = 117
Top = 55
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'REFERENCIA_CLIENTE'
DataBinding.DataSource = DADataSource
ParentFont = False
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 = 1
Height = 21
Width = 204
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -368,6 +401,11 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Control = eReferencia
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item13: TdxLayoutItem
Caption = 'Referencia cliente:'
Control = edtlReferenciaCliente
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group11: TdxLayoutGroup
ShowCaption = False
Hidden = True

2
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
View File

@ -68,6 +68,8 @@ type
dxLayoutControl1Item12: TdxLayoutItem;
cbTipoPresupuesto: TcxDBComboBox;
dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Item13: TdxLayoutItem;
edtlReferenciaCliente: TcxDBTextEdit;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject);

16
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
View File

@ -70,6 +70,10 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
BestFitMaxWidth = 25
Width = 65
end
object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
Caption = 'Ref. Cliente'
DataBinding.FieldName = 'REFERENCIA_CLIENTE'
end
object cxGridViewTIPO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_PRESUPUESTO'
BestFitMaxWidth = 25
@ -143,15 +147,27 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Width = 903
ExplicitWidth = 903
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 806
Width = 806
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 285
Width = 285
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 389
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 389
ExplicitWidth = 504
Width = 504

1
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
View File

@ -46,6 +46,7 @@ type
cxGridViewINCIDENCIAS: TcxGridDBColumn;
cxStyleRECHAZADO: TcxStyle;
cxGridViewTIPO: TcxGridDBColumn;
cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

1
Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
View File

@ -66,6 +66,7 @@ begin
AAlbaran.IMPORTE_TOTAL := AContrato.IMPORTE_TOTAL;
AAlbaran.DataTable.FieldByName(fld_AlbaranesClienteOBSERVACIONES).AsVariant := AContrato.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsVariant;
AAlbaran.ID_FORMA_PAGO := AContrato.ID_FORMA_PAGO;
AAlbaran.REFERENCIA_CLIENTE = AContrato.REFERENCIA_CLIENTE;
end;
procedure CopiarDetallesAAlbaran(

1
Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas
View File

@ -123,6 +123,7 @@ begin
AContrato.RE := APresupuesto.RE;
AContrato.IMPORTE_RE := APresupuesto.IMPORTE_RE;
AContrato.TIPO_CONTRATO := APresupuesto.TIPO_PRESUPUESTO;
AContrato.REFERENCIA_CLIENTE := APresupuesto.REFERENCIA_CLIENTE;
end;
procedure CopiarDetallesAContrato(

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -129,8 +129,6 @@ uses
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
srvSubfamilias_Impl in '..\Modulos\Subfamilias\Servidor\srvSubfamilias_Impl.pas' {srvSubfamilias: TDataAbstractService},
@ -139,7 +137,9 @@ uses
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

593
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,300 +1,301 @@
<?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">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 29 de abril de 2013 18:48</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<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\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</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="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.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\Comisiones\Model\schComisionesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.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\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</Form>
<DesignClass>TDataAbstractService</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\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<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\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<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\Subfamilias\Model\schSubfamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Subfamilias\Servidor\srvSubfamilias_Impl.pas">
<Form>srvSubfamilias</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">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 29 de abril de 2013 18:48</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<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\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</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="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.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\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.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\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</Form>
<DesignClass>TDataAbstractService</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\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<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\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<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\Subfamilias\Model\schSubfamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Subfamilias\Servidor\srvSubfamilias_Impl.pas">
<Form>srvSubfamilias</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]

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.