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,
FECHA_ALBARAN,
REFERENCIA,
REFERENCIA_PROVEEDOR,
TIPO,
ID_ALMACEN,
NOMBRE_ALMACEN,
ID_PEDIDO,
REF_PED_PROVEEDOR,
ID_FACTURA,
REF_FAC_PROVEEDOR,
REF_FACTURA,
REF_FACTURA_PROV,
CALLE,
CODIGO_POSTAL,
POBLACION,
@ -362,13 +364,15 @@ SELECT
V_PROVEEDORES.NOMBRE,
ALBARANES_PROVEEDOR.FECHA_ALBARAN,
ALBARANES_PROVEEDOR.REFERENCIA,
ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR,
CASE WHEN (ALBARANES_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'D' ELSE 'A' END AS TIPO,
ALBARANES_PROVEEDOR.ID_ALMACEN,
ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
ALBARANES_PROVEEDOR.ID_PEDIDO,
PEDIDOS_PROVEEDOR.REFERENCIA AS REF_PED_PROVEEDOR,
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.CODIGO_POSTAL,
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 AGENTES_COMISIONES ON ((AGENTES_COMISIONES.ID_AGENTE = V_FACTURAS_CLIENTE.ID_AGENTE)
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 */

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]
APPPATH=E:\Codigo\Output\Servidor\FactuGES_Server.exe
APPPATH=E:\Codigo (Luis León)\Output\Debug\Servidor\FactuGES_Server.exe
LIBPATH=GDS32.DLL

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

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

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

@ -78,8 +78,6 @@ type
dxLayoutControl1Item16: TdxLayoutItem;
eFechaRecepcion: TcxDBDateEdit;
dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Item17: TdxLayoutItem;
eFechaEnvio: TcxDBTextEdit;
dxLayoutControl1Item19: TdxLayoutItem;
cbConAlmacen: TCheckBox;
dxLayoutControl1Item20: TdxLayoutItem;
@ -88,8 +86,6 @@ type
dxLayoutControl1Item18: TdxLayoutItem;
Label1: TLabel;
dxLayoutControl1Group12: TdxLayoutGroup;
dxLayoutControl1Item21: TdxLayoutItem;
cbFechaRecepcion: TCheckBox;
dxLayoutControl1Group10: TdxLayoutGroup;
dxLayoutControl1Item22: TdxLayoutItem;
eRefFacturaCli: TcxDBTextEdit;
@ -98,6 +94,8 @@ type
eFechaPrevista: TcxDBDateEdit;
dxLayoutControl1Item23: TdxLayoutItem;
eRefCliente: TcxDBTextEdit;
dxLayoutControl1Item21: TdxLayoutItem;
eFechaEnvio: TcxDBDateEdit;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure actElegirDireccionExecute(Sender: TObject);
@ -108,12 +106,15 @@ type
procedure frViewClienteAlbaranactAnadirContactoUpdate(Sender: TObject);
procedure bFormasPagoClick(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
FAlbaran : IBizAlbaranCliente;
FAlmacenesController : IAlmacenesController;
FPedidoAsociado : IBizPedidoCliente;
FPedidoController : IPedidosClienteController;
FPedidoController : IPedidosClienteController;
FViewClienteAlbaran : TfrViewDatosYSeleccionCliente;
FFormasPagoController : IFormasPagoController;
@ -134,7 +135,8 @@ implementation
uses
uClientesController, uBizDireccionesContacto, uAlbaranesClienteController,
schAlbaranesClienteClient_Intf, uBizFormasPago, uBizAlmacenes, uDateUtils;
schAlbaranesClienteClient_Intf, uBizFormasPago, uBizAlmacenes, uDateUtils,
uDialogUtils;
procedure TfrViewAlbaranCliente.actElegirDireccionExecute(Sender: TObject);
@ -207,20 +209,6 @@ begin
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);
begin
inherited;
@ -242,6 +230,39 @@ begin
FAlmacenesController := NIL;
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(
Sender: TObject);
begin
@ -286,12 +307,26 @@ begin
cbConAlmacen.Checked := (FAlbaran.ID_ALMACEN > 0);
cbAlmacen.Enabled := cbConAlmacen.Checked;
cbFechaRecepcion.Checked := not EsFechaVacia(FAlbaran.FECHA_RECEPCION);
eFechaRecepcion.Enabled := cbFechaRecepcion.Checked;
eReferenciaPedidoCli.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;
if (FAlbaran.ID_PEDIDO > 0) then
begin

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

@ -154,6 +154,20 @@ object DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
Lookup = False
LookupCache = False
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
Name = 'TIPO'
DataType = datString
@ -233,13 +247,28 @@ object DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
LookupCache = False
end
item
Name = 'REF_FAC_PROVEEDOR'
Name = 'REF_FACTURA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Referencia factura'
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
Calculated = False
Lookup = False

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

@ -9,11 +9,11 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_DarReferencia = '{5A05B7DE-83D2-48DC-9867-D025C26EF607}';
RID_AlbaranesProveedor = '{17BC6E11-4D60-418A-A90E-F19D9D2F137D}';
RID_AlbaranesProveedor_Detalles = '{93185DF7-4D33-422F-BF7D-0FC43C571F40}';
RID_AlbaranesProveedor_Detalles_Refresh = '{671BF3C5-1B40-4883-9A26-A2C26CCEE774}';
RID_AlbaranesProveedor_Refresh = '{46514DC4-3CC0-4300-97F0-F2CCE70B5666}';
RID_DarReferencia = '{B11C1A92-7445-40B1-804D-75362337E091}';
RID_AlbaranesProveedor = '{A8D01A62-F911-438F-910D-CCE57A97679A}';
RID_AlbaranesProveedor_Detalles = '{74BC0CAC-88BE-4D83-ABE6-CCF245762256}';
RID_AlbaranesProveedor_Detalles_Refresh = '{B8EE8C6A-F540-4124-94D2-76924081B2F3}';
RID_AlbaranesProveedor_Refresh = '{FEBB25BC-1C6E-43E2-AEC6-B2B9656D858F}';
{ Data table names }
nme_DarReferencia = 'DarReferencia';
@ -35,13 +35,15 @@ const
fld_AlbaranesProveedorNOMBRE = 'NOMBRE';
fld_AlbaranesProveedorFECHA_ALBARAN = 'FECHA_ALBARAN';
fld_AlbaranesProveedorREFERENCIA = 'REFERENCIA';
fld_AlbaranesProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
fld_AlbaranesProveedorTIPO = 'TIPO';
fld_AlbaranesProveedorID_ALMACEN = 'ID_ALMACEN';
fld_AlbaranesProveedorNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
fld_AlbaranesProveedorID_PEDIDO = 'ID_PEDIDO';
fld_AlbaranesProveedorREF_PED_PROVEEDOR = 'REF_PED_PROVEEDOR';
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_AlbaranesProveedorCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_AlbaranesProveedorPOBLACION = 'POBLACION';
@ -71,34 +73,36 @@ const
idx_AlbaranesProveedorNOMBRE = 3;
idx_AlbaranesProveedorFECHA_ALBARAN = 4;
idx_AlbaranesProveedorREFERENCIA = 5;
idx_AlbaranesProveedorTIPO = 6;
idx_AlbaranesProveedorID_ALMACEN = 7;
idx_AlbaranesProveedorNOMBRE_ALMACEN = 8;
idx_AlbaranesProveedorID_PEDIDO = 9;
idx_AlbaranesProveedorREF_PED_PROVEEDOR = 10;
idx_AlbaranesProveedorID_FACTURA = 11;
idx_AlbaranesProveedorREF_FAC_PROVEEDOR = 12;
idx_AlbaranesProveedorCALLE = 13;
idx_AlbaranesProveedorCODIGO_POSTAL = 14;
idx_AlbaranesProveedorPOBLACION = 15;
idx_AlbaranesProveedorPROVINCIA = 16;
idx_AlbaranesProveedorPERSONA_CONTACTO = 17;
idx_AlbaranesProveedorTELEFONO = 18;
idx_AlbaranesProveedorIMPORTE_NETO = 19;
idx_AlbaranesProveedorIMPORTE_PORTE = 20;
idx_AlbaranesProveedorDESCUENTO = 21;
idx_AlbaranesProveedorIMPORTE_DESCUENTO = 22;
idx_AlbaranesProveedorBASE_IMPONIBLE = 23;
idx_AlbaranesProveedorIVA = 24;
idx_AlbaranesProveedorIMPORTE_IVA = 25;
idx_AlbaranesProveedorIMPORTE_TOTAL = 26;
idx_AlbaranesProveedorOBSERVACIONES = 27;
idx_AlbaranesProveedorINCIDENCIAS = 28;
idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 29;
idx_AlbaranesProveedorFECHA_ALTA = 30;
idx_AlbaranesProveedorFECHA_MODIFICACION = 31;
idx_AlbaranesProveedorUSUARIO = 32;
idx_AlbaranesProveedorID_FORMA_PAGO = 33;
idx_AlbaranesProveedorREFERENCIA_PROVEEDOR = 6;
idx_AlbaranesProveedorTIPO = 7;
idx_AlbaranesProveedorID_ALMACEN = 8;
idx_AlbaranesProveedorNOMBRE_ALMACEN = 9;
idx_AlbaranesProveedorID_PEDIDO = 10;
idx_AlbaranesProveedorREF_PED_PROVEEDOR = 11;
idx_AlbaranesProveedorID_FACTURA = 12;
idx_AlbaranesProveedorREF_FACTURA = 13;
idx_AlbaranesProveedorREF_FACTURA_PROV = 14;
idx_AlbaranesProveedorCALLE = 15;
idx_AlbaranesProveedorCODIGO_POSTAL = 16;
idx_AlbaranesProveedorPOBLACION = 17;
idx_AlbaranesProveedorPROVINCIA = 18;
idx_AlbaranesProveedorPERSONA_CONTACTO = 19;
idx_AlbaranesProveedorTELEFONO = 20;
idx_AlbaranesProveedorIMPORTE_NETO = 21;
idx_AlbaranesProveedorIMPORTE_PORTE = 22;
idx_AlbaranesProveedorDESCUENTO = 23;
idx_AlbaranesProveedorIMPORTE_DESCUENTO = 24;
idx_AlbaranesProveedorBASE_IMPONIBLE = 25;
idx_AlbaranesProveedorIVA = 26;
idx_AlbaranesProveedorIMPORTE_IVA = 27;
idx_AlbaranesProveedorIMPORTE_TOTAL = 28;
idx_AlbaranesProveedorOBSERVACIONES = 29;
idx_AlbaranesProveedorINCIDENCIAS = 30;
idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 31;
idx_AlbaranesProveedorFECHA_ALTA = 32;
idx_AlbaranesProveedorFECHA_MODIFICACION = 33;
idx_AlbaranesProveedorUSUARIO = 34;
idx_AlbaranesProveedorID_FORMA_PAGO = 35;
{ AlbaranesProveedor_Detalles fields }
fld_AlbaranesProveedor_DetallesID = 'ID';
@ -171,13 +175,15 @@ const
fld_AlbaranesProveedor_RefreshNOMBRE = 'NOMBRE';
fld_AlbaranesProveedor_RefreshFECHA_ALBARAN = 'FECHA_ALBARAN';
fld_AlbaranesProveedor_RefreshREFERENCIA = 'REFERENCIA';
fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
fld_AlbaranesProveedor_RefreshTIPO = 'TIPO';
fld_AlbaranesProveedor_RefreshID_ALMACEN = 'ID_ALMACEN';
fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
fld_AlbaranesProveedor_RefreshID_PEDIDO = 'ID_PEDIDO';
fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR = 'REF_PED_PROVEEDOR';
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_RefreshCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_AlbaranesProveedor_RefreshPOBLACION = 'POBLACION';
@ -207,39 +213,41 @@ const
idx_AlbaranesProveedor_RefreshNOMBRE = 3;
idx_AlbaranesProveedor_RefreshFECHA_ALBARAN = 4;
idx_AlbaranesProveedor_RefreshREFERENCIA = 5;
idx_AlbaranesProveedor_RefreshTIPO = 6;
idx_AlbaranesProveedor_RefreshID_ALMACEN = 7;
idx_AlbaranesProveedor_RefreshNOMBRE_ALMACEN = 8;
idx_AlbaranesProveedor_RefreshID_PEDIDO = 9;
idx_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR = 10;
idx_AlbaranesProveedor_RefreshID_FACTURA = 11;
idx_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR = 12;
idx_AlbaranesProveedor_RefreshCALLE = 13;
idx_AlbaranesProveedor_RefreshCODIGO_POSTAL = 14;
idx_AlbaranesProveedor_RefreshPOBLACION = 15;
idx_AlbaranesProveedor_RefreshPROVINCIA = 16;
idx_AlbaranesProveedor_RefreshPERSONA_CONTACTO = 17;
idx_AlbaranesProveedor_RefreshTELEFONO = 18;
idx_AlbaranesProveedor_RefreshIMPORTE_NETO = 19;
idx_AlbaranesProveedor_RefreshIMPORTE_PORTE = 20;
idx_AlbaranesProveedor_RefreshDESCUENTO = 21;
idx_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO = 22;
idx_AlbaranesProveedor_RefreshBASE_IMPONIBLE = 23;
idx_AlbaranesProveedor_RefreshIVA = 24;
idx_AlbaranesProveedor_RefreshIMPORTE_IVA = 25;
idx_AlbaranesProveedor_RefreshIMPORTE_TOTAL = 26;
idx_AlbaranesProveedor_RefreshOBSERVACIONES = 27;
idx_AlbaranesProveedor_RefreshINCIDENCIAS = 28;
idx_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS = 29;
idx_AlbaranesProveedor_RefreshFECHA_ALTA = 30;
idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION = 31;
idx_AlbaranesProveedor_RefreshUSUARIO = 32;
idx_AlbaranesProveedor_RefreshID_FORMA_PAGO = 33;
idx_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR = 6;
idx_AlbaranesProveedor_RefreshTIPO = 7;
idx_AlbaranesProveedor_RefreshID_ALMACEN = 8;
idx_AlbaranesProveedor_RefreshNOMBRE_ALMACEN = 9;
idx_AlbaranesProveedor_RefreshID_PEDIDO = 10;
idx_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR = 11;
idx_AlbaranesProveedor_RefreshID_FACTURA = 12;
idx_AlbaranesProveedor_RefreshREF_FACTURA = 13;
idx_AlbaranesProveedor_RefreshREF_FACTURA_PROV = 14;
idx_AlbaranesProveedor_RefreshCALLE = 15;
idx_AlbaranesProveedor_RefreshCODIGO_POSTAL = 16;
idx_AlbaranesProveedor_RefreshPOBLACION = 17;
idx_AlbaranesProveedor_RefreshPROVINCIA = 18;
idx_AlbaranesProveedor_RefreshPERSONA_CONTACTO = 19;
idx_AlbaranesProveedor_RefreshTELEFONO = 20;
idx_AlbaranesProveedor_RefreshIMPORTE_NETO = 21;
idx_AlbaranesProveedor_RefreshIMPORTE_PORTE = 22;
idx_AlbaranesProveedor_RefreshDESCUENTO = 23;
idx_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO = 24;
idx_AlbaranesProveedor_RefreshBASE_IMPONIBLE = 25;
idx_AlbaranesProveedor_RefreshIVA = 26;
idx_AlbaranesProveedor_RefreshIMPORTE_IVA = 27;
idx_AlbaranesProveedor_RefreshIMPORTE_TOTAL = 28;
idx_AlbaranesProveedor_RefreshOBSERVACIONES = 29;
idx_AlbaranesProveedor_RefreshINCIDENCIAS = 30;
idx_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS = 31;
idx_AlbaranesProveedor_RefreshFECHA_ALTA = 32;
idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION = 33;
idx_AlbaranesProveedor_RefreshUSUARIO = 34;
idx_AlbaranesProveedor_RefreshID_FORMA_PAGO = 35;
type
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
['{6BCD4068-462A-4DFD-AD5A-F4C827370E02}']
['{5197CB29-BF7E-4281-9E0F-7BB774770672}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@ -268,7 +276,7 @@ type
{ IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{3F464120-F9AA-47F0-A1EB-7B3BD57C9FE1}']
['{2CFF37C0-A76F-4D9C-BB24-0AC1F3BAF19D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -282,6 +290,8 @@ type
procedure SetFECHA_ALBARANValue(const aValue: DateTime);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIA_PROVEEDORValue: String;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
function GetTIPOValue: String;
procedure SetTIPOValue(const aValue: String);
function GetID_ALMACENValue: Integer;
@ -294,8 +304,10 @@ type
procedure SetREF_PED_PROVEEDORValue(const aValue: String);
function GetID_FACTURAValue: Integer;
procedure SetID_FACTURAValue(const aValue: Integer);
function GetREF_FAC_PROVEEDORValue: String;
procedure SetREF_FAC_PROVEEDORValue(const aValue: String);
function GetREF_FACTURAValue: String;
procedure SetREF_FACTURAValue(const aValue: String);
function GetREF_FACTURA_PROVValue: String;
procedure SetREF_FACTURA_PROVValue(const aValue: String);
function GetCALLEValue: String;
procedure SetCALLEValue(const aValue: String);
function GetCODIGO_POSTALValue: String;
@ -347,13 +359,15 @@ type
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
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 ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue;
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 CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
@ -394,6 +408,8 @@ type
procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
function GetID_ALMACENValue: Integer; virtual;
@ -406,8 +422,10 @@ type
procedure SetREF_PED_PROVEEDORValue(const aValue: String); virtual;
function GetID_FACTURAValue: Integer; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetREF_FAC_PROVEEDORValue: String; virtual;
procedure SetREF_FAC_PROVEEDORValue(const aValue: String); virtual;
function GetREF_FACTURAValue: 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;
procedure SetCALLEValue(const aValue: String); virtual;
function GetCODIGO_POSTALValue: String; virtual;
@ -458,13 +476,15 @@ type
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
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 ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue;
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 CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
@ -495,7 +515,7 @@ type
{ IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{594F6700-525A-419A-B59D-C7E0367E2274}']
['{8A62B0E3-DBC8-4606-A047-4203B88513F1}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -602,7 +622,7 @@ type
{ IAlbaranesProveedor_Detalles_Refresh }
IAlbaranesProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
['{AE1B5612-9B95-4A74-8727-52AE39DD42F4}']
['{0773BFA8-2FAA-412C-A3A9-0978B8A03973}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -709,7 +729,7 @@ type
{ IAlbaranesProveedor_Refresh }
IAlbaranesProveedor_Refresh = interface(IDAStronglyTypedDataTable)
['{43490787-1D12-4B92-A0B2-7E6E78344AEE}']
['{F75AB4AE-10D5-4DA0-B8CA-39161C02E8BC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -723,6 +743,8 @@ type
procedure SetFECHA_ALBARANValue(const aValue: DateTime);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIA_PROVEEDORValue: String;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
function GetTIPOValue: String;
procedure SetTIPOValue(const aValue: String);
function GetID_ALMACENValue: Integer;
@ -735,8 +757,10 @@ type
procedure SetREF_PED_PROVEEDORValue(const aValue: String);
function GetID_FACTURAValue: Integer;
procedure SetID_FACTURAValue(const aValue: Integer);
function GetREF_FAC_PROVEEDORValue: String;
procedure SetREF_FAC_PROVEEDORValue(const aValue: String);
function GetREF_FACTURAValue: String;
procedure SetREF_FACTURAValue(const aValue: String);
function GetREF_FACTURA_PROVValue: String;
procedure SetREF_FACTURA_PROVValue(const aValue: String);
function GetCALLEValue: String;
procedure SetCALLEValue(const aValue: String);
function GetCODIGO_POSTALValue: String;
@ -788,13 +812,15 @@ type
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
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 ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue;
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 CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
@ -835,6 +861,8 @@ type
procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
function GetID_ALMACENValue: Integer; virtual;
@ -847,8 +875,10 @@ type
procedure SetREF_PED_PROVEEDORValue(const aValue: String); virtual;
function GetID_FACTURAValue: Integer; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetREF_FAC_PROVEEDORValue: String; virtual;
procedure SetREF_FAC_PROVEEDORValue(const aValue: String); virtual;
function GetREF_FACTURAValue: 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;
procedure SetCALLEValue(const aValue: String); virtual;
function GetCODIGO_POSTALValue: String; virtual;
@ -899,13 +929,15 @@ type
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
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 ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue;
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 CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
@ -1031,6 +1063,16 @@ begin
DataTable.Fields[idx_AlbaranesProveedorREFERENCIA].AsString := aValue;
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;
begin
result := DataTable.Fields[idx_AlbaranesProveedorTIPO].AsString;
@ -1091,14 +1133,24 @@ begin
DataTable.Fields[idx_AlbaranesProveedorID_FACTURA].AsInteger := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetREF_FAC_PROVEEDORValue: String;
function TAlbaranesProveedorDataTableRules.GetREF_FACTURAValue: String;
begin
result := DataTable.Fields[idx_AlbaranesProveedorREF_FAC_PROVEEDOR].AsString;
result := DataTable.Fields[idx_AlbaranesProveedorREF_FACTURA].AsString;
end;
procedure TAlbaranesProveedorDataTableRules.SetREF_FAC_PROVEEDORValue(const aValue: String);
procedure TAlbaranesProveedorDataTableRules.SetREF_FACTURAValue(const aValue: String);
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;
function TAlbaranesProveedorDataTableRules.GetCALLEValue: String;
@ -1689,6 +1741,16 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA].AsString := aValue;
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;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_RefreshTIPO].AsString;
@ -1749,14 +1811,24 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FACTURA].AsInteger := aValue;
end;
function TAlbaranesProveedor_RefreshDataTableRules.GetREF_FAC_PROVEEDORValue: String;
function TAlbaranesProveedor_RefreshDataTableRules.GetREF_FACTURAValue: String;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR].AsString;
result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA].AsString;
end;
procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_FAC_PROVEEDORValue(const aValue: String);
procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_FACTURAValue(const aValue: String);
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;
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_DarReferenciaDelta = '{180D29B7-ECFB-4220-A71C-E353AE49D624}';
RID_AlbaranesProveedorDelta = '{DA1EC824-AB6A-4817-9DE0-00CCF46AB7A8}';
RID_AlbaranesProveedor_DetallesDelta = '{04D610A6-9357-416C-8E6A-D2CC470106A8}';
RID_AlbaranesProveedor_Detalles_RefreshDelta = '{4CF01E9A-B11E-4E9C-AAC8-D8AE44FDAFA0}';
RID_AlbaranesProveedor_RefreshDelta = '{3DE95ADD-450F-48CE-9885-43BECF24C910}';
RID_DarReferenciaDelta = '{F1B43432-A3E7-44D4-AF56-D2CA222CA3B3}';
RID_AlbaranesProveedorDelta = '{A1201763-99E7-462F-86AD-AAA14EFE7A60}';
RID_AlbaranesProveedor_DetallesDelta = '{9DD8A677-8A3F-4948-8C8C-1B40BB98AE6F}';
RID_AlbaranesProveedor_Detalles_RefreshDelta = '{5663912C-0DD4-4B61-9F49-A9EFD19CA7CE}';
RID_AlbaranesProveedor_RefreshDelta = '{978B6667-02B7-49EC-B0E0-96D2672CCE4B}';
type
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
['{180D29B7-ECFB-4220-A71C-E353AE49D624}']
['{F1B43432-A3E7-44D4-AF56-D2CA222CA3B3}']
{ Property getters and setters }
function GetOldVALORValue : String;
@ -47,7 +47,7 @@ type
{ IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{DA1EC824-AB6A-4817-9DE0-00CCF46AB7A8}']
['{A1201763-99E7-462F-86AD-AAA14EFE7A60}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -55,13 +55,15 @@ type
function GetOldNOMBREValue : String;
function GetOldFECHA_ALBARANValue : DateTime;
function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldTIPOValue : String;
function GetOldID_ALMACENValue : Integer;
function GetOldNOMBRE_ALMACENValue : String;
function GetOldID_PEDIDOValue : Integer;
function GetOldREF_PED_PROVEEDORValue : String;
function GetOldID_FACTURAValue : Integer;
function GetOldREF_FAC_PROVEEDORValue : String;
function GetOldREF_FACTURAValue : String;
function GetOldREF_FACTURA_PROVValue : String;
function GetOldCALLEValue : String;
function GetOldCODIGO_POSTALValue : String;
function GetOldPOBLACIONValue : String;
@ -91,13 +93,15 @@ type
property OldNOMBRE : String read GetOldNOMBREValue;
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldTIPO : String read GetOldTIPOValue;
property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue;
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 OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
@ -144,6 +148,9 @@ type
function GetREFERENCIAValue: String; virtual;
function GetOldREFERENCIAValue: 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 GetOldTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
@ -162,9 +169,12 @@ type
function GetID_FACTURAValue: Integer; virtual;
function GetOldID_FACTURAValue: Integer; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetREF_FAC_PROVEEDORValue: String; virtual;
function GetOldREF_FAC_PROVEEDORValue: String; virtual;
procedure SetREF_FAC_PROVEEDORValue(const aValue: String); virtual;
function GetREF_FACTURAValue: String; virtual;
function GetOldREF_FACTURAValue: 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 GetOldCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
@ -242,6 +252,8 @@ type
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
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 OldTIPO : String read GetOldTIPOValue;
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 ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property REF_FAC_PROVEEDOR : String read GetREF_FAC_PROVEEDORValue write SetREF_FAC_PROVEEDORValue;
property OldREF_FAC_PROVEEDOR : String read GetOldREF_FAC_PROVEEDORValue;
property REF_FACTURA : String read GetREF_FACTURAValue write SetREF_FACTURAValue;
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 OldCALLE : String read GetOldCALLEValue;
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
@ -307,7 +321,7 @@ type
{ IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{04D610A6-9357-416C-8E6A-D2CC470106A8}']
['{9DD8A677-8A3F-4948-8C8C-1B40BB98AE6F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -427,7 +441,7 @@ type
{ IAlbaranesProveedor_Detalles_RefreshDelta }
IAlbaranesProveedor_Detalles_RefreshDelta = interface(IAlbaranesProveedor_Detalles_Refresh)
['{4CF01E9A-B11E-4E9C-AAC8-D8AE44FDAFA0}']
['{5663912C-0DD4-4B61-9F49-A9EFD19CA7CE}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -547,7 +561,7 @@ type
{ IAlbaranesProveedor_RefreshDelta }
IAlbaranesProveedor_RefreshDelta = interface(IAlbaranesProveedor_Refresh)
['{3DE95ADD-450F-48CE-9885-43BECF24C910}']
['{978B6667-02B7-49EC-B0E0-96D2672CCE4B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -555,13 +569,15 @@ type
function GetOldNOMBREValue : String;
function GetOldFECHA_ALBARANValue : DateTime;
function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldTIPOValue : String;
function GetOldID_ALMACENValue : Integer;
function GetOldNOMBRE_ALMACENValue : String;
function GetOldID_PEDIDOValue : Integer;
function GetOldREF_PED_PROVEEDORValue : String;
function GetOldID_FACTURAValue : Integer;
function GetOldREF_FAC_PROVEEDORValue : String;
function GetOldREF_FACTURAValue : String;
function GetOldREF_FACTURA_PROVValue : String;
function GetOldCALLEValue : String;
function GetOldCODIGO_POSTALValue : String;
function GetOldPOBLACIONValue : String;
@ -591,13 +607,15 @@ type
property OldNOMBRE : String read GetOldNOMBREValue;
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldTIPO : String read GetOldTIPOValue;
property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue;
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 OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
@ -644,6 +662,9 @@ type
function GetREFERENCIAValue: String; virtual;
function GetOldREFERENCIAValue: 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 GetOldTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
@ -662,9 +683,12 @@ type
function GetID_FACTURAValue: Integer; virtual;
function GetOldID_FACTURAValue: Integer; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetREF_FAC_PROVEEDORValue: String; virtual;
function GetOldREF_FAC_PROVEEDORValue: String; virtual;
procedure SetREF_FAC_PROVEEDORValue(const aValue: String); virtual;
function GetREF_FACTURAValue: String; virtual;
function GetOldREF_FACTURAValue: 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 GetOldCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
@ -742,6 +766,8 @@ type
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
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 OldTIPO : String read GetOldTIPOValue;
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 ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property REF_FAC_PROVEEDOR : String read GetREF_FAC_PROVEEDORValue write SetREF_FAC_PROVEEDORValue;
property OldREF_FAC_PROVEEDOR : String read GetOldREF_FAC_PROVEEDORValue;
property REF_FACTURA : String read GetREF_FACTURAValue write SetREF_FACTURAValue;
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 OldCALLE : String read GetOldCALLEValue;
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
@ -938,6 +966,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA] := aValue;
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;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorTIPO];
@ -1028,19 +1071,34 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FACTURA] := aValue;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetREF_FAC_PROVEEDORValue: String;
function TAlbaranesProveedorBusinessProcessorRules.GetREF_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREF_FAC_PROVEEDOR];
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREF_FACTURA];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldREF_FAC_PROVEEDORValue: String;
function TAlbaranesProveedorBusinessProcessorRules.GetOldREF_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREF_FAC_PROVEEDOR];
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREF_FACTURA];
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetREF_FAC_PROVEEDORValue(const aValue: String);
procedure TAlbaranesProveedorBusinessProcessorRules.SetREF_FACTURAValue(const aValue: String);
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;
function TAlbaranesProveedorBusinessProcessorRules.GetCALLEValue: String;
@ -1908,6 +1966,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA] := aValue;
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;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTIPO];
@ -1998,19 +2071,34 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FACTURA] := aValue;
end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_FAC_PROVEEDORValue: String;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR];
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA];
end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_FAC_PROVEEDORValue: String;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR];
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA];
end;
procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_FAC_PROVEEDORValue(const aValue: String);
procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_FACTURAValue(const aValue: String);
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;
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'
SQL =
'SELECT '#10' ID, ID_EMPRESA, ID_PROVEEDOR, NOMBRE, FECHA_ALBARAN,' +
' '#10' REFERENCIA, TIPO, ID_ALMACEN, NOMBRE_ALMACEN, ID_PEDIDO,'#10' ' +
' REF_PED_PROVEEDOR, ID_FACTURA, REF_FAC_PROVEEDOR, CALLE, CODI' +
'GO_POSTAL,'#10' POBLACION, PROVINCIA, PERSONA_CONTACTO, TELEFONO,' +
' IMPORTE_NETO, '#10' IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO,' +
' BASE_IMPONIBLE, '#10' IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACI' +
'ONES, INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_M' +
'ODIFICACION, '#10' USUARIO, ID_FORMA_PAGO'#10' FROM'#10' V_ALBARANES_' +
'PROVEEDOR'
' REFERENCIA, REFERENCIA_PROVEEDOR,'#10' TIPO, ID_ALMACEN, NOMBRE_' +
'ALMACEN, ID_PEDIDO, REF_PED_PROVEEDOR,'#10' ID_FACTURA, REF_FACTU' +
'RA, REF_FACTURA_PROV, CALLE, CODIGO_POSTAL, POBLACION, PROVINCIA' +
','#10' PERSONA_CONTACTO, TELEFONO, IMPORTE_NETO, IMPORTE_PORTE, D' +
'ESCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IV' +
'A, IMPORTE_TOTAL,'#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_AC' +
'TIVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA_PAG' +
'O'#10' FROM'#10' V_ALBARANES_PROVEEDOR'
StatementType = stSQL
ColumnMappings = <
item
@ -209,13 +209,21 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DatasetField = 'REF_PED_PROVEEDOR'
TableField = 'REF_PED_PROVEEDOR'
end
item
DatasetField = 'REF_FAC_PROVEEDOR'
TableField = 'REF_FAC_PROVEEDOR'
end
item
DatasetField = '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>
Name = 'AlbaranesProveedor'
@ -282,6 +290,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Lookup = False
LookupCache = False
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
Name = 'TIPO'
DataType = datString
@ -346,11 +365,22 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
LookupCache = False
end
item
Name = 'REF_FAC_PROVEEDOR'
Name = 'REF_FACTURA'
DataType = datString
Size = 255
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
Calculated = False
Lookup = False
@ -1080,15 +1110,16 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Connection = 'IBX'
TargetTable = 'ALBARANES_PROVEEDOR'
SQL =
'SELECT '#10' ID, ID_EMPRESA, ID_PROVEEDOR, NOMBRE, FECHA_ALBARAN,' +
' '#10' REFERENCIA, TIPO, ID_ALMACEN, NOMBRE_ALMACEN, ID_PEDIDO,'#10' ' +
' REF_PED_PROVEEDOR, ID_FACTURA, REF_FAC_PROVEEDOR, CALLE, CODI' +
'GO_POSTAL,'#10' POBLACION, PROVINCIA, PERSONA_CONTACTO, TELEFONO,' +
' IMPORTE_NETO, '#10' IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO,' +
' BASE_IMPONIBLE, '#10' IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACI' +
'ONES, INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_M' +
'ODIFICACION, '#10' USUARIO, ID_FORMA_PAGO'#10' FROM'#10' V_ALBARANES_' +
'PROVEEDOR'#10'WHERE V_ALBARANES_PROVEEDOR.ID = :ID'
'SELECT'#10' ID, ID_EMPRESA, ID_PROVEEDOR, NOMBRE, FECHA_ALBARAN, ' +
'REFERENCIA, REFERENCIA_PROVEEDOR,'#10' TIPO, ID_ALMACEN, NOMBRE_A' +
'LMACEN, ID_PEDIDO, REF_PED_PROVEEDOR,'#10' ID_FACTURA, REF_FACTUR' +
'A, REF_FACTURA_PROV, CALLE, CODIGO_POSTAL, POBLACION, PROVINCIA,' +
#10' PERSONA_CONTACTO, TELEFONO, IMPORTE_NETO, IMPORTE_PORTE, DE' +
'SCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA' +
', IMPORTE_TOTAL,'#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACT' +
'IVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA_PAGO' +
#10' FROM'#10' V_ALBARANES_PROVEEDOR'#10'WHERE V_ALBARANES_PROVEEDOR.ID' +
' = :ID'
StatementType = stSQL
ColumnMappings = <
item
@ -1219,13 +1250,21 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DatasetField = 'REF_PED_PROVEEDOR'
TableField = 'REF_PED_PROVEEDOR'
end
item
DatasetField = 'REF_FAC_PROVEEDOR'
TableField = 'REF_FAC_PROVEEDOR'
end
item
DatasetField = '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>
Name = 'AlbaranesProveedor_Refresh'
@ -1295,6 +1334,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Lookup = False
LookupCache = False
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
Name = 'TIPO'
DataType = datString
@ -1359,7 +1409,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
LookupCache = False
end
item
Name = 'REF_FAC_PROVEEDOR'
Name = 'REF_FACTURA'
DataType = datString
Size = 255
BlobType = dabtUnknown
@ -1370,6 +1420,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Lookup = False
LookupCache = False
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
Name = 'CALLE'
DataType = datString
@ -1680,6 +1741,22 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Value = ''
ParamType = daptInput
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
Name = 'CALLE'
DataType = datString
@ -1848,21 +1925,23 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
SQL =
'INSERT INTO ALBARANES_PROVEEDOR ('#10' ID,'#10' ID_EMPRESA,'#10' ID' +
'_PROVEEDOR,'#10' FECHA_ALBARAN,'#10' ID_PEDIDO,'#10' ID_FACTURA,'#10' ' +
' REFERENCIA,'#10' CALLE,'#10' CODIGO_POSTAL,'#10' POBLACION,'#10' P' +
'ROVINCIA,'#10' PERSONA_CONTACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE' +
','#10' DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA' +
','#10' IMPORTE_TOTAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INC' +
'IDENCIAS_ACTIVAS,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' US' +
'UARIO,'#10' ID_ALMACEN,'#10' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' ' +
'IMPORTE_PORTE)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROV' +
'EEDOR,'#10' :FECHA_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' ' +
':REFERENCIA,'#10' :CALLE,'#10' :CODIGO_POSTAL,'#10' :POBLACION,'#10' ' +
' :PROVINCIA,'#10' :PERSONA_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMP' +
'ONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :I' +
'MPORTE_IVA,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDEN' +
'CIAS,'#10' :INCIDENCIAS_ACTIVAS,'#10' :FECHA_ALTA,'#10' :FECHA_MODI' +
'FICACION,'#10' :USUARIO,'#10' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' ' +
' :IMPORTE_NETO,'#10' :IMPORTE_PORTE);'
' REFERENCIA,'#10' REFERENCIA_PROVEEDOR,'#10' REF_FACTURA_PROV,'#10' ' +
' CALLE,'#10' CODIGO_POSTAL,'#10' POBLACION,'#10' PROVINCIA,'#10' PE' +
'RSONA_CONTACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE,'#10' DESCUENTO,' +
#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' IMPORTE_TO' +
'TAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS' +
','#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_AL' +
'MACEN,'#10' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE)'#10' ' +
' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,'#10' :FECH' +
'A_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :REFERENCIA,'#10' ' +
' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :CALLE,'#10' :' +
'CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :PERSONA_CONT' +
'ACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :I' +
'MPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMPORTE_TOTAL' +
','#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS' +
','#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
ColumnMappings = <>
end>
@ -1934,6 +2013,22 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Value = ''
ParamType = daptInput
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
Name = 'CALLE'
DataType = datString
@ -2110,19 +2205,20 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'UPDATE ALBARANES_PROVEEDOR'#10' SET'#10' ID_EMPRESA = :ID_EMPRESA,'#10' ' +
' ID_PROVEEDOR = :ID_PROVEEDOR,'#10' FECHA_ALBARAN = :FECHA_ALBA' +
'RAN,'#10' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' ' +
' REFERENCIA = :REFERENCIA,'#10' CALLE = :CALLE,'#10' CODIGO_POST' +
'AL = :CODIGO_POSTAL,'#10' POBLACION = :POBLACION,'#10' PROVINCIA =' +
' :PROVINCIA,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' TELEF' +
'ONO = :TELEFONO,'#10' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCU' +
'ENTO = :DESCUENTO,'#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' ' +
' IVA = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL' +
' = :IMPORTE_TOTAL,'#10' OBSERVACIONES = :OBSERVACIONES,'#10' INCID' +
'ENCIAS = :INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_AC' +
'TIVAS,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :F' +
'ECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_ALMACEN = :ID_' +
'ALMACEN,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' IMPORTE_NETO = ' +
':IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID ' +
'= :OLD_ID);'
' REFERENCIA = :REFERENCIA,'#10' REFERENCIA_PROVEEDOR = :REFEREN' +
'CIA_PROVEEDOR,'#10' REF_FACTURA_PROV = :REF_FACTURA_PROV,'#10' CAL' +
'LE = :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' POBLACION =' +
' :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' PERSONA_CONTACTO = ' +
':PERSONA_CONTACTO,'#10' TELEFONO = :TELEFONO,'#10' BASE_IMPONIBLE ' +
'= :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_DESCU' +
'ENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IM' +
'PORTE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES' +
' = :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,'#10' INCIDENCI' +
'AS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_ALTA = :FECHA_ALTA,' +
#10' FECHA_MODIFICACION = :FECHA_MODIFICACION,'#10' USUARIO = :US' +
'UARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FOR' +
'MA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :' +
'IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID);'
StatementType = stSQL
ColumnMappings = <>
end>
@ -2911,6 +3007,33 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DisplayWidth = 0
DisplayLabel = 'REF_FAC_PROVEEDOR'
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>
Left = 48
Top = 128

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

