Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Version 4.3.8

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@216 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2014-02-20 22:43:39 +00:00
parent a242a5f445
commit aba1c3e0e3
39 changed files with 778 additions and 356 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Database/scripts/factuges.sql
View File

@ -1353,13 +1353,14 @@ CREATE VIEW V_EMPRESAS(
ID_TIPO_IVA,
ID_FORMA_PAGO,
ID_ALMACEN,
ID_PERFIL)
ID_PERFIL,
VALIDEZ_PRESUPUESTOS)
AS
select E.ID, E.NIF_CIF, E.NOMBRE, E.RAZON_SOCIAL, E.CALLE, E.POBLACION,
E.PROVINCIA, E.CODIGO_POSTAL, E.TELEFONO_1, E.TELEFONO_2, E.MOVIL_1, E.MOVIL_2,
E.FAX, E.EMAIL_1, E.EMAIL_2, E.PAGINA_WEB, E.NOTAS, E.FECHA_ALTA, E.FECHA_MODIFICACION,
E.USUARIO, E.LOGOTIPO, E.REGISTRO_MERCANTIL, E.PARAM_TIEMPO, E.PARAM_MARGEN, E.ID_TIPO_IVA,
E.ID_FORMA_PAGO, E.ID_ALMACEN, EP.id_perfil
E.ID_FORMA_PAGO, E.ID_ALMACEN, EP.id_perfil, E.VALIDEZ_PRESUPUESTOS
from empresas E
left join empresas_PERFILES EP on (EP.ID_EMPRESA = E.ID)
;
@ -5193,7 +5194,6 @@ ALTER TABLE PEDIDOS_PROVEEDOR ADD CONSTRAINT FK_PEDIDOS_PROVEEDOR2 FOREIGN KEY (
ALTER TABLE PEDIDOS_PROVEEDOR ADD CONSTRAINT FK_PEDIDOS_PROVEEDOR_1 FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_PROVEEDOR (ID) ON DELETE SET NULL ON UPDATE CASCADE;
ALTER TABLE PRESUPUESTOS_CLIENTE ADD CONSTRAINT FK_PRESUPUESTOS_CLIENTE_1 FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID);
ALTER TABLE PRESUPUESTOS_CLIENTE ADD CONSTRAINT FK_PRESUPUESTOS_CLIENTE_2 FOREIGN KEY (ID_CLIENTE) REFERENCES CONTACTOS (ID);
alter table PRESUPUESTOS_CLIENTE add constraint FK_PRESUPUESTOS_CLIENTE_3 foreign key (ID_FACTURA_PROFORMA) references FACTURAS_PROFORMA(ID);
ALTER TABLE RECIBOS_CLIENTE ADD CONSTRAINT FK_RECIBOS_CLIENTE FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_CLIENTE (ID) ON DELETE CASCADE ON UPDATE CASCADE;
ALTER TABLE RECIBOS_CLIENTE ADD CONSTRAINT FK_RECIBOS_CLIENTE2 FOREIGN KEY (ID_REMESA) REFERENCES REMESAS_CLIENTE (ID) ON DELETE SET NULL ON UPDATE SET NULL;
ALTER TABLE RECIBOS_PROVEEDOR ADD CONSTRAINT FK_RECIBOS_PROVEEDOR FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_PROVEEDOR (ID) ON DELETE CASCADE ON UPDATE CASCADE;

4
Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
View File

@ -211,6 +211,10 @@ inherited DataModuleEmpresas: TDataModuleEmpresas
item
Name = 'ID_PERFIL'
DataType = datInteger
end
item
Name = 'VALIDEZ_PRESUPUESTOS'
DataType = datSmallInt
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

43
Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
View File

@ -9,8 +9,8 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Empresas = '{62467EEF-21A5-4B49-89AB-35AE73A15515}';
RID_EmpresasDatosBanco = '{EA93C21F-6570-4108-B25C-512F72920134}';
RID_Empresas = '{DB389F2C-AF2C-4C7E-BD9F-A3A39017C639}';
RID_EmpresasDatosBanco = '{EE4E0FEC-81F6-4D3D-9310-3C96C5E35E0B}';
{ Data table names }
nme_Empresas = 'Empresas';
@ -45,6 +45,7 @@ const
fld_EmpresasID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_EmpresasID_ALMACEN = 'ID_ALMACEN';
fld_EmpresasID_PERFIL = 'ID_PERFIL';
fld_EmpresasVALIDEZ_PRESUPUESTOS = 'VALIDEZ_PRESUPUESTOS';
{ Empresas field indexes }
idx_EmpresasID = 0;
@ -75,6 +76,7 @@ const
idx_EmpresasID_FORMA_PAGO = 25;
idx_EmpresasID_ALMACEN = 26;
idx_EmpresasID_PERFIL = 27;
idx_EmpresasVALIDEZ_PRESUPUESTOS = 28;
{ EmpresasDatosBanco fields }
fld_EmpresasDatosBancoID = 'ID';
@ -117,7 +119,7 @@ const
type
{ IEmpresas }
IEmpresas = interface(IDAStronglyTypedDataTable)
['{81B08C9A-BF70-4385-BDA7-302F3F2075B3}']
['{3258A439-7ECA-4924-ADC8-F32ED996CBEA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -229,6 +231,10 @@ type
procedure SetID_PERFILValue(const aValue: Integer);
function GetID_PERFILIsNull: Boolean;
procedure SetID_PERFILIsNull(const aValue: Boolean);
function GetVALIDEZ_PRESUPUESTOSValue: SmallInt;
procedure SetVALIDEZ_PRESUPUESTOSValue(const aValue: SmallInt);
function GetVALIDEZ_PRESUPUESTOSIsNull: Boolean;
procedure SetVALIDEZ_PRESUPUESTOSIsNull(const aValue: Boolean);
{ Properties }
@ -288,6 +294,8 @@ type
property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
property ID_PERFIL: Integer read GetID_PERFILValue write SetID_PERFILValue;
property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
property VALIDEZ_PRESUPUESTOS: SmallInt read GetVALIDEZ_PRESUPUESTOSValue write SetVALIDEZ_PRESUPUESTOSValue;
property VALIDEZ_PRESUPUESTOSIsNull: Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
end;
{ TEmpresasDataTableRules }
@ -409,6 +417,10 @@ type
procedure SetID_PERFILValue(const aValue: Integer); virtual;
function GetID_PERFILIsNull: Boolean; virtual;
procedure SetID_PERFILIsNull(const aValue: Boolean); virtual;
function GetVALIDEZ_PRESUPUESTOSValue: SmallInt; virtual;
procedure SetVALIDEZ_PRESUPUESTOSValue(const aValue: SmallInt); virtual;
function GetVALIDEZ_PRESUPUESTOSIsNull: Boolean; virtual;
procedure SetVALIDEZ_PRESUPUESTOSIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -467,6 +479,8 @@ type
property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
property ID_PERFIL: Integer read GetID_PERFILValue write SetID_PERFILValue;
property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
property VALIDEZ_PRESUPUESTOS: SmallInt read GetVALIDEZ_PRESUPUESTOSValue write SetVALIDEZ_PRESUPUESTOSValue;
property VALIDEZ_PRESUPUESTOSIsNull: Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -476,7 +490,7 @@ type
{ IEmpresasDatosBanco }
IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
['{75E6F351-83DD-4C64-A708-CBED48F69C95}']
['{392595DA-98CB-4179-BE5A-32F9667DCF5F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1321,6 +1335,27 @@ begin
DataTable.Fields[idx_EmpresasID_PERFIL].AsVariant := Null;
end;
function TEmpresasDataTableRules.GetVALIDEZ_PRESUPUESTOSValue: SmallInt;
begin
result := DataTable.Fields[idx_EmpresasVALIDEZ_PRESUPUESTOS].AsSmallInt;
end;
procedure TEmpresasDataTableRules.SetVALIDEZ_PRESUPUESTOSValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_EmpresasVALIDEZ_PRESUPUESTOS].AsSmallInt := aValue;
end;
function TEmpresasDataTableRules.GetVALIDEZ_PRESUPUESTOSIsNull: boolean;
begin
result := DataTable.Fields[idx_EmpresasVALIDEZ_PRESUPUESTOS].IsNull;
end;
procedure TEmpresasDataTableRules.SetVALIDEZ_PRESUPUESTOSIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_EmpresasVALIDEZ_PRESUPUESTOS].AsVariant := Null;
end;
{ TEmpresasDatosBancoDataTableRules }
constructor TEmpresasDatosBancoDataTableRules.Create(aDataTable: TDADataTable);

