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

Varios cambios a petición de Luis León, comisiones, albaranes de cliente, informe de facturas de cliente, entre otros

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@73 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2007-07-03 18:57:02 +00:00
parent 90f7f26b61
commit 0b5b1ac930
40 changed files with 1484 additions and 492 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

13
Database/VISTAS.SQL
View File

@ -326,13 +326,15 @@ CREATE VIEW V_ALBARANES_PROVEEDOR(
NOMBRE, NOMBRE,
FECHA_ALBARAN, FECHA_ALBARAN,
REFERENCIA, REFERENCIA,
REFERENCIA_PROVEEDOR,
TIPO, TIPO,
ID_ALMACEN, ID_ALMACEN,
NOMBRE_ALMACEN, NOMBRE_ALMACEN,
ID_PEDIDO, ID_PEDIDO,
REF_PED_PROVEEDOR, REF_PED_PROVEEDOR,
ID_FACTURA, ID_FACTURA,
REF_FAC_PROVEEDOR, REF_FACTURA,
REF_FACTURA_PROV,
CALLE, CALLE,
CODIGO_POSTAL, CODIGO_POSTAL,
POBLACION, POBLACION,
@ -362,13 +364,15 @@ SELECT
V_PROVEEDORES.NOMBRE, V_PROVEEDORES.NOMBRE,
ALBARANES_PROVEEDOR.FECHA_ALBARAN, ALBARANES_PROVEEDOR.FECHA_ALBARAN,
ALBARANES_PROVEEDOR.REFERENCIA, ALBARANES_PROVEEDOR.REFERENCIA,
ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR,
CASE WHEN (ALBARANES_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'D' ELSE 'A' END AS TIPO, CASE WHEN (ALBARANES_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'D' ELSE 'A' END AS TIPO,
ALBARANES_PROVEEDOR.ID_ALMACEN, ALBARANES_PROVEEDOR.ID_ALMACEN,
ALMACENES.NOMBRE AS NOMBRE_ALMACEN, ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
ALBARANES_PROVEEDOR.ID_PEDIDO, ALBARANES_PROVEEDOR.ID_PEDIDO,
PEDIDOS_PROVEEDOR.REFERENCIA AS REF_PED_PROVEEDOR, PEDIDOS_PROVEEDOR.REFERENCIA AS REF_PED_PROVEEDOR,
ALBARANES_PROVEEDOR.ID_FACTURA, ALBARANES_PROVEEDOR.ID_FACTURA,
FACTURAS_PROVEEDOR.REFERENCIA AS REF_FAC_PROVEEDOR, FACTURAS_PROVEEDOR.REFERENCIA AS REF_FACTURA,
ALBARANES_PROVEEDOR.REF_FACTURA_PROV,
ALBARANES_PROVEEDOR.CALLE, ALBARANES_PROVEEDOR.CALLE,
ALBARANES_PROVEEDOR.CODIGO_POSTAL, ALBARANES_PROVEEDOR.CODIGO_POSTAL,
ALBARANES_PROVEEDOR.POBLACION, ALBARANES_PROVEEDOR.POBLACION,
@ -859,8 +863,9 @@ LEFT JOIN FACTURAS_CLIENTE_DETALLES ON (FACTURAS_CLIENTE_DETALLES.ID_FACTURA = V
LEFT JOIN ARTICULOS ON (ARTICULOS.ID = FACTURAS_CLIENTE_DETALLES.ID_ARTICULO) LEFT JOIN ARTICULOS ON (ARTICULOS.ID = FACTURAS_CLIENTE_DETALLES.ID_ARTICULO)
LEFT JOIN AGENTES_COMISIONES ON ((AGENTES_COMISIONES.ID_AGENTE = V_FACTURAS_CLIENTE.ID_AGENTE) LEFT JOIN AGENTES_COMISIONES ON ((AGENTES_COMISIONES.ID_AGENTE = V_FACTURAS_CLIENTE.ID_AGENTE)
AND (AGENTES_COMISIONES.ID_PROVEEDOR = ARTICULOS.ID_PROVEEDOR)) AND (AGENTES_COMISIONES.ID_PROVEEDOR = ARTICULOS.ID_PROVEEDOR))
WHERE (FACTURAS_CLIENTE_DETALLES.TIPO_DETALLE = 'Concepto')
WHERE (FACTURAS_CLIENTE_DETALLES.TIPO_DETALLE = 'Concepto'); AND (ARTICULOS.ID is not null)
AND (ARTICULOS.COMISIONABLE = 1);
/* Situación de los albaranes de cliente */ /* Situación de los albaranes de cliente */

30
Output/Debug/Servidor/Informes/InfComisiones.fr3
View File

File diff suppressed because one or more lines are too long

55
Output/Debug/Servidor/Informes/InfComisionesDesglosado.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

58
Output/Debug/Servidor/Informes/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

2
Output/Debug/Servidor/config.ini
View File

@ -1,3 +1,3 @@
[CONFIG] [CONFIG]
APPPATH=E:\Codigo\Output\Servidor\FactuGES_Server.exe APPPATH=E:\Codigo (Luis León)\Output\Debug\Servidor\FactuGES_Server.exe
LIBPATH=GDS32.DLL LIBPATH=GDS32.DLL

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

@ -54,8 +54,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 119 Width = 119
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 432 Left = 431
Top = 414 Top = 387
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -67,7 +67,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 22 TabOrder = 21
Height = 253 Height = 253
Width = 186 Width = 186
end end
@ -98,7 +98,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 143 Width = 143
end end
inline frViewClienteAlbaran: TfrViewDatosYSeleccionCliente inline frViewClienteAlbaran: TfrViewDatosYSeleccionCliente
Left = 432 Left = 431
Top = 28 Top = 28
Width = 350 Width = 350
Height = 212 Height = 212
@ -112,7 +112,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ParentFont = False ParentFont = False
TabOrder = 17 TabOrder = 17
ReadOnly = False ReadOnly = False
ExplicitLeft = 432 ExplicitLeft = 431
ExplicitTop = 28 ExplicitTop = 28
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Align = alTop Align = alTop
@ -137,12 +137,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 259 Left = 260
ExplicitLeft = 259 ExplicitLeft = 260
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 149 Left = 150
ExplicitLeft = 149 ExplicitLeft = 150
end end
end end
inherited DADataSource: TDADataSource inherited DADataSource: TDADataSource
@ -201,7 +201,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 162 Width = 162
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 337 Left = 336
Top = 251 Top = 251
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -278,7 +278,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 122 Width = 122
end end
object bElegirDireccion: TBitBtn object bElegirDireccion: TBitBtn
Left = 230 Left = 229
Top = 359 Top = 359
Width = 172 Width = 172
Height = 23 Height = 23
@ -287,7 +287,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 14 TabOrder = 14
end end
object Button1: TButton object Button1: TButton
Left = 270 Left = 269
Top = 138 Top = 138
Width = 132 Width = 132
Height = 23 Height = 23
@ -347,7 +347,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 32 Width = 32
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 270 Left = 269
Top = 109 Top = 109
Width = 132 Width = 132
Height = 23 Height = 23
@ -356,11 +356,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object eFechaRecepcion: TcxDBDateEdit object eFechaRecepcion: TcxDBDateEdit
Left = 583 Left = 565
Top = 357 Top = 330
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION' DataBinding.DataField = 'FECHA_RECEPCION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = clWindow Style.Color = clWindow
@ -375,34 +376,9 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 21 TabOrder = 20
Width = 123 Width = 123
end end
object eFechaEnvio: TcxDBTextEdit
Left = 583
Top = 303
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 19
Width = 122
end
object cbConAlmacen: TCheckBox object cbConAlmacen: TCheckBox
Left = 32 Left = 32
Top = 418 Top = 418
@ -441,15 +417,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 16 TabOrder = 16
Width = 69 Width = 69
end end
object cbFechaRecepcion: TCheckBox
Left = 442
Top = 330
Width = 340
Height = 21
Caption = 'El cliente ha recibido y firmado este albar'#225'n el d'#237'a:'
TabOrder = 20
OnClick = cbFechaRecepcionClick
end
object eRefFacturaCli: TcxDBTextEdit object eRefFacturaCli: TcxDBTextEdit
Left = 116 Left = 116
Top = 167 Top = 167
@ -477,12 +444,13 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 207 Width = 207
end end
object eFechaPrevista: TcxDBDateEdit object eFechaPrevista: TcxDBDateEdit
Left = 583 Left = 565
Top = 276 Top = 276
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO' DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.OnValidate = eFechaPrevistaPropertiesValidate
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = clWindow Style.Color = clWindow
@ -527,6 +495,31 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 1 TabOrder = 1
Width = 284 Width = 284
end end
object eFechaEnvio: TcxDBDateEdit
Left = 565
Top = 303
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
Properties.OnValidate = eFechaEnvioPropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 19
Width = 217
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -722,33 +715,21 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
object dxLayoutControl1Item24: TdxLayoutItem object dxLayoutControl1Item24: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Fecha prevista de salida:' Caption = 'Fecha prevista de envio:'
Offsets.Left = 10 Offsets.Left = 10
Control = eFechaPrevista Control = eFechaPrevista
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item17: TdxLayoutItem object dxLayoutControl1Item21: TdxLayoutItem
AutoAligns = [aaVertical] Caption = 'Fecha de envio:'
AlignHorz = ahClient
Caption = 'Fecha de salida del material:'
Offsets.Left = 10 Offsets.Left = 10
Control = eFechaEnvio Control = eFechaEnvio
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item21: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Offsets.Left = 10
ShowCaption = False
Control = cbFechaRecepcion
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item16: TdxLayoutItem object dxLayoutControl1Item16: TdxLayoutItem
AutoAligns = [] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Fecha de recepci'#243'n:' Caption = 'Fecha de recepci'#243'n:'
CaptionOptions.AlignHorz = taRightJustify
Offsets.Left = 10 Offsets.Left = 10
Control = eFechaRecepcion Control = eFechaRecepcion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False

83
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas
View File

@ -78,8 +78,6 @@ type
dxLayoutControl1Item16: TdxLayoutItem; dxLayoutControl1Item16: TdxLayoutItem;
eFechaRecepcion: TcxDBDateEdit; eFechaRecepcion: TcxDBDateEdit;
dxLayoutControl1Group11: TdxLayoutGroup; dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Item17: TdxLayoutItem;
eFechaEnvio: TcxDBTextEdit;
dxLayoutControl1Item19: TdxLayoutItem; dxLayoutControl1Item19: TdxLayoutItem;
cbConAlmacen: TCheckBox; cbConAlmacen: TCheckBox;
dxLayoutControl1Item20: TdxLayoutItem; dxLayoutControl1Item20: TdxLayoutItem;
@ -88,8 +86,6 @@ type
dxLayoutControl1Item18: TdxLayoutItem; dxLayoutControl1Item18: TdxLayoutItem;
Label1: TLabel; Label1: TLabel;
dxLayoutControl1Group12: TdxLayoutGroup; dxLayoutControl1Group12: TdxLayoutGroup;
dxLayoutControl1Item21: TdxLayoutItem;
cbFechaRecepcion: TCheckBox;
dxLayoutControl1Group10: TdxLayoutGroup; dxLayoutControl1Group10: TdxLayoutGroup;
dxLayoutControl1Item22: TdxLayoutItem; dxLayoutControl1Item22: TdxLayoutItem;
eRefFacturaCli: TcxDBTextEdit; eRefFacturaCli: TcxDBTextEdit;
@ -98,6 +94,8 @@ type
eFechaPrevista: TcxDBDateEdit; eFechaPrevista: TcxDBDateEdit;
dxLayoutControl1Item23: TdxLayoutItem; dxLayoutControl1Item23: TdxLayoutItem;
eRefCliente: TcxDBTextEdit; eRefCliente: TcxDBTextEdit;
dxLayoutControl1Item21: TdxLayoutItem;
eFechaEnvio: TcxDBDateEdit;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure actElegirDireccionExecute(Sender: TObject); procedure actElegirDireccionExecute(Sender: TObject);
@ -108,12 +106,15 @@ type
procedure frViewClienteAlbaranactAnadirContactoUpdate(Sender: TObject); procedure frViewClienteAlbaranactAnadirContactoUpdate(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
procedure cbConAlmacenClick(Sender: TObject); procedure cbConAlmacenClick(Sender: TObject);
procedure cbFechaRecepcionClick(Sender: TObject); procedure eFechaPrevistaPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure eFechaEnvioPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
protected protected
FAlbaran : IBizAlbaranCliente; FAlbaran : IBizAlbaranCliente;
FAlmacenesController : IAlmacenesController; FAlmacenesController : IAlmacenesController;
FPedidoAsociado : IBizPedidoCliente; FPedidoAsociado : IBizPedidoCliente;
FPedidoController : IPedidosClienteController; FPedidoController : IPedidosClienteController;
FViewClienteAlbaran : TfrViewDatosYSeleccionCliente; FViewClienteAlbaran : TfrViewDatosYSeleccionCliente;
FFormasPagoController : IFormasPagoController; FFormasPagoController : IFormasPagoController;
@ -134,7 +135,8 @@ implementation
uses uses
uClientesController, uBizDireccionesContacto, uAlbaranesClienteController, uClientesController, uBizDireccionesContacto, uAlbaranesClienteController,
schAlbaranesClienteClient_Intf, uBizFormasPago, uBizAlmacenes, uDateUtils; schAlbaranesClienteClient_Intf, uBizFormasPago, uBizAlmacenes, uDateUtils,
uDialogUtils;
procedure TfrViewAlbaranCliente.actElegirDireccionExecute(Sender: TObject); procedure TfrViewAlbaranCliente.actElegirDireccionExecute(Sender: TObject);
@ -207,20 +209,6 @@ begin
end; end;
end; end;
procedure TfrViewAlbaranCliente.cbFechaRecepcionClick(Sender: TObject);
begin
inherited;
if cbFechaRecepcion.Checked then
begin
eFechaRecepcion.Enabled := True;
end
else begin
eFechaRecepcion.Enabled := False;
FAlbaran.Edit;
FAlbaran.FECHA_RECEPCION := 0;
end;
end;
procedure TfrViewAlbaranCliente.CustomViewCreate(Sender: TObject); procedure TfrViewAlbaranCliente.CustomViewCreate(Sender: TObject);
begin begin
inherited; inherited;
@ -242,6 +230,39 @@ begin
FAlmacenesController := NIL; FAlmacenesController := NIL;
end; end;
procedure TfrViewAlbaranCliente.eFechaEnvioPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
begin
inherited;
if VarIsNull(DisplayValue) or (DisplayValue = '') then
begin
if (ShowConfirmMessage('Si elimina la fecha prevista de envio, se eliminarán tambien las fechas de envio y recepción en caso de tenerlas. ¿Desea continuar?', '') = IDYES) then
eFechaRecepcion.Enabled := false
else
DisplayValue := DateToStr(eFechaEnvio.Date);
end
else
eFechaRecepcion.Enabled := true;
end;
procedure TfrViewAlbaranCliente.eFechaPrevistaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
inherited;
if VarIsNull(DisplayValue) or (DisplayValue = '') then
begin
if (ShowConfirmMessage('Si elimina la fecha prevista de envio, se eliminarán tambien las fechas de envio y recepción en caso de tenerlas. ¿Desea continuar?', '') = IDYES) then
begin
eFechaEnvio.Enabled := false;
eFechaRecepcion.Enabled := false;
end
else
DisplayValue := DateToStr(eFechaPrevista.Date);
end
else
eFechaEnvio.Enabled := true;
end;
procedure TfrViewAlbaranCliente.frViewClienteAlbaranactAnadirContactoUpdate( procedure TfrViewAlbaranCliente.frViewClienteAlbaranactAnadirContactoUpdate(
Sender: TObject); Sender: TObject);
begin begin
@ -286,12 +307,26 @@ begin
cbConAlmacen.Checked := (FAlbaran.ID_ALMACEN > 0); cbConAlmacen.Checked := (FAlbaran.ID_ALMACEN > 0);
cbAlmacen.Enabled := cbConAlmacen.Checked; cbAlmacen.Enabled := cbConAlmacen.Checked;
cbFechaRecepcion.Checked := not EsFechaVacia(FAlbaran.FECHA_RECEPCION);
eFechaRecepcion.Enabled := cbFechaRecepcion.Checked;
eReferenciaPedidoCli.Enabled := False; eReferenciaPedidoCli.Enabled := False;
eRefFacturaCli.Enabled := False; eRefFacturaCli.Enabled := False;
if EsFechaVacia(FAlbaran.FECHA_PREVISTA_ENVIO) then
begin
eFechaEnvio.Enabled := false;
eFechaRecepcion.Enabled := false;
end
else
begin
eFechaEnvio.Enabled := true;
if EsFechaVacia(FAlbaran.FECHA_ENVIO) then
eFechaRecepcion.Enabled := false
else
eFechaRecepcion.Enabled := true;
end;
FPedidoAsociado := NIL; FPedidoAsociado := NIL;
if (FAlbaran.ID_PEDIDO > 0) then if (FAlbaran.ID_PEDIDO > 0) then
begin begin

33
Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
View File

@ -154,6 +154,20 @@ object DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Ref. provedor'
Alignment = taLeftJustify
DictionaryEntry = 'AlbaranesProveedor_REFERENCIA_PROVEEDOR'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'TIPO' Name = 'TIPO'
DataType = datString DataType = datString
@ -233,13 +247,28 @@ object DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
LookupCache = False LookupCache = False
end end
item item
Name = 'REF_FAC_PROVEEDOR' Name = 'REF_FACTURA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Referencia factura'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'AlbaranesProveedor_REF_FAC_PROVEEDOR' DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REF_FACTURA_PROV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Ref. factura prov'
Alignment = taLeftJustify
DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA_PROV'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False

248
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
View File

@ -9,11 +9,11 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_DarReferencia = '{5A05B7DE-83D2-48DC-9867-D025C26EF607}'; RID_DarReferencia = '{B11C1A92-7445-40B1-804D-75362337E091}';
RID_AlbaranesProveedor = '{17BC6E11-4D60-418A-A90E-F19D9D2F137D}'; RID_AlbaranesProveedor = '{A8D01A62-F911-438F-910D-CCE57A97679A}';
RID_AlbaranesProveedor_Detalles = '{93185DF7-4D33-422F-BF7D-0FC43C571F40}'; RID_AlbaranesProveedor_Detalles = '{74BC0CAC-88BE-4D83-ABE6-CCF245762256}';
RID_AlbaranesProveedor_Detalles_Refresh = '{671BF3C5-1B40-4883-9A26-A2C26CCEE774}'; RID_AlbaranesProveedor_Detalles_Refresh = '{B8EE8C6A-F540-4124-94D2-76924081B2F3}';
RID_AlbaranesProveedor_Refresh = '{46514DC4-3CC0-4300-97F0-F2CCE70B5666}'; RID_AlbaranesProveedor_Refresh = '{FEBB25BC-1C6E-43E2-AEC6-B2B9656D858F}';
{ Data table names } { Data table names }
nme_DarReferencia = 'DarReferencia'; nme_DarReferencia = 'DarReferencia';
@ -35,13 +35,15 @@ const
fld_AlbaranesProveedorNOMBRE = 'NOMBRE'; fld_AlbaranesProveedorNOMBRE = 'NOMBRE';
fld_AlbaranesProveedorFECHA_ALBARAN = 'FECHA_ALBARAN'; fld_AlbaranesProveedorFECHA_ALBARAN = 'FECHA_ALBARAN';
fld_AlbaranesProveedorREFERENCIA = 'REFERENCIA'; fld_AlbaranesProveedorREFERENCIA = 'REFERENCIA';
fld_AlbaranesProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
fld_AlbaranesProveedorTIPO = 'TIPO'; fld_AlbaranesProveedorTIPO = 'TIPO';
fld_AlbaranesProveedorID_ALMACEN = 'ID_ALMACEN'; fld_AlbaranesProveedorID_ALMACEN = 'ID_ALMACEN';
fld_AlbaranesProveedorNOMBRE_ALMACEN = 'NOMBRE_ALMACEN'; fld_AlbaranesProveedorNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
fld_AlbaranesProveedorID_PEDIDO = 'ID_PEDIDO'; fld_AlbaranesProveedorID_PEDIDO = 'ID_PEDIDO';
fld_AlbaranesProveedorREF_PED_PROVEEDOR = 'REF_PED_PROVEEDOR'; fld_AlbaranesProveedorREF_PED_PROVEEDOR = 'REF_PED_PROVEEDOR';
fld_AlbaranesProveedorID_FACTURA = 'ID_FACTURA'; fld_AlbaranesProveedorID_FACTURA = 'ID_FACTURA';
fld_AlbaranesProveedorREF_FAC_PROVEEDOR = 'REF_FAC_PROVEEDOR'; fld_AlbaranesProveedorREF_FACTURA = 'REF_FACTURA';
fld_AlbaranesProveedorREF_FACTURA_PROV = 'REF_FACTURA_PROV';
fld_AlbaranesProveedorCALLE = 'CALLE'; fld_AlbaranesProveedorCALLE = 'CALLE';
fld_AlbaranesProveedorCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_AlbaranesProveedorCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_AlbaranesProveedorPOBLACION = 'POBLACION'; fld_AlbaranesProveedorPOBLACION = 'POBLACION';
@ -71,34 +73,36 @@ const
idx_AlbaranesProveedorNOMBRE = 3; idx_AlbaranesProveedorNOMBRE = 3;
idx_AlbaranesProveedorFECHA_ALBARAN = 4; idx_AlbaranesProveedorFECHA_ALBARAN = 4;
idx_AlbaranesProveedorREFERENCIA = 5; idx_AlbaranesProveedorREFERENCIA = 5;
idx_AlbaranesProveedorTIPO = 6; idx_AlbaranesProveedorREFERENCIA_PROVEEDOR = 6;
idx_AlbaranesProveedorID_ALMACEN = 7; idx_AlbaranesProveedorTIPO = 7;
idx_AlbaranesProveedorNOMBRE_ALMACEN = 8; idx_AlbaranesProveedorID_ALMACEN = 8;
idx_AlbaranesProveedorID_PEDIDO = 9; idx_AlbaranesProveedorNOMBRE_ALMACEN = 9;
idx_AlbaranesProveedorREF_PED_PROVEEDOR = 10; idx_AlbaranesProveedorID_PEDIDO = 10;
idx_AlbaranesProveedorID_FACTURA = 11; idx_AlbaranesProveedorREF_PED_PROVEEDOR = 11;
idx_AlbaranesProveedorREF_FAC_PROVEEDOR = 12; idx_AlbaranesProveedorID_FACTURA = 12;
idx_AlbaranesProveedorCALLE = 13; idx_AlbaranesProveedorREF_FACTURA = 13;
idx_AlbaranesProveedorCODIGO_POSTAL = 14; idx_AlbaranesProveedorREF_FACTURA_PROV = 14;
idx_AlbaranesProveedorPOBLACION = 15; idx_AlbaranesProveedorCALLE = 15;
idx_AlbaranesProveedorPROVINCIA = 16; idx_AlbaranesProveedorCODIGO_POSTAL = 16;
idx_AlbaranesProveedorPERSONA_CONTACTO = 17; idx_AlbaranesProveedorPOBLACION = 17;
idx_AlbaranesProveedorTELEFONO = 18; idx_AlbaranesProveedorPROVINCIA = 18;
idx_AlbaranesProveedorIMPORTE_NETO = 19; idx_AlbaranesProveedorPERSONA_CONTACTO = 19;
idx_AlbaranesProveedorIMPORTE_PORTE = 20; idx_AlbaranesProveedorTELEFONO = 20;
idx_AlbaranesProveedorDESCUENTO = 21; idx_AlbaranesProveedorIMPORTE_NETO = 21;
idx_AlbaranesProveedorIMPORTE_DESCUENTO = 22; idx_AlbaranesProveedorIMPORTE_PORTE = 22;
idx_AlbaranesProveedorBASE_IMPONIBLE = 23; idx_AlbaranesProveedorDESCUENTO = 23;
idx_AlbaranesProveedorIVA = 24; idx_AlbaranesProveedorIMPORTE_DESCUENTO = 24;
idx_AlbaranesProveedorIMPORTE_IVA = 25; idx_AlbaranesProveedorBASE_IMPONIBLE = 25;
idx_AlbaranesProveedorIMPORTE_TOTAL = 26; idx_AlbaranesProveedorIVA = 26;
idx_AlbaranesProveedorOBSERVACIONES = 27; idx_AlbaranesProveedorIMPORTE_IVA = 27;
idx_AlbaranesProveedorINCIDENCIAS = 28; idx_AlbaranesProveedorIMPORTE_TOTAL = 28;
idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 29; idx_AlbaranesProveedorOBSERVACIONES = 29;
idx_AlbaranesProveedorFECHA_ALTA = 30; idx_AlbaranesProveedorINCIDENCIAS = 30;
idx_AlbaranesProveedorFECHA_MODIFICACION = 31; idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 31;
idx_AlbaranesProveedorUSUARIO = 32; idx_AlbaranesProveedorFECHA_ALTA = 32;
idx_AlbaranesProveedorID_FORMA_PAGO = 33; idx_AlbaranesProveedorFECHA_MODIFICACION = 33;
idx_AlbaranesProveedorUSUARIO = 34;
idx_AlbaranesProveedorID_FORMA_PAGO = 35;
{ AlbaranesProveedor_Detalles fields } { AlbaranesProveedor_Detalles fields }
fld_AlbaranesProveedor_DetallesID = 'ID'; fld_AlbaranesProveedor_DetallesID = 'ID';
@ -171,13 +175,15 @@ const
fld_AlbaranesProveedor_RefreshNOMBRE = 'NOMBRE'; fld_AlbaranesProveedor_RefreshNOMBRE = 'NOMBRE';
fld_AlbaranesProveedor_RefreshFECHA_ALBARAN = 'FECHA_ALBARAN'; fld_AlbaranesProveedor_RefreshFECHA_ALBARAN = 'FECHA_ALBARAN';
fld_AlbaranesProveedor_RefreshREFERENCIA = 'REFERENCIA'; fld_AlbaranesProveedor_RefreshREFERENCIA = 'REFERENCIA';
fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
fld_AlbaranesProveedor_RefreshTIPO = 'TIPO'; fld_AlbaranesProveedor_RefreshTIPO = 'TIPO';
fld_AlbaranesProveedor_RefreshID_ALMACEN = 'ID_ALMACEN'; fld_AlbaranesProveedor_RefreshID_ALMACEN = 'ID_ALMACEN';
fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN = 'NOMBRE_ALMACEN'; fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
fld_AlbaranesProveedor_RefreshID_PEDIDO = 'ID_PEDIDO'; fld_AlbaranesProveedor_RefreshID_PEDIDO = 'ID_PEDIDO';
fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR = 'REF_PED_PROVEEDOR'; fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR = 'REF_PED_PROVEEDOR';
fld_AlbaranesProveedor_RefreshID_FACTURA = 'ID_FACTURA'; fld_AlbaranesProveedor_RefreshID_FACTURA = 'ID_FACTURA';
fld_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR = 'REF_FAC_PROVEEDOR'; fld_AlbaranesProveedor_RefreshREF_FACTURA = 'REF_FACTURA';
fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV = 'REF_FACTURA_PROV';
fld_AlbaranesProveedor_RefreshCALLE = 'CALLE'; fld_AlbaranesProveedor_RefreshCALLE = 'CALLE';
fld_AlbaranesProveedor_RefreshCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_AlbaranesProveedor_RefreshCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_AlbaranesProveedor_RefreshPOBLACION = 'POBLACION'; fld_AlbaranesProveedor_RefreshPOBLACION = 'POBLACION';
@ -207,39 +213,41 @@ const
idx_AlbaranesProveedor_RefreshNOMBRE = 3; idx_AlbaranesProveedor_RefreshNOMBRE = 3;
idx_AlbaranesProveedor_RefreshFECHA_ALBARAN = 4; idx_AlbaranesProveedor_RefreshFECHA_ALBARAN = 4;
idx_AlbaranesProveedor_RefreshREFERENCIA = 5; idx_AlbaranesProveedor_RefreshREFERENCIA = 5;
idx_AlbaranesProveedor_RefreshTIPO = 6; idx_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR = 6;
idx_AlbaranesProveedor_RefreshID_ALMACEN = 7; idx_AlbaranesProveedor_RefreshTIPO = 7;
idx_AlbaranesProveedor_RefreshNOMBRE_ALMACEN = 8; idx_AlbaranesProveedor_RefreshID_ALMACEN = 8;
idx_AlbaranesProveedor_RefreshID_PEDIDO = 9; idx_AlbaranesProveedor_RefreshNOMBRE_ALMACEN = 9;
idx_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR = 10; idx_AlbaranesProveedor_RefreshID_PEDIDO = 10;
idx_AlbaranesProveedor_RefreshID_FACTURA = 11; idx_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR = 11;
idx_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR = 12; idx_AlbaranesProveedor_RefreshID_FACTURA = 12;
idx_AlbaranesProveedor_RefreshCALLE = 13; idx_AlbaranesProveedor_RefreshREF_FACTURA = 13;
idx_AlbaranesProveedor_RefreshCODIGO_POSTAL = 14; idx_AlbaranesProveedor_RefreshREF_FACTURA_PROV = 14;
idx_AlbaranesProveedor_RefreshPOBLACION = 15; idx_AlbaranesProveedor_RefreshCALLE = 15;
idx_AlbaranesProveedor_RefreshPROVINCIA = 16; idx_AlbaranesProveedor_RefreshCODIGO_POSTAL = 16;
idx_AlbaranesProveedor_RefreshPERSONA_CONTACTO = 17; idx_AlbaranesProveedor_RefreshPOBLACION = 17;
idx_AlbaranesProveedor_RefreshTELEFONO = 18; idx_AlbaranesProveedor_RefreshPROVINCIA = 18;
idx_AlbaranesProveedor_RefreshIMPORTE_NETO = 19; idx_AlbaranesProveedor_RefreshPERSONA_CONTACTO = 19;
idx_AlbaranesProveedor_RefreshIMPORTE_PORTE = 20; idx_AlbaranesProveedor_RefreshTELEFONO = 20;
idx_AlbaranesProveedor_RefreshDESCUENTO = 21; idx_AlbaranesProveedor_RefreshIMPORTE_NETO = 21;
idx_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO = 22; idx_AlbaranesProveedor_RefreshIMPORTE_PORTE = 22;
idx_AlbaranesProveedor_RefreshBASE_IMPONIBLE = 23; idx_AlbaranesProveedor_RefreshDESCUENTO = 23;
idx_AlbaranesProveedor_RefreshIVA = 24; idx_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO = 24;
idx_AlbaranesProveedor_RefreshIMPORTE_IVA = 25; idx_AlbaranesProveedor_RefreshBASE_IMPONIBLE = 25;
idx_AlbaranesProveedor_RefreshIMPORTE_TOTAL = 26; idx_AlbaranesProveedor_RefreshIVA = 26;
idx_AlbaranesProveedor_RefreshOBSERVACIONES = 27; idx_AlbaranesProveedor_RefreshIMPORTE_IVA = 27;
idx_AlbaranesProveedor_RefreshINCIDENCIAS = 28; idx_AlbaranesProveedor_RefreshIMPORTE_TOTAL = 28;
idx_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS = 29; idx_AlbaranesProveedor_RefreshOBSERVACIONES = 29;
idx_AlbaranesProveedor_RefreshFECHA_ALTA = 30; idx_AlbaranesProveedor_RefreshINCIDENCIAS = 30;
idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION = 31; idx_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS = 31;
idx_AlbaranesProveedor_RefreshUSUARIO = 32; idx_AlbaranesProveedor_RefreshFECHA_ALTA = 32;
idx_AlbaranesProveedor_RefreshID_FORMA_PAGO = 33; idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION = 33;
idx_AlbaranesProveedor_RefreshUSUARIO = 34;
idx_AlbaranesProveedor_RefreshID_FORMA_PAGO = 35;
type type
{ IDarReferencia } { IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable) IDarReferencia = interface(IDAStronglyTypedDataTable)
['{6BCD4068-462A-4DFD-AD5A-F4C827370E02}'] ['{5197CB29-BF7E-4281-9E0F-7BB774770672}']
{ Property getters and setters } { Property getters and setters }
function GetVALORValue: String; function GetVALORValue: String;
procedure SetVALORValue(const aValue: String); procedure SetVALORValue(const aValue: String);
@ -268,7 +276,7 @@ type
{ IAlbaranesProveedor } { IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable) IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{3F464120-F9AA-47F0-A1EB-7B3BD57C9FE1}'] ['{2CFF37C0-A76F-4D9C-BB24-0AC1F3BAF19D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -282,6 +290,8 @@ type
procedure SetFECHA_ALBARANValue(const aValue: DateTime); procedure SetFECHA_ALBARANValue(const aValue: DateTime);
function GetREFERENCIAValue: String; function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String); procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIA_PROVEEDORValue: String;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
function GetTIPOValue: String; function GetTIPOValue: String;
procedure SetTIPOValue(const aValue: String); procedure SetTIPOValue(const aValue: String);
function GetID_ALMACENValue: Integer; function GetID_ALMACENValue: Integer;
@ -294,8 +304,10 @@ type
procedure SetREF_PED_PROVEEDORValue(const aValue: String); procedure SetREF_PED_PROVEEDORValue(const aValue: String);
function GetID_FACTURAValue: Integer; function GetID_FACTURAValue: Integer;
procedure SetID_FACTURAValue(const aValue: Integer); procedure SetID_FACTURAValue(const aValue: Integer);
function GetREF_FAC_PROVEEDORValue: String; function GetREF_FACTURAValue: String;
procedure SetREF_FAC_PROVEEDORValue(const aValue: String); procedure SetREF_FACTURAValue(const aValue: String);
function GetREF_FACTURA_PROVValue: String;
procedure SetREF_FACTURA_PROVValue(const aValue: String);
function GetCALLEValue: String; function GetCALLEValue: String;
procedure SetCALLEValue(const aValue: String); procedure SetCALLEValue(const aValue: String);
function GetCODIGO_POSTALValue: String; function GetCODIGO_POSTALValue: String;
@ -347,13 +359,15 @@ type
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property TIPO: String read GetTIPOValue write SetTIPOValue; property TIPO: String read GetTIPOValue write SetTIPOValue;
property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue; property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property REF_FAC_PROVEEDOR: String read GetREF_FAC_PROVEEDORValue write SetREF_FAC_PROVEEDORValue; property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue;
property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLE: String read GetCALLEValue write SetCALLEValue;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
@ -394,6 +408,8 @@ type
procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual; procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual;
function GetREFERENCIAValue: String; virtual; function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetTIPOValue: String; virtual; function GetTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual; procedure SetTIPOValue(const aValue: String); virtual;
function GetID_ALMACENValue: Integer; virtual; function GetID_ALMACENValue: Integer; virtual;
@ -406,8 +422,10 @@ type
procedure SetREF_PED_PROVEEDORValue(const aValue: String); virtual; procedure SetREF_PED_PROVEEDORValue(const aValue: String); virtual;
function GetID_FACTURAValue: Integer; virtual; function GetID_FACTURAValue: Integer; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetREF_FAC_PROVEEDORValue: String; virtual; function GetREF_FACTURAValue: String; virtual;
procedure SetREF_FAC_PROVEEDORValue(const aValue: String); virtual; procedure SetREF_FACTURAValue(const aValue: String); virtual;
function GetREF_FACTURA_PROVValue: String; virtual;
procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual;
function GetCALLEValue: String; virtual; function GetCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual; procedure SetCALLEValue(const aValue: String); virtual;
function GetCODIGO_POSTALValue: String; virtual; function GetCODIGO_POSTALValue: String; virtual;
@ -458,13 +476,15 @@ type
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property TIPO: String read GetTIPOValue write SetTIPOValue; property TIPO: String read GetTIPOValue write SetTIPOValue;
property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue; property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property REF_FAC_PROVEEDOR: String read GetREF_FAC_PROVEEDORValue write SetREF_FAC_PROVEEDORValue; property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue;
property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLE: String read GetCALLEValue write SetCALLEValue;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
@ -495,7 +515,7 @@ type
{ IAlbaranesProveedor_Detalles } { IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable) IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{594F6700-525A-419A-B59D-C7E0367E2274}'] ['{8A62B0E3-DBC8-4606-A047-4203B88513F1}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -602,7 +622,7 @@ type
{ IAlbaranesProveedor_Detalles_Refresh } { IAlbaranesProveedor_Detalles_Refresh }
IAlbaranesProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable) IAlbaranesProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
['{AE1B5612-9B95-4A74-8727-52AE39DD42F4}'] ['{0773BFA8-2FAA-412C-A3A9-0978B8A03973}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -709,7 +729,7 @@ type
{ IAlbaranesProveedor_Refresh } { IAlbaranesProveedor_Refresh }
IAlbaranesProveedor_Refresh = interface(IDAStronglyTypedDataTable) IAlbaranesProveedor_Refresh = interface(IDAStronglyTypedDataTable)
['{43490787-1D12-4B92-A0B2-7E6E78344AEE}'] ['{F75AB4AE-10D5-4DA0-B8CA-39161C02E8BC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -723,6 +743,8 @@ type
procedure SetFECHA_ALBARANValue(const aValue: DateTime); procedure SetFECHA_ALBARANValue(const aValue: DateTime);
function GetREFERENCIAValue: String; function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String); procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIA_PROVEEDORValue: String;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
function GetTIPOValue: String; function GetTIPOValue: String;
procedure SetTIPOValue(const aValue: String); procedure SetTIPOValue(const aValue: String);
function GetID_ALMACENValue: Integer; function GetID_ALMACENValue: Integer;
@ -735,8 +757,10 @@ type
procedure SetREF_PED_PROVEEDORValue(const aValue: String); procedure SetREF_PED_PROVEEDORValue(const aValue: String);
function GetID_FACTURAValue: Integer; function GetID_FACTURAValue: Integer;
procedure SetID_FACTURAValue(const aValue: Integer); procedure SetID_FACTURAValue(const aValue: Integer);
function GetREF_FAC_PROVEEDORValue: String; function GetREF_FACTURAValue: String;
procedure SetREF_FAC_PROVEEDORValue(const aValue: String); procedure SetREF_FACTURAValue(const aValue: String);
function GetREF_FACTURA_PROVValue: String;
procedure SetREF_FACTURA_PROVValue(const aValue: String);
function GetCALLEValue: String; function GetCALLEValue: String;
procedure SetCALLEValue(const aValue: String); procedure SetCALLEValue(const aValue: String);
function GetCODIGO_POSTALValue: String; function GetCODIGO_POSTALValue: String;
@ -788,13 +812,15 @@ type
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property TIPO: String read GetTIPOValue write SetTIPOValue; property TIPO: String read GetTIPOValue write SetTIPOValue;
property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue; property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property REF_FAC_PROVEEDOR: String read GetREF_FAC_PROVEEDORValue write SetREF_FAC_PROVEEDORValue; property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue;
property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLE: String read GetCALLEValue write SetCALLEValue;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
@ -835,6 +861,8 @@ type
procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual; procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual;
function GetREFERENCIAValue: String; virtual; function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetTIPOValue: String; virtual; function GetTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual; procedure SetTIPOValue(const aValue: String); virtual;
function GetID_ALMACENValue: Integer; virtual; function GetID_ALMACENValue: Integer; virtual;
@ -847,8 +875,10 @@ type
procedure SetREF_PED_PROVEEDORValue(const aValue: String); virtual; procedure SetREF_PED_PROVEEDORValue(const aValue: String); virtual;
function GetID_FACTURAValue: Integer; virtual; function GetID_FACTURAValue: Integer; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetREF_FAC_PROVEEDORValue: String; virtual; function GetREF_FACTURAValue: String; virtual;
procedure SetREF_FAC_PROVEEDORValue(const aValue: String); virtual; procedure SetREF_FACTURAValue(const aValue: String); virtual;
function GetREF_FACTURA_PROVValue: String; virtual;
procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual;
function GetCALLEValue: String; virtual; function GetCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual; procedure SetCALLEValue(const aValue: String); virtual;
function GetCODIGO_POSTALValue: String; virtual; function GetCODIGO_POSTALValue: String; virtual;
@ -899,13 +929,15 @@ type
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property TIPO: String read GetTIPOValue write SetTIPOValue; property TIPO: String read GetTIPOValue write SetTIPOValue;
property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue; property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property REF_FAC_PROVEEDOR: String read GetREF_FAC_PROVEEDORValue write SetREF_FAC_PROVEEDORValue; property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue;
property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLE: String read GetCALLEValue write SetCALLEValue;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
@ -1031,6 +1063,16 @@ begin
DataTable.Fields[idx_AlbaranesProveedorREFERENCIA].AsString := aValue; DataTable.Fields[idx_AlbaranesProveedorREFERENCIA].AsString := aValue;
end; end;
function TAlbaranesProveedorDataTableRules.GetREFERENCIA_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_PROVEEDOR].AsString;
end;
procedure TAlbaranesProveedorDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_PROVEEDOR].AsString := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetTIPOValue: String; function TAlbaranesProveedorDataTableRules.GetTIPOValue: String;
begin begin
result := DataTable.Fields[idx_AlbaranesProveedorTIPO].AsString; result := DataTable.Fields[idx_AlbaranesProveedorTIPO].AsString;
@ -1091,14 +1133,24 @@ begin
DataTable.Fields[idx_AlbaranesProveedorID_FACTURA].AsInteger := aValue; DataTable.Fields[idx_AlbaranesProveedorID_FACTURA].AsInteger := aValue;
end; end;
function TAlbaranesProveedorDataTableRules.GetREF_FAC_PROVEEDORValue: String; function TAlbaranesProveedorDataTableRules.GetREF_FACTURAValue: String;
begin begin
result := DataTable.Fields[idx_AlbaranesProveedorREF_FAC_PROVEEDOR].AsString; result := DataTable.Fields[idx_AlbaranesProveedorREF_FACTURA].AsString;
end; end;
procedure TAlbaranesProveedorDataTableRules.SetREF_FAC_PROVEEDORValue(const aValue: String); procedure TAlbaranesProveedorDataTableRules.SetREF_FACTURAValue(const aValue: String);
begin begin
DataTable.Fields[idx_AlbaranesProveedorREF_FAC_PROVEEDOR].AsString := aValue; DataTable.Fields[idx_AlbaranesProveedorREF_FACTURA].AsString := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetREF_FACTURA_PROVValue: String;
begin
result := DataTable.Fields[idx_AlbaranesProveedorREF_FACTURA_PROV].AsString;
end;
procedure TAlbaranesProveedorDataTableRules.SetREF_FACTURA_PROVValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesProveedorREF_FACTURA_PROV].AsString := aValue;
end; end;
function TAlbaranesProveedorDataTableRules.GetCALLEValue: String; function TAlbaranesProveedorDataTableRules.GetCALLEValue: String;
@ -1689,6 +1741,16 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA].AsString := aValue; DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA].AsString := aValue;
end; end;
function TAlbaranesProveedor_RefreshDataTableRules.GetREFERENCIA_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR].AsString;
end;
procedure TAlbaranesProveedor_RefreshDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR].AsString := aValue;
end;
function TAlbaranesProveedor_RefreshDataTableRules.GetTIPOValue: String; function TAlbaranesProveedor_RefreshDataTableRules.GetTIPOValue: String;
begin begin
result := DataTable.Fields[idx_AlbaranesProveedor_RefreshTIPO].AsString; result := DataTable.Fields[idx_AlbaranesProveedor_RefreshTIPO].AsString;
@ -1749,14 +1811,24 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FACTURA].AsInteger := aValue; DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FACTURA].AsInteger := aValue;
end; end;
function TAlbaranesProveedor_RefreshDataTableRules.GetREF_FAC_PROVEEDORValue: String; function TAlbaranesProveedor_RefreshDataTableRules.GetREF_FACTURAValue: String;
begin begin
result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR].AsString; result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA].AsString;
end; end;
procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_FAC_PROVEEDORValue(const aValue: String); procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_FACTURAValue(const aValue: String);
begin begin
DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR].AsString := aValue; DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA].AsString := aValue;
end;
function TAlbaranesProveedor_RefreshDataTableRules.GetREF_FACTURA_PROVValue: String;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA_PROV].AsString;
end;
procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_FACTURA_PROVValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA_PROV].AsString := aValue;
end; end;
function TAlbaranesProveedor_RefreshDataTableRules.GetCALLEValue: String; function TAlbaranesProveedor_RefreshDataTableRules.GetCALLEValue: String;

