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

Versión 2.5.5

Browse Source 
#1072: Guardar el estado de las columnas del grid de detalles
#1180: Poder aplicar descuentos a nivel de linea y que salga o no si yo quiero, idem dto capitulo
#1243: Revisar porque no coge bien la tienda en la empresa nueva
#1244: Que las condiciones del contrato sean modificables para cada contrato partiendo de la configuración base
#1245: alinear celda abajo cantidades e importes de todos los detalles

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@580 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2013-08-27 12:01:53 +00:00
parent cd5b8f18b7
commit b390fe6db1
28 changed files with 676 additions and 549 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Database/scripts/factuges.sql
View File

@ -1307,7 +1307,8 @@ CREATE TABLE CONTRATOS_CLIENTE (
RECARGO_EQUIVALENCIA TIPO_BOOLEANO, RECARGO_EQUIVALENCIA TIPO_BOOLEANO,
RE TIPO_PORCENTAJE, RE TIPO_PORCENTAJE,
IMPORTE_RE TIPO_IMPORTE, IMPORTE_RE TIPO_IMPORTE,
TIPO_CONTRATO VARCHAR(255) TIPO_CONTRATO VARCHAR(255),
CONDICIONES TIPO_NOTAS
); );
CREATE TABLE CONTRATOS_CLIENTE_DETALLES ( CREATE TABLE CONTRATOS_CLIENTE_DETALLES (
@ -3711,7 +3712,7 @@ CREATE VIEW V_CONTRATOS_CLIENTE(
NOMBRE_COMERCIAL_CLIENTE, NOMBRE_COMERCIAL_CLIENTE,
NIF_CIF, NIF_CIF,
NOMBRE, NOMBRE,
ID_DIRECCION, ID_DIRECCION,
CALLE, CALLE,
POBLACION, POBLACION,
PROVINCIA, PROVINCIA,
@ -3747,7 +3748,8 @@ CREATE VIEW V_CONTRATOS_CLIENTE(
ID_VENDEDOR, ID_VENDEDOR,
VENDEDOR, VENDEDOR,
PERSONA_CONTACTO, PERSONA_CONTACTO,
TIPO_CONTRATO) TIPO_CONTRATO,
CONDICIONES)
AS AS
SELECT CONTRATOS_CLIENTE.ID, SELECT CONTRATOS_CLIENTE.ID,
/* CONTRATOS_CLIENTE.ID_EMPRESA,*/ /* CONTRATOS_CLIENTE.ID_EMPRESA,*/
@ -3785,7 +3787,7 @@ SELECT CONTRATOS_CLIENTE.ID,
CONTRATOS_CLIENTE.IMPORTE_NETO, CONTRATOS_CLIENTE.IMPORTE_NETO,
CONTRATOS_CLIENTE.IMPORTE_PORTE, CONTRATOS_CLIENTE.IMPORTE_PORTE,
CONTRATOS_CLIENTE.ID_TIENDA, CONTRATOS_CLIENTE.ID_TIENDA,
COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA, COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA,
CONTRATOS_CLIENTE.BASE_IMPONIBLE, CONTRATOS_CLIENTE.BASE_IMPONIBLE,
CONTRATOS_CLIENTE.DESCUENTO, CONTRATOS_CLIENTE.DESCUENTO,
CONTRATOS_CLIENTE.IMPORTE_DESCUENTO, CONTRATOS_CLIENTE.IMPORTE_DESCUENTO,
@ -3794,13 +3796,15 @@ SELECT CONTRATOS_CLIENTE.ID,
CONTRATOS_CLIENTE.ID_VENDEDOR, CONTRATOS_CLIENTE.ID_VENDEDOR,
CONTACTOS2.NOMBRE AS VENDEDOR, CONTACTOS2.NOMBRE AS VENDEDOR,
CONTRATOS_CLIENTE.PERSONA_CONTACTO, CONTRATOS_CLIENTE.PERSONA_CONTACTO,
CONTRATOS_CLIENTE.TIPO_CONTRATO CONTRATOS_CLIENTE.TIPO_CONTRATO,
CONTRATOS_CLIENTE.CONDICIONES
FROM CONTRATOS_CLIENTE FROM CONTRATOS_CLIENTE
LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = CONTRATOS_CLIENTE.ID_CLIENTE) LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = CONTRATOS_CLIENTE.ID_CLIENTE)
LEFT JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO = CONTACTOS.ID) LEFT JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO = CONTACTOS.ID)
LEFT OUTER JOIN CONTACTOS CONTACTOS2 ON (CONTRATOS_CLIENTE.ID_VENDEDOR = CONTACTOS2.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) 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) LEFT JOIN TIENDAS ON (TIENDAS.ID = CONTRATOS_CLIENTE.ID_TIENDA)
; ;
/* View: V_REC_CLI_COMPENSADOS */ /* View: V_REC_CLI_COMPENSADOS */