51
Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_EmpresasDelta = '{415F9B21-75FF-4944-BC51-36EE7893F213}';
RID_EmpresasDatosBancoDelta = '{89191BEE-980B-4F20-BC43-492662CF8779}';
RID_EmpresasDelta = '{D78C3F16-F8BB-4C07-BB77-B5B801803B96}';
RID_EmpresasDatosBancoDelta = '{C793A29B-3930-49F4-ABCD-2C5598D0D160}';
type
{ IEmpresasDelta }
IEmpresasDelta = interface(IEmpresas)
['{415F9B21-75FF-4944-BC51-36EE7893F213}']
['{D78C3F16-F8BB-4C07-BB77-B5B801803B96}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -45,6 +45,7 @@ type
function GetOldID_FORMA_PAGOValue : SmallInt;
function GetOldID_ALMACENValue : SmallInt;
function GetOldID_PERFILValue : Integer;
function GetOldVALIDEZ_PRESUPUESTOSValue : SmallInt;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -75,6 +76,7 @@ type
property OldID_FORMA_PAGO : SmallInt read GetOldID_FORMA_PAGOValue;
property OldID_ALMACEN : SmallInt read GetOldID_ALMACENValue;
property OldID_PERFIL : Integer read GetOldID_PERFILValue;
property OldVALIDEZ_PRESUPUESTOS : SmallInt read GetOldVALIDEZ_PRESUPUESTOSValue;
end;
{ TEmpresasBusinessProcessorRules }
@ -252,6 +254,12 @@ type
function GetOldID_PERFILIsNull: Boolean; virtual;
procedure SetID_PERFILValue(const aValue: Integer); virtual;
procedure SetID_PERFILIsNull(const aValue: Boolean); virtual;
function GetVALIDEZ_PRESUPUESTOSValue: SmallInt; virtual;
function GetVALIDEZ_PRESUPUESTOSIsNull: Boolean; virtual;
function GetOldVALIDEZ_PRESUPUESTOSValue: SmallInt; virtual;
function GetOldVALIDEZ_PRESUPUESTOSIsNull: Boolean; virtual;
procedure SetVALIDEZ_PRESUPUESTOSValue(const aValue: SmallInt); virtual;
procedure SetVALIDEZ_PRESUPUESTOSIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -366,6 +374,10 @@ type
property ID_PERFILIsNull : Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
property OldID_PERFIL : Integer read GetOldID_PERFILValue;
property OldID_PERFILIsNull : Boolean read GetOldID_PERFILIsNull;
property VALIDEZ_PRESUPUESTOS : SmallInt read GetVALIDEZ_PRESUPUESTOSValue write SetVALIDEZ_PRESUPUESTOSValue;
property VALIDEZ_PRESUPUESTOSIsNull : Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
property OldVALIDEZ_PRESUPUESTOS : SmallInt read GetOldVALIDEZ_PRESUPUESTOSValue;
property OldVALIDEZ_PRESUPUESTOSIsNull : Boolean read GetOldVALIDEZ_PRESUPUESTOSIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -375,7 +387,7 @@ type
{ IEmpresasDatosBancoDelta }
IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
['{89191BEE-980B-4F20-BC43-492662CF8779}']
['{C793A29B-3930-49F4-ABCD-2C5598D0D160}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -1502,6 +1514,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_PERFIL] := Null;
end;
function TEmpresasBusinessProcessorRules.GetVALIDEZ_PRESUPUESTOSValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS];
end;
function TEmpresasBusinessProcessorRules.GetVALIDEZ_PRESUPUESTOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS]);
end;
function TEmpresasBusinessProcessorRules.GetOldVALIDEZ_PRESUPUESTOSValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS];
end;
function TEmpresasBusinessProcessorRules.GetOldVALIDEZ_PRESUPUESTOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS]);
end;
procedure TEmpresasBusinessProcessorRules.SetVALIDEZ_PRESUPUESTOSValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS] := aValue;
end;
procedure TEmpresasBusinessProcessorRules.SetVALIDEZ_PRESUPUESTOSIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS] := Null;
end;
{ TEmpresasDatosBancoBusinessProcessorRules }
constructor TEmpresasDatosBancoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

43
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
View File

@ -136,6 +136,10 @@ object srvEmpresas: TsrvEmpresas
item
DatasetField = 'ID_PERFIL'
TableField = 'ID_PERFIL'
end
item
DatasetField = 'VALIDEZ_PRESUPUESTOS'
TableField = 'VALIDEZ_PRESUPUESTOS'
end>
end>
Name = 'Empresas'
@ -299,6 +303,10 @@ object srvEmpresas: TsrvEmpresas
item
Name = 'ID_PERFIL'
DataType = datInteger
end
item
Name = 'VALIDEZ_PRESUPUESTOS'
DataType = datSmallInt
end>
end
item
@ -688,6 +696,11 @@ object srvEmpresas: TsrvEmpresas
Name = 'ID_ALMACEN'
DataType = datSmallInt
Value = ''
end
item
Name = 'VALIDEZ_PRESUPUESTOS'
DataType = datSmallInt
Value = ''
end>
Statements = <
item
@ -700,13 +713,14 @@ object srvEmpresas: TsrvEmpresas
'FONO_2, MOVIL_1, MOVIL_2, '#10' FAX, EMAIL_1, EMAIL_2, PAGINA_WE' +
'B, NOTAS, FECHA_ALTA, '#10' FECHA_MODIFICACION, USUARIO, LOGOTIP' +
'O, REGISTRO_MERCANTIL, '#10' PARAM_TIEMPO, PARAM_MARGEN, ID_TIPO' +
'_IVA, ID_FORMA_PAGO, '#10' ID_ALMACEN)'#10' VALUES'#10' (:ID, :NIF_C' +
'IF, :NOMBRE, :RAZON_SOCIAL, :CALLE, :POBLACION,'#10' :PROVINCIA,' +
' :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, '#10' :MOVIL_1, :MOVI' +
'L_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, '#10' :NOTAS, :FECHA' +
'_ALTA, :FECHA_MODIFICACION, :USUARIO, '#10' :LOGOTIPO, :REGISTRO' +
'_MERCANTIL, :PARAM_TIEMPO, :PARAM_MARGEN, '#10' :ID_TIPO_IVA, :I' +
'D_FORMA_PAGO, :ID_ALMACEN)'#10
'_IVA, ID_FORMA_PAGO, '#10' ID_ALMACEN, VALIDEZ_PRESUPUESTOS)'#10' V' +
'ALUES'#10' (:ID, :NIF_CIF, :NOMBRE, :RAZON_SOCIAL, :CALLE, :POBLA' +
'CION,'#10' :PROVINCIA, :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2,' +
' '#10' :MOVIL_1, :MOVIL_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB' +
', '#10' :NOTAS, :FECHA_ALTA, :FECHA_MODIFICACION, :USUARIO, '#10' ' +
' :LOGOTIPO, :REGISTRO_MERCANTIL, :PARAM_TIEMPO, :PARAM_MARGEN, ' +
#10' :ID_TIPO_IVA, :ID_FORMA_PAGO, :ID_ALMACEN, :VALIDEZ_PRESUP' +
'UESTOS)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -879,9 +893,13 @@ object srvEmpresas: TsrvEmpresas
DataType = datSmallInt
Value = ''
end
item
Name = 'VALIDEZ_PRESUPUESTOS'
DataType = datSmallInt
Value = ''
end
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = ''
end>
Statements = <
@ -902,7 +920,8 @@ object srvEmpresas: TsrvEmpresas
'TIPO, '#10' REGISTRO_MERCANTIL = :REGISTRO_MERCANTIL, '#10' PARAM_' +
'TIEMPO = :PARAM_TIEMPO, '#10' PARAM_MARGEN = :PARAM_MARGEN, '#10' ' +
'ID_TIPO_IVA = :ID_TIPO_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,' +
' '#10' ID_ALMACEN = :ID_ALMACEN'#10' WHERE'#10' (ID = :OLD_ID)'
' '#10' ID_ALMACEN = :ID_ALMACEN,'#10' VALIDEZ_PRESUPUESTOS = :VALI' +
'DEZ_PRESUPUESTOS'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1232,9 +1251,9 @@ object srvEmpresas: TsrvEmpresas
Top = 90
DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="400" Height="300">'#13#10' <Entity Name="EmpresasDatosBanco" ' +
'Left="308,00" Top="0,00" />'#13#10' <Entity Name="Empresas" Left="0' +
',00" Top="1,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
'idth="400" Height="300">'#13#10' <Entity Name="Empresas" Left="0,00' +
'" Top="1,00" />'#13#10' <Entity Name="EmpresasDatosBanco" Left="308' +
',00" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
end
object DABin2DataStreamer: TDABin2DataStreamer
Left = 48

295
Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm
View File