160
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
View File

@ -9,16 +9,16 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_DarReferenciaDelta = '{180D29B7-ECFB-4220-A71C-E353AE49D624}'; RID_DarReferenciaDelta = '{F1B43432-A3E7-44D4-AF56-D2CA222CA3B3}';
RID_AlbaranesProveedorDelta = '{DA1EC824-AB6A-4817-9DE0-00CCF46AB7A8}'; RID_AlbaranesProveedorDelta = '{A1201763-99E7-462F-86AD-AAA14EFE7A60}';
RID_AlbaranesProveedor_DetallesDelta = '{04D610A6-9357-416C-8E6A-D2CC470106A8}'; RID_AlbaranesProveedor_DetallesDelta = '{9DD8A677-8A3F-4948-8C8C-1B40BB98AE6F}';
RID_AlbaranesProveedor_Detalles_RefreshDelta = '{4CF01E9A-B11E-4E9C-AAC8-D8AE44FDAFA0}'; RID_AlbaranesProveedor_Detalles_RefreshDelta = '{5663912C-0DD4-4B61-9F49-A9EFD19CA7CE}';
RID_AlbaranesProveedor_RefreshDelta = '{3DE95ADD-450F-48CE-9885-43BECF24C910}'; RID_AlbaranesProveedor_RefreshDelta = '{978B6667-02B7-49EC-B0E0-96D2672CCE4B}';
type type
{ IDarReferenciaDelta } { IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia) IDarReferenciaDelta = interface(IDarReferencia)
['{180D29B7-ECFB-4220-A71C-E353AE49D624}'] ['{F1B43432-A3E7-44D4-AF56-D2CA222CA3B3}']
{ Property getters and setters } { Property getters and setters }
function GetOldVALORValue : String; function GetOldVALORValue : String;
@ -47,7 +47,7 @@ type
{ IAlbaranesProveedorDelta } { IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor) IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{DA1EC824-AB6A-4817-9DE0-00CCF46AB7A8}'] ['{A1201763-99E7-462F-86AD-AAA14EFE7A60}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -55,13 +55,15 @@ type
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
function GetOldFECHA_ALBARANValue : DateTime; function GetOldFECHA_ALBARANValue : DateTime;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldTIPOValue : String; function GetOldTIPOValue : String;
function GetOldID_ALMACENValue : Integer; function GetOldID_ALMACENValue : Integer;
function GetOldNOMBRE_ALMACENValue : String; function GetOldNOMBRE_ALMACENValue : String;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldREF_PED_PROVEEDORValue : String; function GetOldREF_PED_PROVEEDORValue : String;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
function GetOldREF_FAC_PROVEEDORValue : String; function GetOldREF_FACTURAValue : String;
function GetOldREF_FACTURA_PROVValue : String;
function GetOldCALLEValue : String; function GetOldCALLEValue : String;
function GetOldCODIGO_POSTALValue : String; function GetOldCODIGO_POSTALValue : String;
function GetOldPOBLACIONValue : String; function GetOldPOBLACIONValue : String;
@ -91,13 +93,15 @@ type
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldTIPO : String read GetOldTIPOValue; property OldTIPO : String read GetOldTIPOValue;
property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue; property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue; property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldREF_FAC_PROVEEDOR : String read GetOldREF_FAC_PROVEEDORValue; property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue;
property OldCALLE : String read GetOldCALLEValue; property OldCALLE : String read GetOldCALLEValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPOBLACION : String read GetOldPOBLACIONValue;
@ -144,6 +148,9 @@ type
function GetREFERENCIAValue: String; virtual; function GetREFERENCIAValue: String; virtual;
function GetOldREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetTIPOValue: String; virtual; function GetTIPOValue: String; virtual;
function GetOldTIPOValue: String; virtual; function GetOldTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual; procedure SetTIPOValue(const aValue: String); virtual;
@ -162,9 +169,12 @@ type
function GetID_FACTURAValue: Integer; virtual; function GetID_FACTURAValue: Integer; virtual;
function GetOldID_FACTURAValue: Integer; virtual; function GetOldID_FACTURAValue: Integer; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetREF_FAC_PROVEEDORValue: String; virtual; function GetREF_FACTURAValue: String; virtual;
function GetOldREF_FAC_PROVEEDORValue: String; virtual; function GetOldREF_FACTURAValue: String; virtual;
procedure SetREF_FAC_PROVEEDORValue(const aValue: String); virtual; procedure SetREF_FACTURAValue(const aValue: String); virtual;
function GetREF_FACTURA_PROVValue: String; virtual;
function GetOldREF_FACTURA_PROVValue: String; virtual;
procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual;
function GetCALLEValue: String; virtual; function GetCALLEValue: String; virtual;
function GetOldCALLEValue: String; virtual; function GetOldCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual; procedure SetCALLEValue(const aValue: String); virtual;
@ -242,6 +252,8 @@ type
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property TIPO : String read GetTIPOValue write SetTIPOValue; property TIPO : String read GetTIPOValue write SetTIPOValue;
property OldTIPO : String read GetOldTIPOValue; property OldTIPO : String read GetOldTIPOValue;
property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue; property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue;
@ -254,8 +266,10 @@ type
property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue; property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue;
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property REF_FAC_PROVEEDOR : String read GetREF_FAC_PROVEEDORValue write SetREF_FAC_PROVEEDORValue; property REF_FACTURA : String read GetREF_FACTURAValue write SetREF_FACTURAValue;
property OldREF_FAC_PROVEEDOR : String read GetOldREF_FAC_PROVEEDORValue; property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
property REF_FACTURA_PROV : String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue;
property CALLE : String read GetCALLEValue write SetCALLEValue; property CALLE : String read GetCALLEValue write SetCALLEValue;
property OldCALLE : String read GetOldCALLEValue; property OldCALLE : String read GetOldCALLEValue;
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
@ -307,7 +321,7 @@ type
{ IAlbaranesProveedor_DetallesDelta } { IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles) IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{04D610A6-9357-416C-8E6A-D2CC470106A8}'] ['{9DD8A677-8A3F-4948-8C8C-1B40BB98AE6F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;
@ -427,7 +441,7 @@ type
{ IAlbaranesProveedor_Detalles_RefreshDelta } { IAlbaranesProveedor_Detalles_RefreshDelta }
IAlbaranesProveedor_Detalles_RefreshDelta = interface(IAlbaranesProveedor_Detalles_Refresh) IAlbaranesProveedor_Detalles_RefreshDelta = interface(IAlbaranesProveedor_Detalles_Refresh)
['{4CF01E9A-B11E-4E9C-AAC8-D8AE44FDAFA0}'] ['{5663912C-0DD4-4B61-9F49-A9EFD19CA7CE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;
@ -547,7 +561,7 @@ type
{ IAlbaranesProveedor_RefreshDelta } { IAlbaranesProveedor_RefreshDelta }
IAlbaranesProveedor_RefreshDelta = interface(IAlbaranesProveedor_Refresh) IAlbaranesProveedor_RefreshDelta = interface(IAlbaranesProveedor_Refresh)
['{3DE95ADD-450F-48CE-9885-43BECF24C910}'] ['{978B6667-02B7-49EC-B0E0-96D2672CCE4B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -555,13 +569,15 @@ type
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
function GetOldFECHA_ALBARANValue : DateTime; function GetOldFECHA_ALBARANValue : DateTime;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldTIPOValue : String; function GetOldTIPOValue : String;
function GetOldID_ALMACENValue : Integer; function GetOldID_ALMACENValue : Integer;
function GetOldNOMBRE_ALMACENValue : String; function GetOldNOMBRE_ALMACENValue : String;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldREF_PED_PROVEEDORValue : String; function GetOldREF_PED_PROVEEDORValue : String;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
function GetOldREF_FAC_PROVEEDORValue : String; function GetOldREF_FACTURAValue : String;
function GetOldREF_FACTURA_PROVValue : String;
function GetOldCALLEValue : String; function GetOldCALLEValue : String;
function GetOldCODIGO_POSTALValue : String; function GetOldCODIGO_POSTALValue : String;
function GetOldPOBLACIONValue : String; function GetOldPOBLACIONValue : String;
@ -591,13 +607,15 @@ type
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldTIPO : String read GetOldTIPOValue; property OldTIPO : String read GetOldTIPOValue;
property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue; property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue; property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldREF_FAC_PROVEEDOR : String read GetOldREF_FAC_PROVEEDORValue; property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue;
property OldCALLE : String read GetOldCALLEValue; property OldCALLE : String read GetOldCALLEValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPOBLACION : String read GetOldPOBLACIONValue;
@ -644,6 +662,9 @@ type
function GetREFERENCIAValue: String; virtual; function GetREFERENCIAValue: String; virtual;
function GetOldREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetTIPOValue: String; virtual; function GetTIPOValue: String; virtual;
function GetOldTIPOValue: String; virtual; function GetOldTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual; procedure SetTIPOValue(const aValue: String); virtual;
@ -662,9 +683,12 @@ type
function GetID_FACTURAValue: Integer; virtual; function GetID_FACTURAValue: Integer; virtual;
function GetOldID_FACTURAValue: Integer; virtual; function GetOldID_FACTURAValue: Integer; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetREF_FAC_PROVEEDORValue: String; virtual; function GetREF_FACTURAValue: String; virtual;
function GetOldREF_FAC_PROVEEDORValue: String; virtual; function GetOldREF_FACTURAValue: String; virtual;
procedure SetREF_FAC_PROVEEDORValue(const aValue: String); virtual; procedure SetREF_FACTURAValue(const aValue: String); virtual;
function GetREF_FACTURA_PROVValue: String; virtual;
function GetOldREF_FACTURA_PROVValue: String; virtual;
procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual;
function GetCALLEValue: String; virtual; function GetCALLEValue: String; virtual;
function GetOldCALLEValue: String; virtual; function GetOldCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual; procedure SetCALLEValue(const aValue: String); virtual;
@ -742,6 +766,8 @@ type
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property TIPO : String read GetTIPOValue write SetTIPOValue; property TIPO : String read GetTIPOValue write SetTIPOValue;
property OldTIPO : String read GetOldTIPOValue; property OldTIPO : String read GetOldTIPOValue;
property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue; property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue;
@ -754,8 +780,10 @@ type
property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue; property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue;
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property REF_FAC_PROVEEDOR : String read GetREF_FAC_PROVEEDORValue write SetREF_FAC_PROVEEDORValue; property REF_FACTURA : String read GetREF_FACTURAValue write SetREF_FACTURAValue;
property OldREF_FAC_PROVEEDOR : String read GetOldREF_FAC_PROVEEDORValue; property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
property REF_FACTURA_PROV : String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue;
property CALLE : String read GetCALLEValue write SetCALLEValue; property CALLE : String read GetCALLEValue write SetCALLEValue;
property OldCALLE : String read GetOldCALLEValue; property OldCALLE : String read GetOldCALLEValue;
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
@ -938,6 +966,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA] := aValue;
end; end;
function TAlbaranesProveedorBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_PROVEEDOR];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREFERENCIA_PROVEEDOR];
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_PROVEEDOR] := aValue;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetTIPOValue: String; function TAlbaranesProveedorBusinessProcessorRules.GetTIPOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorTIPO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorTIPO];
@ -1028,19 +1071,34 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FACTURA] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FACTURA] := aValue;
end; end;
function TAlbaranesProveedorBusinessProcessorRules.GetREF_FAC_PROVEEDORValue: String; function TAlbaranesProveedorBusinessProcessorRules.GetREF_FACTURAValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREF_FAC_PROVEEDOR]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREF_FACTURA];
end; end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldREF_FAC_PROVEEDORValue: String; function TAlbaranesProveedorBusinessProcessorRules.GetOldREF_FACTURAValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREF_FAC_PROVEEDOR]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREF_FACTURA];
end; end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetREF_FAC_PROVEEDORValue(const aValue: String); procedure TAlbaranesProveedorBusinessProcessorRules.SetREF_FACTURAValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREF_FAC_PROVEEDOR] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREF_FACTURA] := aValue;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetREF_FACTURA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREF_FACTURA_PROV];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldREF_FACTURA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREF_FACTURA_PROV];
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetREF_FACTURA_PROVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREF_FACTURA_PROV] := aValue;
end; end;
function TAlbaranesProveedorBusinessProcessorRules.GetCALLEValue: String; function TAlbaranesProveedorBusinessProcessorRules.GetCALLEValue: String;
@ -1908,6 +1966,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA] := aValue;
end; end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR];
end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR];
end;
procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR] := aValue;
end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetTIPOValue: String; function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetTIPOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTIPO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTIPO];
@ -1998,19 +2071,34 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FACTURA] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FACTURA] := aValue;
end; end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_FAC_PROVEEDORValue: String; function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_FACTURAValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA];
end; end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_FAC_PROVEEDORValue: String; function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_FACTURAValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA];
end; end;
procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_FAC_PROVEEDORValue(const aValue: String); procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_FACTURAValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA] := aValue;
end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_FACTURA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV];
end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_FACTURA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV];
end;
procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_FACTURA_PROVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV] := aValue;
end; end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetCALLEValue: String; function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetCALLEValue: String;