@ -181,42 +181,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited ToolBar1: TToolBar
Width = 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
inherited cxGrid: TcxGrid
Width = 757
@ -237,6 +201,10 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0

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

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

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

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

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

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

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

@ -61,7 +61,11 @@ type
dxLayoutControl1Group5: TdxLayoutGroup;
actVerPedido: TAction;
dxLayoutControl1Item10: TdxLayoutItem;
eRefFacturaProv: TcxDBTextEdit;
eRefFactura: TcxDBTextEdit;
dxLayoutControl1Item11: TdxLayoutItem;
eReferenciaProveedor: TcxDBTextEdit;
dxLayoutControl1Item12: TdxLayoutItem;
eReferenciaFacturaProveedor: TcxDBTextEdit;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure actElegirDireccionExecute(Sender: TObject);
@ -235,7 +239,7 @@ begin
frViewDireccionEntregaAlbaranProv1.AlbaranProveedor := FAlbaran;
eReferenciaPedidoCli.Enabled := False;
eRefFacturaProv.Enabled := False;
eRefFactura.Enabled := False;
FPedidoAsociado := NIL;
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
inherited cxGrid: TcxGrid
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
Visible = False
end
inherited cxGridViewREF_FAC_PROVEEDOR: TcxGridDBColumn
inherited cxGridViewREF_FACTURA: TcxGridDBColumn
Caption = 'Ref. abono'
end
end
@ -14,7 +36,6 @@ inherited frViewAlbaranesDevProveedor: TfrViewAlbaranesDevProveedor
inherited TBXDock1: TTBXDock
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 124
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 453
Width = 453
@ -24,8 +45,8 @@ inherited frViewAlbaranesDevProveedor: TfrViewAlbaranesDevProveedor
Width = 237
end
inherited edtFechaFinFiltro: TcxDateEdit
ExplicitWidth = 199
Width = 199
ExplicitWidth = 239
Width = 239
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,
TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid;
cxControls, cxGridCustomView, cxGrid, cxTextEdit;
type
IViewAlbaranesDevProveedor = interface(IViewAlbaranesProveedor)

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

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

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

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

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

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

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

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

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