17
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -37,8 +37,10 @@ type
function GetConfiguracionController : IConfiguracionController; function GetConfiguracionController : IConfiguracionController;
function GetFormaPagoDocumentos: String; function GetFormaPagoDocumentos: String;
function GetObservacionesDocumentos: String; function GetObservacionesDocumentos: String;
function GetCondicionesDocumentos: String;
procedure SetFormaPagoDocumentos(const Value: String); procedure SetFormaPagoDocumentos(const Value: String);
procedure SetObservacionesDocumentos(const Value: String); procedure SetObservacionesDocumentos(const Value: String);
procedure SetCondicionesDocumentos(const Value: String);
function GetLoadModulesEvent : TAppFactuGES_Event; function GetLoadModulesEvent : TAppFactuGES_Event;
procedure SetLoadModulesEvent (ALoadModulesEvent : TAppFactuGES_Event); procedure SetLoadModulesEvent (ALoadModulesEvent : TAppFactuGES_Event);
@ -84,6 +86,7 @@ type
property Configuracion : IConfiguracionController read GetConfiguracionController; property Configuracion : IConfiguracionController read GetConfiguracionController;
property FormaPagoDocumentos : String read GetFormaPagoDocumentos write SetFormaPagoDocumentos; property FormaPagoDocumentos : String read GetFormaPagoDocumentos write SetFormaPagoDocumentos;
property ObservacionesDocumentos : String read GetObservacionesDocumentos write SetObservacionesDocumentos; property ObservacionesDocumentos : String read GetObservacionesDocumentos write SetObservacionesDocumentos;
property CondicionesDocumentos : String read GetCondicionesDocumentos write SetCondicionesDocumentos;
end; end;
@ -97,6 +100,7 @@ type
FConfiguracionController : IConfiguracionController; FConfiguracionController : IConfiguracionController;
FFormaPagoDocumentos: String; FFormaPagoDocumentos: String;
FObservacionesDocumentos: String; FObservacionesDocumentos: String;
FcondicionesDocumentos: String;
FAppSplashForm : IAppSplashForm; FAppSplashForm : IAppSplashForm;
FHostManager : THostManager; FHostManager : THostManager;
@ -121,8 +125,10 @@ type
function GetConfiguracionController : IConfiguracionController; function GetConfiguracionController : IConfiguracionController;
function GetFormaPagoDocumentos: String; function GetFormaPagoDocumentos: String;
function GetObservacionesDocumentos: String; function GetObservacionesDocumentos: String;
function GetCondicionesDocumentos: String;
procedure SetFormaPagoDocumentos(const Value: String); procedure SetFormaPagoDocumentos(const Value: String);
procedure SetObservacionesDocumentos(const Value: String); procedure SetObservacionesDocumentos(const Value: String);
procedure SetCondicionesDocumentos(const Value: String);
function GetLoadModulesEvent : TAppFactuGES_Event; function GetLoadModulesEvent : TAppFactuGES_Event;
procedure SetLoadModulesEvent (ALoadModulesEvent : TAppFactuGES_Event); procedure SetLoadModulesEvent (ALoadModulesEvent : TAppFactuGES_Event);
@ -182,6 +188,7 @@ type
property Configuracion : IConfiguracionController read GetConfiguracionController; property Configuracion : IConfiguracionController read GetConfiguracionController;
property FormaPagoDocumentos : String read GetFormaPagoDocumentos write SetFormaPagoDocumentos; property FormaPagoDocumentos : String read GetFormaPagoDocumentos write SetFormaPagoDocumentos;
property ObservacionesDocumentos : String read GetObservacionesDocumentos write SetObservacionesDocumentos; property ObservacionesDocumentos : String read GetObservacionesDocumentos write SetObservacionesDocumentos;
property CondicionesDocumentos : String read GetCondicionesDocumentos write SetCondicionesDocumentos;
end; end;
var var
@ -367,6 +374,11 @@ begin
Result := uAppInfoUtils.GetAppVersion; Result := uAppInfoUtils.GetAppVersion;
end; end;
function TAppFactuGES.GetCondicionesDocumentos: String;
begin
Result := FCondicionesDocumentos;
end;
function TAppFactuGES.GetConfiguracionController: IConfiguracionController; function TAppFactuGES.GetConfiguracionController: IConfiguracionController;
begin begin
Result := FConfiguracionController; Result := FConfiguracionController;
@ -541,6 +553,11 @@ begin
FAppSplashForm := AAppSplashForm; FAppSplashForm := AAppSplashForm;
end; end;
procedure TAppFactuGES.SetCondicionesDocumentos(const Value: String);
begin
FCondicionesDocumentos:= Value;
end;
procedure TAppFactuGES.SetLoadModulesEvent( procedure TAppFactuGES.SetLoadModulesEvent(
ALoadModulesEvent: TAppFactuGES_Event); ALoadModulesEvent: TAppFactuGES_Event);
begin begin

13
Source/Cliente/FactuGES.dproj
View File

@ -52,18 +52,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">3</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.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">5</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.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,5,3,0 FILEVERSION 2,5,5,0
PRODUCTVERSION 2,5,3,0 PRODUCTVERSION 2,5,5,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.5.3.0\0" VALUE "FileVersion", "2.5.5.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.5.3.0\0" VALUE "ProductVersion", "2.5.5.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

18
Source/Informes/1/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

16
Source/Informes/3/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

18
Source/Informes/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

32
Source/Informes/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

5
Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
View File

@ -92,16 +92,20 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
Width = 480 Width = 480
end end
inherited cxGridViewCANTIDAD: TcxGridDBColumn inherited cxGridViewCANTIDAD: TcxGridDBColumn
Properties.Alignment.Vert = taBottomJustify
Width = 48 Width = 48
end end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
Properties.Alignment.Vert = taBottomJustify
Width = 68 Width = 68
end end
inherited cxGridViewDESCUENTO: TcxGridDBColumn inherited cxGridViewDESCUENTO: TcxGridDBColumn
Properties.Alignment.Vert = taBottomJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Width = 29 Width = 29
end end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Properties.Alignment.Vert = taBottomJustify
Width = 56 Width = 56
end end
inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn
@ -111,6 +115,7 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
Width = 78 Width = 78
end end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn
Properties.Alignment.Vert = taBottomJustify
Width = 58 Width = 58
end end
end end

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

@ -756,6 +756,7 @@ begin
AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA)); AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA));
AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA));
AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA));
AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_COCINA));
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', False, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', False, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, AContrato.Detalles);
@ -766,6 +767,7 @@ begin
AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO)); AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO));
AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO));
AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO));
AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO));
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', False, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', False, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', False, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', False, AContrato.Detalles);
end; end;
@ -775,6 +777,7 @@ begin
AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_BANO)); AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_BANO));
AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO));
AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_BANO)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_BANO));
AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_BANO));
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', False, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', False, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles);
end; end;
@ -784,6 +787,7 @@ begin
AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO)); AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO));
AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO));
AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO));
AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO));
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', False, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', False, AContrato.Detalles);
end; end;
teObra: teObra:
@ -792,6 +796,7 @@ begin
AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_OBRA)); AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_OBRA));
AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA));
AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA));
AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_OBRA));
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', False, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', False, AContrato.Detalles);
end; end;
teVarios: teVarios:
@ -800,6 +805,7 @@ begin
AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS)); AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS));
AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS));
AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS));
AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_VARIOS));
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', False, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', False, AContrato.Detalles);
end; end;
end; end;

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

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

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