235
Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
View File

@ -71,14 +71,14 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
TargetTable = 'ALBARANES_PROVEEDOR' TargetTable = 'ALBARANES_PROVEEDOR'
SQL = SQL =
'SELECT '#10' ID, ID_EMPRESA, ID_PROVEEDOR, NOMBRE, FECHA_ALBARAN,' + 'SELECT '#10' ID, ID_EMPRESA, ID_PROVEEDOR, NOMBRE, FECHA_ALBARAN,' +
' '#10' REFERENCIA, TIPO, ID_ALMACEN, NOMBRE_ALMACEN, ID_PEDIDO,'#10' ' + ' REFERENCIA, REFERENCIA_PROVEEDOR,'#10' TIPO, ID_ALMACEN, NOMBRE_' +
' REF_PED_PROVEEDOR, ID_FACTURA, REF_FAC_PROVEEDOR, CALLE, CODI' + 'ALMACEN, ID_PEDIDO, REF_PED_PROVEEDOR,'#10' ID_FACTURA, REF_FACTU' +
'GO_POSTAL,'#10' POBLACION, PROVINCIA, PERSONA_CONTACTO, TELEFONO,' + 'RA, REF_FACTURA_PROV, CALLE, CODIGO_POSTAL, POBLACION, PROVINCIA' +
' IMPORTE_NETO, '#10' IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO,' + ','#10' PERSONA_CONTACTO, TELEFONO, IMPORTE_NETO, IMPORTE_PORTE, D' +
' BASE_IMPONIBLE, '#10' IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACI' + 'ESCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IV' +
'ONES, INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_M' + 'A, IMPORTE_TOTAL,'#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_AC' +
'ODIFICACION, '#10' USUARIO, ID_FORMA_PAGO'#10' FROM'#10' V_ALBARANES_' + 'TIVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA_PAG' +
'PROVEEDOR' 'O'#10' FROM'#10' V_ALBARANES_PROVEEDOR'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -209,13 +209,21 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DatasetField = 'REF_PED_PROVEEDOR' DatasetField = 'REF_PED_PROVEEDOR'
TableField = 'REF_PED_PROVEEDOR' TableField = 'REF_PED_PROVEEDOR'
end end
item
DatasetField = 'REF_FAC_PROVEEDOR'
TableField = 'REF_FAC_PROVEEDOR'
end
item item
DatasetField = 'TIPO' DatasetField = 'TIPO'
TableField = 'TIPO' TableField = 'TIPO'
end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'REF_FACTURA'
TableField = 'REF_FACTURA'
end
item
DatasetField = 'REF_FACTURA_PROV'
TableField = 'REF_FACTURA_PROV'
end> end>
end> end>
Name = 'AlbaranesProveedor' Name = 'AlbaranesProveedor'
@ -282,6 +290,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'AlbaranesProveedor_REFERENCIA_PROVEEDOR'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'TIPO' Name = 'TIPO'
DataType = datString DataType = datString
@ -346,11 +365,22 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
LookupCache = False LookupCache = False
end end
item item
Name = 'REF_FAC_PROVEEDOR' Name = 'REF_FACTURA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
DictionaryEntry = 'AlbaranesProveedor_REF_FAC_PROVEEDOR' DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REF_FACTURA_PROV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA_PROV'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1080,15 +1110,16 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'ALBARANES_PROVEEDOR' TargetTable = 'ALBARANES_PROVEEDOR'
SQL = SQL =
'SELECT '#10' ID, ID_EMPRESA, ID_PROVEEDOR, NOMBRE, FECHA_ALBARAN,' + 'SELECT'#10' ID, ID_EMPRESA, ID_PROVEEDOR, NOMBRE, FECHA_ALBARAN, ' +
' '#10' REFERENCIA, TIPO, ID_ALMACEN, NOMBRE_ALMACEN, ID_PEDIDO,'#10' ' + 'REFERENCIA, REFERENCIA_PROVEEDOR,'#10' TIPO, ID_ALMACEN, NOMBRE_A' +
' REF_PED_PROVEEDOR, ID_FACTURA, REF_FAC_PROVEEDOR, CALLE, CODI' + 'LMACEN, ID_PEDIDO, REF_PED_PROVEEDOR,'#10' ID_FACTURA, REF_FACTUR' +
'GO_POSTAL,'#10' POBLACION, PROVINCIA, PERSONA_CONTACTO, TELEFONO,' + 'A, REF_FACTURA_PROV, CALLE, CODIGO_POSTAL, POBLACION, PROVINCIA,' +
' IMPORTE_NETO, '#10' IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO,' + #10' PERSONA_CONTACTO, TELEFONO, IMPORTE_NETO, IMPORTE_PORTE, DE' +
' BASE_IMPONIBLE, '#10' IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACI' + 'SCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA' +
'ONES, INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_M' + ', IMPORTE_TOTAL,'#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACT' +
'ODIFICACION, '#10' USUARIO, ID_FORMA_PAGO'#10' FROM'#10' V_ALBARANES_' + 'IVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA_PAGO' +
'PROVEEDOR'#10'WHERE V_ALBARANES_PROVEEDOR.ID = :ID' #10' FROM'#10' V_ALBARANES_PROVEEDOR'#10'WHERE V_ALBARANES_PROVEEDOR.ID' +
' = :ID'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -1219,13 +1250,21 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DatasetField = 'REF_PED_PROVEEDOR' DatasetField = 'REF_PED_PROVEEDOR'
TableField = 'REF_PED_PROVEEDOR' TableField = 'REF_PED_PROVEEDOR'
end end
item
DatasetField = 'REF_FAC_PROVEEDOR'
TableField = 'REF_FAC_PROVEEDOR'
end
item item
DatasetField = 'TIPO' DatasetField = 'TIPO'
TableField = 'TIPO' TableField = 'TIPO'
end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'REF_FACTURA'
TableField = 'REF_FACTURA'
end
item
DatasetField = 'REF_FACTURA_PROV'
TableField = 'REF_FACTURA_PROV'
end> end>
end> end>
Name = 'AlbaranesProveedor_Refresh' Name = 'AlbaranesProveedor_Refresh'
@ -1295,6 +1334,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_PROVEEDOR'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'TIPO' Name = 'TIPO'
DataType = datString DataType = datString
@ -1359,7 +1409,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
LookupCache = False LookupCache = False
end end
item item
Name = 'REF_FAC_PROVEEDOR' Name = 'REF_FACTURA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
@ -1370,6 +1420,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'REF_FACTURA_PROV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'AlbaranesProveedor_REF_FAC_PROVEEDOR'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
@ -1680,6 +1741,22 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'REF_FACTURA_PROV'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
@ -1848,21 +1925,23 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
SQL = SQL =
'INSERT INTO ALBARANES_PROVEEDOR ('#10' ID,'#10' ID_EMPRESA,'#10' ID' + 'INSERT INTO ALBARANES_PROVEEDOR ('#10' ID,'#10' ID_EMPRESA,'#10' ID' +
'_PROVEEDOR,'#10' FECHA_ALBARAN,'#10' ID_PEDIDO,'#10' ID_FACTURA,'#10' ' + '_PROVEEDOR,'#10' FECHA_ALBARAN,'#10' ID_PEDIDO,'#10' ID_FACTURA,'#10' ' +
' REFERENCIA,'#10' CALLE,'#10' CODIGO_POSTAL,'#10' POBLACION,'#10' P' + ' REFERENCIA,'#10' REFERENCIA_PROVEEDOR,'#10' REF_FACTURA_PROV,'#10' ' +
'ROVINCIA,'#10' PERSONA_CONTACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE' + ' CALLE,'#10' CODIGO_POSTAL,'#10' POBLACION,'#10' PROVINCIA,'#10' PE' +
','#10' DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA' + 'RSONA_CONTACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE,'#10' DESCUENTO,' +
','#10' IMPORTE_TOTAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INC' + #10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' IMPORTE_TO' +
'IDENCIAS_ACTIVAS,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' US' + 'TAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS' +
'UARIO,'#10' ID_ALMACEN,'#10' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' ' + ','#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_AL' +
'IMPORTE_PORTE)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROV' + 'MACEN,'#10' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE)'#10' ' +
'EEDOR,'#10' :FECHA_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' ' + ' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,'#10' :FECH' +
':REFERENCIA,'#10' :CALLE,'#10' :CODIGO_POSTAL,'#10' :POBLACION,'#10' ' + 'A_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :REFERENCIA,'#10' ' +
' :PROVINCIA,'#10' :PERSONA_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMP' + ' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :CALLE,'#10' :' +
'ONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :I' + 'CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :PERSONA_CONT' +
'MPORTE_IVA,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDEN' + 'ACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :I' +
'CIAS,'#10' :INCIDENCIAS_ACTIVAS,'#10' :FECHA_ALTA,'#10' :FECHA_MODI' + 'MPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMPORTE_TOTAL' +
'FICACION,'#10' :USUARIO,'#10' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' ' + ','#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS' +
' :IMPORTE_NETO,'#10' :IMPORTE_PORTE);' ','#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :I' +
'D_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :IMPORTE_P' +
'ORTE);'
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1934,6 +2013,22 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'REF_FACTURA_PROV'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
@ -2110,19 +2205,20 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'UPDATE ALBARANES_PROVEEDOR'#10' SET'#10' ID_EMPRESA = :ID_EMPRESA,'#10' ' + 'UPDATE ALBARANES_PROVEEDOR'#10' SET'#10' ID_EMPRESA = :ID_EMPRESA,'#10' ' +
' ID_PROVEEDOR = :ID_PROVEEDOR,'#10' FECHA_ALBARAN = :FECHA_ALBA' + ' ID_PROVEEDOR = :ID_PROVEEDOR,'#10' FECHA_ALBARAN = :FECHA_ALBA' +
'RAN,'#10' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' ' + 'RAN,'#10' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' ' +
' REFERENCIA = :REFERENCIA,'#10' CALLE = :CALLE,'#10' CODIGO_POST' + ' REFERENCIA = :REFERENCIA,'#10' REFERENCIA_PROVEEDOR = :REFEREN' +
'AL = :CODIGO_POSTAL,'#10' POBLACION = :POBLACION,'#10' PROVINCIA =' + 'CIA_PROVEEDOR,'#10' REF_FACTURA_PROV = :REF_FACTURA_PROV,'#10' CAL' +
' :PROVINCIA,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' TELEF' + 'LE = :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' POBLACION =' +
'ONO = :TELEFONO,'#10' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCU' + ' :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' PERSONA_CONTACTO = ' +
'ENTO = :DESCUENTO,'#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' ' + ':PERSONA_CONTACTO,'#10' TELEFONO = :TELEFONO,'#10' BASE_IMPONIBLE ' +
' IVA = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL' + '= :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_DESCU' +
' = :IMPORTE_TOTAL,'#10' OBSERVACIONES = :OBSERVACIONES,'#10' INCID' + 'ENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IM' +
'ENCIAS = :INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_AC' + 'PORTE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES' +
'TIVAS,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :F' + ' = :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,'#10' INCIDENCI' +
'ECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_ALMACEN = :ID_' + 'AS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_ALTA = :FECHA_ALTA,' +
'ALMACEN,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' IMPORTE_NETO = ' + #10' FECHA_MODIFICACION = :FECHA_MODIFICACION,'#10' USUARIO = :US' +
':IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID ' + 'UARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FOR' +
'= :OLD_ID);' 'MA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :' +
'IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID);'
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -2911,6 +3007,33 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'REF_FAC_PROVEEDOR' DisplayLabel = 'REF_FAC_PROVEEDOR'
Alignment = taLeftJustify Alignment = taLeftJustify
end
item
Name = 'AlbaranesProveedor_REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Ref. provedor'
Alignment = taLeftJustify
end
item
Name = 'AlbaranesProveedor_REF_FACTURA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Referencia factura'
Alignment = taLeftJustify
end
item
Name = 'AlbaranesProveedor_REF_FACTURA_PROV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Ref. factura prov'
Alignment = taLeftJustify
end> end>
Left = 48 Left = 48
Top = 128 Top = 128

