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

17
Source/ApplicationBase/uFactuGES_App.pas
View File

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

13
Source/Cliente/FactuGES.dproj
View File

@ -52,18 +52,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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><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"
1 VERSIONINFO
FILEVERSION 2,5,3,0
PRODUCTVERSION 2,5,3,0
FILEVERSION 2,5,5,0
PRODUCTVERSION 2,5,5,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.5.3.0\0"
VALUE "ProductVersion", "2.5.5.0\0"
END
END
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
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn
Properties.Alignment.Vert = taBottomJustify
Width = 48
end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
Properties.Alignment.Vert = taBottomJustify
Width = 68
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn
Properties.Alignment.Vert = taBottomJustify
HeaderAlignmentHorz = taRightJustify
Width = 29
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Properties.Alignment.Vert = taBottomJustify
Width = 56
end
inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn
@ -111,6 +115,7 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
Width = 78
end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn
Properties.Alignment.Vert = taBottomJustify
Width = 58
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.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_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_V, 'IMPORTES ', True, 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.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_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_AI, 'INTERIOR DE ARMARIO Nº ', False, AContrato.Detalles);
end;
@ -775,6 +777,7 @@ begin
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.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_V, 'IMPORTES ', True, AContrato.Detalles);
end;
@ -784,6 +787,7 @@ begin
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.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);
end;
teObra:
@ -792,6 +796,7 @@ begin
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.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);
end;
teVarios:
@ -800,6 +805,7 @@ begin
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.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);
end;
end;

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

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

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