@ -9,13 +9,13 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{A3223E5F-2D10-45AF-8361-05537914212E}'; RID_Valores = '{2A7F5B24-C4EF-4CAC-84A7-B08B15EF9800}';
RID_Propiedades = '{506EF0BF-FB5A-4737-A7FD-09951FD2C7B8}'; RID_Propiedades = '{F8E7B5B9-507C-4C56-B5E9-8E608B097D89}';
RID_ListaAnosContratos = '{578CAF17-79FA-448E-BDEE-1FC0F15EFC68}'; RID_ListaAnosContratos = '{1395AD65-A076-4E6B-A38B-E97DD7EF440F}';
RID_ContratosClienteBeneficios = '{6A8C9891-3518-459A-969C-5760CBFDA3D3}'; RID_ContratosClienteBeneficios = '{AAE37D7A-37D3-4EBD-A74C-351C6F2C5266}';
RID_ContratosCliente = '{D4734C94-87F5-4A8B-A8FC-BBBF6121322C}'; RID_ContratosCliente = '{8C594040-2BE6-4C03-9027-A3D0DAC74C82}';
RID_TiposCapitulos = '{D2CDA279-9E7E-412A-901B-92F2F70555BA}'; RID_TiposCapitulos = '{8276E8DA-EDAA-4FBF-9109-A96A2234CE9E}';
RID_ContratosCliente_Detalles = '{EA4FF513-3EDB-4F49-9025-2C5011436584}'; RID_ContratosCliente_Detalles = '{2D7606E6-A13A-49D4-9520-8C7C1156CBD7}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -124,6 +124,7 @@ const
fld_ContratosClienteVENDEDOR = 'VENDEDOR'; fld_ContratosClienteVENDEDOR = 'VENDEDOR';
fld_ContratosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO'; fld_ContratosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
fld_ContratosClienteTIPO_CONTRATO = 'TIPO_CONTRATO'; fld_ContratosClienteTIPO_CONTRATO = 'TIPO_CONTRATO';
fld_ContratosClienteCONDICIONES = 'CONDICIONES';
{ ContratosCliente field indexes } { ContratosCliente field indexes }
idx_ContratosClienteID = 0; idx_ContratosClienteID = 0;
@ -171,6 +172,7 @@ const
idx_ContratosClienteVENDEDOR = 42; idx_ContratosClienteVENDEDOR = 42;
idx_ContratosClientePERSONA_CONTACTO = 43; idx_ContratosClientePERSONA_CONTACTO = 43;
idx_ContratosClienteTIPO_CONTRATO = 44; idx_ContratosClienteTIPO_CONTRATO = 44;
idx_ContratosClienteCONDICIONES = 45;
{ TiposCapitulos fields } { TiposCapitulos fields }
fld_TiposCapitulosID = 'ID'; fld_TiposCapitulosID = 'ID';
@ -229,7 +231,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{C2EFDF3D-8F14-4A69-8754-E2384C48DC25}'] ['{AA391BD6-AAF3-4DD2-B075-AE2234E80A89}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -288,7 +290,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{75054379-E40C-4CD7-96C1-46C26308E523}'] ['{23AECADA-9691-4879-8682-B6E356F94740}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -347,7 +349,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{417E2367-4285-4DF4-9854-1E44C8A5008B}'] ['{7301B623-1E33-4C34-B008-C34BF12FA616}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -382,7 +384,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{F9A3D0AB-50BF-4390-A1D7-228F020BF1BD}'] ['{23C65272-1CFD-4C99-9E4E-6F50BEAD3B7C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -537,7 +539,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{135031F8-11AD-44F9-8712-F24C96C7D409}'] ['{9AD6CC3E-D998-47A8-AADB-E4FD52CEDDFF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -715,6 +717,9 @@ type
procedure SetTIPO_CONTRATOValue(const aValue: String); procedure SetTIPO_CONTRATOValue(const aValue: String);
function GetTIPO_CONTRATOIsNull: Boolean; function GetTIPO_CONTRATOIsNull: Boolean;
procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean); procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean);
function GetCONDICIONESValue: IROStrings;
function GetCONDICIONESIsNull: Boolean;
procedure SetCONDICIONESIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -808,6 +813,8 @@ type
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property TIPO_CONTRATO: String read GetTIPO_CONTRATOValue write SetTIPO_CONTRATOValue; property TIPO_CONTRATO: String read GetTIPO_CONTRATOValue write SetTIPO_CONTRATOValue;
property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull; property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
property CONDICIONES: IROStrings read GetCONDICIONESValue;
property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull;
end; end;
{ TContratosClienteDataTableRules } { TContratosClienteDataTableRules }
@ -817,10 +824,12 @@ type
f_PLAZO_ENTREGA: IROStrings; f_PLAZO_ENTREGA: IROStrings;
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings; f_INCIDENCIAS: IROStrings;
f_CONDICIONES: IROStrings;
procedure FORMA_PAGO_OnChange(Sender: TObject); procedure FORMA_PAGO_OnChange(Sender: TObject);
procedure PLAZO_ENTREGA_OnChange(Sender: TObject); procedure PLAZO_ENTREGA_OnChange(Sender: TObject);
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);
procedure INCIDENCIAS_OnChange(Sender: TObject); procedure INCIDENCIAS_OnChange(Sender: TObject);
procedure CONDICIONES_OnChange(Sender: TObject);
protected protected
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; virtual; function GetIDValue: Integer; virtual;
@ -999,6 +1008,9 @@ type
procedure SetTIPO_CONTRATOValue(const aValue: String); virtual; procedure SetTIPO_CONTRATOValue(const aValue: String); virtual;
function GetTIPO_CONTRATOIsNull: Boolean; virtual; function GetTIPO_CONTRATOIsNull: Boolean; virtual;
procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean); virtual; procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetCONDICIONESValue: IROStrings; virtual;
function GetCONDICIONESIsNull: Boolean; virtual;
procedure SetCONDICIONESIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1091,6 +1103,8 @@ type
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property TIPO_CONTRATO: String read GetTIPO_CONTRATOValue write SetTIPO_CONTRATOValue; property TIPO_CONTRATO: String read GetTIPO_CONTRATOValue write SetTIPO_CONTRATOValue;
property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull; property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
property CONDICIONES: IROStrings read GetCONDICIONESValue;
property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1103,7 +1117,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{447F4E62-0CA7-42E6-A436-174E923F5865}'] ['{BFABE088-8874-4BDE-BA13-A4037F709389}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1198,7 +1212,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{642FAB02-5C40-4C1C-9F3D-010C305C3544}'] ['{5A701D96-0AC5-47D4-BCBC-9A1A4B8622B2}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1875,6 +1889,10 @@ begin
StrList := TStringList.Create; StrList := TStringList.Create;
StrList.OnChange := INCIDENCIAS_OnChange; StrList.OnChange := INCIDENCIAS_OnChange;
f_INCIDENCIAS := NewROStrings(StrList,True); f_INCIDENCIAS := NewROStrings(StrList,True);
StrList := TStringList.Create;
StrList.OnChange := CONDICIONES_OnChange;
f_CONDICIONES := NewROStrings(StrList,True);
end; end;
destructor TContratosClienteDataTableRules.Destroy; destructor TContratosClienteDataTableRules.Destroy;
@ -1902,6 +1920,11 @@ begin
if DataTable.Editing then DataTable.Fields[idx_ContratosClienteINCIDENCIAS].AsVariant := TStringList(Sender).Text; if DataTable.Editing then DataTable.Fields[idx_ContratosClienteINCIDENCIAS].AsVariant := TStringList(Sender).Text;
end; end;
procedure TContratosClienteDataTableRules.CONDICIONES_OnChange(Sender: TObject);
begin
if DataTable.Editing then DataTable.Fields[idx_ContratosClienteCONDICIONES].AsVariant := TStringList(Sender).Text;
end;
function TContratosClienteDataTableRules.GetIDValue: Integer; function TContratosClienteDataTableRules.GetIDValue: Integer;
begin begin
result := DataTable.Fields[idx_ContratosClienteID].AsInteger; result := DataTable.Fields[idx_ContratosClienteID].AsInteger;
@ -2831,6 +2854,23 @@ begin
DataTable.Fields[idx_ContratosClienteTIPO_CONTRATO].AsVariant := Null; DataTable.Fields[idx_ContratosClienteTIPO_CONTRATO].AsVariant := Null;
end; end;
function TContratosClienteDataTableRules.GetCONDICIONESValue: IROStrings;
begin
result := f_CONDICIONES;
result.Text := DataTable.Fields[idx_ContratosClienteCONDICIONES].AsString;
end;
function TContratosClienteDataTableRules.GetCONDICIONESIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteCONDICIONES].IsNull;
end;
procedure TContratosClienteDataTableRules.SetCONDICIONESIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteCONDICIONES].AsVariant := Null;
end;
{ TTiposCapitulosDataTableRules } { TTiposCapitulosDataTableRules }
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable); constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,18 +9,18 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{ACD58DAA-F31F-4349-BA59-32F5BB5C3E5E}'; RID_ValoresDelta = '{BFD88912-FE88-468F-A484-70A3F0D4F4B1}';
RID_PropiedadesDelta = '{B5FFFD19-4935-4CB2-8987-1762AC2EDFA6}'; RID_PropiedadesDelta = '{41AC59EC-C092-48C0-9692-4DDFDD4DD96A}';
RID_ListaAnosContratosDelta = '{D47F07C0-6EA3-47C0-9CAE-36FEAE8310C6}'; RID_ListaAnosContratosDelta = '{207FEB34-67B0-49C5-9A68-B112947AEE94}';
RID_ContratosClienteBeneficiosDelta = '{432F7094-684F-436C-8BCF-CEF1FC9C4BA9}'; RID_ContratosClienteBeneficiosDelta = '{C9D17A9C-E90A-4A84-AC1B-7DDCC9E2E3C7}';
RID_ContratosClienteDelta = '{689F7295-72C8-4658-A6B8-CF751A4F8E74}'; RID_ContratosClienteDelta = '{22B8C14E-C907-45A6-8069-CA587DA68F0B}';
RID_TiposCapitulosDelta = '{3D0913EE-324F-43C6-9F91-30143D154B25}'; RID_TiposCapitulosDelta = '{F59CAC54-3765-45A0-AF74-D39B5ABDF12B}';
RID_ContratosCliente_DetallesDelta = '{BA05CF81-F011-4DC0-BCD5-065A91F1F4F1}'; RID_ContratosCliente_DetallesDelta = '{C6E1AC80-D8CD-4971-AC82-3636D2C206D1}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{ACD58DAA-F31F-4349-BA59-32F5BB5C3E5E}'] ['{BFD88912-FE88-468F-A484-70A3F0D4F4B1}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer; function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{B5FFFD19-4935-4CB2-8987-1762AC2EDFA6}'] ['{41AC59EC-C092-48C0-9692-4DDFDD4DD96A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta } { IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos) IListaAnosContratosDelta = interface(IListaAnosContratos)
['{D47F07C0-6EA3-47C0-9CAE-36FEAE8310C6}'] ['{207FEB34-67B0-49C5-9A68-B112947AEE94}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta } { IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{432F7094-684F-436C-8BCF-CEF1FC9C4BA9}'] ['{C9D17A9C-E90A-4A84-AC1B-7DDCC9E2E3C7}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -324,7 +324,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{689F7295-72C8-4658-A6B8-CF751A4F8E74}'] ['{22B8C14E-C907-45A6-8069-CA587DA68F0B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -371,6 +371,7 @@ type
function GetOldVENDEDORValue : String; function GetOldVENDEDORValue : String;
function GetOldPERSONA_CONTACTOValue : String; function GetOldPERSONA_CONTACTOValue : String;
function GetOldTIPO_CONTRATOValue : String; function GetOldTIPO_CONTRATOValue : String;
function GetOldCONDICIONESValue : IROStrings;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -418,6 +419,7 @@ type
property OldVENDEDOR : String read GetOldVENDEDORValue; property OldVENDEDOR : String read GetOldVENDEDORValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue; property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue;
property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue;
end; end;
{ TContratosClienteBusinessProcessorRules } { TContratosClienteBusinessProcessorRules }
@ -427,10 +429,12 @@ type
f_PLAZO_ENTREGA: IROStrings; f_PLAZO_ENTREGA: IROStrings;
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings; f_INCIDENCIAS: IROStrings;
f_CONDICIONES: IROStrings;
procedure FORMA_PAGO_OnChange(Sender: TObject); procedure FORMA_PAGO_OnChange(Sender: TObject);
procedure PLAZO_ENTREGA_OnChange(Sender: TObject); procedure PLAZO_ENTREGA_OnChange(Sender: TObject);
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);
procedure INCIDENCIAS_OnChange(Sender: TObject); procedure INCIDENCIAS_OnChange(Sender: TObject);
procedure CONDICIONES_OnChange(Sender: TObject);
protected protected
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; virtual; function GetIDValue: Integer; virtual;
@ -699,6 +703,11 @@ type
function GetOldTIPO_CONTRATOIsNull: Boolean; virtual; function GetOldTIPO_CONTRATOIsNull: Boolean; virtual;
procedure SetTIPO_CONTRATOValue(const aValue: String); virtual; procedure SetTIPO_CONTRATOValue(const aValue: String); virtual;
procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean); virtual; procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetCONDICIONESValue: IROStrings; virtual;
function GetCONDICIONESIsNull: Boolean; virtual;
function GetOldCONDICIONESValue: IROStrings; virtual;
function GetOldCONDICIONESIsNull: Boolean; virtual;
procedure SetCONDICIONESIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -881,6 +890,10 @@ type
property TIPO_CONTRATOIsNull : Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull; property TIPO_CONTRATOIsNull : Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue; property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue;
property OldTIPO_CONTRATOIsNull : Boolean read GetOldTIPO_CONTRATOIsNull; property OldTIPO_CONTRATOIsNull : Boolean read GetOldTIPO_CONTRATOIsNull;
property CONDICIONES : IROStrings read GetCONDICIONESValue;
property CONDICIONESIsNull : Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull;
property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue;
property OldCONDICIONESIsNull : Boolean read GetOldCONDICIONESIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -890,7 +903,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{3D0913EE-324F-43C6-9F91-30143D154B25}'] ['{F59CAC54-3765-45A0-AF74-D39B5ABDF12B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -984,7 +997,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{BA05CF81-F011-4DC0-BCD5-065A91F1F4F1}'] ['{C6E1AC80-D8CD-4971-AC82-3636D2C206D1}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
@ -1841,6 +1854,10 @@ begin
StrList := TStringList.Create; StrList := TStringList.Create;
StrList.OnChange := INCIDENCIAS_OnChange; StrList.OnChange := INCIDENCIAS_OnChange;
f_INCIDENCIAS := NewROStrings(StrList,True); f_INCIDENCIAS := NewROStrings(StrList,True);
StrList := TStringList.Create;
StrList.OnChange := CONDICIONES_OnChange;
f_CONDICIONES := NewROStrings(StrList,True);
end; end;
destructor TContratosClienteBusinessProcessorRules.Destroy; destructor TContratosClienteBusinessProcessorRules.Destroy;
@ -1868,6 +1885,11 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteINCIDENCIAS] := TStringList(Sender).Text; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteINCIDENCIAS] := TStringList(Sender).Text;
end; end;
procedure TContratosClienteBusinessProcessorRules.CONDICIONES_OnChange(Sender: TObject);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCONDICIONES] := TStringList(Sender).Text;
end;
function TContratosClienteBusinessProcessorRules.GetIDValue: Integer; function TContratosClienteBusinessProcessorRules.GetIDValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID];
@ -3251,6 +3273,34 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTIPO_CONTRATO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTIPO_CONTRATO] := Null;
end; end;
function TContratosClienteBusinessProcessorRules.GetCONDICIONESValue: IROStrings;
begin
result := f_CONDICIONES;
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCONDICIONES];
end;
function TContratosClienteBusinessProcessorRules.GetCONDICIONESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCONDICIONES]);
end;
function TContratosClienteBusinessProcessorRules.GetOldCONDICIONESValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteCONDICIONES];
end;
function TContratosClienteBusinessProcessorRules.GetOldCONDICIONESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteCONDICIONES]);
end;
procedure TContratosClienteBusinessProcessorRules.SetCONDICIONESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCONDICIONES] := Null;
end;
{ TTiposCapitulosBusinessProcessorRules } { TTiposCapitulosBusinessProcessorRules }
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