40
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
View File

@ -181,42 +181,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 757 Width = 757
ExplicitWidth = 757 ExplicitWidth = 757
inherited UpDown1: TUpDown
Left = 237
ExplicitLeft = 237
end
inherited ToolButton13: TToolButton
Left = 254
ExplicitLeft = 254
end
inherited ToolButton6: TToolButton
Left = 262
ExplicitLeft = 262
end
inherited ToolButton7: TToolButton
Left = 296
ExplicitLeft = 296
end
inherited ToolButton8: TToolButton
Left = 330
ExplicitLeft = 330
end
inherited ToolButton12: TToolButton
Left = 364
ExplicitLeft = 364
end
inherited ToolButton9: TToolButton
Left = 372
ExplicitLeft = 372
end
inherited ToolButton10: TToolButton
Left = 406
ExplicitLeft = 406
end
inherited ToolButton11: TToolButton
Left = 440
ExplicitLeft = 440
end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 757 Width = 757
@ -237,6 +201,10 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0

2
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
View File

@ -93,7 +93,7 @@ begin
inherited; inherited;
if (Sender as TAction).Enabled then if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := HayDatos (Sender as TAction).Enabled := HayDatos
and (Albaran.REF_FAC_PROVEEDOR = ''); and (Albaran.REF_FACTURA = '');
end; end;
procedure TfEditorAlbaranProveedor.AsignarVista; procedure TfEditorAlbaranProveedor.AsignarVista;