@ -9,13 +9,13 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{A3223E5F-2D10-45AF-8361-05537914212E}';
RID_Propiedades = '{506EF0BF-FB5A-4737-A7FD-09951FD2C7B8}';
RID_ListaAnosContratos = '{578CAF17-79FA-448E-BDEE-1FC0F15EFC68}';
RID_ContratosClienteBeneficios = '{6A8C9891-3518-459A-969C-5760CBFDA3D3}';
RID_ContratosCliente = '{D4734C94-87F5-4A8B-A8FC-BBBF6121322C}';
RID_TiposCapitulos = '{D2CDA279-9E7E-412A-901B-92F2F70555BA}';
RID_ContratosCliente_Detalles = '{EA4FF513-3EDB-4F49-9025-2C5011436584}';
RID_Valores = '{2A7F5B24-C4EF-4CAC-84A7-B08B15EF9800}';
RID_Propiedades = '{F8E7B5B9-507C-4C56-B5E9-8E608B097D89}';
RID_ListaAnosContratos = '{1395AD65-A076-4E6B-A38B-E97DD7EF440F}';
RID_ContratosClienteBeneficios = '{AAE37D7A-37D3-4EBD-A74C-351C6F2C5266}';
RID_ContratosCliente = '{8C594040-2BE6-4C03-9027-A3D0DAC74C82}';
RID_TiposCapitulos = '{8276E8DA-EDAA-4FBF-9109-A96A2234CE9E}';
RID_ContratosCliente_Detalles = '{2D7606E6-A13A-49D4-9520-8C7C1156CBD7}';
{ Data table names }
nme_Valores = 'Valores';
@ -124,6 +124,7 @@ const
fld_ContratosClienteVENDEDOR = 'VENDEDOR';
fld_ContratosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
fld_ContratosClienteTIPO_CONTRATO = 'TIPO_CONTRATO';
fld_ContratosClienteCONDICIONES = 'CONDICIONES';
{ ContratosCliente field indexes }
idx_ContratosClienteID = 0;
@ -171,6 +172,7 @@ const
idx_ContratosClienteVENDEDOR = 42;
idx_ContratosClientePERSONA_CONTACTO = 43;
idx_ContratosClienteTIPO_CONTRATO = 44;
idx_ContratosClienteCONDICIONES = 45;
{ TiposCapitulos fields }
fld_TiposCapitulosID = 'ID';
@ -229,7 +231,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{C2EFDF3D-8F14-4A69-8754-E2384C48DC25}']
['{AA391BD6-AAF3-4DD2-B075-AE2234E80A89}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -288,7 +290,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{75054379-E40C-4CD7-96C1-46C26308E523}']
['{23AECADA-9691-4879-8682-B6E356F94740}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -347,7 +349,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{417E2367-4285-4DF4-9854-1E44C8A5008B}']
['{7301B623-1E33-4C34-B008-C34BF12FA616}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -382,7 +384,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{F9A3D0AB-50BF-4390-A1D7-228F020BF1BD}']
['{23C65272-1CFD-4C99-9E4E-6F50BEAD3B7C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -537,7 +539,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
['{135031F8-11AD-44F9-8712-F24C96C7D409}']
['{9AD6CC3E-D998-47A8-AADB-E4FD52CEDDFF}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -715,6 +717,9 @@ type
procedure SetTIPO_CONTRATOValue(const aValue: String);
function GetTIPO_CONTRATOIsNull: Boolean;
procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean);
function GetCONDICIONESValue: IROStrings;
function GetCONDICIONESIsNull: Boolean;
procedure SetCONDICIONESIsNull(const aValue: Boolean);
{ Properties }
@ -808,6 +813,8 @@ type
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property TIPO_CONTRATO: String read GetTIPO_CONTRATOValue write SetTIPO_CONTRATOValue;
property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
property CONDICIONES: IROStrings read GetCONDICIONESValue;
property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull;
end;
{ TContratosClienteDataTableRules }
@ -817,10 +824,12 @@ type
f_PLAZO_ENTREGA: IROStrings;
f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings;
f_CONDICIONES: IROStrings;
procedure FORMA_PAGO_OnChange(Sender: TObject);
procedure PLAZO_ENTREGA_OnChange(Sender: TObject);
procedure OBSERVACIONES_OnChange(Sender: TObject);
procedure INCIDENCIAS_OnChange(Sender: TObject);
procedure CONDICIONES_OnChange(Sender: TObject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
@ -999,6 +1008,9 @@ type
procedure SetTIPO_CONTRATOValue(const aValue: String); virtual;
function GetTIPO_CONTRATOIsNull: Boolean; virtual;
procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetCONDICIONESValue: IROStrings; virtual;
function GetCONDICIONESIsNull: Boolean; virtual;
procedure SetCONDICIONESIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -1091,6 +1103,8 @@ type
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property TIPO_CONTRATO: String read GetTIPO_CONTRATOValue write SetTIPO_CONTRATOValue;
property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
property CONDICIONES: IROStrings read GetCONDICIONESValue;
property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1103,7 +1117,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{447F4E62-0CA7-42E6-A436-174E923F5865}']
['{BFABE088-8874-4BDE-BA13-A4037F709389}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1198,7 +1212,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{642FAB02-5C40-4C1C-9F3D-010C305C3544}']
['{5A701D96-0AC5-47D4-BCBC-9A1A4B8622B2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1875,6 +1889,10 @@ begin
StrList := TStringList.Create;
StrList.OnChange := INCIDENCIAS_OnChange;
f_INCIDENCIAS := NewROStrings(StrList,True);
StrList := TStringList.Create;
StrList.OnChange := CONDICIONES_OnChange;
f_CONDICIONES := NewROStrings(StrList,True);
end;
destructor TContratosClienteDataTableRules.Destroy;
@ -1902,6 +1920,11 @@ begin
if DataTable.Editing then DataTable.Fields[idx_ContratosClienteINCIDENCIAS].AsVariant := TStringList(Sender).Text;
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;
begin
result := DataTable.Fields[idx_ContratosClienteID].AsInteger;
@ -2831,6 +2854,23 @@ begin
DataTable.Fields[idx_ContratosClienteTIPO_CONTRATO].AsVariant := Null;
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 }
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{ACD58DAA-F31F-4349-BA59-32F5BB5C3E5E}';
RID_PropiedadesDelta = '{B5FFFD19-4935-4CB2-8987-1762AC2EDFA6}';
RID_ListaAnosContratosDelta = '{D47F07C0-6EA3-47C0-9CAE-36FEAE8310C6}';
RID_ContratosClienteBeneficiosDelta = '{432F7094-684F-436C-8BCF-CEF1FC9C4BA9}';
RID_ContratosClienteDelta = '{689F7295-72C8-4658-A6B8-CF751A4F8E74}';
RID_TiposCapitulosDelta = '{3D0913EE-324F-43C6-9F91-30143D154B25}';
RID_ContratosCliente_DetallesDelta = '{BA05CF81-F011-4DC0-BCD5-065A91F1F4F1}';
RID_ValoresDelta = '{BFD88912-FE88-468F-A484-70A3F0D4F4B1}';
RID_PropiedadesDelta = '{41AC59EC-C092-48C0-9692-4DDFDD4DD96A}';
RID_ListaAnosContratosDelta = '{207FEB34-67B0-49C5-9A68-B112947AEE94}';
RID_ContratosClienteBeneficiosDelta = '{C9D17A9C-E90A-4A84-AC1B-7DDCC9E2E3C7}';
RID_ContratosClienteDelta = '{22B8C14E-C907-45A6-8069-CA587DA68F0B}';
RID_TiposCapitulosDelta = '{F59CAC54-3765-45A0-AF74-D39B5ABDF12B}';
RID_ContratosCliente_DetallesDelta = '{C6E1AC80-D8CD-4971-AC82-3636D2C206D1}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{ACD58DAA-F31F-4349-BA59-32F5BB5C3E5E}']
['{BFD88912-FE88-468F-A484-70A3F0D4F4B1}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{B5FFFD19-4935-4CB2-8987-1762AC2EDFA6}']
['{41AC59EC-C092-48C0-9692-4DDFDD4DD96A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
['{D47F07C0-6EA3-47C0-9CAE-36FEAE8310C6}']
['{207FEB34-67B0-49C5-9A68-B112947AEE94}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{432F7094-684F-436C-8BCF-CEF1FC9C4BA9}']
['{C9D17A9C-E90A-4A84-AC1B-7DDCC9E2E3C7}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@ -324,7 +324,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
['{689F7295-72C8-4658-A6B8-CF751A4F8E74}']
['{22B8C14E-C907-45A6-8069-CA587DA68F0B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -371,6 +371,7 @@ type
function GetOldVENDEDORValue : String;
function GetOldPERSONA_CONTACTOValue : String;
function GetOldTIPO_CONTRATOValue : String;
function GetOldCONDICIONESValue : IROStrings;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -418,6 +419,7 @@ type
property OldVENDEDOR : String read GetOldVENDEDORValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue;
property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue;
end;
{ TContratosClienteBusinessProcessorRules }
@ -427,10 +429,12 @@ type
f_PLAZO_ENTREGA: IROStrings;
f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings;
f_CONDICIONES: IROStrings;
procedure FORMA_PAGO_OnChange(Sender: TObject);
procedure PLAZO_ENTREGA_OnChange(Sender: TObject);
procedure OBSERVACIONES_OnChange(Sender: TObject);
procedure INCIDENCIAS_OnChange(Sender: TObject);
procedure CONDICIONES_OnChange(Sender: TObject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
@ -699,6 +703,11 @@ type
function GetOldTIPO_CONTRATOIsNull: Boolean; virtual;
procedure SetTIPO_CONTRATOValue(const aValue: String); 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 }
property ID : Integer read GetIDValue write SetIDValue;
@ -881,6 +890,10 @@ type
property TIPO_CONTRATOIsNull : Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue;
property OldTIPO_CONTRATOIsNull : Boolean read GetOldTIPO_CONTRATOIsNull;
property CONDICIONES : IROStrings read GetCONDICIONESValue;
property CONDICIONESIsNull : Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull;
property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue;
property OldCONDICIONESIsNull : Boolean read GetOldCONDICIONESIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -890,7 +903,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
['{3D0913EE-324F-43C6-9F91-30143D154B25}']
['{F59CAC54-3765-45A0-AF74-D39B5ABDF12B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -984,7 +997,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{BA05CF81-F011-4DC0-BCD5-065A91F1F4F1}']
['{C6E1AC80-D8CD-4971-AC82-3636D2C206D1}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
@ -1841,6 +1854,10 @@ begin
StrList := TStringList.Create;
StrList.OnChange := INCIDENCIAS_OnChange;
f_INCIDENCIAS := NewROStrings(StrList,True);
StrList := TStringList.Create;
StrList.OnChange := CONDICIONES_OnChange;
f_CONDICIONES := NewROStrings(StrList,True);
end;
destructor TContratosClienteBusinessProcessorRules.Destroy;
@ -1868,6 +1885,11 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteINCIDENCIAS] := TStringList(Sender).Text;
end;
procedure TContratosClienteBusinessProcessorRules.CONDICIONES_OnChange(Sender: TObject);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCONDICIONES] := TStringList(Sender).Text;
end;
function TContratosClienteBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID];
@ -3251,6 +3273,34 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTIPO_CONTRATO] := Null;
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 }
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_ContratosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos;
Self.DataTable.FieldByName(fld_ContratosClienteCONDICIONES).AsString := AppFactuGES.CondicionesDocumentos;
AsignarVendedor;
end;
@ -304,7 +305,6 @@ end;
procedure TBizContratoCliente.OnNewRecord(Sender: TDADataTable);
begin
inherited;
// ID := GetRecNo; // -1, -2, -3...
IniciarValoresContratoNuevo;
end;

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