2
Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
View File

@ -269,6 +269,7 @@ begin
Self.DataTable.FieldByName(fld_ContratosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos; Self.DataTable.FieldByName(fld_ContratosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos;
Self.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos; Self.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos;
Self.DataTable.FieldByName(fld_ContratosClienteCONDICIONES).AsString := AppFactuGES.CondicionesDocumentos;
AsignarVendedor; AsignarVendedor;
end; end;
@ -304,7 +305,6 @@ end;
procedure TBizContratoCliente.OnNewRecord(Sender: TDADataTable); procedure TBizContratoCliente.OnNewRecord(Sender: TDADataTable);
begin begin
inherited; inherited;
// ID := GetRecNo; // -1, -2, -3...
IniciarValoresContratoNuevo; IniciarValoresContratoNuevo;
end; end;

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

@ -176,33 +176,6 @@ object RptContratosCliente: TRptContratosCliente
DataType = datCurrency DataType = datCurrency
end> end>
end end
item
Params = <
item
Name = 'CODIGO'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL = 'SELECT VALOR_BLOB'#10'FROM CONFIGURACION'#10'WHERE CODIGO = :CODIGO'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'VALOR_BLOB'
TableField = 'VALOR_BLOB'
end>
end>
Name = 'Informe_Condiciones'
Fields = <
item
Name = 'VALOR_BLOB'
DataType = datBlob
end>
end
item item
Params = < Params = <
item item
@ -230,8 +203,9 @@ object RptContratosCliente: TRptContratosCliente
'.TELEFONO,'#10' V_CONTRATOS_CLIENTE.MOVIL,'#10' V_CONTRATOS_CLIENT' + '.TELEFONO,'#10' V_CONTRATOS_CLIENTE.MOVIL,'#10' V_CONTRATOS_CLIENT' +
'E.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CONTRATO' + 'E.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CONTRATO' +
'S_CLIENTE.PERSONA_CONTACTO,'#10' V_CONTRATOS_CLIENTE.VENDEDOR,'#10' ' + 'S_CLIENTE.PERSONA_CONTACTO,'#10' V_CONTRATOS_CLIENTE.VENDEDOR,'#10' ' +
' V_CONTRATOS_CLIENTE.TIPO_CONTRATO'#10'FROM'#10' V_CONTRATOS_CLIENTE' + ' V_CONTRATOS_CLIENTE.TIPO_CONTRATO,'#10' V_CONTRATOS_CLIENTE.CON' +
#10'WHERE'#10' V_CONTRATOS_CLIENTE.ID = :ID'#10 'DICIONES'#10'FROM'#10' V_CONTRATOS_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIE' +
'NTE.ID = :ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -353,6 +327,10 @@ object RptContratosCliente: TRptContratosCliente
item item
DatasetField = 'TIPO_CONTRATO' DatasetField = 'TIPO_CONTRATO'
TableField = 'TIPO_CONTRATO' TableField = 'TIPO_CONTRATO'
end
item
DatasetField = 'CONDICIONES'
TableField = 'CONDICIONES'
end> end>
end> end>
Name = 'Informe_Cabecera' Name = 'Informe_Cabecera'
@ -489,6 +467,10 @@ object RptContratosCliente: TRptContratosCliente
Name = 'TIPO_CONTRATO' Name = 'TIPO_CONTRATO'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'CONDICIONES'
DataType = datMemo
end> end>
ReadOnly = True ReadOnly = True
end end
@ -1035,7 +1017,7 @@ object RptContratosCliente: TRptContratosCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 41157.903052835650000000 ReportOptions.LastChange = 41513.574229155090000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
@ -1195,6 +1177,10 @@ object RptContratosCliente: TRptContratosCliente
Name = 'TIPO_CONTRATO' Name = 'TIPO_CONTRATO'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'CONDICIONES'
DataType = datMemo
end> end>
Params = < Params = <
item item
@ -1726,46 +1712,6 @@ object RptContratosCliente: TRptContratosCliente
Left = 440 Left = 440
Top = 128 Top = 128
end end
object frxDBCondiciones: TfrxDBDataset
UserName = 'frxDBCondiciones'
CloseDataSource = False
DataSource = DADSCondiciones
BCDToCurrency = False
Left = 352
Top = 192
end
object DADSCondiciones: TDADataSource
DataSet = tbl_Condiciones.Dataset
DataTable = tbl_Condiciones
Left = 352
Top = 248
end
object tbl_Condiciones: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'VALOR_BLOB'
DataType = datBlob
end>
Params = <
item
Name = 'CODIGO'
Value = ''
end>
MasterMappingMode = mmWhere
MasterParamsMappings.Strings = (
'ID_PRESUPUESTO=ID')
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = DABin2DataStreamer1
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moAllInOneFetch]
LogicalName = 'Informe_Condiciones'
IndexDefs = <>
Left = 352
Top = 304
end
object tbl_DetallesArticulos: TDAMemDataTable object tbl_DetallesArticulos: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <

21
Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas
View File

@ -64,9 +64,6 @@ type
cabeceraPOBLACION: TIBStringField; cabeceraPOBLACION: TIBStringField;
cabeceraPROVINCIA: TIBStringField; cabeceraPROVINCIA: TIBStringField;
cabeceraCODIGO_POSTAL: TIBStringField; cabeceraCODIGO_POSTAL: TIBStringField;
frxDBCondiciones: TfrxDBDataset;
DADSCondiciones: TDADataSource;
tbl_Condiciones: TDAMemDataTable;
tbl_DetallesArticulos: TDAMemDataTable; tbl_DetallesArticulos: TDAMemDataTable;
DADSDetallesArticulos: TDADataSource; DADSDetallesArticulos: TDADataSource;
frxDBDetallesArticulos: TfrxDBDataset; frxDBDetallesArticulos: TfrxDBDataset;
@ -403,7 +400,6 @@ begin
tbl_Cabecera.Active := False; tbl_Cabecera.Active := False;
tbl_Capitulos.Active := False; tbl_Capitulos.Active := False;
tbl_Detalles.Active := False; tbl_Detalles.Active := False;
tbl_Condiciones.Active := False;
FreeANDNIL(FListaNombresClientes); FreeANDNIL(FListaNombresClientes);
end; end;
@ -522,7 +518,6 @@ begin
tbl_Cabecera.Active := False; tbl_Cabecera.Active := False;
tbl_Capitulos.Active := False; tbl_Capitulos.Active := False;
tbl_Detalles.Active := False; tbl_Detalles.Active := False;
tbl_Condiciones.Active := False;
tbl_DetallesArticulos.Active := False; tbl_DetallesArticulos.Active := False;
tbl_Cabecera.ParamByName('ID').AsInteger := AID; tbl_Cabecera.ParamByName('ID').AsInteger := AID;
@ -537,22 +532,6 @@ begin
tbl_Capitulos.Active := True; tbl_Capitulos.Active := True;
tbl_Detalles.Active := True; tbl_Detalles.Active := True;
if (tbl_Cabecera.FieldByName('TIPO_CONTRATO').AsString = 'Cocina') then
tbl_Condiciones.ParamByName('CODIGO').AsString := 'CONDICIONES_COCINA'
else if (tbl_Cabecera.FieldByName('TIPO_CONTRATO').AsString = 'Baño') then
tbl_Condiciones.ParamByName('CODIGO').AsString := 'CONDICIONES_BANO'
else if (tbl_Cabecera.FieldByName('TIPO_CONTRATO').AsString = 'Armarios') then
tbl_Condiciones.ParamByName('CODIGO').AsString := 'CONDICIONES_ARMARIO'
else if (tbl_Cabecera.FieldByName('TIPO_CONTRATO').AsString = 'Electrodomésticos') then
tbl_Condiciones.ParamByName('CODIGO').AsString := 'CONDICIONES_ELECTRODOMESTICO'
else if (tbl_Cabecera.FieldByName('TIPO_CONTRATO').AsString = 'Obra') then
tbl_Condiciones.ParamByName('CODIGO').AsString := 'CONDICIONES_OBRA'
else if (tbl_Cabecera.FieldByName('TIPO_CONTRATO').AsString = 'Varios') then
tbl_Condiciones.ParamByName('CODIGO').AsString := 'CONDICIONES_VARIOS'
else
tbl_Condiciones.ParamByName('CODIGO').AsString := '';
tbl_Condiciones.Active := True;
tbl_DetallesArticulos.Active := True; tbl_DetallesArticulos.Active := True;
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString); AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);

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