4
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
View File

@ -72,7 +72,7 @@ begin
inherited; inherited;
if (Sender as TAction).Enabled then if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := HayDatos (Sender as TAction).Enabled := HayDatos
and (Albaranes.REF_FAC_PROVEEDOR = ''); and (Albaranes.REF_FACTURA = '');
end; end;
procedure TfEditorAlbaranesProveedor.actGenerarFacturaExecute(Sender: TObject); procedure TfEditorAlbaranesProveedor.actGenerarFacturaExecute(Sender: TObject);
@ -86,7 +86,7 @@ procedure TfEditorAlbaranesProveedor.actGenerarFacturaUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := HayDatos (Sender as TAction).Enabled := HayDatos
and (Albaranes.REF_FAC_PROVEEDOR = '') and (Albaranes.REF_FACTURA = '')
and ViewGrid.esSeleccionCeldaDatos; and ViewGrid.esSeleccionCeldaDatos;
end; end;

110
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm
View File

@ -18,8 +18,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
688 688
461) 461)
object edtFechaAlbaran: TcxDBDateEdit object edtFechaAlbaran: TcxDBDateEdit
Left = 116 Left = 119
Top = 55 Top = 82
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ALBARAN' DataBinding.DataField = 'FECHA_ALBARAN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -36,7 +36,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 2
Width = 119 Width = 119
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
@ -53,12 +53,12 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 11
Height = 253 Height = 253
Width = 186 Width = 186
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 116 Left = 119
Top = 28 Top = 28
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
@ -90,7 +90,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 8 TabOrder = 10
ReadOnly = False ReadOnly = False
ExplicitLeft = 316 ExplicitLeft = 316
ExplicitTop = 28 ExplicitTop = 28
@ -135,7 +135,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
end end
inline frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv inline frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv
Left = 22 Left = 22
Top = 195 Top = 249
Width = 445 Width = 445
Height = 175 Height = 175
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -144,10 +144,10 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 7 TabOrder = 9
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 195 ExplicitTop = 249
ExplicitWidth = 445 ExplicitWidth = 445
ExplicitHeight = 175 ExplicitHeight = 175
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -169,9 +169,9 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
end end
inherited bModificar: TBitBtn inherited bModificar: TBitBtn
Left = 126 Left = 126
Top = 209 Top = 155
ExplicitLeft = 126 ExplicitLeft = 126
ExplicitTop = 209 ExplicitTop = 155
end end
inherited txtDireccion: TStaticText inherited txtDireccion: TStaticText
Height = 110 Height = 110
@ -184,8 +184,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
end end
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 116 Left = 119
Top = 138 Top = 192
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -209,21 +209,21 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 7
Width = 90 Width = 90
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 154 Left = 154
Top = 138 Top = 192
Width = 132 Width = 132
Height = 21 Height = 21
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
TabOrder = 6 TabOrder = 8
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object eReferenciaPedidoCli: TcxTextEdit object eReferenciaPedidoCli: TcxTextEdit
Left = 116 Left = 119
Top = 82 Top = 109
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Enabled = False Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
@ -241,22 +241,22 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2 TabOrder = 3
Width = 69 Width = 69
end end
object Button1: TButton object Button1: TButton
Left = 154 Left = 154
Top = 82 Top = 109
Width = 132 Width = 132
Height = 23 Height = 23
Action = actVerPedido Action = actVerPedido
TabOrder = 3 TabOrder = 4
end end
object eRefFacturaProv: TcxDBTextEdit object eRefFactura: TcxDBTextEdit
Left = 116 Left = 119
Top = 111 Top = 138
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REF_FAC_PROVEEDOR' DataBinding.DataField = 'REF_FACTURA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
@ -275,9 +275,55 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 5
Width = 216 Width = 216
end end
object eReferenciaProveedor: TcxDBTextEdit
Left = 119
Top = 55
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_PROVEEDOR'
DataBinding.DataSource = DADataSource
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Width = 170
end
object eReferenciaFacturaProveedor: TcxDBTextEdit
Left = 119
Top = 165
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REF_FACTURA_PROV'
DataBinding.DataSource = DADataSource
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
Width = 170
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -298,6 +344,11 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Control = eReferencia Control = eReferencia
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item11: TdxLayoutItem
Caption = 'Ref. proveedor:'
Control = eReferenciaProveedor
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Fecha del albar'#225'n:' Caption = 'Fecha del albar'#225'n:'
Control = edtFechaAlbaran Control = edtFechaAlbaran
@ -325,7 +376,12 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
end end
object dxLayoutControl1Item10: TdxLayoutItem object dxLayoutControl1Item10: TdxLayoutItem
Caption = 'Ref. factura:' Caption = 'Ref. factura:'
Control = eRefFacturaProv Control = eRefFactura
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item12: TdxLayoutItem
Caption = 'Ref. factura prov.:'
Control = eReferenciaFacturaProveedor
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Group4: TdxLayoutGroup object dxLayoutControl1Group4: TdxLayoutGroup

