AcotaCocinas/AlonsoYSal_FactuGES
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se introduce una directiva de compilacion para tienda y para el otro lado.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@43 9a1d36f3-7752-2d40-8ccb-50eb49674c68
This commit is contained in:
roberto 2019-04-24 10:25:40 +00:00
parent f43691e6eb
commit f990142696
54 changed files with 544 additions and 2462 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
BD/BASEDATOS.FDB
View File

Binary file not shown.

4
Base/uDataModuleBase.dfm
View File

@ -1,8 +1,8 @@
object dmBase: TdmBase
OldCreateOrder = True
OnCreate = DAClientDataModuleCreate
Left = 1372
Top = 263
Left = 1374
Top = 266
Height = 368
Width = 494
object SmallImages: TPngImageList

4
Base/uEditorBase.dfm
View File

@ -1,6 +1,6 @@
object fEditorBase: TfEditorBase
Left = 584
Top = 115
Left = 586
Top = 118
Width = 670
Height = 512
Caption = 'EditorBase'

2
Base/uEditorDBItem.dfm
View File

@ -1,5 +1,5 @@
inherited fEditorDBItem: TfEditorDBItem
Left = 670
Left = 674
Caption = 'fEditorDBItem'
PixelsPerInch = 96
TextHeight = 13

4
Base/uEditorGrid.dfm
View File

@ -1,6 +1,6 @@
inherited fEditorGrid: TfEditorGrid
Left = 385
Top = 172
Left = 386
Top = 150
Width = 714
Height = 485
Caption = 'fEditorGrid'

6
Cliente/FactuGES.dof
View File

@ -114,7 +114,7 @@ IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
MinorVer=6
Release=0
Release=2
Build=0
Debug=0
PreRelease=0
@ -126,13 +126,13 @@ CodePage=1252
[Version Info Keys]
CompanyName=Rodax Software S.L.
FileDescription=
FileVersion=1.6.0.0
FileVersion=1.6.2.0
InternalName=FactuGES
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=FactuGES
ProductVersion=1.6.0.0
ProductVersion=1.6.2.0
Comments=
[Excluded Packages]
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.

BIN
Cliente/FactuGES.res
View File

Binary file not shown.

4
Cliente/uPantallaPrincipal.dfm
View File

@ -1,6 +1,6 @@
object fPantallaPrincipal: TfPantallaPrincipal
Left = 355
Top = 173
Left = 356
Top = 150
Width = 577
Height = 366
Caption = 'Pantalla principal'

5
Cliente/uPantallaPrincipal.pas
View File

@ -92,6 +92,7 @@ var
fPantallaPrincipal: TfPantallaPrincipal;
implementation
{$INCLUDE ..\FactuGES.inc}
uses
PNGImage, uModuleController, uDataModuleBase, Math, uMenuUtils,
@ -301,9 +302,11 @@ begin
HostManager.LoadModule('Montajes_Impl.bpl');
HostManager.LoadModule('PedidosProveedor.bpl');
HostManager.LoadModule('Articulos.bpl');
// HostManager.LoadModule('AlbaranesCliente.bpl');
{$IFDEF TIENDA}
HostManager.LoadModule('AlbaranesCliente.bpl');
HostManager.LoadModule('FacturasCliente.bpl');
HostManager.LoadModule('FacturasProveedor.bpl');
{$ENDIF}
HostManager.LoadModule('Asientos.bpl');
HostManager.LoadModule('Pagos.bpl');

1
FactuGES.inc Normal file
View File

@ -0,0 +1 @@
{DEFINE TIENDA}

19
Modulos/Albaranes de cliente/Cliente/uEditorAlbaranesCliente.dfm
View File

@ -98,10 +98,29 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
end
end
inherited EditorActionList: TActionList [4]
State = asSuspended
inherited actNuevo: TAction
ImageIndex = 22
OnExecute = actNuevoExecute
end
inherited actGuardarCerrar: TAction
Enabled = True
end
inherited actGuardar: TAction
Enabled = True
end
inherited actCerrar: TAction
Enabled = True
end
inherited actAnterior: TAction
Enabled = True
end
inherited actSiguiente: TAction
Enabled = True
end
inherited actCancelarCambios: TAction
Enabled = True
end
object actPagar: TAction [24]
Category = 'Archivo'
Caption = 'Generar cobro'

4
Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -6,8 +6,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
ConnectionName = 'IBX'
ServiceSchema = schAlbaranesCliente
ServiceAdapter = DABINAdapter
Left = 681
Top = 255
Left = 683
Top = 257
Height = 463
Width = 347
object schAlbaranesCliente: TDASchema

4
Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm
View File

@ -6,8 +6,8 @@ object srvAlmacenes: TsrvAlmacenes
ConnectionName = 'IBX'
ServiceSchema = schAlmacenes
ServiceAdapter = DABINAdapter
Left = 332
Top = 204
Left = 334
Top = 206
Height = 300
Width = 300
object schAlmacenes: TDASchema

4
Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
View File

@ -5,8 +5,8 @@ object srvArticulos: TsrvArticulos
ConnectionName = 'IBX'
ServiceSchema = schArticulos
ServiceAdapter = DABINAdapter
Left = 739
Top = 228
Left = 741
Top = 231
Height = 300
Width = 300
object schArticulos: TDASchema

4
Modulos/Asientos/Servidor/srvAsientos_Impl.dfm
View File

@ -6,8 +6,8 @@ object srvAsientos: TsrvAsientos
ConnectionName = 'IBX'
ServiceSchema = schAsientos
ServiceAdapter = DABINAdapter
Left = 842
Top = 171
Left = 844
Top = 174
Height = 300
Width = 300
object schAsientos: TDASchema

4
Modulos/Calendarios/Servidor/srvCitas_Impl.dfm
View File

@ -6,8 +6,8 @@ object srvCitas: TsrvCitas
ConnectionName = 'IBX'
ServiceSchema = schCitas
ServiceAdapter = DABINAdapter
Left = 825
Top = 210
Left = 827
Top = 212
Height = 184
Width = 245
object schCitas: TDASchema

4
Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -7,8 +7,8 @@ object srvContactos: TsrvContactos
ConnectionName = 'IBX'
ServiceSchema = schContactos
ServiceAdapter = DABINAdapter
Left = 1015
Top = 315
Left = 1017
Top = 317
Height = 354
Width = 450
object schContactos: TDASchema

4
Modulos/Cuentas/Servidor/srvCuentas_Impl.dfm
View File

@ -6,8 +6,8 @@ object srvCuentas: TsrvCuentas
ConnectionName = 'IBX'
ServiceSchema = schCuentas
ServiceAdapter = DABINAdapter
Left = 911
Top = 182
Left = 913
Top = 184
Height = 300
Width = 300
object schCuentas: TDASchema

4
Modulos/Facturas de cliente/Cliente/uDataModuleFacturasCliente.dfm
View File

@ -10,8 +10,8 @@ object dmFacturasCliente: TdmFacturasCliente
ParamType = fResult
DataType = rtString
end>
Left = 444
Top = 330
Left = 965
Top = 75
Height = 443
Width = 638
object RORemoteService: TRORemoteService

6
Modulos/Facturas de cliente/Cliente/uViewFacturaCliente.pas
View File

@ -150,9 +150,9 @@ begin
frViewDatosYSeleccionContacto1.Contacto := FFacturaCliente.Cliente;
// ¿Desglosar el IVA? Se copia IVA del presupuesto
// if Application.MessageBox('¿Desea desglosar el IVA a partir del albarán?', 'Atención', MB_YESNO) = IDYES then
// FFacturaCliente.DesglosarIVA
// else
if Application.MessageBox('¿Desea desglosar el IVA a partir del presupuesto?', 'Atención', MB_YESNO) = IDYES then
FFacturaCliente.DesglosarIVA
else
MessageBox(0, 'Se ha copiado correctamente el presupuesto elegido en esta factura.', 'Presupuesto copiado', MB_ICONWARNING or MB_OK);
end;

4
Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -6,8 +6,8 @@ object srvFacturasCliente: TsrvFacturasCliente
ConnectionName = 'IBX'
ServiceSchema = schFacturasCliente
ServiceAdapter = DABINAdapter
Left = 1166
Top = 311
Left = 1168
Top = 313
Height = 490
Width = 347
object schFacturasCliente: TDASchema

4
Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

@ -6,8 +6,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
ConnectionName = 'IBX'
ServiceSchema = schFacturasProveedor
ServiceAdapter = DABINAdapter
Left = 784
Top = 384
Left = 786
Top = 387
Height = 392
Width = 369
object schFacturasProveedor: TDASchema