@ -426,6 +426,10 @@ object srvContratosCliente: TsrvContratosCliente
item item
DatasetField = 'TIPO_CONTRATO' DatasetField = 'TIPO_CONTRATO'
TableField = 'TIPO_CONTRATO' TableField = 'TIPO_CONTRATO'
end
item
DatasetField = 'CONDICIONES'
TableField = 'CONDICIONES'
end> end>
end> end>
Name = 'ContratosCliente' Name = 'ContratosCliente'
@ -678,6 +682,10 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'ContratosCliente_TIPO_CONTRATO' DictionaryEntry = 'ContratosCliente_TIPO_CONTRATO'
end
item
Name = 'CONDICIONES'
DataType = datMemo
end> end>
end end
item item
@ -928,12 +936,259 @@ object srvContratosCliente: TsrvContratosCliente
Commands = < Commands = <
item item
Params = < Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTRATOS_CLI_ID'
Value = ''
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
Value = ''
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = ''
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ID_DIRECCION'
DataType = datInteger
Value = ''
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FECHA_CONTRATO'
DataType = datDateTime
Value = ''
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FORMA_PAGO'
DataType = datMemo
Value = ''
end
item
Name = 'PLAZO_ENTREGA'
DataType = datMemo
Value = ''
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
Value = ''
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = ''
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = ''
end
item
Name = 'IVA'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
end
item
Name = 'ID_TIENDA'
DataType = datInteger
Value = ''
end
item
Name = 'ID_VENDEDOR'
DataType = datInteger
Value = ''
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'RE'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
Value = ''
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
Value = ''
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
Value = ''
end
item item
Name = 'TIPO_CONTRATO' Name = 'TIPO_CONTRATO'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
end end
item
Name = 'CONDICIONES'
DataType = datMemo
Value = ''
end>
Statements = <
item
Connection = 'IBX'
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, CONDICIONES)'#10' VALUES'#10' (:ID, :I' +
'D_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION,' +
' :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, ' +
':SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :I' +
'NCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUAR' +
'IO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENT' +
'O,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPO' +
'RTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSO' +
'NA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELE' +
'FONO, :MOVIL, :TIPO_CONTRATO, :CONDICIONES)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_ContratosCliente'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = '0'
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'CONTRATOS_CLIENTE'
SQL = 'DELETE '#10' FROM'#10' CONTRATOS_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_ContratosCliente'
end
item
Params = <
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
@ -1126,56 +1381,7 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
end> end
Statements = <
item
Connection = 'IBX'
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
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_ContratosCliente'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = '0'
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'CONTRATOS_CLIENTE'
SQL = 'DELETE '#10' FROM'#10' CONTRATOS_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_ContratosCliente'
end
item
Params = <
item item
Name = 'TIPO_CONTRATO' Name = 'TIPO_CONTRATO'
DataType = datString DataType = datString
@ -1183,197 +1389,10 @@ object srvContratosCliente: TsrvContratosCliente
Value = '' Value = ''
end end
item item
Name = 'ID' Name = 'CONDICIONES'
DataType = datInteger
Value = ''
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
Value = ''
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = ''
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ID_DIRECCION'
DataType = datInteger
Value = ''
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FECHA_CONTRATO'
DataType = datDateTime
Value = ''
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FORMA_PAGO'
DataType = datMemo DataType = datMemo
Value = '' Value = ''
end end
item
Name = 'PLAZO_ENTREGA'
DataType = datMemo
Value = ''
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
Value = ''
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = ''
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = ''
end
item
Name = 'IVA'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
end
item
Name = 'ID_TIENDA'
DataType = datInteger
Value = ''
end
item
Name = 'ID_VENDEDOR'
DataType = datInteger
Value = ''
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'RE'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
Value = ''
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
Value = ''
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1402,7 +1421,8 @@ object srvContratosCliente: TsrvContratosCliente
'TO = :PERSONA_CONTACTO,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_' + 'TO = :PERSONA_CONTACTO,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_' +
'RE,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' TELEFO' + 'RE,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' TELEFO' +
'NO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' TIPO_CONTRATO = :TIPO_CO' + 'NO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' TIPO_CONTRATO = :TIPO_CO' +
'NTRATO'#10' WHERE'#10' (ID = :OLD_ID)'#10#10 'NTRATO,'#10' CONDICIONES = :CONDICIONES'#10' WHERE'#10' (ID = :OLD_ID' +
')'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

278
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
View File

@ -2,19 +2,19 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 332 Left = 332
Top = 147 Top = 147
Caption = 'Nuevo contrato de cliente' Caption = 'Nuevo contrato de cliente'
ClientHeight = 595 ClientHeight = 633
ClientWidth = 845 ClientWidth = 872
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 853 ExplicitWidth = 880
ExplicitHeight = 629 ExplicitHeight = 667
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 845 Width = 872
Caption = 'Nuevo contrato de cliente' Caption = 'Nuevo contrato de cliente'
ExplicitWidth = 845 ExplicitWidth = 872
inherited Image1: TImage inherited Image1: TImage
Left = 818 Left = 845
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -126,8 +126,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 845 Width = 872
ExplicitWidth = 845 ExplicitWidth = 872
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
@ -147,7 +147,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 845 ExplicitWidth = 872
object TBXSubmenuItem2: TTBXSubmenuItem [4] object TBXSubmenuItem2: TTBXSubmenuItem [4]
Caption = 'A&cciones' Caption = 'A&cciones'
object TBXItem34: TTBXItem object TBXItem34: TTBXItem
@ -162,28 +162,28 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 576 Top = 614
Width = 845 Width = 872
Panels = < Panels = <
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 576 ExplicitTop = 614
ExplicitWidth = 845 ExplicitWidth = 872
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 839 Width = 866
Height = 270 Height = 308
ActivePage = pagContenido ActivePage = pagCondiciones
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 839 ExplicitWidth = 866
ExplicitHeight = 270 ExplicitHeight = 308
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 831 ExplicitWidth = 858
ExplicitHeight = 242 ExplicitHeight = 280
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
@ -191,8 +191,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 831 Width = 858
Height = 242 Height = 280
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -204,12 +204,12 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 831 ExplicitWidth = 858
ExplicitHeight = 242 ExplicitHeight = 280
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 831 Width = 858
Height = 24 Height = 24
ExplicitWidth = 831 ExplicitWidth = 858
ExplicitHeight = 24 ExplicitHeight = 24
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Wrap = False Wrap = False
@ -226,84 +226,84 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitLeft = 368 ExplicitLeft = 368
ExplicitTop = 0 ExplicitTop = 0
end end
inherited UpDown1: TUpDown [6] inherited FontSize: TEdit
Left = 513 Left = 513
Top = 0 Top = 0
Width = 90
ExplicitLeft = 513 ExplicitLeft = 513
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 90
end end
inherited ToolButton13: TToolButton [7] inherited UpDown1: TUpDown
Left = 530 Left = 603
Top = 0 Top = 0
ExplicitLeft = 530 ExplicitLeft = 603
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton6: TToolButton [8] inherited ToolButton13: TToolButton
Left = 538 Left = 620
Top = 0 Top = 0
ExplicitLeft = 538 ExplicitLeft = 620
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton7: TToolButton [9] inherited ToolButton6: TToolButton
Left = 572 Left = 628
Top = 0 Top = 0
ExplicitLeft = 572 ExplicitLeft = 628
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton8: TToolButton [10] inherited ToolButton7: TToolButton
Left = 606 Left = 662
Top = 0 Top = 0
ExplicitLeft = 606 ExplicitLeft = 662
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton12: TToolButton [11] inherited ToolButton8: TToolButton
Left = 640 Left = 696
Top = 0 Top = 0
ExplicitLeft = 640 ExplicitLeft = 696
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton9: TToolButton [12] inherited ToolButton12: TToolButton
Left = 648 Left = 730
Top = 0 Top = 0
ExplicitLeft = 648 ExplicitLeft = 730
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton10: TToolButton [13] inherited ToolButton9: TToolButton
Left = 682 Left = 738
Top = 0 Top = 0
ExplicitLeft = 682 ExplicitLeft = 738
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton11: TToolButton [14] inherited ToolButton10: TToolButton
Left = 716 Left = 772
Top = 0 Top = 0
ExplicitLeft = 716 ExplicitLeft = 772
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontSize: TEdit [15] inherited ToolButton11: TToolButton
Left = 750 Left = 806
Top = 0 Top = 0
Width = 74 ExplicitLeft = 806
ExplicitLeft = 750
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 74
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 50 Top = 50
Width = 831 Width = 858
Height = 192 Height = 230
ExplicitTop = 50 ExplicitTop = 50
ExplicitWidth = 831 ExplicitWidth = 858
ExplicitHeight = 192 ExplicitHeight = 230
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 24 Top = 24
Width = 831 Width = 858
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 831 ExplicitWidth = 858
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 663 ExplicitWidth = 665
end end
end end
inherited cxLookupComboBox1: TcxLookupComboBox inherited cxLookupComboBox1: TcxLookupComboBox
@ -317,14 +317,59 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
end end
end end
object pagCondiciones: TTabSheet
Caption = 'Condiciones'
ImageIndex = 4
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 858
Height = 280
Align = alClient
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
object memCondiciones: TcxDBMemo
Left = 10
Top = 10
Align = alClient
DataBinding.DataField = 'CONDICIONES'
DataBinding.DataSource = dsDataTable
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 = 0
Height = 247
Width = 799
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem
Control = memCondiciones
ControlOptions.ShowBorder = False
end
end
end
end
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
Width = 831 Width = 858
Height = 242 Height = 280
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -334,25 +379,25 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 831 ExplicitWidth = 858
ExplicitHeight = 242 ExplicitHeight = 280
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 831 Width = 858
ExplicitWidth = 831 ExplicitWidth = 858
inherited eIncidenciaActiva: TcxDBCheckBox inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21 ExplicitHeight = 21
end end
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 831 Width = 858
Height = 214 Height = 252
ExplicitWidth = 831 ExplicitWidth = 858
ExplicitHeight = 214 ExplicitHeight = 252
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 827 ExplicitWidth = 854
ExplicitHeight = 197 ExplicitHeight = 235
Height = 197 Height = 235
Width = 827 Width = 854
end end
end end
end end
@ -363,8 +408,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inline frViewDocumentosContratoCliente1: TfrViewDocumentosContratoCliente inline frViewDocumentosContratoCliente1: TfrViewDocumentosContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 831 Width = 858
Height = 242 Height = 280
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -374,17 +419,17 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 831 ExplicitWidth = 858
ExplicitHeight = 242 ExplicitHeight = 280
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 831 Width = 858
ExplicitWidth = 834 ExplicitWidth = 858
end end
inherited ListView1: TListView inherited ListView1: TListView
Width = 831 Width = 858
Height = 219 Height = 257
ExplicitWidth = 834 ExplicitWidth = 858
ExplicitHeight = 300 ExplicitHeight = 257
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Left = 8 Left = 8
@ -394,17 +439,17 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
end end
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 845 Width = 872
ExplicitWidth = 845 ExplicitWidth = 872
inherited lbComentario: TLabel inherited lbComentario: TLabel
Width = 835 Width = 862
Height = 25 Height = 25
end end
end end
inline frViewTotales1: TfrViewTotales [5] inline frViewTotales1: TfrViewTotales [5]
Left = 0 Left = 0
Top = 382 Top = 420
Width = 845 Width = 872
Height = 194 Height = 194
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -415,22 +460,22 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitTop = 382 ExplicitTop = 420
ExplicitWidth = 845 ExplicitWidth = 872
ExplicitHeight = 194 ExplicitHeight = 194
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 845 Width = 872
ExplicitWidth = 845 ExplicitWidth = 872
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 416 Left = 429
Height = 122 Height = 122
ExplicitLeft = 416 ExplicitLeft = 429
ExplicitHeight = 122 ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 528 Left = 541
Width = 210 Width = 210
ExplicitLeft = 528 ExplicitLeft = 541
ExplicitWidth = 210 ExplicitWidth = 210
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
@ -439,16 +484,16 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 599 Left = 612
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 599 ExplicitLeft = 612
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 529 Left = 542
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 529 ExplicitLeft = 542
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
@ -456,26 +501,26 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Style.IsFontAssigned = True Style.IsFontAssigned = True
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 528 Left = 541
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 528 ExplicitLeft = 541
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 528 Left = 541
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 528 ExplicitLeft = 541
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 528 Left = 541
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 528 ExplicitLeft = 541
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 599 Left = 612
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 599 ExplicitLeft = 612
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
end end
@ -496,9 +541,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 81 Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 268 Left = 281
OnClick = frViewTotales1bTiposIVAClick OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 268 ExplicitLeft = 281
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
ExplicitWidth = 219 ExplicitWidth = 219
@ -1864,6 +1909,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Bitmap = {} Bitmap = {}
end end
inherited EditorActionList: TActionList [9] inherited EditorActionList: TActionList [9]
Left = 8
Top = 80
object actEnviarPorEMail: TAction object actEnviarPorEMail: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Enviar por e-mail...' Caption = 'Enviar por e-mail...'
@ -1876,6 +1923,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
end end
inherited dsDataTable: TDADataSource [10] inherited dsDataTable: TDADataSource [10]
Top = 80
end end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [11] inherited JvAppRegistryStorage: TJvAppRegistryStorage [11]
end end

6
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
View File

@ -19,7 +19,7 @@ uses
uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, cxPC, uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, cxPC,
uViewDocumentos, uViewDocumentos,
uViewDocumentosContratoCliente, uViewDatosYSeleccionClienteContrato, uViewDocumentosContratoCliente, uViewDatosYSeleccionClienteContrato,
cxLabel, uBizTiposIVA, uTiposIVAController; cxLabel, uBizTiposIVA, uTiposIVAController, dxLayoutControl;
type type
TfEditorContratoCliente = class(TfEditorDBItem, IEditorContratoCliente) TfEditorContratoCliente = class(TfEditorDBItem, IEditorContratoCliente)
@ -38,6 +38,10 @@ type
frViewDocumentosContratoCliente1: TfrViewDocumentosContratoCliente; frViewDocumentosContratoCliente1: TfrViewDocumentosContratoCliente;
frViewTotales1: TfrViewTotales; frViewTotales1: TfrViewTotales;
frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente; frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente;
pagCondiciones: TTabSheet;
dxLayoutControl1: TdxLayoutControl;
dxLayoutControl1Item1: TdxLayoutItem;
memCondiciones: TcxDBMemo;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);