@ -36,7 +36,7 @@ type
function NewItem : IBizComisiones;
// 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;
implementation
@ -155,9 +155,9 @@ begin
Result := (RORemoteService as IsrvComisiones).GetNextAutoInc(aGeneratorName)
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
Result := (RORemoteService as IsrvComisiones).GenerateReport(AComisionID, FechaIni, FechaFin, AAgenteID);
Result := (RORemoteService as IsrvComisiones).GenerateReport(AComisionID, DesglosadoProv, FechaIni, FechaFin, AAgenteID);
end;
function TDataModuleComisiones.NewItem: IBizComisiones;

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

@ -8,7 +8,7 @@ uses
type
IDataModuleComisionesReport = interface
['{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;
implementation

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

@ -63,6 +63,490 @@ object RptComisiones: TRptComisiones
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary
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
Params = <>
Statements = <
@ -89,20 +573,20 @@ object RptComisiones: TRptComisiones
'S_DET_FAC.ID_CLIENTE,'#10' CONTACTOS2.NOMBRE as CLIENTE,'#10' ' +
' V_AGENTES_COMISIONES_DET_FAC.ID_PROVEEDOR,'#10' CONTACTOS3.N' +
'OMBRE as PROVEEDOR,'#10' V_AGENTES_COMISIONES_DET_FAC.COMISION' +
','#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_TOTAL) as IMPO' +
'RTE_COMISIONABLE,'#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORT' +
'E_COMISION) as IMPORTE_COMISION'#10' '#10#10'from V_AGENTES_COMISION' +
'ES_DET_FAC'#10'LEFT JOIN COMISIONES_LIQUIDADAS ON (COMISIONES_LIQUID' +
'ADAS.ID = V_AGENTES_COMISIONES_DET_FAC.ID_COMISION_LIQUIDADA)'#10'LE' +
'FT JOIN EMPRESAS ON EMPRESAS.ID = V_AGENTES_COMISIONES_DET_FAC.I' +
'D_EMPRESA'#10'LEFT JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID = V_A' +
'GENTES_COMISIONES_DET_FAC.ID_AGENTE)'#10'LEFT JOIN CONTACTOS CONTACT' +
'OS2 ON (CONTACTOS2.ID = V_AGENTES_COMISIONES_DET_FAC.ID_CLIENTE)' +
#10'LEFT JOIN CONTACTOS CONTACTOS3 ON (CONTACTOS3.ID = V_AGENTES_CO' +
'MISIONES_DET_FAC.ID_PROVEEDOR)'#10'WHERE (V_AGENTES_COMISIONES_DET_F' +
'AC.ID_COMISION_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, 27, 28, 29'#10'ORDER BY 1'
','#10#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_TOTAL) as IMP' +
'ORTE_COMISIONABLE,'#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPOR' +
'TE_COMISION) as IMPORTE_COMISION'#10#10#10'from V_AGENTES_COMISIONES_DET' +
'_FAC'#10'LEFT JOIN COMISIONES_LIQUIDADAS ON (COMISIONES_LIQUIDADAS.I' +
'D = V_AGENTES_COMISIONES_DET_FAC.ID_COMISION_LIQUIDADA)'#10'LEFT JOI' +
'N EMPRESAS ON EMPRESAS.ID = V_AGENTES_COMISIONES_DET_FAC.ID_EMPR' +
'ESA'#10'LEFT JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID = V_AGENTES' +
'_COMISIONES_DET_FAC.ID_AGENTE)'#10'LEFT JOIN CONTACTOS CONTACTOS2 ON' +
' (CONTACTOS2.ID = V_AGENTES_COMISIONES_DET_FAC.ID_CLIENTE)'#10'LEFT ' +
'JOIN CONTACTOS CONTACTOS3 ON (CONTACTOS3.ID = V_AGENTES_COMISION' +
'ES_DET_FAC.ID_PROVEEDOR)'#10'WHERE (V_AGENTES_COMISIONES_DET_FAC.ID_' +
'COMISION_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, 27, 28, 29'#10'ORDER BY 1'
StatementType = stSQL
ColumnMappings = <
item
@ -230,7 +714,7 @@ object RptComisiones: TRptComisiones
TableField = 'REGISTRO_MERCANTIL'
end>
end>
Name = 'InformeComisiones'
Name = 'InformeComisionesDesglosado'
Fields = <
item
Name = 'FECHA_COMISION'
@ -901,7 +1385,7 @@ object RptComisiones: TRptComisiones
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default'
ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 39185.834399409720000000
ReportOptions.LastChange = 39266.688905347220000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
@ -939,17 +1423,14 @@ object RptComisiones: TRptComisiones
''
'procedure Memo26OnBeforePrint(Sender: TfrxComponent);'
'begin'
'{'
' if (<FechaIni> <> '#39#39') then'
' Memo26.Visible := True'
' Memo31.Visible := True'
' else'
' Memo26.Visible := False;'
' }'
' Memo31.Visible := False;'
'end;'
''
'BEGIN'
''
''
'END.')
ShowProgress = False
StoreInDFM = False
@ -967,11 +1448,11 @@ object RptComisiones: TRptComisiones
end
item
Name = 'FechaIni'
Value = 'sdadsasd'
Value = Null
end
item
Name = 'FechaFin'
Value = 'asdasdasdad'
Value = Null
end>
Style = <
item

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