4
Modulos/Intervalos/Servidor/srvIntervalos_Impl.dfm
View File

@ -6,8 +6,8 @@ object srvIntervalos: TsrvIntervalos
ConnectionName = 'IBX'
ServiceSchema = schIntervalos
ServiceAdapter = DABINAdapter
Left = 731
Top = 208
Left = 733
Top = 211
Height = 300
Width = 300
object schIntervalos: TDASchema

41
Modulos/Montajes/Cliente/uDataModuleMontajes.dfm
View File

@ -10,8 +10,8 @@ object dmMontajes: TdmMontajes
ParamType = fResult
DataType = rtString
end>
Left = 564
Top = 347
Left = 423
Top = 115
Height = 335
Width = 536
object RORemoteService: TRORemoteService
@ -731,4 +731,41 @@ object dmMontajes: TdmMontajes
Left = 344
Top = 24
end
object DADesigntimeCall1: TDADesigntimeCall
RemoteRequest.MethodName = 'Login'
RemoteRequest.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBoolean
end
item
Name = 'UserID'
ParamType = fIn
DataType = rtString
Value = '1'
end
item
Name = 'Password'
ParamType = fIn
DataType = rtString
Value = '1'
end
item
Name = 'LoginInfo'
ParamType = fOut
DataType = rtUserDefined
UserClassName = 'TLoginInfo'
end>
RemoteService = RORemoteService2
Left = 48
Top = 160
end
object RORemoteService2: TRORemoteService
ServiceName = 'srvLogin'
Message = dmBase.ROMessage
Channel = dmBase.ROChannel
Left = 48
Top = 224
end
end

5
Modulos/Montajes/Cliente/uDataModuleMontajes.pas
View File

@ -6,7 +6,8 @@ uses {vcl:} SysUtils, Classes, DB, DBClient,
{RemObjects:} uDAClientDataModule, uDADataTable, uDABINAdapter,
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
uROWinInetHttpChannel, uDAScriptingProvider, uDACDSDataTable,
uBizMontajes, uBizPresupuestosCliente, schMontajesClient_Intf;
uBizMontajes, uBizPresupuestosCliente, schMontajesClient_Intf,
uDADesigntimeCall;
type
TdmMontajes = class(TDAClientDataModule)
@ -20,6 +21,8 @@ type
ds_FichaBeneficios_Aux: TDADataSource;
tbl_ListaAnosMontajes: TDACDSDataTable;
ds_ListaAnosMontajes: TDADataSource;
DADesigntimeCall1: TDADesigntimeCall;
RORemoteService2: TRORemoteService;
procedure DAClientDataModuleCreate(Sender: TObject);
public
function GetItems: IBizMontaje; overload;

1
Modulos/Montajes/Cliente/uEditorMontajes.dfm
View File

@ -95,6 +95,7 @@ inherited fEditorMontajes: TfEditorMontajes
inherited actNuevo: TAction
ImageIndex = 22
OnExecute = actNuevoExecute
OnUpdate = actNuevoUpdate
end
inherited actDuplicar: TAction
Visible = False

10
Modulos/Montajes/Cliente/uEditorMontajes.pas
View File

@ -33,6 +33,7 @@ type
procedure actEliminarExecute(Sender: TObject);
procedure frViewBarraSeleccionactSeleccionarExecute(Sender: TObject);
procedure OnListaAnosChange(Sender: TObject; const Text: string);
procedure actNuevoUpdate(Sender: TObject);
private
FMontajes: IBizMontaje;
@ -53,6 +54,7 @@ type
end;
implementation
{$INCLUDE ..\..\..\FactuGES.inc}
uses
uCustomEditor, uDataModuleMontajes, uDBSelectionList,
@ -212,6 +214,14 @@ begin
aAux.SelectedRows.Clear;
end;
procedure TfEditorMontajes.actNuevoUpdate(Sender: TObject);
begin
inherited;
{$IFDEF TIENDA}
(Sender as TAction).Enabled := False;
{$ENDIF}
end;
initialization
RegisterEditor(IBizMontaje, ShowEditorMontajes, etItems);
RegisterEditor(IBizMontaje, ShowSelectEditorMontajes, etSelectItems);

2
Modulos/Montajes/Cliente/uViewMontajes.pas
View File

@ -12,7 +12,7 @@ uses
JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk,
uViewFiltroBase;
uViewFiltroBase, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock;
type
IViewMontajes = interface(IViewGrid)

32
Modulos/Montajes/Reglas/schMontajesClient_Intf.pas
View File