3
Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas
View File

@ -329,7 +329,8 @@ begin
if (AItem.Index in [cxGridViewDESCUENTO.Index]) then if (AItem.Index in [cxGridViewDESCUENTO.Index]) then
begin begin
IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index; IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index;
if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO)
and (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_CONCEPTO) then
Result := False Result := False
end end
else if (AItem.Index in [cxGridViewPROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then else if (AItem.Index in [cxGridViewPROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then

3
Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.pas
View File

@ -70,7 +70,8 @@ begin
if (AItem.Index in [cxGridViewDESCUENTO.Index]) then if (AItem.Index in [cxGridViewDESCUENTO.Index]) then
begin begin
IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index; IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index;
if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO)
and (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_CONCEPTO) then
Result := False Result := False
end end
else else

2
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
View File

@ -2,6 +2,7 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn inherited cxGridViewTIPO: TcxGridDBColumn
Visible = True
VisibleForCustomization = False VisibleForCustomization = False
end end
object cxGridViewTIPO_ARTICULO: TcxGridDBColumn [3] object cxGridViewTIPO_ARTICULO: TcxGridDBColumn [3]
@ -39,6 +40,7 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Width = 383 Width = 383
end end
inherited cxGridViewCANTIDAD: TcxGridDBColumn [11] inherited cxGridViewCANTIDAD: TcxGridDBColumn [11]
Properties.Alignment.Vert = taBottomJustify
VisibleForCustomization = False VisibleForCustomization = False
Width = 39 Width = 39
end end

9
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas
View File

@ -369,9 +369,12 @@ begin
if (AItem.Index in [cxGridViewDESCUENTO.Index]) then if (AItem.Index in [cxGridViewDESCUENTO.Index]) then
begin begin
// IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index; //Esto es para que solo sea editable la columna dto en las lineas de tipo descuento (para hacer descuento por capitulo),
// if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then //además descuentos a nivel de lineas de detalle
// Result := False IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index;
if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO)
and (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_CONCEPTO) then
Result := False
end end
else if (AItem.Index in [cxGridViewPROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then else if (AItem.Index in [cxGridViewPROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then
begin begin

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -127,8 +127,6 @@ uses
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas', schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas',
schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas', schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
@ -136,7 +134,9 @@ uses
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas'; schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">3</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.3.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.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 17 de mayo de 2013 12:12</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">5</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.5.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.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 27 de agosto de 2013 11:43</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 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> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,5,3,0 FILEVERSION 2,5,5,0
PRODUCTVERSION 2,5,3,0 PRODUCTVERSION 2,5,5,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.5.3.0\0" VALUE "FileVersion", "2.5.5.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.5.3.0\0" VALUE "ProductVersion", "2.5.5.0\0"
VALUE "CompileDate", "jueves, 11 de julio de 2013 16:49\0" VALUE "CompileDate", "martes, 27 de agosto de 2013 13:55\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.