@ -176,33 +176,6 @@ object RptContratosCliente: TRptContratosCliente
DataType = datCurrency
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
Params = <
item
@ -230,8 +203,9 @@ object RptContratosCliente: TRptContratosCliente
'.TELEFONO,'#10' V_CONTRATOS_CLIENTE.MOVIL,'#10' V_CONTRATOS_CLIENT' +
'E.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CONTRATO' +
'S_CLIENTE.PERSONA_CONTACTO,'#10' V_CONTRATOS_CLIENTE.VENDEDOR,'#10' ' +
' V_CONTRATOS_CLIENTE.TIPO_CONTRATO'#10'FROM'#10' V_CONTRATOS_CLIENTE' +
#10'WHERE'#10' V_CONTRATOS_CLIENTE.ID = :ID'#10
' V_CONTRATOS_CLIENTE.TIPO_CONTRATO,'#10' V_CONTRATOS_CLIENTE.CON' +
'DICIONES'#10'FROM'#10' V_CONTRATOS_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIE' +
'NTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@ -353,6 +327,10 @@ object RptContratosCliente: TRptContratosCliente
item
DatasetField = 'TIPO_CONTRATO'
TableField = 'TIPO_CONTRATO'
end
item
DatasetField = 'CONDICIONES'
TableField = 'CONDICIONES'
end>
end>
Name = 'Informe_Cabecera'
@ -489,6 +467,10 @@ object RptContratosCliente: TRptContratosCliente
Name = 'TIPO_CONTRATO'
DataType = datString
Size = 255
end
item
Name = 'CONDICIONES'
DataType = datMemo
end>
ReadOnly = True
end
@ -1035,7 +1017,7 @@ object RptContratosCliente: TRptContratosCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 41157.903052835650000000
ReportOptions.LastChange = 41513.574229155090000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False
@ -1195,6 +1177,10 @@ object RptContratosCliente: TRptContratosCliente
Name = 'TIPO_CONTRATO'
DataType = datString
Size = 255
end
item
Name = 'CONDICIONES'
DataType = datMemo
end>
Params = <
item
@ -1726,46 +1712,6 @@ object RptContratosCliente: TRptContratosCliente
Left = 440
Top = 128
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
RemoteUpdatesOptions = []
Fields = <

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