@ -9,14 +9,14 @@ 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_ListaAnosMontajes = '{10881790-553A-425B-9F2E-0CC35DFE857E}';
RID_darNuevaReferencia = '{60945159-4D44-4B8E-BC3E-1C95824A8AC2}';
RID_InformeCabeceraFicha = '{E3EB8788-472C-486F-BCFC-E98118F19998}';
RID_Montajes = '{A14C4188-93BF-4D1D-BE0A-9654CC28F4FD}';
RID_Refresh_Montajes = '{82271F6F-81CF-4FF7-B441-119ECDA6237D}';
RID_FichaBeneficios = '{B6BF0EDB-B4F1-4168-8DC7-1292216AA53C}';
RID_InformeDetallesFicha = '{807EBD75-BB62-492F-A95D-D8FBE5A02B7E}';
RID_FichaBeneficios_Aux = '{EB05CA72-57ED-46B0-AEAD-E782D88B0E28}';
RID_ListaAnosMontajes = '{F9ECAD29-2EBA-4FB0-BF91-B4F6B05421C3}';
RID_darNuevaReferencia = '{2CB268FF-1740-49E2-BC2E-D13582E2C047}';
RID_InformeCabeceraFicha = '{ED7776DF-70B4-42A7-9231-96D6529D8CF8}';
RID_Montajes = '{10809AAA-2525-4726-942D-3965F59801FB}';
RID_Refresh_Montajes = '{366C67B6-B32E-41AB-85DC-C51A3A83F35B}';
RID_FichaBeneficios = '{602C7ECE-6AB5-4109-9B05-7B377DB9B7E4}';
RID_InformeDetallesFicha = '{D3A3EDC7-4FED-41A2-8D4C-DE1DF3D2D5B0}';
RID_FichaBeneficios_Aux = '{217D762D-835A-4C2B-8761-461F2B952A23}';
{ Data table names }
nme_ListaAnosMontajes = 'ListaAnosMontajes';
@ -177,7 +177,7 @@ const
type
{ IListaAnosMontajes }
IListaAnosMontajes = interface(IDAStronglyTypedDataTable)
['{C41C6AA9-6F44-4CBF-9DA5-0BD9378E0EB1}']
['{EEA2F9E8-9C36-49AA-BC96-BB4216B7FD0C}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -206,7 +206,7 @@ type
{ IdarNuevaReferencia }
IdarNuevaReferencia = interface(IDAStronglyTypedDataTable)
['{0EBF89CD-1B5F-4D69-BC2A-FF9944E763CA}']
['{E21CBF9B-DA3A-4D33-A963-5D1F1FE34A63}']
{ Property getters and setters }
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
@ -235,7 +235,7 @@ type
{ IInformeCabeceraFicha }
IInformeCabeceraFicha = interface(IDAStronglyTypedDataTable)
['{D4FB53A7-C48C-4E41-A377-566F6B62C634}']
['{04C39826-59FD-4E49-8EDA-A612EA2CD7AA}']
{ Property getters and setters }
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
@ -348,7 +348,7 @@ type
{ IMontajes }
IMontajes = interface(IDAStronglyTypedDataTable)
['{46E79BA3-95C8-4752-8D16-6C04CD5B50F3}']
['{3E46D9A6-C250-410F-B6BC-128729FB1256}']
{ Property getters and setters }
function GetCODIGOEMPRESAValue: Integer;
procedure SetCODIGOEMPRESAValue(const aValue: Integer);
@ -449,7 +449,7 @@ type
{ IRefresh_Montajes }
IRefresh_Montajes = interface(IDAStronglyTypedDataTable)
['{C2E98C33-4903-4F19-B7A3-1E9AD4B2C68D}']
['{F8969A84-BAD6-443B-97A2-95AF30624296}']
{ Property getters and setters }
function GetCODIGOEMPRESAValue: Integer;
procedure SetCODIGOEMPRESAValue(const aValue: Integer);
@ -550,7 +550,7 @@ type
{ IFichaBeneficios }
IFichaBeneficios = interface(IDAStronglyTypedDataTable)
['{F149E069-825A-4961-8C4E-68BE037A4715}']
['{3A6A5A67-BA59-42F7-A509-9895E1E7A0DB}']
{ Property getters and setters }
function GetCODIGOMONTAJEValue: Integer;
procedure SetCODIGOMONTAJEValue(const aValue: Integer);
@ -615,7 +615,7 @@ type
{ IInformeDetallesFicha }
IInformeDetallesFicha = interface(IDAStronglyTypedDataTable)
['{CF37FBE7-A946-4E20-8A4F-2753773DD9D4}']
['{2B715B00-13E5-4C50-A036-F4FD47F244FE}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@ -668,7 +668,7 @@ type
{ IFichaBeneficios_Aux }
IFichaBeneficios_Aux = interface(IDAStronglyTypedDataTable)
['{15BA870E-19D0-43B0-9878-9031439519B1}']
['{4ABB9B7D-1BEE-42F3-8155-194CC112DD20}']
{ Property getters and setters }
function GetNUMCONCEPTOValue: Integer;
procedure SetNUMCONCEPTOValue(const aValue: Integer);

32
Modulos/Montajes/Reglas/schMontajesServer_Intf.pas
View File

@ -9,19 +9,19 @@ 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_ListaAnosMontajesDelta = '{54D6F856-69C9-46C4-9708-EB06E21F64C9}';
RID_darNuevaReferenciaDelta = '{DB02E16C-17A8-44E1-8A09-5B7E5A5D5C70}';
RID_InformeCabeceraFichaDelta = '{07C12000-AFBD-4F89-9F4B-1CF8AE219608}';
RID_MontajesDelta = '{5DAAEE09-4F1D-481F-9E6A-6362687F33E2}';
RID_Refresh_MontajesDelta = '{6AE4BF82-8A34-4805-A201-83D27D7FA6C5}';
RID_FichaBeneficiosDelta = '{B0843E14-B2C0-4CB1-BF0D-8848AB746CF6}';
RID_InformeDetallesFichaDelta = '{DBF71433-4943-46FE-A536-15E29D1E77D8}';
RID_FichaBeneficios_AuxDelta = '{C55A8142-1206-48A0-9CB1-FE4EF597289F}';
RID_ListaAnosMontajesDelta = '{B937BFF9-51D1-4B5D-8AFC-C3BA41A1D7BF}';
RID_darNuevaReferenciaDelta = '{7AF5F511-25B4-4BC0-9E91-FE6EF246F5F8}';
RID_InformeCabeceraFichaDelta = '{0C463028-A081-4F7E-B646-7FC9EE4CFBF7}';
RID_MontajesDelta = '{86ACA8AA-DA1D-48A5-A491-F45AF6D49EFA}';
RID_Refresh_MontajesDelta = '{395E9219-0A40-40CB-86EE-88C76D127EF3}';
RID_FichaBeneficiosDelta = '{F5A5B95F-11D7-4653-8519-B828BBC24347}';
RID_InformeDetallesFichaDelta = '{0C1D617E-3026-48CF-8AE7-1F1FDCF758F8}';
RID_FichaBeneficios_AuxDelta = '{ABAA7C7B-5152-457C-919F-4249E01CA95D}';
type
{ IListaAnosMontajesDelta }
IListaAnosMontajesDelta = interface(IListaAnosMontajes)
['{54D6F856-69C9-46C4-9708-EB06E21F64C9}']
['{B937BFF9-51D1-4B5D-8AFC-C3BA41A1D7BF}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IdarNuevaReferenciaDelta }
IdarNuevaReferenciaDelta = interface(IdarNuevaReferencia)
['{DB02E16C-17A8-44E1-8A09-5B7E5A5D5C70}']
['{7AF5F511-25B4-4BC0-9E91-FE6EF246F5F8}']
{ Property getters and setters }
function GetOldREFERENCIAValue : String;
@ -79,7 +79,7 @@ type
{ IInformeCabeceraFichaDelta }
IInformeCabeceraFichaDelta = interface(IInformeCabeceraFicha)
['{07C12000-AFBD-4F89-9F4B-1CF8AE219608}']
['{0C463028-A081-4F7E-B646-7FC9EE4CFBF7}']
{ Property getters and setters }
function GetOldREFERENCIAValue : String;
function GetOldFECHAINICIOValue : DateTime;
@ -206,7 +206,7 @@ type
{ IMontajesDelta }
IMontajesDelta = interface(IMontajes)
['{5DAAEE09-4F1D-481F-9E6A-6362687F33E2}']
['{86ACA8AA-DA1D-48A5-A491-F45AF6D49EFA}']
{ Property getters and setters }
function GetOldCODIGOEMPRESAValue : Integer;
function GetOldCODIGOValue : Integer;
@ -319,7 +319,7 @@ type
{ IRefresh_MontajesDelta }
IRefresh_MontajesDelta = interface(IRefresh_Montajes)
['{6AE4BF82-8A34-4805-A201-83D27D7FA6C5}']
['{395E9219-0A40-40CB-86EE-88C76D127EF3}']
{ Property getters and setters }
function GetOldCODIGOEMPRESAValue : Integer;
function GetOldCODIGOValue : Integer;
@ -432,7 +432,7 @@ type
{ IFichaBeneficiosDelta }
IFichaBeneficiosDelta = interface(IFichaBeneficios)
['{B0843E14-B2C0-4CB1-BF0D-8848AB746CF6}']
['{F5A5B95F-11D7-4653-8519-B828BBC24347}']
{ Property getters and setters }
function GetOldCODIGOMONTAJEValue : Integer;
function GetOldNUMCONCEPTOValue : Integer;
@ -503,7 +503,7 @@ type
{ IInformeDetallesFichaDelta }
IInformeDetallesFichaDelta = interface(IInformeDetallesFicha)
['{DBF71433-4943-46FE-A536-15E29D1E77D8}']
['{0C1D617E-3026-48CF-8AE7-1F1FDCF758F8}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
function GetOldMODELOValue : String;
@ -560,7 +560,7 @@ type
{ IFichaBeneficios_AuxDelta }
IFichaBeneficios_AuxDelta = interface(IFichaBeneficios_Aux)
['{C55A8142-1206-48A0-9CB1-FE4EF597289F}']
['{ABAA7C7B-5152-457C-919F-4249E01CA95D}']
{ Property getters and setters }
function GetOldNUMCONCEPTOValue : Integer;
function GetOldDESCRIPCIONValue : String;

4
Modulos/Montajes/Servidor/srvMontajes_Impl.dfm
View File

@ -5,8 +5,8 @@ object srvMontajes: TsrvMontajes
ConnectionName = 'IBX'
ServiceSchema = schMontajes
ServiceAdapter = DABINAdapter
Left = 1063
Top = 210
Left = 1065
Top = 212
Height = 356
Width = 300
object bpMontajes: TDABusinessProcessor

4
Modulos/Pagos/Servidor/srvPagos_Impl.dfm
View File

@ -6,8 +6,8 @@ object srvPagos: TsrvPagos
ConnectionName = 'IBX'
ServiceSchema = schPagos
ServiceAdapter = DABINAdapter
Left = 568
Top = 453
Left = 570
Top = 456
Height = 300
Width = 300
object schPagos: TDASchema

4
Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
View File

@ -6,8 +6,8 @@ object srvPedidosProveedor: TsrvPedidosProveedor
ConnectionName = 'IBX'
ServiceSchema = schPedidosProveedor
ServiceAdapter = DABINAdapter
Left = 731
Top = 308
Left = 733
Top = 310
Height = 459
Width = 300
object schPedidosProveedor: TDASchema

71
Modulos/Presupuestos/Cliente/uDataModulePresupuestos.dfm
View File

@ -10,10 +10,10 @@ object dmPresupuestos: TdmPresupuestos
ParamType = fResult
DataType = rtString
end>
Left = 551
Top = 321
Height = 326
Width = 367
Left = 553
Top = 324
Height = 385
Width = 476
object RORemoteService: TRORemoteService
ServiceName = 'srvPresupuestos'
Message = dmBase.ROMessage
@ -176,6 +176,20 @@ object dmPresupuestos: TdmPresupuestos
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'VALORADO'
DataType = datString
Size = 1
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'DetallesPresupuestos_VALORADO'
Alignment = taLeftJustify
DictionaryEntry = 'DetallesPresupuestos_VALORADO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
Params = <
item
@ -596,6 +610,18 @@ object dmPresupuestos: TdmPresupuestos
Lookup = False
LookupCache = False
end
item
Name = 'SITUACION_MONTAJE'
DataType = datString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ALBARAN'
DataType = datString
@ -823,4 +849,41 @@ object dmPresupuestos: TdmPresupuestos
Left = 72
Top = 136
end
object DADesigntimeCall1: TDADesigntimeCall
RemoteRequest.MethodName = 'Login'
RemoteRequest.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBoolean
end
item
Name = 'UserID'
ParamType = fIn
DataType = rtString
Value = '1'
end
item
Name = 'Password'
ParamType = fIn
DataType = rtString
Value = '1'
end
item
Name = 'LoginInfo'
ParamType = fOut
DataType = rtUserDefined
UserClassName = 'TLoginInfo'
end>
RemoteService = RORemoteService2
Left = 312
Top = 216
end
object RORemoteService2: TRORemoteService
ServiceName = 'srvLogin'
Message = dmBase.ROMessage
Channel = dmBase.ROChannel
Left = 320
Top = 272
end
end

4
Modulos/Presupuestos/Cliente/uDataModulePresupuestos.pas
View File

@ -43,7 +43,7 @@ uses {vcl:} SysUtils, Classes, DB, DBClient,
frxExportImage, frxExportPDF, frxDCtrl,
frxClass, frxDMPExport, frxGradient, frxChBox, frxCross, frxRich,
frxChart, frxOLE, frxBarcode;
frxChart, frxOLE, frxBarcode, uDADesigntimeCall;
type
TdmPresupuestos = class(TDAClientDataModule)
@ -55,6 +55,8 @@ type
ds_Presupuestos: TDADataSource;
tbl_ListaAnosPresupuestos: TDACDSDataTable;
ds_ListaAnosPresupuestos: TDADataSource;
DADesigntimeCall1: TDADesigntimeCall;
RORemoteService2: TRORemoteService;
procedure DAClientDataModuleCreate(Sender: TObject);
public
function PuedoEliminarPresupuesto (CodigoPresupuesto : Integer) : Boolean;

18
Modulos/Presupuestos/Cliente/uEditorPresupuesto.dfm
View File

@ -1,8 +1,8 @@
inherited fEditorPresupuesto: TfEditorPresupuesto
Left = 344
Top = 76
Left = 347
Top = 0
Width = 772
Height = 746
Height = 581
Caption = 'Nuevo presupuesto de cliente'
Constraints.MinWidth = 765
PixelsPerInch = 96
@ -62,14 +62,14 @@ inherited fEditorPresupuesto: TfEditorPresupuesto
end
inherited pgPaginas: TPageControl
Width = 764
Height = 494
Height = 329
TabOrder = 1
inherited pagGeneral: TTabSheet
inline frViewPresupuesto1: TfrViewPresupuesto
Left = 0
Top = 0
Width = 756
Height = 466
Height = 301
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -135,7 +135,7 @@ inherited fEditorPresupuesto: TfEditorPresupuesto
Left = 0
Top = 0
Width = 756
Height = 466
Height = 301
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -147,7 +147,7 @@ inherited fEditorPresupuesto: TfEditorPresupuesto
ReadOnly = False
inherited cxGrid: TcxGrid
Width = 756
Height = 444
Height = 279
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@ -181,13 +181,13 @@ inherited fEditorPresupuesto: TfEditorPresupuesto
end
end
inherited StatusBar: TStatusBar
Top = 692
Top = 527
Width = 764
Height = 20
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
Top = 570
Top = 405
Width = 764
Height = 122
Align = alBottom

6
Modulos/Presupuestos/Cliente/uEditorPresupuesto.pas
View File

@ -58,6 +58,7 @@ type
end;
implementation
{$INCLUDE ..\..\..\FactuGES.inc}
{$R *.dfm}
@ -217,13 +218,16 @@ begin
end
else if (FPresupuesto.SITUACION = SITUACION_ACEPTADO)
and (FPresupuesto.REFERENCIA = '') then
begin
{$IFNDEF TIENDA}
if (Application.MessageBox('¿Desea crear un montaje asociado a este presupuesto?', 'Atención', MB_YESNO) = IDYES) then
begin
inherited;
dmMontajes.NuevoMontaje(Nil, FPresupuesto);
Exit;
end;
{$ENDIF}
end;
inherited;
end;

3
Modulos/Presupuestos/Cliente/uEditorPresupuestos.pas
View File

@ -73,6 +73,7 @@ var
fEditorPresupuestos : TfEditorPresupuestos;
implementation
{$INCLUDE ..\..\..\FactuGES.inc}
uses cxControls, uDataModulePresupuestos, uEditorUtils, uEditorBase,
DateUtils, uDataModuleMontajes, uDataModulePagos, uDBSelectionList, uBizInformesBase;
@ -255,10 +256,12 @@ begin
Presupuestos.DataTable.Post;
Presupuestos.DataTable.ApplyUpdates;
{$IFNDEF TIENDA}
if (NuevoEstado = SITUACION_ACEPTADO)
and (Presupuestos.REFERENCIA = '') then
if (Application.MessageBox('¿Desea crear un montaje asociado a este presupuesto?', 'Atención', MB_YESNO) = IDYES) then
dmMontajes.NuevoMontaje(Nil, Presupuestos);
{$ENDIF}
end;
finally
Presupuestos.DataTable.EnableControls;

10
Modulos/Presupuestos/Cliente/uViewPresupuesto.dfm
View File

@ -1,6 +1,7 @@
inherited frViewPresupuesto: TfrViewPresupuesto
Width = 762
Height = 452
Width = 853
Height = 580
OnShow = CustomViewShow
inline frViewDatosPresupuesto1: TfrViewDatosPresupuesto
Left = 0
Top = 0
@ -128,7 +129,7 @@ inherited frViewPresupuesto: TfrViewPresupuesto
Left = 0
Top = 168
Width = 360
Height = 97
Height = 121
Constraints.MinHeight = 85
Constraints.MinWidth = 360
Font.Charset = DEFAULT_CHARSET
@ -139,6 +140,9 @@ inherited frViewPresupuesto: TfrViewPresupuesto
ParentFont = False
TabOrder = 4
ReadOnly = False
DesignSize = (
360
121)
inherited Label6: TLabel
Width = 134
Caption = 'Estado del presupuesto'

14
Modulos/Presupuestos/Cliente/uViewPresupuesto.pas
View File

@ -28,6 +28,7 @@ type
frViewObservaciones1: TfrViewObservaciones;
frViewPlazoEntrega1: TfrViewPlazoEntrega;
frViewSituacionPresupuesto1: TfrViewSituacionPresupuesto;
procedure CustomViewShow(Sender: TObject);
private
FPresupuesto: IBizPresupuestos;
procedure OnContactoChanged(Sender : TObject);
@ -38,8 +39,9 @@ type
property Presupuesto: IBizPresupuestos read GetPresupuesto write
SetPresupuesto;
end;
implementation
{$INCLUDE ..\..\..\FactuGES.inc}
uses uBizContacto, uExceptions;
@ -73,4 +75,14 @@ begin
frViewClientePresupuesto1.OnContactoChanged := OnContactoChanged;
end;
procedure TfrViewPresupuesto.CustomViewShow(Sender: TObject);
begin
inherited;
{$IFDEF TIENDA}
frViewSituacionPresupuesto1.cbSituacion.Enabled := True;
{$ELSE}
frViewSituacionPresupuesto1.cbSituacion.Enabled := False;
{$ENDIF}
end;
end.

23
Modulos/Presupuestos/Cliente/uViewPresupuestos.dfm
View File

@ -1,4 +1,5 @@
inherited frViewPresupuestos: TfrViewPresupuestos
OnShow = CustomViewShow
inherited cxGrid: TcxGrid
RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged
@ -53,6 +54,10 @@ inherited frViewPresupuestos: TfrViewPresupuestos
Width = 25
IsCaptionAssigned = True
end
object cxGridViewSITUACION_MONTAJE: TcxGridDBColumn
Caption = 'Situaci'#243'n montaje'
DataBinding.FieldName = 'SITUACION_MONTAJE'
end
object cxGridViewFECHAPRESUPUESTO: TcxGridDBColumn
DataBinding.FieldName = 'FECHAPRESUPUESTO'
SortIndex = 0
@ -109,19 +114,31 @@ inherited frViewPresupuestos: TfrViewPresupuestos
object cxGridLevel3: TcxGridLevel
Caption = 'Rechazados'
end
object cxGridLevel4: TcxGridLevel
Caption = 'Pendiente recepci'#243'n'
end
object cxGridLevel5: TcxGridLevel
Caption = 'Pendiente montaje'
end
object cxGridLevel6: TcxGridLevel
Caption = 'Pendiente pago'
end
object cxGridLevel7: TcxGridLevel
Caption = 'Pagado y terminado'
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDock1: TTBXDock
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Width = 273
Width = 465
end
inherited edtFechaIniFiltro: TcxDateEdit
Width = 121
Width = 245
end
inherited edtFechaFinFiltro: TcxDateEdit
Width = 121
Width = 204
end
end
end

27
Modulos/Presupuestos/Cliente/uViewPresupuestos.pas
View File

@ -15,6 +15,12 @@ uses
PngImageList, cxTextEdit, Grids, DBGrids, cxCurrencyEdit, uViewFiltroBase,
TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock;
const
SITUACION_PENDIENTERECEPCION = 'Pendiente recepción';
SITUACION_PENDIENTEMONTAJE = 'Pendiente montaje';
SITUACION_PENDIENTEPAGO = 'Pendiente pago';
SITUACION_PAGADO = 'Pagado y terminado';
type
IViewPresupuestos = interface(IViewGrid)
['{8C0A5647-E0E7-40CD-80EC-88DD46383368}']
@ -57,6 +63,11 @@ type
TBXItem7: TTBXItem;
TBXSeparatorItem4: TTBXSeparatorItem;
TBXSeparatorItem5: TTBXSeparatorItem;
cxGridViewSITUACION_MONTAJE: TcxGridDBColumn;
cxGridLevel4: TcxGridLevel;
cxGridLevel5: TcxGridLevel;
cxGridLevel6: TcxGridLevel;
cxGridLevel7: TcxGridLevel;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var
@ -76,6 +87,7 @@ type
procedure actIncidenciasExecute(Sender: TObject);
procedure actArreglosBUpdate(Sender: TObject);
procedure actIncidenciasUpdate(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
private
FTipoPresupuesto: String;
//Filtros relativos a la vista
@ -98,6 +110,7 @@ var
frViewPresupuestos: TfrViewPresupuestos;
implementation
{$INCLUDE ..\..\..\FactuGES.inc}
uses uDataModulePresupuestos, schPresupuestosClient_Intf;
@ -133,6 +146,10 @@ begin
1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_PENDIENTE, SITUACION_PENDIENTE);
2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_ACEPTADO, SITUACION_ACEPTADO);
3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_RECHAZADO, SITUACION_RECHAZADO);
4 : FFiltro.AddItem(cxGridViewSITUACION_MONTAJE, foEqual, SITUACION_PENDIENTERECEPCION, SITUACION_PENDIENTERECEPCION);
5 : FFiltro.AddItem(cxGridViewSITUACION_MONTAJE, foEqual, SITUACION_PENDIENTEMONTAJE, SITUACION_PENDIENTEMONTAJE);
6 : FFiltro.AddItem(cxGridViewSITUACION_MONTAJE, foEqual, SITUACION_PENDIENTEPAGO, SITUACION_PENDIENTEPAGO);
7 : FFiltro.AddItem(cxGridViewSITUACION_MONTAJE, foEqual, SITUACION_PAGADO, SITUACION_PAGADO);
end;
end;
@ -295,4 +312,14 @@ begin
(Sender as TAction).Enabled := (FTipoPresupuesto <> TIPO_INCIDENCIA);
end;
procedure TfrViewPresupuestos.CustomViewShow(Sender: TObject);
begin
inherited;
{$IFDEF TIENDA}
cxGridViewREFERENCIA.Visible := False;
{$ELSE}
cxGridViewREFERENCIA.Visible := True;
{$ENDIF}
end;
end.

49
Modulos/Presupuestos/Cliente/uViewSituacionPresupuesto.dfm
View File

@ -1,11 +1,11 @@
inherited frViewSituacionPresupuesto: TfrViewSituacionPresupuesto
Width = 360
Height = 100
Height = 123
Constraints.MinHeight = 85
Constraints.MinWidth = 360
DesignSize = (
360
100)
123)
object Label6: TLabel
Left = 8
Top = 9
@ -42,6 +42,14 @@ inherited frViewSituacionPresupuesto: TfrViewSituacionPresupuesto
Caption = 'Fecha de decisi'#243'n:'
WordWrap = True
end
object Label1: TLabel
Left = 16
Top = 83
Width = 46
Height = 26
Caption = 'Situaci'#243'n montaje:'
WordWrap = True
end
object edtFechaDecision: TcxDBDateEdit
Left = 100
Top = 53
@ -91,6 +99,43 @@ inherited frViewSituacionPresupuesto: TfrViewSituacionPresupuesto
TabOrder = 1
Width = 245
end
object cbSituacion: TcxDBImageComboBox
Left = 100
Top = 83
DataBinding.DataField = 'SITUACION_MONTAJE'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
Properties.Items = <
item
Description = 'Pendiente recepci'#243'n'
Value = 'Pendiente recepci'#243'n'
end
item
Description = 'Pendiente montaje'
ImageIndex = 0
Value = 'Pendiente montaje'
end
item
Description = 'Pendiente pago'
ImageIndex = 1
Value = 'Pendiente pago'
end
item
Description = 'Pagado y terminado'
Value = 'Pagado y terminado'
end>
Style.Color = clInfoBk
Style.LookAndFeel.Kind = lfUltraFlat
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfUltraFlat
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfUltraFlat
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfUltraFlat
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Width = 245
end
object DADataSource: TDADataSource
Left = 296
Top = 24

2
Modulos/Presupuestos/Cliente/uViewSituacionPresupuesto.pas
View File

@ -18,6 +18,8 @@ type
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
cbSituacion: TcxDBImageComboBox;
Label1: TLabel;
procedure cbiSituacionPropertiesCloseUp(Sender: TObject);
procedure cbiSituacionPropertiesEditValueChanged(Sender: TObject);
public

64
Modulos/Presupuestos/Reglas/schPresupuestosClient_Intf.pas
View File

@ -9,12 +9,12 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosPresupuestos = '{77EF6F0F-E599-4667-8576-DBAC1CCC2EAA}';
RID_DetallesPresupuestos = '{03C708D2-DE71-478C-B6AB-462A59A1E7DF}';
RID_Presupuestos = '{EE36E6AC-A1D6-426D-9D43-CA97BD1CFD68}';
RID_Presupuestos_RefreshDataset = '{7C463D58-2A40-4376-B6D0-1D5BCC229F42}';
RID_InformeCabeceraPresupuesto = '{9CDFC642-05DA-42C6-9815-F4F4024708F0}';
RID_InformeDetallesPresupuesto = '{87F1DF38-4060-49DF-87EA-97ED384371B1}';
RID_ListaAnosPresupuestos = '{DDDF3B32-AB91-4CD9-B34F-51C9E0917919}';
RID_DetallesPresupuestos = '{268CDC36-FDF7-4EF8-81C3-2A365456F9C4}';
RID_Presupuestos = '{06C90F29-CAFC-42BE-B4DA-2F504DE56AC8}';
RID_Presupuestos_RefreshDataset = '{AD9F632B-7A13-4CC2-8430-184B0392DFA1}';
RID_InformeCabeceraPresupuesto = '{1BAA3021-EFC0-45E2-9957-9CB9831D5CD0}';
RID_InformeDetallesPresupuesto = '{0EBB11F3-BCE1-4713-A589-1477B9752FD8}';
{ Data table names }
nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos';
@ -82,6 +82,7 @@ const
fld_PresupuestosPLAZOENTREGA = 'PLAZOENTREGA';
fld_PresupuestosFORMAPAGO = 'FORMAPAGO';
fld_PresupuestosCODIGOALBARAN = 'CODIGOALBARAN';
fld_PresupuestosSITUACION_MONTAJE = 'SITUACION_MONTAJE';
fld_PresupuestosALBARAN = 'ALBARAN';
fld_PresupuestosOPCION = 'OPCION';
@ -109,8 +110,9 @@ const
idx_PresupuestosPLAZOENTREGA = 20;
idx_PresupuestosFORMAPAGO = 21;
idx_PresupuestosCODIGOALBARAN = 22;
idx_PresupuestosALBARAN = 23;
idx_PresupuestosOPCION = 24;
idx_PresupuestosSITUACION_MONTAJE = 23;
idx_PresupuestosALBARAN = 24;
idx_PresupuestosOPCION = 25;
{ Presupuestos_RefreshDataset fields }
fld_Presupuestos_RefreshDatasetCODIGO = 'CODIGO';
@ -118,6 +120,7 @@ const
fld_Presupuestos_RefreshDatasetREFERENCIA = 'REFERENCIA';
fld_Presupuestos_RefreshDatasetCODIGOALBARAN = 'CODIGOALBARAN';
fld_Presupuestos_RefreshDatasetALBARAN = 'ALBARAN';
fld_Presupuestos_RefreshDatasetSITUACION_MONTAJE = 'SITUACION_MONTAJE';
{ Presupuestos_RefreshDataset field indexes }
idx_Presupuestos_RefreshDatasetCODIGO = 0;
@ -125,6 +128,7 @@ const
idx_Presupuestos_RefreshDatasetREFERENCIA = 2;
idx_Presupuestos_RefreshDatasetCODIGOALBARAN = 3;
idx_Presupuestos_RefreshDatasetALBARAN = 4;
idx_Presupuestos_RefreshDatasetSITUACION_MONTAJE = 5;
{ InformeCabeceraPresupuesto fields }
fld_InformeCabeceraPresupuestoCODIGOEMPRESA = 'CODIGOEMPRESA';
@ -219,7 +223,7 @@ const
type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{80153E52-A0AC-48F4-B686-597D3D322919}']
['{A4885F39-1502-4154-9B51-C2DCF7E731CE}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -248,7 +252,7 @@ type
{ IDetallesPresupuestos }
IDetallesPresupuestos = interface(IDAStronglyTypedDataTable)
['{1B25EB4A-91B6-4F99-9865-830E66EDD201}']
['{41073F1B-437B-4BC6-979A-C00CD48BB360}']
{ Property getters and setters }
function GetCODIGOPRESUPUESTOValue: Integer;
procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer);
@ -343,7 +347,7 @@ type
{ IPresupuestos }
IPresupuestos = interface(IDAStronglyTypedDataTable)
['{152FAE82-E4BD-47CF-82E5-88ABA9825BB1}']
['{51D576C0-014F-4298-8992-41BD321F24FE}']
{ Property getters and setters }
function GetCODIGOEMPRESAValue: Integer;
procedure SetCODIGOEMPRESAValue(const aValue: Integer);
@ -391,6 +395,8 @@ type
procedure SetFORMAPAGOValue(const aValue: IROStrings);
function GetCODIGOALBARANValue: Integer;
procedure SetCODIGOALBARANValue(const aValue: Integer);
function GetSITUACION_MONTAJEValue: String;
procedure SetSITUACION_MONTAJEValue(const aValue: String);
function GetALBARANValue: String;
procedure SetALBARANValue(const aValue: String);
function GetOPCIONValue: String;
@ -421,6 +427,7 @@ type
property PLAZOENTREGA: IROStrings read GetPLAZOENTREGAValue write SetPLAZOENTREGAValue;
property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
property SITUACION_MONTAJE: String read GetSITUACION_MONTAJEValue write SetSITUACION_MONTAJEValue;
property ALBARAN: String read GetALBARANValue write SetALBARANValue;
property OPCION: String read GetOPCIONValue write SetOPCIONValue;
end;
@ -476,6 +483,8 @@ type
procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual;
function GetCODIGOALBARANValue: Integer; virtual;
procedure SetCODIGOALBARANValue(const aValue: Integer); virtual;
function GetSITUACION_MONTAJEValue: String; virtual;
procedure SetSITUACION_MONTAJEValue(const aValue: String); virtual;
function GetALBARANValue: String; virtual;
procedure SetALBARANValue(const aValue: String); virtual;
function GetOPCIONValue: String; virtual;
@ -505,6 +514,7 @@ type
property PLAZOENTREGA: IROStrings read GetPLAZOENTREGAValue write SetPLAZOENTREGAValue;
property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
property SITUACION_MONTAJE: String read GetSITUACION_MONTAJEValue write SetSITUACION_MONTAJEValue;
property ALBARAN: String read GetALBARANValue write SetALBARANValue;
property OPCION: String read GetOPCIONValue write SetOPCIONValue;
@ -516,7 +526,7 @@ type
{ IPresupuestos_RefreshDataset }
IPresupuestos_RefreshDataset = interface(IDAStronglyTypedDataTable)
['{8A7F6D01-B4D4-436B-8BF5-C62F316AE407}']
['{1B1A1A58-80AF-4F0A-B1BC-58E804752878}']
{ Property getters and setters }
function GetCODIGOValue: Integer;
procedure SetCODIGOValue(const aValue: Integer);
@ -528,6 +538,8 @@ type
procedure SetCODIGOALBARANValue(const aValue: Integer);
function GetALBARANValue: String;
procedure SetALBARANValue(const aValue: String);
function GetSITUACION_MONTAJEValue: String;
procedure SetSITUACION_MONTAJEValue(const aValue: String);
{ Properties }
@ -536,6 +548,7 @@ type
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
property ALBARAN: String read GetALBARANValue write SetALBARANValue;
property SITUACION_MONTAJE: String read GetSITUACION_MONTAJEValue write SetSITUACION_MONTAJEValue;
end;
{ TPresupuestos_RefreshDatasetDataTableRules }
@ -553,6 +566,8 @@ type
procedure SetCODIGOALBARANValue(const aValue: Integer); virtual;
function GetALBARANValue: String; virtual;
procedure SetALBARANValue(const aValue: String); virtual;
function GetSITUACION_MONTAJEValue: String; virtual;
procedure SetSITUACION_MONTAJEValue(const aValue: String); virtual;
{ Properties }
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
@ -560,6 +575,7 @@ type
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
property ALBARAN: String read GetALBARANValue write SetALBARANValue;
property SITUACION_MONTAJE: String read GetSITUACION_MONTAJEValue write SetSITUACION_MONTAJEValue;
public
constructor Create(aDataTable: TDADataTable); override;
@ -569,7 +585,7 @@ type
{ IInformeCabeceraPresupuesto }
IInformeCabeceraPresupuesto = interface(IDAStronglyTypedDataTable)
['{386D3790-2EE5-443E-8C0D-D71B5BB54BC6}']
['{A2DB6308-4009-4178-A887-C9C09DDF1A42}']
{ Property getters and setters }
function GetCODIGOEMPRESAValue: Integer;
procedure SetCODIGOEMPRESAValue(const aValue: Integer);
@ -784,7 +800,7 @@ type
{ IInformeDetallesPresupuesto }
IInformeDetallesPresupuesto = interface(IDAStronglyTypedDataTable)
['{4E63D170-8D9D-43B2-ADD5-90B7CD993A81}']
['{33B16302-2EF8-4FC9-B41C-1AC142A7ACD8}']
{ Property getters and setters }
function GetCODIGOPRESUPUESTOValue: Integer;
procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer);
@ -1261,6 +1277,16 @@ begin
DataTable.Fields[idx_PresupuestosCODIGOALBARAN].AsInteger := aValue;
end;
function TPresupuestosDataTableRules.GetSITUACION_MONTAJEValue: String;
begin
result := DataTable.Fields[idx_PresupuestosSITUACION_MONTAJE].AsString;
end;
procedure TPresupuestosDataTableRules.SetSITUACION_MONTAJEValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosSITUACION_MONTAJE].AsString := aValue;
end;
function TPresupuestosDataTableRules.GetALBARANValue: String;
begin
result := DataTable.Fields[idx_PresupuestosALBARAN].AsString;
@ -1343,6 +1369,16 @@ begin
DataTable.Fields[idx_Presupuestos_RefreshDatasetALBARAN].AsString := aValue;
end;
function TPresupuestos_RefreshDatasetDataTableRules.GetSITUACION_MONTAJEValue: String;
begin
result := DataTable.Fields[idx_Presupuestos_RefreshDatasetSITUACION_MONTAJE].AsString;
end;
procedure TPresupuestos_RefreshDatasetDataTableRules.SetSITUACION_MONTAJEValue(const aValue: String);
begin
DataTable.Fields[idx_Presupuestos_RefreshDatasetSITUACION_MONTAJE].AsString := aValue;
end;
{ TInformeCabeceraPresupuestoDataTableRules }
constructor TInformeCabeceraPresupuestoDataTableRules.Create(aDataTable: TDADataTable);