@ -34,8 +34,8 @@ inherited frViewEmpresa: TfrViewEmpresa
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end
object eCalle: TcxDBTextEdit
Left = 162
Top = 304
Left = 169
Top = 331
DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
@ -52,12 +52,12 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
TabOrder = 9
Width = 223
end
object eCodigoPostal: TcxDBTextEdit
Left = 312
Top = 331
Left = 319
Top = 358
DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
@ -74,11 +74,11 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
TabOrder = 11
Width = 73
end
object ePaginaWeb: TcxDBTextEdit
Left = 510
Left = 517
Top = 220
DataBinding.DataField = 'PAGINA_WEB'
DataBinding.DataSource = DADataSource
@ -96,13 +96,35 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20
Width = 247
end
object eMailParticular: TcxDBTextEdit
Left = 517
Top = 193
DataBinding.DataField = 'EMAIL_2'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
Width = 247
end
object eMailParticular: TcxDBTextEdit
Left = 510
Top = 193
DataBinding.DataField = 'EMAIL_2'
object eMailTrabajo: TcxDBTextEdit
Left = 517
Top = 166
DataBinding.DataField = 'EMAIL_1'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@ -121,31 +143,9 @@ inherited frViewEmpresa: TfrViewEmpresa
TabOrder = 18
Width = 247
end
object eMailTrabajo: TcxDBTextEdit
Left = 510
Top = 166
DataBinding.DataField = 'EMAIL_1'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
Width = 247
end
object cxDBMemo1: TcxDBMemo
Left = 22
Top = 415
Top = 442
DataBinding.DataField = 'NOTAS'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
@ -162,12 +162,12 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
TabOrder = 13
Height = 75
Width = 318
end
object eTlfParticular: TcxDBTextEdit
Left = 510
Left = 517
Top = 55
DataBinding.DataField = 'TELEFONO_2'
DataBinding.DataSource = DADataSource
@ -185,57 +185,35 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
Width = 247
end
object eTlfTrabajo: TcxDBTextEdit
Left = 510
Top = 28
DataBinding.DataField = 'TELEFONO_1'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
Width = 247
end
object eTlfMovil: TcxDBTextEdit
Left = 510
Top = 82
DataBinding.DataField = 'MOVIL_1'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
Width = 247
end
object eFax: TcxDBTextEdit
Left = 510
Top = 109
DataBinding.DataField = 'FAX'
object eTlfTrabajo: TcxDBTextEdit
Left = 517
Top = 28
DataBinding.DataField = 'TELEFONO_1'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
Width = 247
end
object eTlfMovil: TcxDBTextEdit
Left = 517
Top = 82
DataBinding.DataField = 'MOVIL_1'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@ -254,8 +232,30 @@ inherited frViewEmpresa: TfrViewEmpresa
TabOrder = 16
Width = 247
end
object eFax: TcxDBTextEdit
Left = 517
Top = 109
DataBinding.DataField = 'FAX'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
Width = 247
end
object eNombre: TcxDBTextEdit
Left = 162
Left = 169
Top = 28
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource
@ -278,7 +278,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 223
end
object eNIFCIF: TcxDBTextEdit
Left = 162
Left = 169
Top = 55
DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = DADataSource
@ -301,7 +301,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 223
end
object memRegistroMercantil: TcxDBMemo
Left = 162
Left = 169
Top = 82
DataBinding.DataField = 'REGISTRO_MERCANTIL'
DataBinding.DataSource = DADataSource
@ -325,7 +325,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 223
end
object cxDBImage1: TcxDBImage
Left = 415
Left = 422
Top = 277
DataBinding.DataField = 'LOGOTIPO'
DataBinding.DataSource = DADataSource
@ -341,13 +341,13 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20
TabOrder = 21
Height = 249
Width = 313
end
object eParamMargen: TcxDBSpinEdit
Left = 162
Top = 247
Left = 169
Top = 274
DataBinding.DataField = 'PARAM_MARGEN'
DataBinding.DataSource = DADataSource
Properties.OnValidate = eParamMargenPropertiesValidate
@ -367,12 +367,12 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
TabOrder = 7
Width = 60
end
object eParamTiempo: TcxDBCurrencyEdit
Left = 285
Top = 247
Left = 292
Top = 274
DataBinding.DataField = 'PARAM_TIEMPO'
DataBinding.DataSource = DADataSource
Properties.Alignment.Horz = taRightJustify
@ -392,12 +392,12 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
TabOrder = 8
Width = 100
end
object cbProvincia: TcxDBComboBox
Left = 162
Top = 331
Left = 169
Top = 358
DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
@ -421,12 +421,12 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
TabOrder = 10
Width = 80
end
object cbPoblacion: TcxDBComboBox
Left = 162
Top = 358
Left = 169
Top = 385
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
@ -450,11 +450,38 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
TabOrder = 12
Width = 223
end
object cbFormaPago: TcxComboBox
Left = 162
Left = 169
Top = 190
Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsEditFixedList
Properties.DropDownRows = 25
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
Width = 202
end
object cbTipoIVA: TcxComboBox
Left = 169
Top = 163
Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsEditFixedList
@ -480,9 +507,9 @@ inherited frViewEmpresa: TfrViewEmpresa
TabOrder = 4
Width = 202
end
object cbTipoIVA: TcxComboBox
Left = 162
Top = 136
object cbAlmacen: TcxComboBox
Left = 169
Top = 217
Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsEditFixedList
Properties.DropDownRows = 25
@ -504,35 +531,32 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
Width = 223
end
object eValidez: TcxDBSpinEdit
Left = 169
Top = 136
DataBinding.DataField = 'VALIDEZ_PRESUPUESTOS'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Width = 202
end
object cbAlmacen: TcxComboBox
Left = 162
Top = 190
Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsEditFixedList
Properties.DropDownRows = 25
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
Width = 223
Width = 60
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
@ -565,6 +589,11 @@ inherited frViewEmpresa: TfrViewEmpresa
Control = memRegistroMercantil
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item24: TdxLayoutItem
Caption = 'Validez presupuestos en dias:'
Control = eValidez
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item16: TdxLayoutItem
Caption = 'IVA por defecto:'
Control = cbTipoIVA

2
Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas
View File

@ -92,6 +92,8 @@ type
cbTipoIVA: TcxComboBox;
dxLayoutControl1Item23: TdxLayoutItem;
cbAlmacen: TcxComboBox;
dxLayoutControl1Item24: TdxLayoutItem;
eValidez: TcxDBSpinEdit;
procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);

12
Source/Informes/1/InfFacturaProforma.fr3
View File

File diff suppressed because one or more lines are too long

18
Source/Informes/6/InfFacturaProforma.fr3
View File

File diff suppressed because one or more lines are too long

53
Source/Modulos/Facturas proforma/Controller/uFacturasProformaController.pas
View File

@ -61,6 +61,7 @@ type
function DarListaAnosFacturas: TStringList;
procedure FiltrarAno(AFactura: IBizFacturaProforma; ADynWhereDataTable: WideString; const Ano: String);
function CambiarSituacion(AFactura : IBizFacturaProforma; Situacion: String; AllItems: Boolean = false): Boolean;
end;
TFacturasProformaController = class(TControllerBase, IFacturasProformaController)
@ -134,6 +135,8 @@ type
function DarListaAnosFacturas: TStringList;
procedure FiltrarAno(AFactura: IBizFacturaProforma; ADynWhereDataTable: WideString; const Ano: String);
function CambiarSituacion(AFactura : IBizFacturaProforma; Situacion: String; AllItems: Boolean = false): Boolean;
end;
implementation
@ -431,6 +434,56 @@ begin
FiltrarEmpresa(Result);
end;
function TFacturasProformaController.CambiarSituacion(AFactura: IBizFacturaProforma; Situacion: String; AllItems: Boolean): Boolean;
// En el caso de cambiar almenos un elemento del conjunto se devuelve true
begin
if not Assigned(AFactura) then
raise Exception.Create ('AFactura no asignado');
ShowHourglassCursor;
try
if not AFactura.DataTable.Active then
AFactura.DataTable.Active := True;
if (AFactura.State in dsEditModes) then
AFactura.Cancel;
//Siempre cambiaremos de situacion el seleccionado
if AFactura.SITUACION <> Situacion then
begin
AFactura.DataTable.Edit;
AFactura.SITUACION := Situacion;
AFactura.DataTable.Post;
end;
//En el caso de querer modificar todos los items del objeto
if AllItems then
begin
with AFactura.DataTable do
begin
First;
while not EOF do
begin
if AFactura.SITUACION <> Situacion then
begin
AFactura.DataTable.Edit;
AFactura.SITUACION := Situacion;
AFactura.DataTable.Post;
end;
Next;
end;
end;
end;
AFactura.DataTable.ApplyUpdates;
Result := True;
finally
HideHourglassCursor;
end;
end;
constructor TFacturasProformaController.Create;
begin
inherited;

22
Source/Modulos/Facturas proforma/Views/uEditorFacturasProforma.dfm
View File