@ -64,9 +64,6 @@ type
cabeceraPOBLACION: TIBStringField;
cabeceraPROVINCIA: TIBStringField;
cabeceraCODIGO_POSTAL: TIBStringField;
frxDBCondiciones: TfrxDBDataset;
DADSCondiciones: TDADataSource;
tbl_Condiciones: TDAMemDataTable;
tbl_DetallesArticulos: TDAMemDataTable;
DADSDetallesArticulos: TDADataSource;
frxDBDetallesArticulos: TfrxDBDataset;
@ -403,7 +400,6 @@ begin
tbl_Cabecera.Active := False;
tbl_Capitulos.Active := False;
tbl_Detalles.Active := False;
tbl_Condiciones.Active := False;
FreeANDNIL(FListaNombresClientes);
end;
@ -522,7 +518,6 @@ begin
tbl_Cabecera.Active := False;
tbl_Capitulos.Active := False;
tbl_Detalles.Active := False;
tbl_Condiciones.Active := False;
tbl_DetallesArticulos.Active := False;
tbl_Cabecera.ParamByName('ID').AsInteger := AID;
@ -537,22 +532,6 @@ begin
tbl_Capitulos.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;
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
DatasetField = 'TIPO_CONTRATO'
TableField = 'TIPO_CONTRATO'
end
item
DatasetField = 'CONDICIONES'
TableField = 'CONDICIONES'
end>
end>
Name = 'ContratosCliente'
@ -678,6 +682,10 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString
Size = 255
DictionaryEntry = 'ContratosCliente_TIPO_CONTRATO'
end
item
Name = 'CONDICIONES'
DataType = datMemo
end>
end
item
@ -928,12 +936,259 @@ object srvContratosCliente: TsrvContratosCliente
Commands = <
item
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
Name = 'TIPO_CONTRATO'
DataType = datString
Size = 255
Value = ''
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
Name = 'ID'
DataType = datAutoInc
@ -1126,56 +1381,7 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString
Size = 25
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)'#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 = <
end
item
Name = 'TIPO_CONTRATO'
DataType = datString
@ -1183,197 +1389,10 @@ object srvContratosCliente: TsrvContratosCliente
Value = ''
end
item
Name = 'ID'
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'
Name = 'CONDICIONES'
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
Name = 'OLD_ID'
Value = ''
@ -1402,7 +1421,8 @@ object srvContratosCliente: TsrvContratosCliente
'TO = :PERSONA_CONTACTO,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_' +
'RE,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' TELEFO' +
'NO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' TIPO_CONTRATO = :TIPO_CO' +
'NTRATO'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
'NTRATO,'#10' CONDICIONES = :CONDICIONES'#10' WHERE'#10' (ID = :OLD_ID' +
')'#10#10
StatementType = stSQL
ColumnMappings = <>
end>

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

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

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