8
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas
View File

@ -61,7 +61,11 @@ type
dxLayoutControl1Group5: TdxLayoutGroup; dxLayoutControl1Group5: TdxLayoutGroup;
actVerPedido: TAction; actVerPedido: TAction;
dxLayoutControl1Item10: TdxLayoutItem; dxLayoutControl1Item10: TdxLayoutItem;
eRefFacturaProv: TcxDBTextEdit; eRefFactura: TcxDBTextEdit;
dxLayoutControl1Item11: TdxLayoutItem;
eReferenciaProveedor: TcxDBTextEdit;
dxLayoutControl1Item12: TdxLayoutItem;
eReferenciaFacturaProveedor: TcxDBTextEdit;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure actElegirDireccionExecute(Sender: TObject); procedure actElegirDireccionExecute(Sender: TObject);
@ -235,7 +239,7 @@ begin
frViewDireccionEntregaAlbaranProv1.AlbaranProveedor := FAlbaran; frViewDireccionEntregaAlbaranProv1.AlbaranProveedor := FAlbaran;
eReferenciaPedidoCli.Enabled := False; eReferenciaPedidoCli.Enabled := False;
eRefFacturaProv.Enabled := False; eRefFactura.Enabled := False;
FPedidoAsociado := NIL; FPedidoAsociado := NIL;
if (FAlbaran.ID_PEDIDO > 0) then if (FAlbaran.ID_PEDIDO > 0) then

29
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.dfm
View File

@ -2,10 +2,32 @@ inherited frViewAlbaranesDevProveedor: TfrViewAlbaranesDevProveedor
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = cxGridViewREF_FACTURA
end>
DataController.Summary.FooterSummaryItems = <
item
Format = '0 pedidos'
Kind = skCount
end
item
Format = '0 albaranes'
Kind = skCount
Column = cxGridViewREFERENCIA
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewREF_FACTURA
end>
inherited cxGridViewCALLE: TcxGridDBColumn inherited cxGridViewCALLE: TcxGridDBColumn
Visible = False Visible = False
end end
inherited cxGridViewREF_FAC_PROVEEDOR: TcxGridDBColumn inherited cxGridViewREF_FACTURA: TcxGridDBColumn
Caption = 'Ref. abono' Caption = 'Ref. abono'
end end
end end
@ -14,7 +36,6 @@ inherited frViewAlbaranesDevProveedor: TfrViewAlbaranesDevProveedor
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 124
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 453 ExplicitWidth = 453
Width = 453 Width = 453
@ -24,8 +45,8 @@ inherited frViewAlbaranesDevProveedor: TfrViewAlbaranesDevProveedor
Width = 237 Width = 237
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
ExplicitWidth = 199 ExplicitWidth = 239
Width = 199 Width = 239
end end
end end
end end

2
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.pas
View File

@ -12,7 +12,7 @@ uses
cxGridPopupMenu, dxPScxCommon, dxPScxGridLnk, uDADataTable, TB2Item, TBX, cxGridPopupMenu, dxPScxCommon, dxPScxGridLnk, uDADataTable, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, cxGridLevel, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid; cxControls, cxGridCustomView, cxGrid, cxTextEdit;
type type
IViewAlbaranesDevProveedor = interface(IViewAlbaranesProveedor) IViewAlbaranesDevProveedor = interface(IViewAlbaranesProveedor)

27
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
View File

@ -61,6 +61,9 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
Width = 65 Width = 65
end end
object cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA_PROVEEDOR'
end
object cxGridViewFECHA_ALBARAN: TcxGridDBColumn object cxGridViewFECHA_ALBARAN: TcxGridDBColumn
Caption = 'Fecha' Caption = 'Fecha'
DataBinding.FieldName = 'FECHA_ALBARAN' DataBinding.FieldName = 'FECHA_ALBARAN'
@ -104,11 +107,20 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
DataBinding.FieldName = 'TELEFONO' DataBinding.FieldName = 'TELEFONO'
Visible = False Visible = False
end end
object cxGridViewREF_FAC_PROVEEDOR: TcxGridDBColumn object cxGridViewREF_FACTURA: TcxGridDBColumn
Caption = 'Ref. factura' Caption = 'Ref. factura'
DataBinding.FieldName = 'REF_FAC_PROVEEDOR' DataBinding.FieldName = 'REF_FACTURA'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
Width = 24 Width = 24
end end
object cxGridViewREF_FACTURA_PROV: TcxGridDBColumn
DataBinding.FieldName = 'REF_FACTURA_PROV'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe total' Caption = 'Importe total'
DataBinding.FieldName = 'IMPORTE_TOTAL' DataBinding.FieldName = 'IMPORTE_TOTAL'
@ -133,9 +145,20 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
ExplicitWidth = 596 ExplicitWidth = 596
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 592 Width = 592
ExplicitWidth = 592
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 367 Left = 367
ExplicitLeft = 367 ExplicitLeft = 367
ExplicitWidth = 121
Width = 121
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

6
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas
View File

@ -11,7 +11,7 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGridLnk, cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGridLnk,
uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes, uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
cxGrid, uBizAlbaranesProveedor, cxCurrencyEdit, Forms, uViewFiltroBase, cxGrid, uBizAlbaranesProveedor, cxCurrencyEdit, Forms, uViewFiltroBase,
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg; ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxTextEdit;
type type
IViewAlbaranesProveedor = interface(IViewGrid) IViewAlbaranesProveedor = interface(IViewGrid)
@ -35,7 +35,7 @@ type
cxGridViewTELEFONO: TcxGridDBColumn; cxGridViewTELEFONO: TcxGridDBColumn;
cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn; cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn;
cxGridViewREF_PED_PROVEEDOR: TcxGridDBColumn; cxGridViewREF_PED_PROVEEDOR: TcxGridDBColumn;
cxGridViewREF_FAC_PROVEEDOR: TcxGridDBColumn; cxGridViewREF_FACTURA: TcxGridDBColumn;
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn; cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
actProveedor: TAction; actProveedor: TAction;
actAlmacen: TAction; actAlmacen: TAction;
@ -43,6 +43,8 @@ type
TBXSeparatorItem1: TTBXSeparatorItem; TBXSeparatorItem1: TTBXSeparatorItem;
TBXItem3: TTBXItem; TBXItem3: TTBXItem;
TBXSeparatorItem2: TTBXSeparatorItem; TBXSeparatorItem2: TTBXSeparatorItem;
cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
cxGridViewREF_FACTURA_PROV: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView; procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;

35
Source/Modulos/Comisiones/Controller/uComisionesController.pas
View File

@ -13,12 +13,12 @@ type
function BuscarTodos: IBizComisiones; function BuscarTodos: IBizComisiones;
procedure VerTodos(AComision: IBizComisiones); procedure VerTodos(AComision: IBizComisiones);
procedure Ver(AComision: IBizComisiones); procedure Ver(AComision: IBizComisiones);
procedure Anadir(AComision : IBizComisiones); function Anadir(AComision : IBizComisiones): Boolean;
function Eliminar(AComision : IBizComisiones): Boolean; function Eliminar(AComision : IBizComisiones): Boolean;
function Guardar(AComision : IBizComisiones): Boolean; function Guardar(AComision : IBizComisiones): Boolean;
procedure DescartarCambios(AComision : IBizComisiones); procedure DescartarCambios(AComision : IBizComisiones);
procedure Preview(AComision : IBizComisiones); procedure Preview(AComision : IBizComisiones; const DesglosadoProv: Boolean);
procedure Print(AComision : IBizComisiones); procedure Print(AComision : IBizComisiones; const DesglosadoProv: Boolean);
function ElegirFacturasComision(AComision : IBizComisiones): Boolean; function ElegirFacturasComision(AComision : IBizComisiones): Boolean;
procedure EliminarFactura(AComision : IBizComisiones); procedure EliminarFactura(AComision : IBizComisiones);
@ -51,12 +51,12 @@ type
function Eliminar(AComision : IBizComisiones): Boolean; function Eliminar(AComision : IBizComisiones): Boolean;
function Guardar(AComision : IBizComisiones): Boolean; function Guardar(AComision : IBizComisiones): Boolean;
procedure DescartarCambios(AComision : IBizComisiones); procedure DescartarCambios(AComision : IBizComisiones);
procedure Anadir(AComision : IBizComisiones); function Anadir(AComision : IBizComisiones): Boolean;
function BuscarTodos: IBizComisiones; function BuscarTodos: IBizComisiones;
procedure VerTodos(AComision: IBizComisiones); procedure VerTodos(AComision: IBizComisiones);
procedure Ver(AComision: IBizComisiones); procedure Ver(AComision: IBizComisiones);
procedure Preview(AComision : IBizComisiones); procedure Preview(AComision : IBizComisiones; const DesglosadoProv: Boolean);
procedure Print(AComision : IBizComisiones); procedure Print(AComision : IBizComisiones; const DesglosadoProv: Boolean);
function ElegirFacturasComision(AComision : IBizComisiones): Boolean; function ElegirFacturasComision(AComision : IBizComisiones): Boolean;
procedure EliminarFactura(AComision : IBizComisiones); procedure EliminarFactura(AComision : IBizComisiones);
procedure AsignarImporteTotal(AComision : IBizComisiones; Const ImporteTotal: Variant); procedure AsignarImporteTotal(AComision : IBizComisiones; Const ImporteTotal: Variant);
@ -72,9 +72,16 @@ uses
{ TComisionesController } { TComisionesController }
procedure TComisionesController.Anadir(AComision: IBizComisiones); function TComisionesController.Anadir(AComision: IBizComisiones): Boolean;
begin begin
if not Assigned(AComision) then
raise Exception.Create ('Comision no asignado (Anadir)');
if not AComision.DataTable.Active then
AComision.DataTable.Active := True;
AComision.Insert; AComision.Insert;
Result := True;
end; end;
procedure TComisionesController.AsignarDataModule; procedure TComisionesController.AsignarDataModule;
@ -88,7 +95,7 @@ begin
raise Exception.Create ('Comision no asignado'); raise Exception.Create ('Comision no asignado');
AsignarIDDetalles(AComision.Facturas, IDNuevo, AComision.EsNuevo); AsignarIDDetalles(AComision.Facturas, IDNuevo, AComision.EsNuevo);
if AComision.EsNuevo then if AComision.EsNuevo then
begin begin
AComision.Edit; AComision.Edit;
@ -459,31 +466,31 @@ begin
end; end;
end; end;
end; end;
procedure TComisionesController.Preview(AComision: IBizComisiones); procedure TComisionesController.Preview(AComision: IBizComisiones; const DesglosadoProv: Boolean);
var var
AReportController : IComisionesReportController; AReportController : IComisionesReportController;
begin begin
AReportController := TComisionesReportController.Create; AReportController := TComisionesReportController.Create;
try try
if Assigned(AComision) then if Assigned(AComision) then
AReportController.Preview(AComision.ID) AReportController.Preview(AComision.ID, DesglosadoProv)
else else
AReportController.Preview(Null) AReportController.Preview(Null, DesglosadoProv)
finally finally
AReportController := NIL; AReportController := NIL;
end; end;
end; end;
procedure TComisionesController.Print(AComision: IBizComisiones); procedure TComisionesController.Print(AComision: IBizComisiones; const DesglosadoProv: Boolean);
var var
AReportController : IComisionesReportController; AReportController : IComisionesReportController;
begin begin
AReportController := TComisionesReportController.Create; AReportController := TComisionesReportController.Create;
try try
if Assigned(AComision) then if Assigned(AComision) then
AReportController.Preview(AComision.ID) AReportController.Preview(AComision.ID, DesglosadoProv)
else else
AReportController.Preview(Null); AReportController.Preview(Null, DesglosadoProv);
finally finally
AReportController := NIL; AReportController := NIL;
end; end;

16
Source/Modulos/Comisiones/Controller/uComisionesReportController.pas
View File

@ -10,8 +10,8 @@ uses
type type
IComisionesReportController = interface IComisionesReportController = interface
['{7ABB74C2-050C-4737-BC4C-C5F20883CED8}'] ['{7ABB74C2-050C-4737-BC4C-C5F20883CED8}']
procedure Preview(const AComisionID : Variant); procedure Preview(const AComisionID : Variant; const DesglosadoProv: Boolean);
procedure Print(const AComisionID : Variant); procedure Print(const AComisionID : Variant; const DesglosadoProv: Boolean);
end; end;
TComisionesReportController = class(TInterfacedObject, IComisionesReportController) TComisionesReportController = class(TInterfacedObject, IComisionesReportController)
@ -22,8 +22,8 @@ type
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AComisionID : Variant); procedure Preview(const AComisionID : Variant; const DesglosadoProv: Boolean);
procedure Print(const AComisionID : Variant); procedure Print(const AComisionID : Variant; const DesglosadoProv: Boolean);
end; end;
@ -53,7 +53,7 @@ begin
inherited; inherited;
end; end;
procedure TComisionesReportController.Preview(const AComisionID : Variant); procedure TComisionesReportController.Preview(const AComisionID : Variant; const DesglosadoProv: Boolean);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorComisionesPreview; AEditor : IEditorComisionesPreview;
@ -62,7 +62,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetReport(AComisionID, '', '', Null); AStream := FDataModule.GetReport(AComisionID, DesglosadoProv,'', '', Null);
try try
CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor); CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor);
AEditor.DataModule := FDataModule; AEditor.DataModule := FDataModule;
@ -78,7 +78,7 @@ begin
AEditor.Preview; AEditor.Preview;
end; end;
procedure TComisionesReportController.Print(const AComisionID : Variant); procedure TComisionesReportController.Print(const AComisionID : Variant; const DesglosadoProv: Boolean);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorComisionesPreview; AEditor : IEditorComisionesPreview;
@ -87,7 +87,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetReport(AComisionID, '', '', Null); AStream := FDataModule.GetReport(AComisionID, DesglosadoProv, '', '', Null);
try try
CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor); CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor);
AEditor.DataModule := FDataModule; AEditor.DataModule := FDataModule;

6
Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas
View File