@ -67,11 +67,15 @@ inherited fEditorFacturasProforma: TfEditorFacturasProforma
Left = 427
Visible = True
ExplicitLeft = 427
ExplicitWidth = 117
ExplicitWidth = 76
object TBXItem38: TTBXItem
Action = actGenerarFactura
DisplayMode = nbdmImageAndText
end
object TBXItem39: TTBXItem
Action = actPagada
DisplayMode = nbdmImageAndText
end
end
end
inherited StatusBar: TJvStatusBar
@ -160,6 +164,9 @@ inherited fEditorFacturasProforma: TfEditorFacturasProforma
end
end
end
inherited ActionList1: TActionList
Left = 272
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 519
@ -190,8 +197,8 @@ inherited fEditorFacturasProforma: TfEditorFacturasProforma
end
end
inherited EditorActionList: TActionList [4]
Left = 136
Top = 176
Left = 192
Top = 192
inherited actNuevo: TAction
ImageIndex = 22
end
@ -223,10 +230,19 @@ inherited fEditorFacturasProforma: TfEditorFacturasProforma
object actGenerarFactura: TAction
Category = 'Archivo'
Caption = 'Generar factura'
Enabled = False
ImageIndex = 25
Visible = False
OnExecute = actGenerarFacturaExecute
OnUpdate = actGenerarFacturaUpdate
end
object actPagada: TAction
Category = 'Acciones'
Caption = 'Pagada'
ImageIndex = 25
OnExecute = actPagadaExecute
OnUpdate = actPagadaUpdate
end
end
inherited SmallImages: TPngImageList [5]
PngImages = <

46
Source/Modulos/Facturas proforma/Views/uEditorFacturasProforma.pas
View File