68
Modulos/Presupuestos/Reglas/schPresupuestosServer_Intf.pas
View File

@ -9,17 +9,17 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosPresupuestosDelta = '{FC74BF4F-DBCB-40A7-9939-935F32F3ADC0}';
RID_DetallesPresupuestosDelta = '{C37B1251-B984-4029-846F-2B30A25BAC11}';
RID_PresupuestosDelta = '{33560B0F-ADCB-4A5F-94D2-AED74BBAC7A6}';
RID_Presupuestos_RefreshDatasetDelta = '{B40C828C-F495-4BE7-85C2-4670FF7C4B03}';
RID_InformeCabeceraPresupuestoDelta = '{6285260E-3B0E-4DB0-A8A6-DDE3FF84220C}';
RID_InformeDetallesPresupuestoDelta = '{06FFD0BC-7D7D-457B-B402-6792784FEE19}';
RID_ListaAnosPresupuestosDelta = '{2FE29D48-6128-4DF4-83C3-0FA662144574}';
RID_DetallesPresupuestosDelta = '{DE378782-B04E-40A2-9BCD-7ADAE1DF5DB7}';
RID_PresupuestosDelta = '{F6A2569C-B835-45F8-86FA-8E6B4A48AE5B}';
RID_Presupuestos_RefreshDatasetDelta = '{50C68342-EC4D-428E-BD5A-94DF09E0CEED}';
RID_InformeCabeceraPresupuestoDelta = '{6D7D841B-32E1-4023-BBDB-A37F8BDEF96A}';
RID_InformeDetallesPresupuestoDelta = '{3C746E7B-6F2D-4812-B3F3-2980587EA621}';
type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{FC74BF4F-DBCB-40A7-9939-935F32F3ADC0}']
['{2FE29D48-6128-4DF4-83C3-0FA662144574}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -48,7 +48,7 @@ type
{ IDetallesPresupuestosDelta }
IDetallesPresupuestosDelta = interface(IDetallesPresupuestos)
['{C37B1251-B984-4029-846F-2B30A25BAC11}']
['{DE378782-B04E-40A2-9BCD-7ADAE1DF5DB7}']
{ Property getters and setters }
function GetOldCODIGOPRESUPUESTOValue : Integer;
function GetOldNUMCONCEPTOValue : Integer;
@ -154,7 +154,7 @@ type
{ IPresupuestosDelta }
IPresupuestosDelta = interface(IPresupuestos)
['{33560B0F-ADCB-4A5F-94D2-AED74BBAC7A6}']
['{F6A2569C-B835-45F8-86FA-8E6B4A48AE5B}']
{ Property getters and setters }
function GetOldCODIGOEMPRESAValue : Integer;
function GetOldCODIGOValue : Integer;
@ -179,6 +179,7 @@ type
function GetOldPLAZOENTREGAValue : IROStrings;
function GetOldFORMAPAGOValue : IROStrings;
function GetOldCODIGOALBARANValue : Integer;
function GetOldSITUACION_MONTAJEValue : String;
function GetOldALBARANValue : String;
function GetOldOPCIONValue : String;
@ -206,6 +207,7 @@ type
property OldPLAZOENTREGA : IROStrings read GetOldPLAZOENTREGAValue;
property OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue;
property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
property OldSITUACION_MONTAJE : String read GetOldSITUACION_MONTAJEValue;
property OldALBARAN : String read GetOldALBARANValue;
property OldOPCION : String read GetOldOPCIONValue;
end;
@ -284,6 +286,9 @@ type
function GetCODIGOALBARANValue: Integer; virtual;
function GetOldCODIGOALBARANValue: Integer; virtual;
procedure SetCODIGOALBARANValue(const aValue: Integer); virtual;
function GetSITUACION_MONTAJEValue: String; virtual;
function GetOldSITUACION_MONTAJEValue: String; virtual;
procedure SetSITUACION_MONTAJEValue(const aValue: String); virtual;
function GetALBARANValue: String; virtual;
function GetOldALBARANValue: String; virtual;
procedure SetALBARANValue(const aValue: String); virtual;
@ -338,6 +343,8 @@ type
property OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue;
property CODIGOALBARAN : Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
property SITUACION_MONTAJE : String read GetSITUACION_MONTAJEValue write SetSITUACION_MONTAJEValue;
property OldSITUACION_MONTAJE : String read GetOldSITUACION_MONTAJEValue;
property ALBARAN : String read GetALBARANValue write SetALBARANValue;
property OldALBARAN : String read GetOldALBARANValue;
property OPCION : String read GetOPCIONValue write SetOPCIONValue;
@ -351,13 +358,14 @@ type
{ IPresupuestos_RefreshDatasetDelta }
IPresupuestos_RefreshDatasetDelta = interface(IPresupuestos_RefreshDataset)
['{B40C828C-F495-4BE7-85C2-4670FF7C4B03}']
['{50C68342-EC4D-428E-BD5A-94DF09E0CEED}']
{ Property getters and setters }
function GetOldCODIGOValue : Integer;
function GetOldNOMBREValue : String;
function GetOldREFERENCIAValue : String;
function GetOldCODIGOALBARANValue : Integer;
function GetOldALBARANValue : String;
function GetOldSITUACION_MONTAJEValue : String;
{ Properties }
property OldCODIGO : Integer read GetOldCODIGOValue;
@ -365,6 +373,7 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
property OldALBARAN : String read GetOldALBARANValue;
property OldSITUACION_MONTAJE : String read GetOldSITUACION_MONTAJEValue;
end;
{ TPresupuestos_RefreshDatasetBusinessProcessorRules }
@ -387,6 +396,9 @@ type
function GetALBARANValue: String; virtual;
function GetOldALBARANValue: String; virtual;
procedure SetALBARANValue(const aValue: String); virtual;
function GetSITUACION_MONTAJEValue: String; virtual;
function GetOldSITUACION_MONTAJEValue: String; virtual;
procedure SetSITUACION_MONTAJEValue(const aValue: String); virtual;
{ Properties }
property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue;
@ -399,6 +411,8 @@ type
property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
property ALBARAN : String read GetALBARANValue write SetALBARANValue;
property OldALBARAN : String read GetOldALBARANValue;
property SITUACION_MONTAJE : String read GetSITUACION_MONTAJEValue write SetSITUACION_MONTAJEValue;
property OldSITUACION_MONTAJE : String read GetOldSITUACION_MONTAJEValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -408,7 +422,7 @@ type
{ IInformeCabeceraPresupuestoDelta }
IInformeCabeceraPresupuestoDelta = interface(IInformeCabeceraPresupuesto)
['{6285260E-3B0E-4DB0-A8A6-DDE3FF84220C}']
['{6D7D841B-32E1-4023-BBDB-A37F8BDEF96A}']
{ Property getters and setters }
function GetOldCODIGOEMPRESAValue : Integer;
function GetOldCODIGOValue : Integer;
@ -654,7 +668,7 @@ type
{ IInformeDetallesPresupuestoDelta }
IInformeDetallesPresupuestoDelta = interface(IInformeDetallesPresupuesto)
['{06FFD0BC-7D7D-457B-B402-6792784FEE19}']
['{3C746E7B-6F2D-4812-B3F3-2980587EA621}']
{ Property getters and setters }
function GetOldCODIGOPRESUPUESTOValue : Integer;
function GetOldNUMCONCEPTOValue : Integer;
@ -1323,6 +1337,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCODIGOALBARAN] := aValue;
end;
function TPresupuestosBusinessProcessorRules.GetSITUACION_MONTAJEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosSITUACION_MONTAJE];
end;
function TPresupuestosBusinessProcessorRules.GetOldSITUACION_MONTAJEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosSITUACION_MONTAJE];
end;
procedure TPresupuestosBusinessProcessorRules.SetSITUACION_MONTAJEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosSITUACION_MONTAJE] := aValue;
end;
function TPresupuestosBusinessProcessorRules.GetALBARANValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosALBARAN];
@ -1440,6 +1469,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Presupuestos_RefreshDatasetALBARAN] := aValue;
end;
function TPresupuestos_RefreshDatasetBusinessProcessorRules.GetSITUACION_MONTAJEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Presupuestos_RefreshDatasetSITUACION_MONTAJE];
end;
function TPresupuestos_RefreshDatasetBusinessProcessorRules.GetOldSITUACION_MONTAJEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Presupuestos_RefreshDatasetSITUACION_MONTAJE];
end;
procedure TPresupuestos_RefreshDatasetBusinessProcessorRules.SetSITUACION_MONTAJEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Presupuestos_RefreshDatasetSITUACION_MONTAJE] := aValue;
end;
{ TInformeCabeceraPresupuestoBusinessProcessorRules }
constructor TInformeCabeceraPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