@ -29,7 +29,7 @@ type
private
FConnection: IDAConnection;
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;
implementation
@ -41,21 +41,23 @@ uses
const
rptComision = 'InfComisiones.fr3';
rptComisionDesglosado = 'InfComisionesDesglosado.fr3';
{ Dataset names for schReport }
ds_InformeComisiones = 'InformeComisiones';
ds_InformeComisionesDesglosado = 'InformeComisionesDesglosado';
{ TRptComision }
procedure TRptComisiones.DataModuleCreate(Sender: TObject);
begin
schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion;
frxReport.EngineOptions.NewSilentMode := simReThrow;
frxReport.EngineOptions.NewSilentMode := simReThrow;
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
dsMaster: IDADataset;
AStream: TMemoryStream;
@ -64,7 +66,11 @@ begin
Result := Binary.Create;
FConnection.BeginTransaction;
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
begin
if not VarIsNull(AComisionID) then
@ -100,7 +106,11 @@ begin
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
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['FechaFin'] := QuotedStr(FechaFin);
frxReport.PrepareReport;

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

@ -32,7 +32,7 @@ type
{ IsrvComisiones methods }
protected
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;
implementation
@ -61,13 +61,13 @@ begin
bpComisiones.BusinessRulesID := BIZ_SERVER_COMISIONES;
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
AReportGenerator : TRptComisiones;
begin
AReportGenerator := TRptComisiones.Create(nil);
try
Result := AReportGenerator.GenerarComision(AComisionID, FechaIni, FechaFin, AAgenteID);
Result := AReportGenerator.GenerarComision(AComisionID, DesglosadoProv, FechaIni, FechaFin, AAgenteID);
finally
FreeAndNIL(AReportGenerator);
end;

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