@ -38,6 +38,8 @@ type
frViewFacturasProforma1: TfrViewFacturasProforma;
actGenerarFactura: TAction;
TBXItem38: TTBXItem;
actPagada: TAction;
TBXItem39: TTBXItem;
procedure FormShow(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
procedure actNuevaFacturaExecute(Sender: TObject);
@ -46,6 +48,8 @@ type
procedure OnListaAnosChange(Sender: TObject; const Text: string);
procedure actGenerarFacturaExecute(Sender: TObject);
procedure actGenerarFacturaUpdate(Sender: TObject);
procedure actPagadaUpdate(Sender: TObject);
procedure actPagadaExecute(Sender: TObject);
private
FFacturas: IBizFacturaProforma;
@ -152,6 +156,44 @@ begin
actNuevo.Execute;
end;
procedure TfEditorFacturasProforma.actPagadaExecute(Sender: TObject);
var
AFacturas: IBizFacturaProforma;
AllItems: Boolean;
AFecha: Variant;
begin
AFacturas := Nil;
AllItems := False;
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
if AllItems then
begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
AFacturas := (Controller as IFacturasProformaController).ExtraerSeleccionados(Facturas) as IBizFacturaProforma;
end
else begin
AFacturas := Facturas;
end;
ViewGrid._Grid.BeginUpdate;
if Assigned(AFacturas) then
begin
FController.CambiarSituacion(AFacturas, CTE_PAGADA, AllItems);
actRefrescar.Execute;
end;
ViewGrid._Grid.EndUpdate;
end;
procedure TfEditorFacturasProforma.actPagadaUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := HayDatos
and ViewGrid.esSeleccionCeldaDatos
and (FFacturas.SITUACION = CTE_PENDIENTE);
end;
constructor TfEditorFacturasProforma.Create(AOwner: TComponent);
begin
inherited;
@ -325,6 +367,7 @@ var
begin
inherited;
{
Respuesta := JsNuevaFacturaDialog.Execute;
if Respuesta <> IDCANCEL then
@ -339,11 +382,14 @@ begin
actRefrescar.Execute;
end;
100 : begin // Albaran nuevo vacio
}
if FController.Anadir(Facturas) then
FController.Ver(Facturas);
{
end;
end;
end;
}
end;
procedure TfEditorFacturasProforma.OnListaAnosChange(Sender: TObject; const Text: string);

2
Source/Modulos/Facturas proforma/Views/uViewFacturasProforma.dfm
View File

@ -185,7 +185,9 @@ inherited frViewFacturasProforma: TfrViewFacturasProforma
DataBinding.FieldName = 'REFERENCIA_FACTURA_FINAL'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taRightJustify
Visible = False
HeaderAlignmentHorz = taRightJustify
VisibleForCustomization = False
end
end
inherited cxGridLevel: TcxGridLevel

52
Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas
View File

@ -34,7 +34,8 @@ type
const AHeaderText: String = '');
procedure VerDireccionEntrega(APedido : IBizPedidoCliente);
procedure VerProcesoCompleto(APedidos: IBizPedidoCliente; AllItems: Boolean = True);
function VerProcesoCompleto(APresupuesto: Integer): Boolean; overload;
procedure VerProcesoCompleto(APedidos: IBizPedidoCliente; AllItems: Boolean = True); overload;
function Nuevo : IBizPedidoCliente;
procedure Anadir(APedido : IBizPedidoCliente);
@ -123,6 +124,7 @@ type
function BuscarTodos(const AID_Cliente: Integer): IBizPedidoCliente; overload;
function BuscarPendientes : IBizPedidoCliente;
function BuscarSituacion(Const ASituacion: String) : IBizPedidoCliente;
function BuscarPedidosDePresupuesto(const IdPresupuesto: Integer): IBizPedidoCliente;
function BuscarPendientesPedir(const ID : Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
function BuscarPendientesPedirNoArticulos(const ID : Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
@ -137,7 +139,8 @@ type
procedure VerDireccionEntrega(APedido : IBizPedidoCliente);
function Duplicar(APedido: IBizPedidoCliente): IBizPedidoCliente;
procedure VerProcesoCompleto(APedidos: IBizPedidoCliente; AllItems: Boolean = True);
function VerProcesoCompleto(APresupuesto: Integer): Boolean; overload;
procedure VerProcesoCompleto(APedidos: IBizPedidoCliente; AllItems: Boolean = True); overload;
procedure Preview(APedido : IBizPedidoCliente; AllItems: Boolean = False;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
@ -242,6 +245,30 @@ begin
FiltrarEmpresa(Result);
end;
function TPedidosClienteController.BuscarPedidosDePresupuesto(const IdPresupuesto: Integer): IBizPedidoCliente;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := BuscarTodos;
// Filtrar los pedidos pendientes de recepcion
with Result.DataTable.DynamicWhere do
begin
// (ID_PRESUPUESTO = IdPresupuesto)
Condicion := NewBinaryExpression(NewField('', fld_PedidosClienteID_PRESUPUESTO), NewConstant(IdPresupuesto, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;
end;
function TPedidosClienteController.BuscarPendientes: IBizPedidoCliente;
var
Condicion: TDAWhereExpression;
@ -622,11 +649,30 @@ begin
end;
end;
function TPedidosClienteController.VerProcesoCompleto(APresupuesto: Integer): Boolean;
var
APedidos: IBizPedidoCliente;
begin
Result := True;
APedidos := BuscarPedidosDePresupuesto(APresupuesto);
if not Assigned(APedidos) then
raise Exception.Create ('Pedidos no asignado (VerProcesoCompleto)');
if not APedidos.DataTable.Active then
APedidos.DataTable.Active := True;
if (APedidos.DataTable.RecordCount > 0) then
VerProcesoCompleto(APedidos, True)
else
Result := False;
end;
procedure TPedidosClienteController.VerProcesoCompleto(APedidos: IBizPedidoCliente; AllItems: Boolean = True);
var
AModule : TModuleController;
APlugin : IMCProcesoPresupuestosCliente;
ListaIDPedidosCliente: TIntegerArray;
ListaIDPedidosCliente: TIntegerArray;
begin
if not Assigned(APedidos) then
raise Exception.Create ('Pedidos no asignado (VerProcesoCompleto)');

16
Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj
View File

@ -31,6 +31,7 @@
<Projects Include="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" />
<Projects Include="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" />
<Projects Include="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" />
<Projects Include="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
<Projects Include="..\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.dproj" />
<Projects Include="..\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.dproj" />
@ -402,6 +403,15 @@
<Target Name="FacturasProforma_data:Make">
<MSBuild Projects="..\Facturas proforma\Data\FacturasProforma_data.dproj" Targets="Make" />
</Target>
<Target Name="PresupuestosCliente_controller">
<MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="" />
</Target>
<Target Name="PresupuestosCliente_controller:Clean">
<MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="PresupuestosCliente_controller:Make">
<MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="PresupuestosCliente_view">
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="" />
</Target>
@ -412,13 +422,13 @@
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;ApplicationBase;GUIBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;PedidosCliente_model;PedidosCliente_data;PedidosCliente_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;PedCli_AlbCli_relation;PedCli_PedProv_relation;FacturasProveedor_controller;PedidosCliente_view;PedidosCliente_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view;FacturasCliente_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_plugin;ProcesoPresupuestosCliente_controller;ProcesoPresupuestosCliente_view;ProcesoPresupuestosCliente_plugin;PedCli_FacProforma_relation;FacturasProforma_data;PresupuestosCliente_view" />
<CallTarget Targets="Base;ApplicationBase;GUIBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;PedidosCliente_model;PedidosCliente_data;PedidosCliente_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;PedCli_AlbCli_relation;PedCli_PedProv_relation;FacturasProveedor_controller;PedidosCliente_view;PedidosCliente_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view;FacturasCliente_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_plugin;ProcesoPresupuestosCliente_controller;ProcesoPresupuestosCliente_view;ProcesoPresupuestosCliente_plugin;PedCli_FacProforma_relation;FacturasProforma_data;PresupuestosCliente_controller;PresupuestosCliente_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;ApplicationBase:Clean;GUIBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosCliente_model:Clean;PedidosCliente_data:Clean;PedidosCliente_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;PedCli_AlbCli_relation:Clean;PedCli_PedProv_relation:Clean;FacturasProveedor_controller:Clean;PedidosCliente_view:Clean;PedidosCliente_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean;FacturasCliente_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_plugin:Clean;ProcesoPresupuestosCliente_controller:Clean;ProcesoPresupuestosCliente_view:Clean;ProcesoPresupuestosCliente_plugin:Clean;PedCli_FacProforma_relation:Clean;FacturasProforma_data:Clean;PresupuestosCliente_view:Clean" />
<CallTarget Targets="Base:Clean;ApplicationBase:Clean;GUIBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosCliente_model:Clean;PedidosCliente_data:Clean;PedidosCliente_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;PedCli_AlbCli_relation:Clean;PedCli_PedProv_relation:Clean;FacturasProveedor_controller:Clean;PedidosCliente_view:Clean;PedidosCliente_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean;FacturasCliente_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_plugin:Clean;ProcesoPresupuestosCliente_controller:Clean;ProcesoPresupuestosCliente_view:Clean;ProcesoPresupuestosCliente_plugin:Clean;PedCli_FacProforma_relation:Clean;FacturasProforma_data:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;ApplicationBase:Make;GUIBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosCliente_model:Make;PedidosCliente_data:Make;PedidosCliente_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;PedCli_AlbCli_relation:Make;PedCli_PedProv_relation:Make;FacturasProveedor_controller:Make;PedidosCliente_view:Make;PedidosCliente_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make;FacturasCliente_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_plugin:Make;ProcesoPresupuestosCliente_controller:Make;ProcesoPresupuestosCliente_view:Make;ProcesoPresupuestosCliente_plugin:Make;PedCli_FacProforma_relation:Make;FacturasProforma_data:Make;PresupuestosCliente_view:Make" />
<CallTarget Targets="Base:Make;ApplicationBase:Make;GUIBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosCliente_model:Make;PedidosCliente_data:Make;PedidosCliente_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;PedCli_AlbCli_relation:Make;PedCli_PedProv_relation:Make;FacturasProveedor_controller:Make;PedidosCliente_view:Make;PedidosCliente_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make;FacturasCliente_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_plugin:Make;ProcesoPresupuestosCliente_controller:Make;ProcesoPresupuestosCliente_view:Make;ProcesoPresupuestosCliente_plugin:Make;PedCli_FacProforma_relation:Make;FacturasProforma_data:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

3
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -154,6 +154,7 @@ type
procedure BorrarBonificacion(APresupuesto : IBizPresupuestoCliente);
function DarListaAnosPresupuestos: TStringList;
procedure FiltrarAno(APresupuesto: IBizPresupuestoCliente; ADynWhereDataTable: WideString; const Ano: String);
end;
@ -568,7 +569,7 @@ begin
AEditor := NIL;
end;
end;
}
}
end;
procedure TPresupuestosClienteController.VerTodos(APresupuestos: IBizPresupuestoCliente;

2
Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
View File

@ -244,10 +244,12 @@ begin
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
FECHA_PRESUPUESTO := DateOf(Date);
FECHA_VIGENCIA := IncDay(Date, AppFactuGES.EmpresaActiva.VALIDEZ_PRESUPUESTOS);
INCIDENCIAS_ACTIVAS := 0;
// INCIDENCIAS := NIL;
REFERENCIA := '';
SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;
end;
procedure TBizPresupuestoCliente.IVAOnChange(Sender: TDACustomField);

16
Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj
View File

@ -20,6 +20,7 @@
<Projects Include="..\Facturas de cliente\Model\FacturasCliente_model.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Facturas proforma\Plugin\FacturasProforma_plugin.dproj" />
<Projects Include="..\Facturas proforma\Views\FacturasProforma_view.dproj" />
<Projects Include="..\Gestion de documentos\Controller\GestorDocumentos_controller.dproj" />
<Projects Include="..\Gestion de documentos\Data\GestorDocumentos_data.dproj" />
<Projects Include="..\Gestor de informes\Views\GestorInformes_view.dproj" />
@ -291,14 +292,23 @@
<Target Name="FacturasCliente_model:Make">
<MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProforma_view">
<MSBuild Projects="..\Facturas proforma\Views\FacturasProforma_view.dproj" Targets="" />
</Target>
<Target Name="FacturasProforma_view:Clean">
<MSBuild Projects="..\Facturas proforma\Views\FacturasProforma_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProforma_view:Make">
<MSBuild Projects="..\Facturas proforma\Views\FacturasProforma_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_data;GestorDocumentos_data;GestorDocumentos_controller;PresupuestosCliente_controller;PreCli_FacPro_relation;PreCli_PedCli_relation;PresupuestosCliente_view;PresupuestosCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;GestorInformes_view;PedidosProveedor_view;Articulos_model;FacturasProforma_plugin;PedidosCliente_view;FacturasCliente_model" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_data;GestorDocumentos_data;GestorDocumentos_controller;PresupuestosCliente_controller;PreCli_FacPro_relation;PreCli_PedCli_relation;PresupuestosCliente_view;PresupuestosCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;GestorInformes_view;PedidosProveedor_view;Articulos_model;FacturasProforma_plugin;PedidosCliente_view;FacturasCliente_model;FacturasProforma_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_data:Clean;GestorDocumentos_data:Clean;GestorDocumentos_controller:Clean;PresupuestosCliente_controller:Clean;PreCli_FacPro_relation:Clean;PreCli_PedCli_relation:Clean;PresupuestosCliente_view:Clean;PresupuestosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;GestorInformes_view:Clean;PedidosProveedor_view:Clean;Articulos_model:Clean;FacturasProforma_plugin:Clean;PedidosCliente_view:Clean;FacturasCliente_model:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_data:Clean;GestorDocumentos_data:Clean;GestorDocumentos_controller:Clean;PresupuestosCliente_controller:Clean;PreCli_FacPro_relation:Clean;PreCli_PedCli_relation:Clean;PresupuestosCliente_view:Clean;PresupuestosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;GestorInformes_view:Clean;PedidosProveedor_view:Clean;Articulos_model:Clean;FacturasProforma_plugin:Clean;PedidosCliente_view:Clean;FacturasCliente_model:Clean;FacturasProforma_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_data:Make;GestorDocumentos_data:Make;GestorDocumentos_controller:Make;PresupuestosCliente_controller:Make;PreCli_FacPro_relation:Make;PreCli_PedCli_relation:Make;PresupuestosCliente_view:Make;PresupuestosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;GestorInformes_view:Make;PedidosProveedor_view:Make;Articulos_model:Make;FacturasProforma_plugin:Make;PedidosCliente_view:Make;FacturasCliente_model:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_data:Make;GestorDocumentos_data:Make;GestorDocumentos_controller:Make;PresupuestosCliente_controller:Make;PreCli_FacPro_relation:Make;PreCli_PedCli_relation:Make;PresupuestosCliente_view:Make;PresupuestosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;GestorInformes_view:Make;PedidosProveedor_view:Make;Articulos_model:Make;FacturasProforma_plugin:Make;PedidosCliente_view:Make;FacturasCliente_model:Make;FacturasProforma_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

@ -208,14 +208,15 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
Name = 'IBX'
SQL =
'SELECT DET.ID, DET.ID_PRESUPUESTO,'#10' DET.POSICION, DET.TIPO' +
'_DETALLE,'#10' ARTICULOS.REFERENCIA, DET.CONCEPTO, DET.CANTIDA' +
'D, DET.IMPORTE_UNIDAD,'#10' DET.DESCUENTO, DET.IMPORTE_UNIDAD ' +
'- (DET.IMPORTE_UNIDAD * (COALESCE(DET.DESCUENTO,0) / 100)) as IM' +
'PORTE_NETO, DET.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA_PROV ' +
'as REFERENCIA_PROVEEDOR, DET.VISIBLE'#10'FROM PRESUPUESTOS_CLIENTE_D' +
'ETALLES DET'#10'LEFT OUTER JOIN ARTICULOS ON (DET.ID_ARTICULO = ARTI' +
'CULOS.ID)'#10#10'WHERE DET.ID_PRESUPUESTO = :ID_PRESUPUESTO AND {Where' +
'}'#10'ORDER BY DET.ID_PRESUPUESTO, DET.POSICION;'#10#10#10
'_DETALLE,'#10' ARTICULOS.REFERENCIA, F_RTFTOTEXT(DET.CONCEPTO)' +
' as CONCEPTO, DET.CANTIDAD, DET.IMPORTE_UNIDAD,'#10' DET.DESCU' +
'ENTO, DET.IMPORTE_UNIDAD - (DET.IMPORTE_UNIDAD * (COALESCE(DET.D' +
'ESCUENTO,0) / 100)) as IMPORTE_NETO, DET.IMPORTE_TOTAL,'#10' A' +
'RTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR, DET.VISIBLE'#10'FR' +
'OM PRESUPUESTOS_CLIENTE_DETALLES DET'#10'LEFT OUTER JOIN ARTICULOS O' +
'N (DET.ID_ARTICULO = ARTICULOS.ID)'#10#10'WHERE DET.ID_PRESUPUESTO = :' +
'ID_PRESUPUESTO AND {Where}'#10'ORDER BY DET.ID_PRESUPUESTO, DET.POSI' +
'CION;'#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -298,7 +299,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
Size = 32765
end
item
Name = 'CANTIDAD'

2
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
View File

@ -73,9 +73,9 @@ type
frxDBInformeListadoPresupuestosResumen: TfrxDBDataset;
DADSInformeListadoPresupuestosResumen: TDADataSource;
tbl_InformeListadoPresupuestosResumen: TDAMemDataTable;
tbl_Detalles: TDAMemDataTable;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
tbl_Detalles: TDAMemDataTable;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
function frxReportUserFunction(const MethodName: string;

17
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
View File

@ -167,7 +167,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
DockPos = 343
Visible = True
ExplicitLeft = 427
ExplicitWidth = 378
ExplicitWidth = 373
object TBXItem43: TTBXItem
Action = actAceptar
DisplayMode = nbdmImageAndText
@ -189,6 +189,10 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
object TBXItem46: TTBXItem
Action = actInformes
end
object TBXItem48: TTBXItem
Action = actVerProcesoCompleto
DisplayMode = nbdmImageAndText
end
end
end
inherited StatusBar: TJvStatusBar
@ -208,13 +212,17 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
object actGenerarAlbaranCli: TAction
Category = 'Acciones'
Caption = 'Generar albar'#225'n de cliente'
Enabled = False
ImageIndex = 23
Visible = False
OnExecute = actGenerarAlbaranCliExecute
end
object actGenerarFacturaProforma: TAction
Category = 'Acciones'
Caption = 'Generar factura proforma'
Enabled = False
ImageIndex = 24
Visible = False
OnExecute = actGenerarFacturaProformaExecute
OnUpdate = actGenerarFacturaProformaUpdate
end
@ -262,6 +270,13 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
OnExecute = actGenerarPedidoExecute
OnUpdate = actGenerarPedidoUpdate
end
object actVerProcesoCompleto: TAction
Category = 'Acciones'
Caption = 'Ver proceso completo'
ImageIndex = 2
OnExecute = actVerProcesoCompletoExecute
OnUpdate = actVerProcesoCompletoUpdate
end
end
inherited SmallImages: TPngImageList
PngImages = <

22
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
View File

@ -47,6 +47,8 @@ type
JSInformesDialog: TJSDialog;
TBXItem47: TTBXItem;
actGenerarPedido: TAction;
actVerProcesoCompleto: TAction;
TBXItem48: TTBXItem;
procedure FormShow(Sender: TObject);
procedure actGenerarAlbaranCliExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
@ -66,6 +68,8 @@ type
procedure OnListaAnosChange(Sender: TObject; const Text: string);
procedure actGenerarPedidoExecute(Sender: TObject);
procedure actGenerarPedidoUpdate(Sender: TObject);
procedure actVerProcesoCompletoUpdate(Sender: TObject);
procedure actVerProcesoCompletoExecute(Sender: TObject);
protected
FPresupuestos: IBizPresupuestoCliente;
@ -391,6 +395,24 @@ begin
end;
end;
procedure TfEditorPresupuestosCliente.actVerProcesoCompletoExecute(
Sender: TObject);
begin
inherited;
if not VerProcesoCompletoDeLosPedidosDelPresupuesto(FPresupuestos.ID) then
showmessage('El presupuesto no tiene pedidos relacionados, por lo que no se puede consultar el listado de documentos relacionados en el proceso del pedido del cliente');
end;
procedure TfEditorPresupuestosCliente.actVerProcesoCompletoUpdate(
Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := HayDatos
and not (ViewGrid.NumSeleccionados > 1)
and ViewGrid.esSeleccionCeldaDatos
and (FPresupuestos.SITUACION = SITUACION_PRESUPUESTO_ACEPTADO);
end;
procedure TfEditorPresupuestosCliente.AsignarVista;
begin
ViewGrid := CreateView(TfrViewPresupuestosCliente) as IViewPresupuestosCliente;

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

@ -136,7 +136,9 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
object cxGridViewFACTURA_PROFORMA: TcxGridDBColumn
Caption = 'Ref. factura proforma'
DataBinding.FieldName = 'FACTURA_PROFORMA'
Visible = False
BestFitMaxWidth = 25
VisibleForCustomization = False
Width = 25
end
end

13
Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.dfm
View File

@ -1,9 +1,11 @@
inherited fEditorProcesoPresupuestosCliente: TfEditorProcesoPresupuestosCliente
Caption = 'fEditorProcesoPresupuestosCliente'
Caption = 'Listado de documentos relacionados con un pedido de cliente'
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Caption = 'Listado de proceso completo de presupuesto de cliente'
Caption =
'Listado de documentos relacionados en un proceso completo de ped' +
'ido de cliente'
end
inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar
@ -39,6 +41,13 @@ inherited fEditorProcesoPresupuestosCliente: TfEditorProcesoPresupuestosCliente
Height = 255
ExplicitWidth = 894
ExplicitHeight = 255
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 894

7
Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.pas
View File

@ -52,6 +52,7 @@ type
property FacturasProforma: IBizFacturaProforma read GetFacturasProforma write SetFacturasProforma;
property FacturasCliente: IBizFacturaCliente read GetFacturasCliente write SetFacturasCliente;
procedure PonerTitulos(const ATitulo: string = ''); override;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
@ -155,6 +156,12 @@ begin
Result := FPedidosProveedor;
end;
procedure TfEditorProcesoPresupuestosCliente.PonerTitulos(
const ATitulo: string);
begin
// inherited; Para que no borre el caption
end;
procedure TfEditorProcesoPresupuestosCliente.SetAlbaranesCliente(const Value: IBizAlbaranCliente);
begin
FAlbaranesCliente := Value;

31
Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.dfm
View File

@ -28,6 +28,13 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
object cxGridViewFECHA_PEDIDO: TcxGridDBColumn
Caption = 'Fecha del pedido'
DataBinding.FieldName = 'FECHA_PEDIDO'
PropertiesClassName = 'TcxDateEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn
Caption = 'Ref. presupuesto'
DataBinding.FieldName = 'REFERENCIA_PRESUPUESTO'
end
end
object cxGridViewPedidosProveedor: TcxGridDBTableView [1]
@ -72,6 +79,9 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
object cxGridViewPedidosProveedorFECHA_PEDIDO: TcxGridDBColumn
Caption = 'Fecha del pedido'
DataBinding.FieldName = 'FECHA_PEDIDO'
PropertiesClassName = 'TcxDateEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
end
object cxGridViewAlbaranesProveedor: TcxGridDBTableView [2]
@ -112,6 +122,9 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
object cxGridViewAlbaranesProveedorFECHA_ALBARAN: TcxGridDBColumn
Caption = 'Fecha de albar'#225'n'
DataBinding.FieldName = 'FECHA_ALBARAN'
PropertiesClassName = 'TcxDateEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
end
object cxGridViewFacturasProveedor: TcxGridDBTableView [3]
@ -156,6 +169,9 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
object cxGridViewFacturasProveedorFECHA_FACTURA: TcxGridDBColumn
Caption = 'Fecha factura'
DataBinding.FieldName = 'FECHA_FACTURA'
PropertiesClassName = 'TcxDateEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
end
object cxGridViewAlbaranesCliente: TcxGridDBTableView [4]
@ -196,6 +212,9 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
object cxGridViewAlbaranesClienteFECHA_ALBARAN: TcxGridDBColumn
Caption = 'Fecha albar'#225'n'
DataBinding.FieldName = 'FECHA_ALBARAN'
PropertiesClassName = 'TcxDateEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
end
object cxGridViewFacturasCliente: TcxGridDBTableView [5]
@ -236,6 +255,9 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
object cxGridViewFacturasClienteFECHA_FACTURA: TcxGridDBColumn
Caption = 'Fecha'
DataBinding.FieldName = 'FECHA_FACTURA'
PropertiesClassName = 'TcxDateEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
end
object cxGridViewFacturasProforma: TcxGridDBTableView [6]
@ -276,13 +298,16 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
object cxGridViewFacturasProformaFECHA_FACTURA: TcxGridDBColumn
Caption = 'Fecha'
DataBinding.FieldName = 'FECHA_FACTURA'
PropertiesClassName = 'TcxDateEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
end
inherited cxGridLevel: TcxGridLevel
Options.DetailFrameColor = cl3DLight
Options.DetailTabsPosition = dtpTop
object cxGridLevelPedidosProveedor: TcxGridLevel
Caption = 'Documentos de Proveedor'
Caption = 'Pedidos/Albaranes/Facturas de Proveedor'
GridView = cxGridViewPedidosProveedor
object cxGridLevelAlbaranesProveedor: TcxGridLevel
GridView = cxGridViewAlbaranesProveedor
@ -292,13 +317,13 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
end
end
object cxGridAlbaranesCliente: TcxGridLevel
Caption = 'Documentos de Cliente'
Caption = 'Albaranes/Facturas de Cliente'
GridView = cxGridViewAlbaranesCliente
object cxGridFacturasCliente: TcxGridLevel
GridView = cxGridViewFacturasCliente
end
end
object cxGridLevel1: TcxGridLevel
object cxGridFacturasProforma: TcxGridLevel
Caption = 'Facturas Proforma'
GridView = cxGridViewFacturasProforma
end

5
Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.pas
View File

@ -14,7 +14,7 @@ uses
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, uBizPedidosCliente, uBizPedidosProveedor, uBizAlbaranesProveedor,
uBizFacturasProveedor, uBizAlbaranesCliente, uBizFacturasCliente, uBizFacturasProforma,
Grids, DBGrids;
Grids, DBGrids, cxCalendar;
type
IViewListadoProcesoPedidoCliente = interface(IViewGrid)
@ -85,9 +85,10 @@ type
dsFacturasProforma: TDADataSource;
cxGridViewFacturasProforma: TcxGridDBTableView;
cxGridViewFacturasProformaREFERENCIA: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxGridFacturasProforma: TcxGridLevel;
cxGridViewFacturasProformaSITUACION: TcxGridDBColumn;
cxGridViewFacturasProformaFECHA_FACTURA: TcxGridDBColumn;
cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn;
procedure CustomViewShow(Sender: TObject);
protected

2
Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas
View File

@ -175,7 +175,7 @@ begin
FPagos := NIL;
FRecibosCompensados := Nil;
FreeAndNIL(FPagosLink);
FreeAndNIL(FRecibosCompensadosLink);
// FreeAndNIL(FRecibosCompensadosLink);
FSeleccionableInterface := NIL;
inherited;
end;

19
Source/Modulos/Relaciones/Presupuestos de cliente - Pedidos de cliente/uGenerarPedidosCliUtils.pas
View File

@ -14,6 +14,8 @@ type
function GenerarPedidoCliPre(const IDPresupuesto : Integer) : Boolean; overload;
function GenerarPedidoCliPre(APresupuesto : IBizPresupuestoCliente) : Boolean; overload;
function VerProcesoCompletoDeLosPedidosDelPresupuesto(APresupuesto: Integer):Boolean;
implementation
{$R *.dfm}
@ -33,6 +35,7 @@ var
AClientesController : IClientesController;
{ Métodos auxiliares }
procedure CopiarPresupuestoAPedido(APresupuesto: IBizPresupuestoCliente; APedido : IBizPedidoCliente);
begin
if not Assigned(APedido) then
@ -47,7 +50,7 @@ begin
// El albarán tiene que venir ya abierto y posicionado donde hay que copiar
APedido.ID_PRESUPUESTO := APresupuesto.ID;
APedido.REFERENCIA_CLIENTE := APresupuesto.REFERENCIA_CLIENTE;
APedido.TIPO_PEDIDO := APresupuesto.TIPO_PRESUPUESTO;
APedido.TIPO_PEDIDO := APresupuesto.TIPO_PRESUPUESTO;
APedido.IMPORTE_NETO := APresupuesto.IMPORTE_NETO;
APedido.IMPORTE_PORTE := APresupuesto.IMPORTE_PORTE;
APedido.DESCUENTO := APresupuesto.DESCUENTO;
@ -61,7 +64,7 @@ begin
APresupuestosClienteController.RecuperarCliente(APresupuesto);
APedido.Cliente := APresupuesto.Cliente;
//Siempre cogeremos la primera direcci¢n del contacto para el envio
APedido.CALLE := APedido.Cliente.Direcciones.CALLE;
APedido.CODIGO_POSTAL := APedido.Cliente.Direcciones.CODIGO_POSTAL;
@ -393,4 +396,16 @@ begin
end;
}
function VerProcesoCompletoDeLosPedidosDelPresupuesto(APresupuesto: Integer):Boolean;
begin
if not Assigned(APedidosClienteController) then
Inicializar;
Result := APedidosClienteController.VerProcesoCompleto(APresupuesto);
if Assigned(APedidosClienteController) then
Finalizar;
end;
end.

1
Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas
View File

@ -396,4 +396,3 @@ end;
end.

58
Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.dproj
View File

@ -42,62 +42,23 @@
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
<DCC_MapFile>3</DCC_MapFile>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">RemesasProveedor_controller.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RemesasProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="RemesasProveedor_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\RecibosProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\RemesasProveedor_data.dcp" />
<DCCReference Include="..\..\Lib\RemesasProveedor_model.dcp" />
<DCCReference Include="..\..\Recibos de proveedor\Contactos_controller.dcp" />
<DCCReference Include="..\..\Recibos de proveedor\RecibosProveedor_controller.dcp" />
<DCCReference Include="..\..\Recibos de proveedor\RemesasProveedor_data.dcp" />
<DCCReference Include="..\..\Recibos de proveedor\RemesasProveedor_model.dcp" />
<DCCReference Include="uRemesasProveedorController.pas" />
<DCCReference Include="uRemesasProveedorReportController.pas" />
<DCCReference Include="View\uIEditorRemesaProveedor.pas" />
@ -105,11 +66,10 @@
<DCCReference Include="View\uIEditorRemesasProveedorPreview.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
Activate=0
EurekaLog Version=6011
Activate=1
Activate Handle=1
Save Log File=1
Foreground Tab=0
@ -587,5 +547,5 @@ Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
TextsCollection=
EurekaLog Last Line -->

45
Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas
View File

@ -233,28 +233,25 @@ begin
CreateEditor('EditorRemesaProveedor', IEditorRemesaProveedor, AEditor);
if Assigned(AEditor) then
with (AEditor as IEditorRemesaProveedor) do
begin
try
Controller := Self; //OJO ORDEN MUY IMPORTANTE
RemesaProveedor := ARemesaProveedor;
try
AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.RemesaProveedor := ARemesaProveedor;
//MODO CONSULTAR
if not EsModificable(ARemesaProveedor) then
begin
SetDataTableReadOnly(ARemesaProveedor.DataTable, True);
ReadOnly := True;
end;
ShowModal;
//MODO CONSULTAR (Se deja la tabla como estaba)
if ReadOnly then
SetDataTableReadOnly(ARemesaProveedor.DataTable, False);
finally
AEditor.Release;
AEditor := NIL;
//MODO CONSULTAR
if not EsModificable(ARemesaProveedor) then
begin
SetDataTableReadOnly(ARemesaProveedor.DataTable, True);
AEditor.ReadOnly := True;
end;
AEditor.ShowModal;
//MODO CONSULTAR (Se deja la tabla como estaba)
if AEditor.ReadOnly then
SetDataTableReadOnly(ARemesaProveedor.DataTable, False);
finally
AEditor.Release;
AEditor := NIL;
end;
end;
@ -461,8 +458,14 @@ begin
end;
procedure TRemesasProveedorController.RecuperarRecibos(ARemesaProveedor: IBizRemesaProveedor);
var
ARecibos : IBizRecibosProveedor;
begin
ARemesaProveedor.Recibos := RecibosProveedorController.BuscarRecibosRemesa(ARemesaProveedor.ID);
if not Assigned(ARemesaProveedor) then
raise Exception.Create ('ARemesaProveedor no asignada');
ARecibos := RecibosProveedorController.BuscarRecibosRemesa(ARemesaProveedor.ID);
ARemesaProveedor.Recibos := ARecibos;
end;
function TRemesasProveedorController.Existe(const ID: Integer): Boolean;

64
Source/Modulos/Remesas de proveedor/RemesasProveedor_Group.groupproj
View File

@ -9,7 +9,11 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
<Projects Include="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" />
<Projects Include="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" />
<Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
<Projects Include="..\Remesas de cliente\Views\RemesasCliente_view.dproj" />
<Projects Include="Controller\RemesasProveedor_controller.dproj" />
<Projects Include="Data\RemesasProveedor_data.dproj" />
<Projects Include="Model\RemesasProveedor_model.dproj" />
@ -85,15 +89,6 @@
<Target Name="RemesasProveedor_view:Make">
<MSBuild Projects="Views\RemesasProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="RemesasProveedor_plugin">
<MSBuild Projects="Plugin\RemesasProveedor_plugin.dproj" Targets="" />
</Target>
<Target Name="RemesasProveedor_plugin:Clean">
<MSBuild Projects="Plugin\RemesasProveedor_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="RemesasProveedor_plugin:Make">
<MSBuild Projects="Plugin\RemesasProveedor_plugin.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
</Target>
@ -103,6 +98,15 @@
<Target Name="FactuGES:Make">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
</Target>
<Target Name="RemesasProveedor_plugin">
<MSBuild Projects="Plugin\RemesasProveedor_plugin.dproj" Targets="" />
</Target>
<Target Name="RemesasProveedor_plugin:Clean">
<MSBuild Projects="Plugin\RemesasProveedor_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="RemesasProveedor_plugin:Make">
<MSBuild Projects="Plugin\RemesasProveedor_plugin.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES_Server">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
</Target>
@ -121,14 +125,50 @@
<Target Name="RecibosProveedor_view:Make">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="RemesasCliente_view">
<MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="" />
</Target>
<Target Name="RemesasCliente_view:Clean">
<MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="RemesasCliente_view:Make">
<MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="RecibosProveedor_controller">
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="" />
</Target>
<Target Name="RecibosProveedor_controller:Clean">
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosProveedor_controller:Make">
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="RecibosProveedor_data">
<MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="" />
</Target>
<Target Name="RecibosProveedor_data:Clean">
<MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosProveedor_data:Make">
<MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="Make" />
</Target>
<Target Name="RecibosProveedor_model">
<MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="" />
</Target>
<Target Name="RecibosProveedor_model:Clean">
<MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosProveedor_model:Make">
<MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasProveedor_model;RemesasProveedor_data;RemesasProveedor_controller;RemesasProveedor_view;RemesasProveedor_plugin;FactuGES;FactuGES_Server;RecibosProveedor_view" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasProveedor_model;RemesasProveedor_data;RemesasProveedor_controller;RemesasProveedor_view;FactuGES;RemesasProveedor_plugin;FactuGES_Server;RecibosProveedor_view;RemesasCliente_view;RecibosProveedor_controller;RecibosProveedor_data;RecibosProveedor_model" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasProveedor_model:Clean;RemesasProveedor_data:Clean;RemesasProveedor_controller:Clean;RemesasProveedor_view:Clean;RemesasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosProveedor_view:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasProveedor_model:Clean;RemesasProveedor_data:Clean;RemesasProveedor_controller:Clean;RemesasProveedor_view:Clean;FactuGES:Clean;RemesasProveedor_plugin:Clean;FactuGES_Server:Clean;RecibosProveedor_view:Clean;RemesasCliente_view:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_data:Clean;RecibosProveedor_model:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasProveedor_model:Make;RemesasProveedor_data:Make;RemesasProveedor_controller:Make;RemesasProveedor_view:Make;RemesasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosProveedor_view:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasProveedor_model:Make;RemesasProveedor_data:Make;RemesasProveedor_controller:Make;RemesasProveedor_view:Make;FactuGES:Make;RemesasProveedor_plugin:Make;FactuGES_Server:Make;RecibosProveedor_view:Make;RemesasCliente_view:Make;RecibosProveedor_controller:Make;RecibosProveedor_data:Make;RecibosProveedor_model:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

8
Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm
View File

@ -8,7 +8,6 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ClientWidth = 690
Scaled = False
OnClose = CustomEditorClose
ExplicitTop = -83
ExplicitWidth = 698
ExplicitHeight = 638
PixelsPerInch = 96
@ -48,6 +47,8 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
inherited lblDesbloquear: TcxLabel
Left = 592
ExplicitLeft = 592
AnchorX = 637
AnchorY = 14
end
end
inherited TBXDock: TTBXDock
@ -237,8 +238,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
item
Width = 200
end>
ExplicitLeft = 8
ExplicitTop = 597
ExplicitTop = 585
ExplicitWidth = 690
end
inline frViewTotales1: TfrViewTotales [4]
@ -255,7 +255,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ParentFont = False
TabOrder = 4
ReadOnly = False
ExplicitTop = 558
ExplicitTop = 539
ExplicitWidth = 690
ExplicitHeight = 46
inherited dxLayoutControl1: TdxLayoutControl

BIN
Source/Modulos/TiposDocumento/Controller/TiposDocumento_controller.dcu
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

7
Source/Servidor/FactuGES_Server.dpr
View File

@ -3,6 +3,7 @@ program FactuGES_Server;
{#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove!
uses
// ExceptionLog,
uROComInit,
uROComboService,
Forms,
@ -156,8 +157,6 @@ uses
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
srvFacturasProforma_Impl in '..\Modulos\Facturas proforma\Servidor\srvFacturasProforma_Impl.pas' {srvFacturasProforma: TDataAbstractService},
uBizFacturasProformaServer in '..\Modulos\Facturas proforma\Model\uBizFacturasProformaServer.pas',
uRptFacturasProforma_Server in '..\Modulos\Facturas proforma\Reports\uRptFacturasProforma_Server.pas' {RptFacturasProforma: TDataModule},
@ -171,7 +170,9 @@ uses
schTiposDocumentoClient_Intf in '..\Modulos\TiposDocumento\Model\schTiposDocumentoClient_Intf.pas',
schTiposDocumentoServer_Intf in '..\Modulos\TiposDocumento\Model\schTiposDocumentoServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

124
Source/Servidor/FactuGES_Server.dproj
View File

@ -22,7 +22,7 @@
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
@ -48,18 +48,18 @@
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
<Form>srvEmpresas</Form>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones_Impl</Form>
<DesignClass>TDataModule</DesignClass>
<Form>srvProvinciasPoblaciones_Impl</Form>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<Form>srvUsuarios</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvUsuarios</Form>
</DCCReference>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
@ -68,55 +68,55 @@
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass>
<Form>RptAlbaranesCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordAlbaranCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvAlbaranesCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
<Form>RptAlbaranesProveedor</Form>
<DesignClass>TDataModule</DesignClass>
<Form>RptAlbaranesProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordAlbaranProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvAlbaranesProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
<Form>srvAlmacenes</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass>
<Form>srvArticulos</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
<Form>RptComisiones</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvComisiones</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
@ -126,153 +126,153 @@
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
<Form>RptEtiquetasContacto</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass>
<Form>RptFichasEmpleado</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
<Form>srvContactos</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvFabricantes</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
<Form>RptFacturasCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordFacturaCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvFacturasCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
<Form>RptFacturasProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvFacturasProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas proforma\Model\uBizFacturasProformaServer.pas"/>
<DCCReference Include="..\Modulos\Facturas proforma\Reports\uRptFacturasProforma_Server.pas">
<Form>RptFacturasProforma</Form>
<DesignClass>TDataModule</DesignClass>
<Form>RptFacturasProforma</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas proforma\Servidor\srvFacturasProforma_Impl.pas">
<Form>srvFacturasProforma</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvFacturasProforma</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
<Form>srvFamilias</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvFamilias</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
<Form>srvFormasPago</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvFormasPago</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvGestorDocumentos</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvGestorInformes</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvHistoricoMovimientos</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
<Form>srvImpresiones</Form>
<DesignClass>TDARemoteService</DesignClass>
<Form>srvImpresiones</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas">
<Form>srvInfMargenArticulo</Form>
<DesignClass>TDARemoteService</DesignClass>
<Form>srvInfMargenArticulo</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas">
<Form>srvInfVentasArticulo</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvInfVentasArticulo</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Informes base\Model\schInformesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Informes base\Model\schInformesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Informes base\Servidor\srvInformes_Impl.pas">
<Form>srvInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvInformes</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvInventario</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
<Form>srvObras</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvObras</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
<Form>RptPedidosProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordPedidoProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvPedidosProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
<Form>RptPedidosCliente</Form>
<DesignClass>TDataModule</DesignClass>
<Form>RptPedidosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
<Form>srvPedidosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvPedidosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass>
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<DesignClass>TDataModule</DesignClass>
@ -283,60 +283,60 @@
<Form>RptWordPresupuestoCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
<Form>RptRecibosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvRecibosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
<Form>RptRecibosProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvRecibosProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvReferencias</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas">
<Form>srvRegistroCorreos</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvRegistroCorreos</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
<Form>RptRemesasCliente</Form>
<DesignClass>TDataModule</DesignClass>
<Form>RptRemesasCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvRemesasCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
<Form>RptRemesasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
<Form>RptRemesasProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvRemesasProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas"/>
@ -347,63 +347,63 @@
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
<Form>srvTiendaWeb</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvTiendaWeb</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
<Form>srvTiposIVA</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvTiposIVA</Form>
</DCCReference>
<DCCReference Include="..\Modulos\TiposDocumento\Model\schTiposDocumentoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\TiposDocumento\Model\schTiposDocumentoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\TiposDocumento\Servidor\srvTiposDocumento_Impl.pas">
<Form>srvTiposDocumento</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvTiposDocumento</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvUnidadesMedida</Form>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvConfiguracion</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
<Form>frConexionBD</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConexionOSC.pas">
<Form>frConexionOSC</Form>
<DesignClass>TFrame</DesignClass>
<Form>frConexionOSC</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
<Form>frConfGeneral</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
<Form>fConfiguracion</Form>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
<Form>FrameConfiguracion</Form>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
<Form>srvLogin</Form>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
<Form>dmServer</Form>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
@ -423,7 +423,7 @@
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6011
Activate=0
Activate=1
Activate Handle=1
Save Log File=1
Foreground Tab=0

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "4.3.7.0\0"
VALUE "ProductVersion", "4.3.7.0\0"
VALUE "CompileDate", "viernes, 07 de febrero de 2014 16:32\0"
VALUE "CompileDate", "jueves, 20 de febrero de 2014 23:32\0"
END
END
BLOCK "VarFileInfo"