9
Modulos/Presupuestos/Reglas/uBizPresupuestosCliente.pas
View File

@ -142,6 +142,7 @@ type
procedure ValidarPresupuesto (const APresupuesto : IBizPresupuestos);
implementation
{$INCLUDE ..\..\..\FactuGES.inc}
uses
Windows, Dialogs, uDACDSDataTable, SysUtils, uEditorUtils,
@ -240,7 +241,13 @@ begin
FECHAALTA := Date;
FECHAPRESUPUESTO := Date;
VIGENCIAPRESUPUESTO := Date + 30; // 30 días de validez por defecto
SITUACION := SITUACION_PENDIENTE;
{$IFDEF TIENDA}
SITUACION := SITUACION_PENDIENTE;
{$ELSE}
SITUACION := SITUACION_ACEPTADO;
{$ENDIF}
TIPO := TIPO_COCINA;
CODIGO := dmPresupuestos.GetNextAutoinc;
OPCION := 'OPCIÓN 1';

78
Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm
View File

@ -6,8 +6,8 @@ object srvPresupuestos: TsrvPresupuestos
ConnectionName = 'IBX'
ServiceSchema = schPresupuestos
ServiceAdapter = DABINAdapter
Left = 1197
Top = 264
Left = 1199
Top = 267
Height = 359
Width = 328
object schPresupuestos: TDASchema
@ -259,8 +259,9 @@ object srvPresupuestos: TsrvPresupuestos
','#10' TIPO, FECHAPRESUPUESTO, VIGENCIAPRESUPUESTO, SITUACION,' +
' FECHADECISION,'#10' BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENT' +
'O, IVA, IMPORTEIVA,'#10' IMPORTETOTAL, OBSERVACIONES, PLAZOENT' +
'REGA, FORMAPAGO, OPCION,'#10' NOMBRE, NIF_CIF, REFERENCIA,'#10' ' +
' CODIGOALBARAN, ALBARAN'#10#10'FROM V_PRESUPUESTOS'
'REGA, FORMAPAGO, OPCION,'#10' NOMBRE, NIF_CIF, REFERENCIA, SIT' +
'UACION_MONTAJE,'#10' CODIGOALBARAN, ALBARAN'#10#10'FROM V_PRESUPUEST' +
'OS'
StatementType = stSQL
ColumnMappings = <
item
@ -362,6 +363,10 @@ object srvPresupuestos: TsrvPresupuestos
item
DatasetField = 'OPCION'
TableField = 'OPCION'
end
item
DatasetField = 'SITUACION_MONTAJE'
TableField = 'SITUACION_MONTAJE'
end>
end>
Name = 'Presupuestos'
@ -609,6 +614,18 @@ object srvPresupuestos: TsrvPresupuestos
Lookup = False
LookupCache = False
end
item
Name = 'SITUACION_MONTAJE'
DataType = datString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ALBARAN'
DataType = datString
@ -650,8 +667,9 @@ object srvPresupuestos: TsrvPresupuestos
Connection = 'IBX'
TargetTable = 'V_PRESUPUESTOS'
SQL =
'SELECT CODIGO, NOMBRE, REFERENCIA, CODIGOALBARAN, ALBARAN'#10#10'FROM ' +
'V_PRESUPUESTOS'#10'WHERE V_PRESUPUESTOS.CODIGO = :CODIGO'
'SELECT CODIGO, NOMBRE, REFERENCIA, CODIGOALBARAN, ALBARAN, SITUA' +
'CION_MONTAJE'#10#10'FROM V_PRESUPUESTOS'#10'WHERE V_PRESUPUESTOS.CODIGO = ' +
':CODIGO'
StatementType = stSQL
ColumnMappings = <
item
@ -673,6 +691,10 @@ object srvPresupuestos: TsrvPresupuestos
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'SITUACION_MONTAJE'
TableField = 'SITUACION_MONTAJE'
end>
end>
Name = 'Presupuestos_RefreshDataset'
@ -737,6 +759,18 @@ object srvPresupuestos: TsrvPresupuestos
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'SITUACION_MONTAJE'
DataType = datString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
@ -1569,6 +1603,14 @@ object srvPresupuestos: TsrvPresupuestos
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'SITUACION_MONTAJE'
DataType = datString
Size = 30
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
@ -1579,12 +1621,13 @@ object srvPresupuestos: TsrvPresupuestos
', USUARIO, CODIGOCONTACTO,'#10' TIPO, FECHAPRESUPUESTO, VIGENCIA' +
'PRESUPUESTO,'#10' SITUACION, FECHADECISION, BASEIMPONIBLE, DESCU' +
'ENTO, '#10' IMPORTEDESCUENTO, IVA, IMPORTEIVA, IMPORTETOTAL, OBS' +
'ERVACIONES, '#10' PLAZOENTREGA, FORMAPAGO, OPCION)'#10' VALUES'#10' ' +
'(:CODIGOEMPRESA, :CODIGO,'#10' :FECHAALTA, :USUARIO, :CODIGOCONT' +
'ACTO,'#10' :TIPO, :FECHAPRESUPUESTO, :VIGENCIAPRESUPUESTO,'#10' ' +
':SITUACION, :FECHADECISION, :BASEIMPONIBLE, :DESCUENTO, '#10' :I' +
'MPORTEDESCUENTO, :IVA, :IMPORTEIVA, :IMPORTETOTAL, '#10' :OBSERV' +
'ACIONES, :PLAZOENTREGA, :FORMAPAGO, :OPCION);'
'ERVACIONES, '#10' PLAZOENTREGA, FORMAPAGO, OPCION, SITUACION_MON' +
'TAJE)'#10' VALUES'#10' (:CODIGOEMPRESA, :CODIGO,'#10' :FECHAALTA, :U' +
'SUARIO, :CODIGOCONTACTO,'#10' :TIPO, :FECHAPRESUPUESTO, :VIGENCI' +
'APRESUPUESTO,'#10' :SITUACION, :FECHADECISION, :BASEIMPONIBLE, :' +
'DESCUENTO, '#10' :IMPORTEDESCUENTO, :IVA, :IMPORTEIVA, :IMPORTET' +
'OTAL, '#10' :OBSERVACIONES, :PLAZOENTREGA, :FORMAPAGO, :OPCION, ' +
':SITUACION_MONTAJE);'
StatementType = stSQL
ColumnMappings = <>
end>
@ -1729,6 +1772,14 @@ object srvPresupuestos: TsrvPresupuestos
Value = ''
ParamType = daptInput
end
item
Name = 'SITUACION_MONTAJE'
DataType = datString
Size = 30
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_CODIGO'
DataType = datInteger
@ -1751,7 +1802,8 @@ object srvPresupuestos: TsrvPresupuestos
'A = :IVA, '#10' IMPORTEIVA = :IMPORTEIVA, '#10' IMPORTETOTAL = :IM' +
'PORTETOTAL, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' PLAZOENTRE' +
'GA = :PLAZOENTREGA, '#10' FORMAPAGO = :FORMAPAGO,'#10' OPCION = :O' +
'PCION'#10' WHERE'#10' (CODIGO = :OLD_CODIGO)'
'PCION,'#10' SITUACION_MONTAJE = :SITUACION_MONTAJE'#10' WHERE'#10' (C' +
'ODIGO = :OLD_CODIGO)'
StatementType = stSQL
ColumnMappings = <>
end>