@ -36,7 +36,7 @@ type
function NewItem : IBizComisiones; function NewItem : IBizComisiones;
// Report // Report
function GetReport(const AComisionID: Variant; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary; function GetReport(const AComisionID: Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
end; end;
implementation implementation
@ -155,9 +155,9 @@ begin
Result := (RORemoteService as IsrvComisiones).GetNextAutoInc(aGeneratorName) Result := (RORemoteService as IsrvComisiones).GetNextAutoInc(aGeneratorName)
end; end;
function TDataModuleComisiones.GetReport(const AComisionID: Variant; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary; function TDataModuleComisiones.GetReport(const AComisionID: Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
begin begin
Result := (RORemoteService as IsrvComisiones).GenerateReport(AComisionID, FechaIni, FechaFin, AAgenteID); Result := (RORemoteService as IsrvComisiones).GenerateReport(AComisionID, DesglosadoProv, FechaIni, FechaFin, AAgenteID);
end; end;
function TDataModuleComisiones.NewItem: IBizComisiones; function TDataModuleComisiones.NewItem: IBizComisiones;

2
Source/Modulos/Comisiones/Model/Data/uIDataModuleComisionesReport.pas
View File

@ -8,7 +8,7 @@ uses
type type
IDataModuleComisionesReport = interface IDataModuleComisionesReport = interface
['{F498AC70-AA38-4C06-B301-85A4AC0B210B}'] ['{F498AC70-AA38-4C06-B301-85A4AC0B210B}']
function GetReport(const AComisionID: Variant; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary; function GetReport(const AComisionID: Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
end; end;
implementation implementation

527
Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm
View File

@ -63,6 +63,490 @@ object RptComisiones: TRptComisiones
ConnectionManager = dmServer.ConnectionManager ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary DataDictionary = DataDictionary
Datasets = < Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_AGENTES_COMISIONES_DET_FAC'
SQL =
'select'#10' COMISIONES_LIQUIDADAS.FECHA AS FECHA_COMISION,'#10' ' +
' COMISIONES_LIQUIDADAS.REFERENCIA AS REFERENCIA_COMISION,'#10' ' +
' COMISIONES_LIQUIDADAS.DESCRIPCION,'#10' COMISIONES_LIQUIDA' +
'DAS.IMPORTE_TOTAL,'#10#10' V_AGENTES_COMISIONES_DET_FAC.ID_EMPRE' +
'SA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, COALESCE(EMPRESAS.RAZON' +
'_SOCIAL, EMPRESAS.NOMBRE) as RAZON_SOCIAL,'#10' EMPRESAS.CALLE' +
' as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' ' +
' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POST' +
'AL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESA' +
'S.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGIN' +
'A_WEB, EMPRESAS.REGISTRO_MERCANTIL,'#10#10' V_AGENTES_COMISIONES' +
'_DET_FAC.ID_AGENTE, CONTACTOS1.NOMBRE as AGENTE,'#10' V_AGENTE' +
'S_COMISIONES_DET_FAC.ID_FACTURA,'#10' V_AGENTES_COMISIONES_DET' +
'_FAC.ID_COMISION_LIQUIDADA,'#10' V_AGENTES_COMISIONES_DET_FAC.' +
'FECHA,'#10' V_AGENTES_COMISIONES_DET_FAC.REFERENCIA,'#10' V_' +
'AGENTES_COMISIONES_DET_FAC.SITUACION,'#10' V_AGENTES_COMISIONE' +
'S_DET_FAC.ID_CLIENTE,'#10' CONTACTOS2.NOMBRE as CLIENTE,'#10#10' ' +
' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_TOTAL) as IMPORTE_CO' +
'MISIONABLE,'#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_COMI' +
'SION) as IMPORTE_COMISION'#10#10#10'from V_AGENTES_COMISIONES_DET_FAC'#10'LE' +
'FT JOIN COMISIONES_LIQUIDADAS ON (COMISIONES_LIQUIDADAS.ID = V_A' +
'GENTES_COMISIONES_DET_FAC.ID_COMISION_LIQUIDADA)'#10'LEFT JOIN EMPRE' +
'SAS ON EMPRESAS.ID = V_AGENTES_COMISIONES_DET_FAC.ID_EMPRESA'#10'LEF' +
'T JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID = V_AGENTES_COMISI' +
'ONES_DET_FAC.ID_AGENTE)'#10'LEFT JOIN CONTACTOS CONTACTOS2 ON (CONTA' +
'CTOS2.ID = V_AGENTES_COMISIONES_DET_FAC.ID_CLIENTE)'#10'LEFT JOIN CO' +
'NTACTOS CONTACTOS3 ON (CONTACTOS3.ID = V_AGENTES_COMISIONES_DET_' +
'FAC.ID_PROVEEDOR)'#10'WHERE (V_AGENTES_COMISIONES_DET_FAC.ID_COMISIO' +
'N_LIQUIDADA IS NOT NULL)'#10'GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,' +
' 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26'#10 +
'ORDER BY 1'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'REFERENCIA_COMISION'
TableField = 'REFERENCIA_COMISION'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
DatasetField = 'AGENTE'
TableField = 'AGENTE'
end
item
DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA'
end
item
DatasetField = 'ID_COMISION_LIQUIDADA'
TableField = 'ID_COMISION_LIQUIDADA'
end
item
DatasetField = 'FECHA'
TableField = 'FECHA'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'CLIENTE'
TableField = 'CLIENTE'
end
item
DatasetField = 'IMPORTE_COMISIONABLE'
TableField = 'IMPORTE_COMISIONABLE'
end
item
DatasetField = 'IMPORTE_COMISION'
TableField = 'IMPORTE_COMISION'
end
item
DatasetField = 'FECHA_COMISION'
TableField = 'FECHA_COMISION'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'NIF_CIF_EMPRESA'
TableField = 'NIF_CIF_EMPRESA'
end
item
DatasetField = 'RAZON_SOCIAL'
TableField = 'RAZON_SOCIAL'
end
item
DatasetField = 'CALLE_EMPRESA'
TableField = 'CALLE_EMPRESA'
end
item
DatasetField = 'POBLACION_EMPRESA'
TableField = 'POBLACION_EMPRESA'
end
item
DatasetField = 'PROVINCIA_EMPRESA'
TableField = 'PROVINCIA_EMPRESA'
end
item
DatasetField = 'CODIGO_POSTAL_EMPRESA'
TableField = 'CODIGO_POSTAL_EMPRESA'
end
item
DatasetField = 'TELEFONO_1'
TableField = 'TELEFONO_1'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'MOVIL_1'
TableField = 'MOVIL_1'
end
item
DatasetField = 'EMAIL_1'
TableField = 'EMAIL_1'
end
item
DatasetField = 'PAGINA_WEB'
TableField = 'PAGINA_WEB'
end
item
DatasetField = 'REGISTRO_MERCANTIL'
TableField = 'REGISTRO_MERCANTIL'
end>
end>
Name = 'InformeComisiones'
Fields = <
item
Name = 'FECHA_COMISION'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_COMISION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NIF_CIF_EMPRESA'
DataType = datString
Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'RAZON_SOCIAL'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CALLE_EMPRESA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POBLACION_EMPRESA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PROVINCIA_EMPRESA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGO_POSTAL_EMPRESA'
DataType = datString
Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FAX'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REGISTRO_MERCANTIL'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_AGENTE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'AGENTE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_FACTURA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'SITUACION'
DataType = datString
Size = 19
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CLIENTE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_COMISIONABLE'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_COMISION'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item item
Params = <> Params = <>
Statements = < Statements = <
@ -89,20 +573,20 @@ object RptComisiones: TRptComisiones
'S_DET_FAC.ID_CLIENTE,'#10' CONTACTOS2.NOMBRE as CLIENTE,'#10' ' + 'S_DET_FAC.ID_CLIENTE,'#10' CONTACTOS2.NOMBRE as CLIENTE,'#10' ' +
' V_AGENTES_COMISIONES_DET_FAC.ID_PROVEEDOR,'#10' CONTACTOS3.N' + ' V_AGENTES_COMISIONES_DET_FAC.ID_PROVEEDOR,'#10' CONTACTOS3.N' +
'OMBRE as PROVEEDOR,'#10' V_AGENTES_COMISIONES_DET_FAC.COMISION' + 'OMBRE as PROVEEDOR,'#10' V_AGENTES_COMISIONES_DET_FAC.COMISION' +
','#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_TOTAL) as IMPO' + ','#10#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_TOTAL) as IMP' +
'RTE_COMISIONABLE,'#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORT' + 'ORTE_COMISIONABLE,'#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPOR' +
'E_COMISION) as IMPORTE_COMISION'#10' '#10#10'from V_AGENTES_COMISION' + 'TE_COMISION) as IMPORTE_COMISION'#10#10#10'from V_AGENTES_COMISIONES_DET' +
'ES_DET_FAC'#10'LEFT JOIN COMISIONES_LIQUIDADAS ON (COMISIONES_LIQUID' + '_FAC'#10'LEFT JOIN COMISIONES_LIQUIDADAS ON (COMISIONES_LIQUIDADAS.I' +
'ADAS.ID = V_AGENTES_COMISIONES_DET_FAC.ID_COMISION_LIQUIDADA)'#10'LE' + 'D = V_AGENTES_COMISIONES_DET_FAC.ID_COMISION_LIQUIDADA)'#10'LEFT JOI' +
'FT JOIN EMPRESAS ON EMPRESAS.ID = V_AGENTES_COMISIONES_DET_FAC.I' + 'N EMPRESAS ON EMPRESAS.ID = V_AGENTES_COMISIONES_DET_FAC.ID_EMPR' +
'D_EMPRESA'#10'LEFT JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID = V_A' + 'ESA'#10'LEFT JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID = V_AGENTES' +
'GENTES_COMISIONES_DET_FAC.ID_AGENTE)'#10'LEFT JOIN CONTACTOS CONTACT' + '_COMISIONES_DET_FAC.ID_AGENTE)'#10'LEFT JOIN CONTACTOS CONTACTOS2 ON' +
'OS2 ON (CONTACTOS2.ID = V_AGENTES_COMISIONES_DET_FAC.ID_CLIENTE)' + ' (CONTACTOS2.ID = V_AGENTES_COMISIONES_DET_FAC.ID_CLIENTE)'#10'LEFT ' +
#10'LEFT JOIN CONTACTOS CONTACTOS3 ON (CONTACTOS3.ID = V_AGENTES_CO' + 'JOIN CONTACTOS CONTACTOS3 ON (CONTACTOS3.ID = V_AGENTES_COMISION' +
'MISIONES_DET_FAC.ID_PROVEEDOR)'#10'WHERE (V_AGENTES_COMISIONES_DET_F' + 'ES_DET_FAC.ID_PROVEEDOR)'#10'WHERE (V_AGENTES_COMISIONES_DET_FAC.ID_' +
'AC.ID_COMISION_LIQUIDADA IS NOT NULL)'#10'GROUP BY 1, 2, 3, 4, 5, 6,' + 'COMISION_LIQUIDADA IS NOT NULL)'#10'GROUP BY 1, 2, 3, 4, 5, 6, 7, 8,' +
' 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23' + ' 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, ' +
', 24, 25, 26, 27, 28, 29'#10'ORDER BY 1' '25, 26, 27, 28, 29'#10'ORDER BY 1'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -230,7 +714,7 @@ object RptComisiones: TRptComisiones
TableField = 'REGISTRO_MERCANTIL' TableField = 'REGISTRO_MERCANTIL'
end> end>
end> end>
Name = 'InformeComisiones' Name = 'InformeComisionesDesglosado'
Fields = < Fields = <
item item
Name = 'FECHA_COMISION' Name = 'FECHA_COMISION'
@ -901,7 +1385,7 @@ object RptComisiones: TRptComisiones
PreviewOptions.Zoom = 1.000000000000000000 PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default' PrintOptions.Printer = 'Default'
ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 39185.834399409720000000 ReportOptions.LastChange = 39266.688905347220000000
ReportOptions.VersionBuild = '1' ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12' ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13' ReportOptions.VersionMinor = '13'
@ -939,17 +1423,14 @@ object RptComisiones: TRptComisiones
'' ''
'procedure Memo26OnBeforePrint(Sender: TfrxComponent);' 'procedure Memo26OnBeforePrint(Sender: TfrxComponent);'
'begin' 'begin'
'{'
' if (<FechaIni> <> '#39#39') then' ' if (<FechaIni> <> '#39#39') then'
' Memo26.Visible := True' ' Memo31.Visible := True'
' else' ' else'
' Memo26.Visible := False;' ' Memo31.Visible := False;'
' }'
'end;' 'end;'
'' ''
'BEGIN' 'BEGIN'
'' ''
''
'END.') 'END.')
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
@ -967,11 +1448,11 @@ object RptComisiones: TRptComisiones
end end
item item
Name = 'FechaIni' Name = 'FechaIni'
Value = 'sdadsasd' Value = Null
end end
item item
Name = 'FechaFin' Name = 'FechaFin'
Value = 'asdasdasdad' Value = Null
end> end>
Style = < Style = <
item item

22
Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas
View File

@ -29,7 +29,7 @@ type
private private
FConnection: IDAConnection; FConnection: IDAConnection;
public public
function GenerarComision(const AComisionID : Variant; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary; function GenerarComision(const AComisionID : Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
end; end;
implementation implementation
@ -41,21 +41,23 @@ uses
const const
rptComision = 'InfComisiones.fr3'; rptComision = 'InfComisiones.fr3';
rptComisionDesglosado = 'InfComisionesDesglosado.fr3';
{ Dataset names for schReport } { Dataset names for schReport }
ds_InformeComisiones = 'InformeComisiones'; ds_InformeComisiones = 'InformeComisiones';
ds_InformeComisionesDesglosado = 'InformeComisionesDesglosado';
{ TRptComision } { TRptComision }
procedure TRptComisiones.DataModuleCreate(Sender: TObject); procedure TRptComisiones.DataModuleCreate(Sender: TObject);
begin begin
schReport.ConnectionManager := dmServer.ConnectionManager; schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion; FConnection := dmServer.DarNuevaConexion;
frxReport.EngineOptions.NewSilentMode := simReThrow; frxReport.EngineOptions.NewSilentMode := simReThrow;
end; end;
function TRptComisiones.GenerarComision(const AComisionID : Variant; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary; function TRptComisiones.GenerarComision(const AComisionID : Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
var var
dsMaster: IDADataset; dsMaster: IDADataset;
AStream: TMemoryStream; AStream: TMemoryStream;
@ -64,7 +66,11 @@ begin
Result := Binary.Create; Result := Binary.Create;
FConnection.BeginTransaction; FConnection.BeginTransaction;
try try
dsMaster := schReport.NewDataset(FConnection, ds_InformeComisiones,[], [], False); if DesglosadoProv then
dsMaster := schReport.NewDataset(FConnection, ds_InformeComisionesDesglosado,[], [], False)
else
dsMaster := schReport.NewDataset(FConnection, ds_InformeComisiones,[], [], False);
with dsMaster.Where do with dsMaster.Where do
begin begin
if not VarIsNull(AComisionID) then if not VarIsNull(AComisionID) then
@ -100,7 +106,11 @@ begin
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Comisiones, TRUE, '', TRUE, TRUE); DABINAdapter.ReadDataset(AStream, tbl_Comisiones, TRUE, '', TRUE, TRUE);
frxReport.LoadFromFile(DarRutaInformes + rptComision, True); if DesglosadoProv then
frxReport.LoadFromFile(DarRutaInformes + rptComisionDesglosado, True)
else
frxReport.LoadFromFile(DarRutaInformes + rptComision, True);
frxReport.Variables['FechaIni'] := QuotedStr(FechaIni); frxReport.Variables['FechaIni'] := QuotedStr(FechaIni);
frxReport.Variables['FechaFin'] := QuotedStr(FechaFin); frxReport.Variables['FechaFin'] := QuotedStr(FechaFin);
frxReport.PrepareReport; frxReport.PrepareReport;

6
Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas
View File

@ -32,7 +32,7 @@ type
{ IsrvComisiones methods } { IsrvComisiones methods }
protected protected
function GetNextAutoInc(const GeneratorName: String): Integer; function GetNextAutoInc(const GeneratorName: String): Integer;
function GenerateReport(const AComisionID: Variant; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary; function GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary;
end; end;
implementation implementation
@ -61,13 +61,13 @@ begin
bpComisiones.BusinessRulesID := BIZ_SERVER_COMISIONES; bpComisiones.BusinessRulesID := BIZ_SERVER_COMISIONES;
end; end;
function TsrvComisiones.GenerateReport(const AComisionID: Variant; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary; function TsrvComisiones.GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary;
var var
AReportGenerator : TRptComisiones; AReportGenerator : TRptComisiones;
begin begin
AReportGenerator := TRptComisiones.Create(nil); AReportGenerator := TRptComisiones.Create(nil);
try try
Result := AReportGenerator.GenerarComision(AComisionID, FechaIni, FechaFin, AAgenteID); Result := AReportGenerator.GenerarComision(AComisionID, DesglosadoProv, FechaIni, FechaFin, AAgenteID);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;

30
Source/Modulos/Comisiones/Views/uEditorComision.dfm
View File

@ -148,9 +148,23 @@ inherited fEditorComision: TfEditorComision
DesignSize = ( DesignSize = (
603 603
127) 127)
inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 164
Width = 164
end
inherited eDescripcion: TcxDBTextEdit
ExplicitWidth = 108
Width = 108
end
inherited edtFecha: TcxDBDateEdit inherited edtFecha: TcxDBDateEdit
Left = 354 Left = 355
ExplicitLeft = 354 ExplicitLeft = 355
ExplicitWidth = 170
Width = 170
end
inherited cbAgente: TcxDBLookupComboBox
ExplicitWidth = 319
Width = 319
end end
end end
end end
@ -202,18 +216,6 @@ inherited fEditorComision: TfEditorComision
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 607 Width = 607
ExplicitWidth = 607 ExplicitWidth = 607
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
ExplicitWidth = 98 ExplicitWidth = 98
end end

10
Source/Modulos/Comisiones/Views/uEditorComision.pas
View File

@ -134,7 +134,10 @@ end;
procedure TfEditorComision.ImprimirInterno; procedure TfEditorComision.ImprimirInterno;
begin begin
inherited; inherited;
FController.Print(FComision); if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then
FController.Print(FComision, False)
else
FController.Print(FComision, True);
end; end;
procedure TfEditorComision.JvFormStorageRestorePlacement(Sender: TObject); procedure TfEditorComision.JvFormStorageRestorePlacement(Sender: TObject);
@ -170,7 +173,10 @@ end;
procedure TfEditorComision.PrevisualizarInterno; procedure TfEditorComision.PrevisualizarInterno;
begin begin
inherited; inherited;
FController.Preview(FComision); if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then
FController.Preview(FComision, False)
else
FController.Preview(FComision, True);
end; end;
procedure TfEditorComision.SetComision(const Value: IBizComisiones); procedure TfEditorComision.SetComision(const Value: IBizComisiones);

10
Source/Modulos/Comisiones/Views/uEditorComisiones.pas
View File

@ -83,7 +83,10 @@ end;
procedure TfEditorComisiones.ImprimirInterno; procedure TfEditorComisiones.ImprimirInterno;
begin begin
// inherited; // inherited;
FController.Print(Nil); if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then
FController.Print(Nil, False)
else
FController.Print(Nil, True);
end; end;
function TfEditorComisiones.GetController: IComisionesController; function TfEditorComisiones.GetController: IComisionesController;
@ -115,7 +118,10 @@ end;
procedure TfEditorComisiones.PrevisualizarInterno; procedure TfEditorComisiones.PrevisualizarInterno;
begin begin
// inherited; // inherited;
FController.Preview(Nil); if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then
FController.Preview(Nil, False)
else
FController.Preview(Nil, True);
end; end;
procedure TfEditorComisiones.SetComisiones(const Value: IBizComisiones); procedure TfEditorComisiones.SetComisiones(const Value: IBizComisiones);

3
Source/Modulos/Comisiones/Views/uEditorComisionesReport.dfm
View File

@ -1,7 +1,5 @@
inherited fEditorComisionesPreview: TfEditorComisionesPreview inherited fEditorComisionesPreview: TfEditorComisionesPreview
Caption = 'Previsualizar la factura' Caption = 'Previsualizar la factura'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object pnlFiltrar: TTBXDockablePanel [3] object pnlFiltrar: TTBXDockablePanel [3]
@ -19,7 +17,6 @@ inherited fEditorComisionesPreview: TfEditorComisionesPreview
ShowCaptionWhenDocked = False ShowCaptionWhenDocked = False
SupportedDocks = [dkStandardDock, dkMultiDock] SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 3 TabOrder = 3
ExplicitWidth = 128
object Label1: TLabel object Label1: TLabel
Left = 261 Left = 261
Top = 50 Top = 50

2
Source/Modulos/Comisiones/Views/uEditorComisionesReport.pas
View File

@ -74,7 +74,7 @@ var
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetReport(Null, edtFechaFiltro1.Text, edtFechaFiltro2.Text, cbAgentes.EditValue); AStream := FDataModule.GetReport(Null, False, edtFechaFiltro1.Text, edtFechaFiltro2.Text, cbAgentes.EditValue);
try try
Report.PreviewPages.Clear; Report.PreviewPages.Clear;
LoadFromStream(AStream); LoadFromStream(AStream);

6
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -146,7 +146,8 @@ begin
ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO); ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO);
ADestino.Edit; ADestino.Edit;
ADestino.REFERENCIA := AOrigen.REFERENCIA; ADestino.REFERENCIA := AOrigen.REFERENCIA;
ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO; if AOrigen.ID_ARTICULO > 0 then
ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO;
ADestino.CONCEPTO := AOrigen.CONCEPTO; ADestino.CONCEPTO := AOrigen.CONCEPTO;
ADestino.CANTIDAD := AOrigen.CANTIDAD; ADestino.CANTIDAD := AOrigen.CANTIDAD;
ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD; ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD;
@ -190,7 +191,8 @@ begin
ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO); ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO);
ADestino.Edit; ADestino.Edit;
ADestino.REFERENCIA := AOrigen.REFERENCIA; ADestino.REFERENCIA := AOrigen.REFERENCIA;
ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO; if AOrigen.ID_ARTICULO > 0 then
ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO;
ADestino.CONCEPTO := AOrigen.CONCEPTO; ADestino.CONCEPTO := AOrigen.CONCEPTO;
ADestino.CANTIDAD := AOrigen.CANTIDAD; ADestino.CANTIDAD := AOrigen.CANTIDAD;
ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD; ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD;

7
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -1252,7 +1252,7 @@ object RptFacturasCliente: TRptFacturasCliente
PreviewOptions.Zoom = 1.000000000000000000 PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default' PrintOptions.Printer = 'Default'
ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 39258.717259837960000000 ReportOptions.LastChange = 39266.753072372690000000
ReportOptions.VersionBuild = '1' ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12' ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13' ReportOptions.VersionMinor = '13'
@ -1268,7 +1268,10 @@ object RptFacturasCliente: TRptFacturasCliente
' or (<frxDBCabecera."POBLACION"> <> '#39#39') then' ' or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' DatosCliente.Lines.Add(<frxDBCabecera."CODIGO_POSTAL"> + '#39' ' + ' DatosCliente.Lines.Add(<frxDBCabecera."CODIGO_POSTAL"> + '#39' ' +
#39' + <frxDBCabecera."POBLACION">);' ' '#39' + <frxDBCabecera."POBLACION">);'
''
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
' DatosCliente.Lines.Add(<frxDBCabecera."PROVINCIA">);'
'end;' 'end;'
'' ''
'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);' 'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);'

17
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -142,7 +142,8 @@ begin
ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO); ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO);
ADestino.Edit; ADestino.Edit;
ADestino.REFERENCIA := AOrigen.REFERENCIA; ADestino.REFERENCIA := AOrigen.REFERENCIA;
ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO; if AOrigen.ID_ARTICULO > 0 then
ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO;
ADestino.CONCEPTO := AOrigen.CONCEPTO; ADestino.CONCEPTO := AOrigen.CONCEPTO;
ADestino.CANTIDAD := AOrigen.CANTIDAD; ADestino.CANTIDAD := AOrigen.CANTIDAD;
ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD; ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD;
@ -185,7 +186,8 @@ begin
ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO); ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO);
ADestino.Edit; ADestino.Edit;
ADestino.REFERENCIA := AOrigen.REFERENCIA; ADestino.REFERENCIA := AOrigen.REFERENCIA;
ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO; if AOrigen.ID_ARTICULO > 0 then
ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO;
ADestino.CONCEPTO := AOrigen.CONCEPTO; ADestino.CONCEPTO := AOrigen.CONCEPTO;
ADestino.CANTIDAD := AOrigen.CANTIDAD; ADestino.CANTIDAD := AOrigen.CANTIDAD;
ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD; ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD;
@ -218,6 +220,7 @@ var
AFacturaActual : IBizFacturaProveedor; AFacturaActual : IBizFacturaProveedor;
AAlbaranesController : IAlbaranesProveedorController; AAlbaranesController : IAlbaranesProveedorController;
I: Integer; I: Integer;
bEnEdicion : Boolean;
begin begin
Result := False; Result := False;
@ -255,6 +258,16 @@ begin
Anadir(AFacturas); Anadir(AFacturas);
AAlbaranesController.RecuperarProveedor(AListaAlbaranes); AAlbaranesController.RecuperarProveedor(AListaAlbaranes);
AFacturas.Proveedor := AListaAlbaranes.Proveedor; AFacturas.Proveedor := AListaAlbaranes.Proveedor;
//Siempre asignaremos por defecto la referencia de factura de proveedor que tenga el primer albaran del proveedor
bEnEdicion := (AFacturas.DataTable.State in dsEditModes);
if not bEnEdicion then
AFacturas.Edit;
AFacturas.REFERENCIA_PROVEEDOR := AListaAlbaranes.REF_FACTURA_PROV;
AFacturas.Post;
if bEnEdicion then
AFacturas.Edit;
AFacturaActual := AFacturas; AFacturaActual := AFacturas;
end; end;

2
Source/Servicios/FactuGES.RODL
View File

@ -34,6 +34,8 @@
</Parameter> </Parameter>
<Parameter Name="AComisionID" DataType="Variant" Flag="In" > <Parameter Name="AComisionID" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="DesglosadoProv" DataType="Boolean" Flag="In" >
</Parameter>
<Parameter Name="FechaIni" DataType="String" Flag="In" > <Parameter Name="FechaIni" DataType="String" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaFin" DataType="String" Flag="In" > <Parameter Name="FechaFin" DataType="String" Flag="In" >

10
Source/Servicios/FactuGES_Intf.pas
View File

@ -159,7 +159,8 @@ type
IsrvComisiones = interface(IDARemoteService) IsrvComisiones = interface(IDARemoteService)
['{461DBBE7-293D-497A-8CD1-840401883BCE}'] ['{461DBBE7-293D-497A-8CD1-840401883BCE}']
function GetNextAutoInc(const GeneratorName: String): Integer; function GetNextAutoInc(const GeneratorName: String): Integer;
function GenerateReport(const AComisionID: Variant; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary; function GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: String; const FechaFin: String;
const AAgenteID: Variant): Binary;
end; end;
{ CosrvComisiones } { CosrvComisiones }
@ -173,7 +174,8 @@ type
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
function GetNextAutoInc(const GeneratorName: String): Integer; function GetNextAutoInc(const GeneratorName: String): Integer;
function GenerateReport(const AComisionID: Variant; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary; function GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: String; const FechaFin: String;
const AAgenteID: Variant): Binary;
end; end;
{ IsrvLogin } { IsrvLogin }
@ -856,7 +858,8 @@ begin
end end
end; end;
function TsrvComisiones_Proxy.GenerateReport(const AComisionID: Variant; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary; function TsrvComisiones_Proxy.GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: String; const FechaFin: String;
const AAgenteID: Variant): Binary;
var var
__request, __response : TMemoryStream; __request, __response : TMemoryStream;
begin begin
@ -867,6 +870,7 @@ begin
try try
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport'); __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
__Message.Write('AComisionID', TypeInfo(Variant), AComisionID, []); __Message.Write('AComisionID', TypeInfo(Variant), AComisionID, []);
__Message.Write('DesglosadoProv', TypeInfo(Boolean), DesglosadoProv, []);
__Message.Write('FechaIni', TypeInfo(String), FechaIni, []); __Message.Write('FechaIni', TypeInfo(String), FechaIni, []);
__Message.Write('FechaFin', TypeInfo(String), FechaFin, []); __Message.Write('FechaFin', TypeInfo(String), FechaFin, []);
__Message.Write('AAgenteID', TypeInfo(Variant), AAgenteID, []); __Message.Write('AAgenteID', TypeInfo(Variant), AAgenteID, []);

7
Source/Servicios/FactuGES_Invk.pas
View File

@ -248,9 +248,11 @@ begin
end; end;
procedure TsrvComisiones_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvComisiones_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport(const AComisionID: Variant; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary; } { function GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: String; const FechaFin: String;
const AAgenteID: Variant): Binary; }
var var
AComisionID: Variant; AComisionID: Variant;
DesglosadoProv: Boolean;
FechaIni: String; FechaIni: String;
FechaFin: String; FechaFin: String;
AAgenteID: Variant; AAgenteID: Variant;
@ -260,11 +262,12 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('AComisionID', TypeInfo(Variant), AComisionID, []); __Message.Read('AComisionID', TypeInfo(Variant), AComisionID, []);
__Message.Read('DesglosadoProv', TypeInfo(Boolean), DesglosadoProv, []);
__Message.Read('FechaIni', TypeInfo(String), FechaIni, []); __Message.Read('FechaIni', TypeInfo(String), FechaIni, []);
__Message.Read('FechaFin', TypeInfo(String), FechaFin, []); __Message.Read('FechaFin', TypeInfo(String), FechaFin, []);
__Message.Read('AAgenteID', TypeInfo(Variant), AAgenteID, []); __Message.Read('AAgenteID', TypeInfo(Variant), AAgenteID, []);
lResult := (__Instance as IsrvComisiones).GenerateReport(AComisionID, FechaIni, FechaFin, AAgenteID); lResult := (__Instance as IsrvComisiones).GenerateReport(AComisionID, DesglosadoProv, FechaIni, FechaFin, AAgenteID);
__Message.Initialize(__Transport, 'FactuGES', 'srvComisiones', 'GenerateReportResponse'); __Message.Initialize(__Transport, 'FactuGES', 'srvComisiones', 'GenerateReportResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.