@ -148,9 +148,23 @@ inherited fEditorComision: TfEditorComision
DesignSize = (
603
127)
inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 164
Width = 164
end
inherited eDescripcion: TcxDBTextEdit
ExplicitWidth = 108
Width = 108
end
inherited edtFecha: TcxDBDateEdit
Left = 354
ExplicitLeft = 354
Left = 355
ExplicitLeft = 355
ExplicitWidth = 170
Width = 170
end
inherited cbAgente: TcxDBLookupComboBox
ExplicitWidth = 319
Width = 319
end
end
end
@ -202,18 +216,6 @@ inherited fEditorComision: TfEditorComision
inherited ToolBar1: TToolBar
Width = 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
ExplicitWidth = 98
end

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

@ -134,7 +134,10 @@ end;
procedure TfEditorComision.ImprimirInterno;
begin
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;
procedure TfEditorComision.JvFormStorageRestorePlacement(Sender: TObject);
@ -170,7 +173,10 @@ end;
procedure TfEditorComision.PrevisualizarInterno;
begin
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;
procedure TfEditorComision.SetComision(const Value: IBizComisiones);

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

@ -83,7 +83,10 @@ end;
procedure TfEditorComisiones.ImprimirInterno;
begin
// 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;
function TfEditorComisiones.GetController: IComisionesController;
@ -115,7 +118,10 @@ end;
procedure TfEditorComisiones.PrevisualizarInterno;
begin
// 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;
procedure TfEditorComisiones.SetComisiones(const Value: IBizComisiones);

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

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

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

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

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