2
Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.pas
View File

@ -30,8 +30,8 @@ type
tbl_Presupuesto: TDACDSDataTable;
tbl_DetallesPresupuesto: TDACDSDataTable;
DABINAdapter: TDABINAdapter;
schPresupuestos: TDASchema;
frxReport1: TfrxReport;
schPresupuestos: TDASchema;
procedure DARemoteServiceActivate(const aClientID: TGUID;
aSession: TROSession; const aMessage: IROMessage);
private

6
Servidor/FactuGES_Server.dof
View File

@ -114,7 +114,7 @@ IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
MinorVer=6
Release=0
Release=2
Build=0
Debug=0
PreRelease=0
@ -126,13 +126,13 @@ CodePage=1252
[Version Info Keys]
CompanyName=Rodax Software S.L.
FileDescription=
FileVersion=1.6.0.0
FileVersion=1.6.2.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=FactuGES Server
ProductVersion=1.6.0.0
ProductVersion=1.6.2.0
Comments=
[Excluded Packages]
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.

2310
Servidor/FactuGES_Server.drc
View File

File diff suppressed because it is too large Load Diff

BIN
Servidor/FactuGES_Server.res
View File

Binary file not shown.

4
Servidor/srvComisiones_Impl.dfm
View File

@ -5,8 +5,8 @@ object srvComisiones: TsrvComisiones
AcquireConnection = True
ServiceSchema = schComisiones
ServiceAdapter = DABINAdapter
Left = 1112
Top = 198
Left = 1114
Top = 200
Height = 300
Width = 300
object schComisiones: TDASchema

4
Servidor/srvConfiguracion_Impl.dfm
View File

@ -6,8 +6,8 @@ object srvConfiguracion: TsrvConfiguracion
ConnectionName = 'IBX'
ServiceSchema = schConfiguracion
ServiceAdapter = DABINAdapter
Left = 1159
Top = 113
Left = 1161
Top = 115
Height = 161
Width = 300
object schConfiguracion: TDASchema