@ -19,7 +19,7 @@ uses
uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, cxPC,
uViewDocumentos,
uViewDocumentosContratoCliente, uViewDatosYSeleccionClienteContrato,
cxLabel, uBizTiposIVA, uTiposIVAController;
cxLabel, uBizTiposIVA, uTiposIVAController, dxLayoutControl;
type
TfEditorContratoCliente = class(TfEditorDBItem, IEditorContratoCliente)
@ -38,6 +38,10 @@ type
frViewDocumentosContratoCliente1: TfrViewDocumentosContratoCliente;
frViewTotales1: TfrViewTotales;
frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente;
pagCondiciones: TTabSheet;
dxLayoutControl1: TdxLayoutControl;
dxLayoutControl1Item1: TdxLayoutItem;
memCondiciones: TcxDBMemo;
procedure FormShow(Sender: TObject);
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
begin
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
end
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
begin
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
end
else

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

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

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

@ -369,9 +369,12 @@ begin
if (AItem.Index in [cxGridViewDESCUENTO.Index]) then
begin
// IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index;
// if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then
// Result := False
//Esto es para que solo sea editable la columna dto en las lineas de tipo descuento (para hacer descuento por capitulo),
//además descuentos a nivel de lineas de detalle
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
else if (AItem.Index in [cxGridViewPROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then
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',
schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_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',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_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',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_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 ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,5,3,0
PRODUCTVERSION 2,5,3,0
FILEVERSION 2,5,5,0
PRODUCTVERSION 2,5,5,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductVersion", "2.5.3.0\0"
VALUE "CompileDate", "jueves, 11 de julio de 2013 16:49\0"
VALUE "ProductVersion", "2.5.5.0\0"
VALUE "CompileDate", "martes, 27 de agosto de 2013 13:55\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.