@ -146,7 +146,8 @@ begin
ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO);
ADestino.Edit;
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.CANTIDAD := AOrigen.CANTIDAD;
ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD;
@ -190,7 +191,8 @@ begin
ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO);
ADestino.Edit;
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.CANTIDAD := AOrigen.CANTIDAD;
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
PrintOptions.Printer = 'Default'
ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 39258.717259837960000000
ReportOptions.LastChange = 39266.753072372690000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
@ -1268,7 +1268,10 @@ object RptFacturasCliente: TRptFacturasCliente
' or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' 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;'
''
'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);
ADestino.Edit;
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.CANTIDAD := AOrigen.CANTIDAD;
ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD;
@ -185,7 +186,8 @@ begin
ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO);
ADestino.Edit;
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.CANTIDAD := AOrigen.CANTIDAD;
ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD;
@ -218,6 +220,7 @@ var
AFacturaActual : IBizFacturaProveedor;
AAlbaranesController : IAlbaranesProveedorController;
I: Integer;
bEnEdicion : Boolean;
begin
Result := False;
@ -255,6 +258,16 @@ begin
Anadir(AFacturas);
AAlbaranesController.RecuperarProveedor(AListaAlbaranes);
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;
end;

2
Source/Servicios/FactuGES.RODL
View File

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

10
Source/Servicios/FactuGES_Intf.pas
View File

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

7
Source/Servicios/FactuGES_Invk.pas
View File

@ -248,9 +248,11 @@ begin
end;
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
AComisionID: Variant;
DesglosadoProv: Boolean;
FechaIni: String;
FechaFin: String;
AAgenteID: Variant;
@ -260,11 +262,12 @@ begin
lResult := nil;
try
__Message.Read('AComisionID', TypeInfo(Variant), AComisionID, []);
__Message.Read('DesglosadoProv', TypeInfo(Boolean), DesglosadoProv, []);
__Message.Read('FechaIni', TypeInfo(String), FechaIni, []);
__Message.Read('FechaFin', TypeInfo(String), FechaFin, []);
__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.Write('Result', TypeInfo(Binary), lResult, []);

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.