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

Primera adaptacion de recibos de cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@13 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
roberto 2010-01-15 08:27:38 +00:00
parent 377b691b26
commit f1ae52395a
110 changed files with 2473 additions and 2167 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Database/scripts/factuges.sql
View File

@ -293,7 +293,8 @@ CREATE TABLE ALBARANES_CLIENTE (
FECHA_PREVISTA_ENVIO DATE, FECHA_PREVISTA_ENVIO DATE,
REFERENCIA_CLIENTE VARCHAR(255), REFERENCIA_CLIENTE VARCHAR(255),
DESCUENTO2 TIPO_PORCENTAJE, DESCUENTO2 TIPO_PORCENTAJE,
IMPORTE_DESCUENTO2 TIPO_IMPORTE IMPORTE_DESCUENTO2 TIPO_IMPORTE,
DATOS_BANCARIOS VARCHAR(255) COLLATE ES_ES
); );
CREATE TABLE ALBARANES_CLIENTE_DETALLES ( CREATE TABLE ALBARANES_CLIENTE_DETALLES (
@ -698,7 +699,7 @@ CREATE TABLE FACTURAS_CLIENTE (
RECARGO_EQUIVALENCIA TIPO_BOOLEANO, RECARGO_EQUIVALENCIA TIPO_BOOLEANO,
ID_COMISION_LIQUIDADA TIPO_ID, ID_COMISION_LIQUIDADA TIPO_ID,
DATOS_BANCARIOS VARCHAR(255), DATOS_BANCARIOS VARCHAR(255),
CLIENTE_FINAL VARCHAR(255), PERSONA_CONTACTO VARCHAR(255),
RETENCION TIPO_PORCENTAJE, RETENCION TIPO_PORCENTAJE,
IMPORTE_RETENCION TIPO_IMPORTE, IMPORTE_RETENCION TIPO_IMPORTE,
DESCUENTO2 TIPO_PORCENTAJE, DESCUENTO2 TIPO_PORCENTAJE,
@ -1373,7 +1374,8 @@ CREATE VIEW V_ALBARANES_CLIENTE(
FECHA_ENVIO, FECHA_ENVIO,
FECHA_RECEPCION, FECHA_RECEPCION,
DESCUENTO2, DESCUENTO2,
IMPORTE_DESCUENTO2) IMPORTE_DESCUENTO2,
DATOS_BANCARIOS)
AS AS
SELECT SELECT
ALBARANES_CLIENTE.ID, ALBARANES_CLIENTE.ID,
@ -1417,7 +1419,8 @@ SELECT
ALBARANES_CLIENTE.FECHA_ENVIO, ALBARANES_CLIENTE.FECHA_ENVIO,
ALBARANES_CLIENTE.FECHA_RECEPCION, ALBARANES_CLIENTE.FECHA_RECEPCION,
ALBARANES_CLIENTE.DESCUENTO2, ALBARANES_CLIENTE.DESCUENTO2,
ALBARANES_CLIENTE.IMPORTE_DESCUENTO2 ALBARANES_CLIENTE.IMPORTE_DESCUENTO2,
ALBARANES_CLIENTE.DATOS_BANCARIOS
FROM FROM
ALBARANES_CLIENTE ALBARANES_CLIENTE
LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_CLIENTE.ID_CLIENTE) LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_CLIENTE.ID_CLIENTE)
@ -1786,6 +1789,7 @@ CREATE VIEW V_CLIENTES(
ID_EMPRESA, ID_EMPRESA,
REFERENCIA, REFERENCIA,
PAIS, PAIS,
ID_AGENTE,
GRUPO_CLIENTE, GRUPO_CLIENTE,
NOMBRE_COMERCIAL, NOMBRE_COMERCIAL,
VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_1,
@ -1827,6 +1831,7 @@ SELECT
V_CONTACTOS.ID_EMPRESA, V_CONTACTOS.ID_EMPRESA,
V_CONTACTOS.REFERENCIA, V_CONTACTOS.REFERENCIA,
V_CONTACTOS.PAIS, V_CONTACTOS.PAIS,
CLIENTES_DATOS.ID_AGENTE,
CLIENTES_DATOS.GRUPO_CLIENTE, CLIENTES_DATOS.GRUPO_CLIENTE,
CLIENTES_DATOS.NOMBRE_COMERCIAL, CLIENTES_DATOS.NOMBRE_COMERCIAL,
CLIENTES_DATOS.VENCIMIENTO_FACTURAS_1, CLIENTES_DATOS.VENCIMIENTO_FACTURAS_1,
@ -2161,7 +2166,7 @@ CREATE VIEW V_FACTURAS_CLIENTE(
PROVINCIA, PROVINCIA,
CODIGO_POSTAL, CODIGO_POSTAL,
DATOS_BANCARIOS, DATOS_BANCARIOS,
CLIENTE_FINAL, PERSONA_CONTACTO,
FECHA_ALTA, FECHA_ALTA,
FECHA_MODIFICACION, FECHA_MODIFICACION,
USUARIO, USUARIO,
@ -2204,7 +2209,7 @@ SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.PROVINCIA, FACTURAS_CLIENTE.PROVINCIA,
FACTURAS_CLIENTE.CODIGO_POSTAL, FACTURAS_CLIENTE.CODIGO_POSTAL,
FACTURAS_CLIENTE.DATOS_BANCARIOS, FACTURAS_CLIENTE.DATOS_BANCARIOS,
FACTURAS_CLIENTE.CLIENTE_FINAL, FACTURAS_CLIENTE.PERSONA_CONTACTO,
FACTURAS_CLIENTE.FECHA_ALTA, FACTURAS_CLIENTE.FECHA_ALTA,
FACTURAS_CLIENTE.FECHA_MODIFICACION, FACTURAS_CLIENTE.FECHA_MODIFICACION,
FACTURAS_CLIENTE.USUARIO, FACTURAS_CLIENTE.USUARIO,

2
Source/Cliente/FactuGES.drc
View File

@ -18,4 +18,4 @@ END
/* C:\Codigo Noviseda\Source\Cliente\uAcercaDe.dfm */ /* C:\Codigo Noviseda\Source\Cliente\uAcercaDe.dfm */
/* C:\Codigo Noviseda\Source\Cliente\uPantallaPrincipal.dfm */ /* C:\Codigo Noviseda\Source\Cliente\uPantallaPrincipal.dfm */
/* C:\Codigo Noviseda\Source\Cliente\FactuGES.res */ /* C:\Codigo Noviseda\Source\Cliente\FactuGES.res */
/* E:\temp\dtf72F.tmp */ /* E:\temp\dtf53B.tmp */

BIN
Source/Cliente/FactuGES.identcache
View File

Binary file not shown.

2
Source/GUIBase/GUIBase.drc
View File

@ -39,4 +39,4 @@ END
/* C:\Codigo Noviseda\Source\GUIBase\uViewDocumentos.dfm */ /* C:\Codigo Noviseda\Source\GUIBase\uViewDocumentos.dfm */
/* C:\Codigo Noviseda\Source\GUIBase\uEditorColores.dfm */ /* C:\Codigo Noviseda\Source\GUIBase\uEditorColores.dfm */
/* C:\Codigo Noviseda\Source\GUIBase\GUIBase.res */ /* C:\Codigo Noviseda\Source\GUIBase\GUIBase.res */
/* E:\temp\dtf635.tmp */ /* E:\temp\dtf441.tmp */

BIN
Source/GUIBase/GUIBase.identcache
View File

Binary file not shown.

205
Source/GUIBase/uViewTotales.dfm
View File

@ -1,9 +1,9 @@
inherited frViewTotales: TfrViewTotales inherited frViewTotales: TfrViewTotales
Width = 829 Width = 880
Height = 278 Height = 360
Align = alBottom Align = alBottom
ExplicitWidth = 800 ExplicitWidth = 879
ExplicitHeight = 278 ExplicitHeight = 360
object Bevel5: TBevel object Bevel5: TBevel
Left = 666 Left = 666
Top = 109 Top = 109
@ -15,8 +15,8 @@ inherited frViewTotales: TfrViewTotales
AlignWithMargins = True AlignWithMargins = True
Left = 0 Left = 0
Top = 0 Top = 0
Width = 829 Width = 880
Height = 278 Height = 360
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
Margins.Right = 0 Margins.Right = 0
@ -27,37 +27,23 @@ inherited frViewTotales: TfrViewTotales
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 252 ExplicitHeight = 404
object Bevel3: TBevel object Bevel3: TBevel
Left = 422 Left = 366
Top = 28 Top = 28
Width = 3 Width = 3
Height = 100 Height = 100
Shape = bsRightLine Shape = bsRightLine
end end
object Bevel4: TBevel object Bevel4: TBevel
Left = 534 Left = 478
Top = 70 Top = 70
Width = 342 Width = 342
Height = 9 Height = 9
Shape = bsBottomLine Shape = bsBottomLine
end end
object Bevel1: TBevel
Left = 534
Top = 186
Width = 368
Height = 9
Shape = bsBottomLine
end
object Bevel2: TBevel
Left = 131
Top = 188
Width = 368
Height = 9
Shape = bsBottomLine
end
object ImporteDto: TcxDBCurrencyEdit object ImporteDto: TcxDBCurrencyEdit
Left = 202 Left = 175
Top = 55 Top = 55
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_DESCUENTO' DataBinding.DataField = 'IMPORTE_DESCUENTO'
@ -92,7 +78,7 @@ inherited frViewTotales: TfrViewTotales
Width = 87 Width = 87
end end
object ImporteIVA: TcxDBCurrencyEdit object ImporteIVA: TcxDBCurrencyEdit
Left = 605 Left = 549
Top = 105 Top = 105
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_IVA' DataBinding.DataField = 'IMPORTE_IVA'
@ -122,12 +108,12 @@ inherited frViewTotales: TfrViewTotales
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 9
Height = 21 Height = 21
Width = 20 Width = 20
end end
object ImporteTotal: TcxDBCurrencyEdit object ImporteTotal: TcxDBCurrencyEdit
Left = 535 Left = 479
Top = 159 Top = 159
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_TOTAL' DataBinding.DataField = 'IMPORTE_TOTAL'
@ -158,12 +144,12 @@ inherited frViewTotales: TfrViewTotales
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13 TabOrder = 12
Height = 21 Height = 21
Width = 90 Width = 90
end end
object edtDescuento: TcxDBSpinEdit object edtDescuento: TcxDBSpinEdit
Left = 131 Left = 104
Top = 55 Top = 55
AutoSize = False AutoSize = False
DataBinding.DataField = 'DESCUENTO' DataBinding.DataField = 'DESCUENTO'
@ -197,7 +183,7 @@ inherited frViewTotales: TfrViewTotales
Width = 65 Width = 65
end end
object edtIVA: TcxDBSpinEdit object edtIVA: TcxDBSpinEdit
Left = 534 Left = 478
Top = 105 Top = 105
AutoSize = False AutoSize = False
DataBinding.DataField = 'IVA' DataBinding.DataField = 'IVA'
@ -233,12 +219,12 @@ inherited frViewTotales: TfrViewTotales
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 8
Height = 21 Height = 21
Width = 65 Width = 65
end end
object ImporteBase: TcxDBCurrencyEdit object ImporteBase: TcxDBCurrencyEdit
Left = 534 Left = 478
Top = 28 Top = 28
AutoSize = False AutoSize = False
DataBinding.DataField = 'BASE_IMPONIBLE' DataBinding.DataField = 'BASE_IMPONIBLE'
@ -268,12 +254,12 @@ inherited frViewTotales: TfrViewTotales
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 7
Height = 21 Height = 21
Width = 91 Width = 91
end end
object edtRE: TcxDBSpinEdit object edtRE: TcxDBSpinEdit
Left = 534 Left = 478
Top = 132 Top = 132
AutoSize = False AutoSize = False
DataBinding.DataField = 'RE' DataBinding.DataField = 'RE'
@ -309,12 +295,12 @@ inherited frViewTotales: TfrViewTotales
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 10
Height = 21 Height = 21
Width = 65 Width = 65
end end
object ImporteRE: TcxDBCurrencyEdit object ImporteRE: TcxDBCurrencyEdit
Left = 605 Left = 549
Top = 132 Top = 132
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_RE' DataBinding.DataField = 'IMPORTE_RE'
@ -344,12 +330,12 @@ inherited frViewTotales: TfrViewTotales
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 11
Height = 21 Height = 21
Width = 20 Width = 20
end end
object eImporteNeto: TcxDBCurrencyEdit object eImporteNeto: TcxDBCurrencyEdit
Left = 131 Left = 104
Top = 28 Top = 28
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_NETO' DataBinding.DataField = 'IMPORTE_NETO'
@ -383,7 +369,7 @@ inherited frViewTotales: TfrViewTotales
Width = 158 Width = 158
end end
object ePorte: TcxDBCurrencyEdit object ePorte: TcxDBCurrencyEdit
Left = 131 Left = 104
Top = 82 Top = 82
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_PORTE' DataBinding.DataField = 'IMPORTE_PORTE'
@ -417,7 +403,7 @@ inherited frViewTotales: TfrViewTotales
Width = 158 Width = 158
end end
object eIVA: TcxDBLookupComboBox object eIVA: TcxDBLookupComboBox
Left = 131 Left = 104
Top = 109 Top = 109
DataBinding.DataField = 'ID_TIPO_IVA' DataBinding.DataField = 'ID_TIPO_IVA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -452,7 +438,7 @@ inherited frViewTotales: TfrViewTotales
Width = 20 Width = 20
end end
object bTiposIVA: TButton object bTiposIVA: TButton
Left = 274 Left = 218
Top = 109 Top = 109
Width = 132 Width = 132
Height = 21 Height = 21
@ -460,7 +446,7 @@ inherited frViewTotales: TfrViewTotales
TabOrder = 5 TabOrder = 5
end end
object cbRecargoEquivalencia: TcxDBCheckBox object cbRecargoEquivalencia: TcxDBCheckBox
Left = 131 Left = 104
Top = 136 Top = 136
Caption = 'Aplicar recargo de equivalencia' Caption = 'Aplicar recargo de equivalencia'
DataBinding.DataField = 'RECARGO_EQUIVALENCIA' DataBinding.DataField = 'RECARGO_EQUIVALENCIA'
@ -489,104 +475,6 @@ inherited frViewTotales: TfrViewTotales
TabOrder = 6 TabOrder = 6
Width = 221 Width = 221
end end
object edtRetencion: TcxDBSpinEdit
Left = 534
Top = 206
AutoSize = False
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.AssignedValues.EditFormat = True
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.ButtonStyle = bts3D
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
Height = 21
Width = 65
end
object edtImporteRetencion: TcxDBCurrencyEdit
Left = 605
Top = 206
AutoSize = False
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = '-,0.00 '#8364';,0.00 '#8364
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
Height = 21
Width = 180
end
object edtFechaRetencion: TcxDBDateEdit
Left = 131
Top = 208
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Width = 280
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -665,18 +553,6 @@ inherited frViewTotales: TfrViewTotales
Control = cbRecargoEquivalencia Control = cbRecargoEquivalencia
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item19: TdxLayoutItem
Caption = ' '
Offsets.Top = 25
Control = Bevel2
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item21: TdxLayoutItem
Caption = 'Fecha vto. retenci'#243'n:'
Visible = False
Control = edtFechaRetencion
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
@ -768,31 +644,6 @@ inherited frViewTotales: TfrViewTotales
Control = ImporteTotal Control = ImporteTotal
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item10: TdxLayoutItem
Caption = ' '
Control = Bevel1
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group11: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False
Visible = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item17: TdxLayoutItem
Caption = 'Retenci'#243'n (%):'
Control = edtRetencion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item18: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Control = edtImporteRetencion
ControlOptions.ShowBorder = False
end
end
end end
end end
end end

11
Source/GUIBase/uViewTotales.pas
View File

@ -57,19 +57,8 @@ type
dsTiposIVA: TDADataSource; dsTiposIVA: TDADataSource;
dxLayoutControl1Item16: TdxLayoutItem; dxLayoutControl1Item16: TdxLayoutItem;
cbRecargoEquivalencia: TcxDBCheckBox; cbRecargoEquivalencia: TcxDBCheckBox;
dxLayoutControl1Item17: TdxLayoutItem;
edtRetencion: TcxDBSpinEdit;
dxLayoutControl1Item18: TdxLayoutItem;
edtImporteRetencion: TcxDBCurrencyEdit;
Bevel5: TBevel; Bevel5: TBevel;
dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Item21: TdxLayoutItem;
edtFechaRetencion: TcxDBDateEdit;
dxLayoutControl1Group10: TdxLayoutGroup; dxLayoutControl1Group10: TdxLayoutGroup;
dxLayoutControl1Item10: TdxLayoutItem;
Bevel1: TBevel;
dxLayoutControl1Item19: TdxLayoutItem;
Bevel2: TBevel;
public public
{ Public declarations } { Public declarations }
end; end;

16
Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
View File

@ -14,6 +14,7 @@
<Projects Include="..\Articulos\Views\Articulos_view.dproj" /> <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" /> <Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" /> <Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" /> <Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" /> <Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
@ -251,14 +252,23 @@
<Target Name="RemesasProveedor_view:Make"> <Target Name="RemesasProveedor_view:Make">
<MSBuild Projects="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" Targets="Make" /> <MSBuild Projects="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasCliente_view">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_view:Clean">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbProv_FacProv_relation;Contactos_controller;FacturasProveedor_view;PedidosProveedor_view;PresupuestosCliente_view;RecibosCliente_view;RecibosProveedor_view;RemesasCliente_view;RemesasProveedor_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbProv_FacProv_relation;Contactos_controller;FacturasProveedor_view;PedidosProveedor_view;PresupuestosCliente_view;RecibosCliente_view;RecibosProveedor_view;RemesasCliente_view;RemesasProveedor_view;FacturasCliente_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbProv_FacProv_relation:Clean;Contactos_controller:Clean;FacturasProveedor_view:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean;RecibosCliente_view:Clean;RecibosProveedor_view:Clean;RemesasCliente_view:Clean;RemesasProveedor_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbProv_FacProv_relation:Clean;Contactos_controller:Clean;FacturasProveedor_view:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean;RecibosCliente_view:Clean;RecibosProveedor_view:Clean;RemesasCliente_view:Clean;RemesasProveedor_view:Clean;FacturasCliente_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbProv_FacProv_relation:Make;Contactos_controller:Make;FacturasProveedor_view:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make;RecibosCliente_view:Make;RecibosProveedor_view:Make;RemesasCliente_view:Make;RemesasProveedor_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbProv_FacProv_relation:Make;Contactos_controller:Make;FacturasProveedor_view:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make;RecibosCliente_view:Make;RecibosProveedor_view:Make;RemesasCliente_view:Make;RemesasProveedor_view:Make;FacturasCliente_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

2
Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.res */
/* E:\temp\dtf6BF.tmp */ /* E:\temp\dtf4CB.tmp */

3
Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas
View File

@ -154,6 +154,7 @@ begin
ADetallesAux.DataTable.Edit; ADetallesAux.DataTable.Edit;
ADetallesAux.CANTIDAD := GetTotal; ADetallesAux.CANTIDAD := GetTotal;
ADetallesAux.DataTable.post; ADetallesAux.DataTable.post;
ActualizarTotales(ADetalles);
end end
else else
ADetallesAux.DetalleColores.DataTable.Cancel; ADetallesAux.DetalleColores.DataTable.Cancel;
@ -184,7 +185,7 @@ begin
//de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos. //de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos.
if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
if Assigned(AArticulos) then if Assigned(AArticulos) then
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_PVP_TOTAL ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO
else else
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null; ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
end; end;

2
Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\uDataModuleAlbaranesCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\uDataModuleAlbaranesCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.res */
/* E:\temp\dtf6BD.tmp */ /* E:\temp\dtf4C9.tmp */

5
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -293,6 +293,11 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
item item
Name = 'IMPORTE_DESCUENTO2' Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency DataType = datCurrency
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

2
Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.res */
/* E:\temp\dtf6BB.tmp */ /* E:\temp\dtf4C7.tmp */

51
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -9,10 +9,10 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{B4206C62-06EB-4344-BEB1-1A30ED907220}'; RID_ListaAnosAlbaranes = '{42739B43-AAFE-40CD-B0F0-1F26F60FA03A}';
RID_AlbaranesCliente = '{E1B3AF30-F3E6-4BC4-B9E5-6457F9E83272}'; RID_AlbaranesCliente = '{31C082F1-1332-4151-B270-3B497DA70500}';
RID_AlbaranesCliente_Detalle_Color = '{7C8EFD2E-60FC-4742-B01A-F56A7C0637A7}'; RID_AlbaranesCliente_Detalle_Color = '{AE57C6DB-DC23-4940-A000-87C4B4B43193}';
RID_AlbaranesCliente_Detalles = '{1DEA680B-4B62-4552-99D4-91A10AB81A52}'; RID_AlbaranesCliente_Detalles = '{05E35781-52D8-4983-91BB-A08BD612D9F8}';
{ Data table names } { Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes'; nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -69,6 +69,7 @@ const
fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION'; fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION';
fld_AlbaranesClienteDESCUENTO2 = 'DESCUENTO2'; fld_AlbaranesClienteDESCUENTO2 = 'DESCUENTO2';
fld_AlbaranesClienteIMPORTE_DESCUENTO2 = 'IMPORTE_DESCUENTO2'; fld_AlbaranesClienteIMPORTE_DESCUENTO2 = 'IMPORTE_DESCUENTO2';
fld_AlbaranesClienteDATOS_BANCARIOS = 'DATOS_BANCARIOS';
{ AlbaranesCliente field indexes } { AlbaranesCliente field indexes }
idx_AlbaranesClienteID = 0; idx_AlbaranesClienteID = 0;
@ -113,6 +114,7 @@ const
idx_AlbaranesClienteFECHA_RECEPCION = 39; idx_AlbaranesClienteFECHA_RECEPCION = 39;
idx_AlbaranesClienteDESCUENTO2 = 40; idx_AlbaranesClienteDESCUENTO2 = 40;
idx_AlbaranesClienteIMPORTE_DESCUENTO2 = 41; idx_AlbaranesClienteIMPORTE_DESCUENTO2 = 41;
idx_AlbaranesClienteDATOS_BANCARIOS = 42;
{ AlbaranesCliente_Detalle_Color fields } { AlbaranesCliente_Detalle_Color fields }
fld_AlbaranesCliente_Detalle_ColorID = 'ID'; fld_AlbaranesCliente_Detalle_ColorID = 'ID';
@ -185,7 +187,7 @@ const
type type
{ IListaAnosAlbaranes } { IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable) IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{9198BD80-46AC-41F3-80C0-EBD4A7055DBD}'] ['{F043E0A3-DB08-4F86-A07F-899DC88F8CA0}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -220,7 +222,7 @@ type
{ IAlbaranesCliente } { IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable) IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{373AD37D-234D-47B9-9133-4B56CAFFB722}'] ['{D4D1CA0D-3682-4C1D-BFA0-8F9E5DE7B4CD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -388,6 +390,10 @@ type
procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency);
function GetIMPORTE_DESCUENTO2IsNull: Boolean; function GetIMPORTE_DESCUENTO2IsNull: Boolean;
procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean);
function GetDATOS_BANCARIOSValue: String;
procedure SetDATOS_BANCARIOSValue(const aValue: String);
function GetDATOS_BANCARIOSIsNull: Boolean;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -475,6 +481,8 @@ type
property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull; property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value; property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull; property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
end; end;
{ TAlbaranesClienteDataTableRules } { TAlbaranesClienteDataTableRules }
@ -652,6 +660,10 @@ type
procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual; procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual;
function GetIMPORTE_DESCUENTO2IsNull: Boolean; virtual; function GetIMPORTE_DESCUENTO2IsNull: Boolean; virtual;
procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); virtual;
function GetDATOS_BANCARIOSValue: String; virtual;
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -738,6 +750,8 @@ type
property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull; property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value; property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull; property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -747,7 +761,7 @@ type
{ IAlbaranesCliente_Detalle_Color } { IAlbaranesCliente_Detalle_Color }
IAlbaranesCliente_Detalle_Color = interface(IDAStronglyTypedDataTable) IAlbaranesCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
['{10257B11-C523-426D-B5F3-C83A653FC86F}'] ['{9F645C57-1D1F-4B85-B3AB-25B652A9D7D4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -938,7 +952,7 @@ type
{ IAlbaranesCliente_Detalles } { IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{0B31E831-E5AF-41C8-8043-2E16FC21CDE8}'] ['{02B0B3EC-18E2-403C-BFC3-2A41918C746A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2093,6 +2107,27 @@ begin
DataTable.Fields[idx_AlbaranesClienteIMPORTE_DESCUENTO2].AsVariant := Null; DataTable.Fields[idx_AlbaranesClienteIMPORTE_DESCUENTO2].AsVariant := Null;
end; end;
function TAlbaranesClienteDataTableRules.GetDATOS_BANCARIOSValue: String;
begin
result := DataTable.Fields[idx_AlbaranesClienteDATOS_BANCARIOS].AsString;
end;
procedure TAlbaranesClienteDataTableRules.SetDATOS_BANCARIOSValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesClienteDATOS_BANCARIOS].AsString := aValue;
end;
function TAlbaranesClienteDataTableRules.GetDATOS_BANCARIOSIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesClienteDATOS_BANCARIOS].IsNull;
end;
procedure TAlbaranesClienteDataTableRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesClienteDATOS_BANCARIOS].AsVariant := Null;
end;
{ TAlbaranesCliente_Detalle_ColorDataTableRules } { TAlbaranesCliente_Detalle_ColorDataTableRules }
constructor TAlbaranesCliente_Detalle_ColorDataTableRules.Create(aDataTable: TDADataTable); constructor TAlbaranesCliente_Detalle_ColorDataTableRules.Create(aDataTable: TDADataTable);

59
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

@ -9,15 +9,15 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{1E1DC3F8-2ECA-40D0-B18D-9AD1F0294B1C}'; RID_ListaAnosAlbaranesDelta = '{B839C079-D718-4A7D-AB98-EF55218E936A}';
RID_AlbaranesClienteDelta = '{8B265689-7E0C-412D-B7AE-56B2AF1573FD}'; RID_AlbaranesClienteDelta = '{F6B6B081-26F6-4D46-BC40-FB938E8BCDDE}';
RID_AlbaranesCliente_Detalle_ColorDelta = '{6FF87351-F32C-49FE-A68B-4BC03FEEE1DB}'; RID_AlbaranesCliente_Detalle_ColorDelta = '{45B6BF2F-A6D2-4047-9430-B20755BF764A}';
RID_AlbaranesCliente_DetallesDelta = '{034AE7D6-C246-4EF8-AE5A-1773B4D37A26}'; RID_AlbaranesCliente_DetallesDelta = '{FB3F00DA-823C-463C-B460-D804323FA824}';
type type
{ IListaAnosAlbaranesDelta } { IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes) IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{1E1DC3F8-2ECA-40D0-B18D-9AD1F0294B1C}'] ['{B839C079-D718-4A7D-AB98-EF55218E936A}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IAlbaranesClienteDelta } { IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente) IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{8B265689-7E0C-412D-B7AE-56B2AF1573FD}'] ['{F6B6B081-26F6-4D46-BC40-FB938E8BCDDE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -95,6 +95,7 @@ type
function GetOldFECHA_RECEPCIONValue : DateTime; function GetOldFECHA_RECEPCIONValue : DateTime;
function GetOldDESCUENTO2Value : Currency; function GetOldDESCUENTO2Value : Currency;
function GetOldIMPORTE_DESCUENTO2Value : Currency; function GetOldIMPORTE_DESCUENTO2Value : Currency;
function GetOldDATOS_BANCARIOSValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -139,6 +140,7 @@ type
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue; property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value; property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value;
property OldIMPORTE_DESCUENTO2 : Currency read GetOldIMPORTE_DESCUENTO2Value; property OldIMPORTE_DESCUENTO2 : Currency read GetOldIMPORTE_DESCUENTO2Value;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
end; end;
{ TAlbaranesClienteBusinessProcessorRules } { TAlbaranesClienteBusinessProcessorRules }
@ -400,6 +402,12 @@ type
function GetOldIMPORTE_DESCUENTO2IsNull: Boolean; virtual; function GetOldIMPORTE_DESCUENTO2IsNull: Boolean; virtual;
procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual; procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual;
procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); virtual;
function GetDATOS_BANCARIOSValue: String; virtual;
function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
function GetOldDATOS_BANCARIOSValue: String; virtual;
function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -570,6 +578,10 @@ type
property IMPORTE_DESCUENTO2IsNull : Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull; property IMPORTE_DESCUENTO2IsNull : Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
property OldIMPORTE_DESCUENTO2 : Currency read GetOldIMPORTE_DESCUENTO2Value; property OldIMPORTE_DESCUENTO2 : Currency read GetOldIMPORTE_DESCUENTO2Value;
property OldIMPORTE_DESCUENTO2IsNull : Boolean read GetOldIMPORTE_DESCUENTO2IsNull; property OldIMPORTE_DESCUENTO2IsNull : Boolean read GetOldIMPORTE_DESCUENTO2IsNull;
property DATOS_BANCARIOS : String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -579,7 +591,7 @@ type
{ IAlbaranesCliente_Detalle_ColorDelta } { IAlbaranesCliente_Detalle_ColorDelta }
IAlbaranesCliente_Detalle_ColorDelta = interface(IAlbaranesCliente_Detalle_Color) IAlbaranesCliente_Detalle_ColorDelta = interface(IAlbaranesCliente_Detalle_Color)
['{6FF87351-F32C-49FE-A68B-4BC03FEEE1DB}'] ['{45B6BF2F-A6D2-4047-9430-B20755BF764A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_DETALLEValue : Integer; function GetOldID_DETALLEValue : Integer;
@ -769,7 +781,7 @@ type
{ IAlbaranesCliente_DetallesDelta } { IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{034AE7D6-C246-4EF8-AE5A-1773B4D37A26}'] ['{FB3F00DA-823C-463C-B460-D804323FA824}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;
@ -2356,6 +2368,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_DESCUENTO2] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_DESCUENTO2] := Null;
end; end;
function TAlbaranesClienteBusinessProcessorRules.GetDATOS_BANCARIOSValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteDATOS_BANCARIOS];
end;
function TAlbaranesClienteBusinessProcessorRules.GetDATOS_BANCARIOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteDATOS_BANCARIOS]);
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldDATOS_BANCARIOSValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteDATOS_BANCARIOS];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldDATOS_BANCARIOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteDATOS_BANCARIOS]);
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetDATOS_BANCARIOSValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteDATOS_BANCARIOS] := aValue;
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteDATOS_BANCARIOS] := Null;
end;
{ TAlbaranesCliente_Detalle_ColorBusinessProcessorRules } { TAlbaranesCliente_Detalle_ColorBusinessProcessorRules }
constructor TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

2
Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\uPluginAlbaranesCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\uPluginAlbaranesCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.res */
/* E:\temp\dtf715.tmp */ /* E:\temp\dtf521.tmp */

47
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -215,6 +215,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item item
DatasetField = 'IMPORTE_DESCUENTO2' DatasetField = 'IMPORTE_DESCUENTO2'
TableField = 'IMPORTE_DESCUENTO2' TableField = 'IMPORTE_DESCUENTO2'
end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
end> end>
end> end>
Name = 'AlbaranesCliente' Name = 'AlbaranesCliente'
@ -449,6 +453,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item item
Name = 'IMPORTE_DESCUENTO2' Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency DataType = datCurrency
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end> end>
end end
item item
@ -971,6 +980,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Name = 'IMPORTE_DESCUENTO2' Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency DataType = datCurrency
Value = '' Value = ''
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
Value = ''
end> end>
Statements = < Statements = <
item item
@ -986,17 +1001,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'ASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10 + 'ASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10 +
' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFIC' + ' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFIC' +
'ACION, '#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA' + 'ACION, '#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA' +
'_ENVIO, '#10' FECHA_RECEPCION, DESCUENTO2, IMPORTE_DESCUENTO2)'#10' ' + '_ENVIO, '#10' FECHA_RECEPCION, DESCUENTO2, IMPORTE_DESCUENTO2, D' +
' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIP' + 'ATOS_BANCARIOS)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :FE' +
'O, :REFERENCIA,'#10' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDID' + 'CHA_ALBARAN, :TIPO, :REFERENCIA,'#10' :REFERENCIA_CLIENTE, :ID_A' +
'O, :ID_FACTURA, :ID_DIRECCION,'#10' :CALLE, :CODIGO_POSTAL, :POB' + 'LMACEN, :ID_PEDIDO, :ID_FACTURA, :ID_DIRECCION,'#10' :CALLE, :CO' +
'LACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :IMPORTE_' + 'DIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TE' +
'NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE' + 'LEFONO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESC' +
'_IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10 + 'UENTO,'#10' :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL,' +
' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA_MOD' + ' :OBSERVACIONES,'#10' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA' +
'IFICACION,'#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO,' + '_ALTA, :FECHA_MODIFICACION,'#10' :USUARIO, :ID_FORMA_PAGO, :FECH' +
' :FECHA_ENVIO, :FECHA_RECEPCION,'#10' :DESCUENTO2, :IMPORTE_DESC' + 'A_PREVISTA_ENVIO, :FECHA_ENVIO, :FECHA_RECEPCION,'#10' :DESCUENT' +
'UENTO2)'#10' '#10' '#10#10 'O2, :IMPORTE_DESCUENTO2, :DATOS_BANCARIOS)'#10' '#10' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1211,6 +1226,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datCurrency DataType = datCurrency
Value = '' Value = ''
end end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1240,8 +1261,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
' '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' FECHA_PREVISTA_ENVIO ' + ' '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' FECHA_PREVISTA_ENVIO ' +
'= :FECHA_PREVISTA_ENVIO, '#10' FECHA_ENVIO = :FECHA_ENVIO, '#10' F' + '= :FECHA_PREVISTA_ENVIO, '#10' FECHA_ENVIO = :FECHA_ENVIO, '#10' F' +
'ECHA_RECEPCION = :FECHA_RECEPCION,'#10' DESCUENTO2 = :DESCUENTO2,' + 'ECHA_RECEPCION = :FECHA_RECEPCION,'#10' DESCUENTO2 = :DESCUENTO2,' +
#10' IMPORTE_DESCUENTO2 = :IMPORTE_DESCUENTO2'#10' WHERE'#10' (ID = ' + #10' IMPORTE_DESCUENTO2 = :IMPORTE_DESCUENTO2,'#10' DATOS_BANCARI' +
':OLD_ID)'#10 'OS = :DATOS_BANCARIOS'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

2
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc
View File

@ -29,4 +29,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranDevCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranDevCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranDevCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranDevCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.res */
/* E:\temp\dtf713.tmp */ /* E:\temp\dtf51F.tmp */

138
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -165,21 +165,19 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 849 Width = 849
Height = 382 Height = 382
ActivePage = pagContenido
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 849 ExplicitWidth = 849
ExplicitHeight = 366 ExplicitHeight = 382
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 841 ExplicitWidth = 841
ExplicitHeight = 338 ExplicitHeight = 354
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitHeight = 338
inline frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente inline frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -197,43 +195,58 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 841 ExplicitWidth = 841
ExplicitHeight = 338 ExplicitHeight = 354
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 841 Width = 841
Height = 73 Height = 73
ExplicitWidth = 841 ExplicitWidth = 841
ExplicitHeight = 73 ExplicitHeight = 73
inherited ToolButton3: TToolButton
Wrap = False
end
inherited ToolButton4: TToolButton
Left = 278
Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited ToolButton14: TToolButton
Left = 479
Top = 0
Wrap = True
ExplicitLeft = 479
ExplicitTop = 0
end
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 0
Width = 202 Width = 202
ExplicitLeft = 0
ExplicitWidth = 202 ExplicitWidth = 202
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 202 Left = 202
ExplicitLeft = 202 ExplicitLeft = 202
end end
inherited ToolButton10: TToolButton inherited ToolButton9: TToolButton
Left = 219 Left = 219
ExplicitLeft = 219 ExplicitLeft = 219
end end
inherited FontName: TJvFontComboBox inherited ToolButton13: TToolButton
Left = 344 Left = 341
ExplicitLeft = 344
end
inherited ToolButton7: TToolButton
Left = 489
Wrap = False Wrap = False
ExplicitLeft = 489 ExplicitLeft = 341
ExplicitHeight = 22
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 556 Left = 349
Top = 49 Top = 49
ExplicitLeft = 556 ExplicitLeft = 349
ExplicitTop = 49
end
inherited ToolButton8: TToolButton
Left = 697
Top = 49
ExplicitLeft = 697
ExplicitTop = 49 ExplicitTop = 49
end end
end end
@ -243,7 +256,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Height = 255 Height = 255
ExplicitTop = 99 ExplicitTop = 99
ExplicitWidth = 841 ExplicitWidth = 841
ExplicitHeight = 239 ExplicitHeight = 255
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 73 Top = 73
@ -251,7 +264,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitTop = 73 ExplicitTop = 73
ExplicitWidth = 841 ExplicitWidth = 841
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 841 ExplicitWidth = 762
end end
end end
inherited cxGridPopupMenu: TcxGridPopupMenu inherited cxGridPopupMenu: TcxGridPopupMenu
@ -268,7 +281,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitHeight = 338
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
@ -284,7 +296,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 841 ExplicitWidth = 841
ExplicitHeight = 338 ExplicitHeight = 354
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 841 Width = 841
ExplicitWidth = 841 ExplicitWidth = 841
@ -296,10 +308,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 841 Width = 841
Height = 326 Height = 326
ExplicitWidth = 841 ExplicitWidth = 841
ExplicitHeight = 310 ExplicitHeight = 326
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 824 ExplicitWidth = 824
ExplicitHeight = 283 ExplicitHeight = 299
Height = 299 Height = 299
Width = 824 Width = 824
end end
@ -338,20 +350,18 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 855 Width = 855
Height = 143 Height = 143
ExplicitWidth = 855 ExplicitWidth = 855
ExplicitHeight = 159 ExplicitHeight = 143
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 418 Left = 338
Height = 201 Height = 201
ExplicitLeft = 418 ExplicitLeft = 338
ExplicitHeight = 201 ExplicitHeight = 201
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 551 Left = 471
ExplicitLeft = 551 Width = 342
end ExplicitLeft = 471
inherited Bevel1: TBevel ExplicitWidth = 342
Left = 551
ExplicitLeft = 551
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -361,22 +371,22 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 622 Left = 542
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 622 ExplicitLeft = 542
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 552 Left = 472
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 552 ExplicitLeft = 472
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -386,41 +396,41 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 551 Left = 471
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 551 ExplicitLeft = 471
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 551 Left = 471
DataBinding.DataField = 'IMPORTE_NETO' DataBinding.DataField = 'IMPORTE_NETO'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 551 ExplicitLeft = 471
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 551 Left = 471
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 551 ExplicitLeft = 471
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 622 Left = 542
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 622 ExplicitLeft = 542
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -443,38 +453,20 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 270 Left = 190
ExplicitLeft = 270 ExplicitLeft = 190
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 221
Width = 221
end end
inherited edtRetencion: TcxDBSpinEdit inherited Panel1: TPanel
Left = 551 Width = 185
Style.LookAndFeel.SkinName = '' ExplicitWidth = 185
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 551
end
inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 622
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 622
end
inherited edtFechaRetencion: TcxDBDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
end end
end end

3
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -323,7 +323,10 @@ begin
FController := Value; FController := Value;
if Assigned(FController) then if Assigned(FController) then
begin
ViewAlbaran.Controller := FController;
frViewDetallesAlbaranCliente1.Controller := Controller.DetallesController; frViewDetallesAlbaranCliente1.Controller := Controller.DetallesController;
end;
end; end;
procedure TfEditorAlbaranCliente.SetAlbaran(const Value: IBizAlbaranCliente); procedure TfEditorAlbaranCliente.SetAlbaran(const Value: IBizAlbaranCliente);

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

@ -1,26 +1,28 @@
inherited frViewAlbaranCliente: TfrViewAlbaranCliente inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 903 Width = 903
Height = 506 Height = 542
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 903 ExplicitWidth = 903
ExplicitHeight = 506 ExplicitHeight = 542
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 903 Width = 903
Height = 506 Height = 542
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitHeight = 506
DesignSize = ( DesignSize = (
903 903
506) 542)
object Label1: TLabel object Label1: TLabel
Left = 22 Left = 22
Top = 450 Top = 491
Width = 299 Width = 299
Height = 26 Height = 26
Caption = Caption =
@ -31,7 +33,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object edtFechaAlbaran: TcxDBDateEdit object edtFechaAlbaran: TcxDBDateEdit
Left = 116 Left = 116
Top = 82 Top = 84
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ALBARAN' DataBinding.DataField = 'FECHA_ALBARAN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -60,8 +62,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 336 Width = 336
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 478 Left = 477
Top = 356 Top = 346
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -77,13 +79,13 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 21 TabOrder = 22
Height = 69 Height = 69
Width = 403 Width = 403
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 116 Left = 116
Top = 28 Top = 30
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -113,9 +115,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eCalle: TcxDBTextEdit object eCalle: TcxDBTextEdit
Left = 116 Left = 116
Top = 224 Top = 271
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
@ -131,14 +134,15 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 9
Width = 336 Width = 336
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 383 Left = 384
Top = 251 Top = 298
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
@ -154,14 +158,15 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 11
Width = 65 Width = 65
end end
object ePersonaContacto: TcxDBTextEdit object ePersonaContacto: TcxDBTextEdit
Left = 116 Left = 116
Top = 305 Top = 352
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = clWindow Style.Color = clWindow
@ -178,14 +183,15 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 13
Width = 336 Width = 336
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 116 Left = 116
Top = 332 Top = 379
DataBinding.DataField = 'TELEFONO' DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
@ -201,29 +207,31 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13 TabOrder = 14
Width = 336 Width = 336
end end
object bElegirDireccion: TBitBtn object bElegirDireccion: TBitBtn
Left = 276 Left = 277
Top = 359 Top = 406
Width = 172 Width = 172
Height = 23 Height = 23
Action = actElegirDireccion Action = actElegirDireccion
Caption = 'Elegir una direcci'#243'n de env'#237'o...' Caption = 'Elegir una direcci'#243'n de env'#237'o...'
TabOrder = 14 Enabled = False
TabOrder = 15
end end
object Button1: TButton object Button1: TButton
Left = 316 Left = 317
Top = 138 Top = 111
Width = 132 Width = 132
Height = 23 Height = 23
Action = actVerPedidoCli Action = actVerPedidoCli
TabOrder = 6 Enabled = False
TabOrder = 4
end end
object eReferenciaPedidoCli: TcxTextEdit object eReferenciaPedidoCli: TcxTextEdit
Left = 116 Left = 116
Top = 138 Top = 111
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Enabled = False Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
@ -245,12 +253,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5 TabOrder = 3
Width = 198 Width = 198
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 116 Left = 116
Top = 109 Top = 164
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -279,24 +287,25 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3 TabOrder = 5
Width = 198 Width = 198
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 316 Left = 317
Top = 109 Top = 164
Width = 132 Width = 132
Height = 23 Height = 23
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
TabOrder = 4 TabOrder = 6
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object eFechaRecepcion: TcxDBDateEdit object eFechaRecepcion: TcxDBDateEdit
Left = 612 Left = 611
Top = 299 Top = 295
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION' DataBinding.DataField = 'FECHA_RECEPCION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.OnValidate = eFechaRecepcionPropertiesValidate Properties.OnValidate = eFechaRecepcionPropertiesValidate
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -317,22 +326,22 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20 TabOrder = 21
Width = 265 Width = 265
end end
object cbConAlmacen: TCheckBox object cbConAlmacen: TCheckBox
Left = 32 Left = 32
Top = 418 Top = 459
Width = 179 Width = 179
Height = 21 Height = 21
Caption = 'Asociar este albar'#225'n al almac'#233'n:' Caption = 'Asociar este albar'#225'n al almac'#233'n:'
Enabled = False Enabled = False
TabOrder = 15 TabOrder = 16
OnClick = cbConAlmacenClick OnClick = cbConAlmacenClick
end end
object cbAlmacen: TcxDBLookupComboBox object cbAlmacen: TcxDBLookupComboBox
Left = 217 Left = 217
Top = 418 Top = 459
DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -362,16 +371,15 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16 TabOrder = 17
Width = 235 Width = 235
end end
object eRefFacturaCli: TcxDBTextEdit object eRefFacturaCli: TcxDBTextEdit
Left = 116 Left = 116
Top = 167 Top = 220
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REF_FACTURA' DataBinding.DataField = 'REF_FACTURA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.ValidateOnEnter = True Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -392,15 +400,16 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7 TabOrder = 8
Width = 336 Width = 336
end end
object eFechaPrevista: TcxDBDateEdit object eFechaPrevista: TcxDBDateEdit
Left = 612 Left = 611
Top = 245 Top = 241
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO' DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.OnValidate = eFechaPrevistaPropertiesValidate Properties.OnValidate = eFechaPrevistaPropertiesValidate
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -423,15 +432,16 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18 TabOrder = 19
Width = 265 Width = 265
end end
object eRefCliente: TcxDBTextEdit object eRefCliente: TcxDBTextEdit
Left = 116 Left = 116
Top = 55 Top = 57
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_CLIENTE' DataBinding.DataField = 'REFERENCIA_CLIENTE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.ValidateOnEnter = True Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -456,11 +466,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 336 Width = 336
end end
object eFechaEnvio: TcxDBDateEdit object eFechaEnvio: TcxDBDateEdit
Left = 612 Left = 611
Top = 272 Top = 268
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO' DataBinding.DataField = 'FECHA_ENVIO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.OnValidate = eFechaEnvioPropertiesValidate Properties.OnValidate = eFechaEnvioPropertiesValidate
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -481,14 +492,15 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19 TabOrder = 20
Width = 265 Width = 265
end end
object cbProvincia: TcxDBComboBox object cbProvincia: TcxDBComboBox
Left = 116 Left = 116
Top = 251 Top = 298
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True Properties.PostPopupValueOnTab = True
@ -510,14 +522,15 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 10
Width = 235 Width = 235
end end
object cbPoblacion: TcxDBComboBox object cbPoblacion: TcxDBComboBox
Left = 116 Left = 116
Top = 278 Top = 325
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True Properties.PostPopupValueOnTab = True
@ -539,12 +552,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 12
Width = 336 Width = 336
end end
inline frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran inline frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran
Left = 478 Left = 477
Top = 28 Top = 30
Width = 406 Width = 406
Height = 181 Height = 181
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -553,10 +566,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 17 TabOrder = 18
ReadOnly = False ReadOnly = False
ExplicitLeft = 478 ExplicitLeft = 477
ExplicitTop = 28 ExplicitTop = 30
ExplicitWidth = 406 ExplicitWidth = 406
ExplicitHeight = 181 ExplicitHeight = 181
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -573,17 +586,17 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 224 Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 290 Left = 291
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 290 ExplicitLeft = 291
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 201 Left = 202
Top = 139 Top = 139
ExplicitLeft = 201 ExplicitLeft = 202
ExplicitTop = 139 ExplicitTop = 139
end end
inherited edtPersonaContacto: TcxDBTextEdit inherited edtPersonaContacto: TcxDBTextEdit
@ -607,13 +620,13 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 287 Width = 287
end end
inherited Button4: TButton inherited Button4: TButton
Left = 370 Left = 371
ExplicitLeft = 370 ExplicitLeft = 371
end end
inherited Button5: TButton inherited Button5: TButton
Left = 370 Left = 371
Top = 108 Top = 108
ExplicitLeft = 370 ExplicitLeft = 371
ExplicitTop = 108 ExplicitTop = 108
end end
end end
@ -634,6 +647,28 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Top = 32 Top = 32
end end
end end
object cbCuentaBancaria: TcxDBComboBox
Left = 116
Top = 193
DataBinding.DataField = 'DATOS_BANCARIOS'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
Properties.DropDownRows = 12
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Width = 184
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -656,6 +691,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object dxLayoutControl1Item23: TdxLayoutItem object dxLayoutControl1Item23: TdxLayoutItem
Caption = 'Ref. cliente:' Caption = 'Ref. cliente:'
Enabled = False
Visible = False
Control = eRefCliente Control = eRefCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -665,66 +702,67 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
Enabled = False
ShowCaption = False
Visible = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Ref. del pedido:'
Control = eReferenciaPedidoCli
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'Button1'
ShowCaption = False
Control = Button1
ControlOptions.ShowBorder = False
end
end
end
object dxLayoutControl1Group16: TdxLayoutGroup
Caption = 'Forma de pago'
object dxLayoutControl1Group13: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group14: TdxLayoutGroup object dxLayoutControl1Item4: TdxLayoutItem
ShowCaption = False AutoAligns = [aaVertical]
Hidden = True AlignHorz = ahClient
LayoutDirection = ldHorizontal Caption = 'Forma de pago'
ShowBorder = False Control = cbFormaPago
object dxLayoutControl1Item4: TdxLayoutItem ControlOptions.ShowBorder = False
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Forma de pago'
Control = cbFormaPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item15: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
ShowCaption = False
Control = bFormasPago
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Group13: TdxLayoutGroup object dxLayoutControl1Item15: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
ShowCaption = False ShowCaption = False
Hidden = True Control = bFormasPago
ShowBorder = False ControlOptions.ShowBorder = False
object dxLayoutControl1Group15: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Ref. del pedido:'
Control = eReferenciaPedidoCli
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'Button1'
ShowCaption = False
Control = Button1
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item22: TdxLayoutItem
Caption = 'Ref. factura:'
Control = eRefFacturaCli
ControlOptions.ShowBorder = False
end
end end
end end
object dxLayoutControl1Item17: TdxLayoutItem
Caption = 'Cuenta bancaria:'
Control = cbCuentaBancaria
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item22: TdxLayoutItem
Caption = 'Ref. factura:'
Control = eRefFacturaCli
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Group8: TdxLayoutGroup object dxLayoutControl1Group8: TdxLayoutGroup
AutoAligns = [] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Direcci'#243'n de entrega' Caption = 'Direcci'#243'n de entrega'
Enabled = False
Visible = False Visible = False
object dxLayoutControl1Item8: TdxLayoutItem object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Calle:' Caption = 'Calle:'
@ -830,6 +868,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object dxLayoutControl1Group12: TdxLayoutGroup object dxLayoutControl1Group12: TdxLayoutGroup
Caption = 'Fechas de envio y recepci'#243'n' Caption = 'Fechas de envio y recepci'#243'n'
Enabled = False
Visible = False Visible = False
object dxLayoutControl1Item24: TdxLayoutItem object dxLayoutControl1Item24: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
@ -892,4 +931,17 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Left = 64 Left = 64
Top = 192 Top = 192
end end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 120
Top = 24
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
GroupOptions.CaptionOptions.Font.Color = clWindowText
GroupOptions.CaptionOptions.Font.Height = -11
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
GroupOptions.CaptionOptions.Font.Style = [fsBold]
GroupOptions.CaptionOptions.TextColor = clHighlight
GroupOptions.CaptionOptions.UseDefaultFont = False
end
end
end end

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

@ -16,7 +16,8 @@ uses
ExtCtrls, cxLookupEdit, cxDBLookupEdit, uBizFormasPago, ExtCtrls, cxLookupEdit, cxDBLookupEdit, uBizFormasPago,
cxDBLookupComboBox, uFormasPagoController, uAlmacenesController, uDAInterfaces, cxDBLookupComboBox, uFormasPagoController, uAlmacenesController, uDAInterfaces,
uViewDatosYSeleccionClienteBase, uViewDatosYSeleccionClienteAlbaran; uViewDatosYSeleccionClienteBase, uViewDatosYSeleccionClienteAlbaran,
dxLayoutLookAndFeels, uAlbaranesClienteController;
type type
IViewAlbaranCliente = interface(IViewBase) IViewAlbaranCliente = interface(IViewBase)
@ -24,6 +25,10 @@ type
function GetAlbaran: IBizAlbaranCliente; function GetAlbaran: IBizAlbaranCliente;
procedure SetAlbaran(const Value: IBizAlbaranCliente); procedure SetAlbaran(const Value: IBizAlbaranCliente);
property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran; property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
function GetController : IAlbaranesClienteController;
procedure SetController (const Value : IAlbaranesClienteController);
property Controller : IAlbaranesClienteController read GetController write SetController;
function GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran; function GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran;
property ViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran read GetViewClienteAlbaran; property ViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran read GetViewClienteAlbaran;
@ -69,8 +74,6 @@ type
dxLayoutControl1Item15: TdxLayoutItem; dxLayoutControl1Item15: TdxLayoutItem;
bFormasPago: TButton; bFormasPago: TButton;
dsFormaPago: TDADataSource; dsFormaPago: TDADataSource;
dxLayoutControl1Group13: TdxLayoutGroup;
dxLayoutControl1Group14: TdxLayoutGroup;
dxLayoutControl1Item16: TdxLayoutItem; dxLayoutControl1Item16: TdxLayoutItem;
eFechaRecepcion: TcxDBDateEdit; eFechaRecepcion: TcxDBDateEdit;
dxLayoutControl1Group11: TdxLayoutGroup; dxLayoutControl1Group11: TdxLayoutGroup;
@ -85,7 +88,6 @@ type
dxLayoutControl1Group10: TdxLayoutGroup; dxLayoutControl1Group10: TdxLayoutGroup;
dxLayoutControl1Item22: TdxLayoutItem; dxLayoutControl1Item22: TdxLayoutItem;
eRefFacturaCli: TcxDBTextEdit; eRefFacturaCli: TcxDBTextEdit;
dxLayoutControl1Group15: TdxLayoutGroup;
dxLayoutControl1Item24: TdxLayoutItem; dxLayoutControl1Item24: TdxLayoutItem;
eFechaPrevista: TcxDBDateEdit; eFechaPrevista: TcxDBDateEdit;
dxLayoutControl1Item23: TdxLayoutItem; dxLayoutControl1Item23: TdxLayoutItem;
@ -99,6 +101,12 @@ type
dxLayoutControl1Group9: TdxLayoutGroup; dxLayoutControl1Group9: TdxLayoutGroup;
frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran; frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran;
dxLayoutControl1Item1: TdxLayoutItem; dxLayoutControl1Item1: TdxLayoutItem;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
dxLayoutControl1Group16: TdxLayoutGroup;
dxLayoutControl1Group13: TdxLayoutGroup;
dxLayoutControl1Item17: TdxLayoutItem;
cbCuentaBancaria: TcxDBComboBox;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure actElegirDireccionExecute(Sender: TObject); procedure actElegirDireccionExecute(Sender: TObject);
@ -122,8 +130,7 @@ type
protected protected
FAlbaran : IBizAlbaranCliente; FAlbaran : IBizAlbaranCliente;
FAlmacenesController : IAlmacenesController; FAlmacenesController : IAlmacenesController;
// FPedidoAsociado : IBizPedidoCliente; FController : IAlbaranesClienteController;
// FPedidoController : IPedidosClienteController;
FViewClienteAlbaran : IViewDatosYSeleccionClienteAlbaran; FViewClienteAlbaran : IViewDatosYSeleccionClienteAlbaran;
FFormasPago : IBizFormaPago; FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController; FFormasPagoController : IFormasPagoController;
@ -132,13 +139,19 @@ type
procedure CargarProvincias; procedure CargarProvincias;
procedure CargarPoblaciones; procedure CargarPoblaciones;
procedure RellenarCuentasBancarias;
function GetAlbaran: IBizAlbaranCliente; function GetAlbaran: IBizAlbaranCliente;
procedure SetAlbaran(const Value: IBizAlbaranCliente); virtual; procedure SetAlbaran(const Value: IBizAlbaranCliente); virtual;
function GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran; function GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran;
function GetController : IAlbaranesClienteController;
procedure SetController (const Value : IAlbaranesClienteController);
public public
property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran; property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
property ViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran read GetViewClienteAlbaran; property ViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran read GetViewClienteAlbaran;
property Controller : IAlbaranesClienteController read GetController write SetController;
end; end;
implementation implementation
@ -148,7 +161,7 @@ implementation
{ TfrViewAlbaranCliente } { TfrViewAlbaranCliente }
uses uses
uClientesController, uBizDireccionesContacto, uAlbaranesClienteController, uFactuGES_App, uEmpresasController, uClientesController, uBizDireccionesContacto,
schAlbaranesClienteClient_Intf, uBizAlmacenes, uDateUtils, schAlbaranesClienteClient_Intf, uBizAlmacenes, uDateUtils,
uDialogUtils, uProvinciasPoblacionesController, uStringsUtils; uDialogUtils, uProvinciasPoblacionesController, uStringsUtils;
@ -418,14 +431,72 @@ begin
Result := FAlbaran; Result := FAlbaran;
end; end;
function TfrViewAlbaranCliente.GetController: IAlbaranesClienteController;
begin
Result := FController;
end;
function TfrViewAlbaranCliente.GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran; function TfrViewAlbaranCliente.GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran;
begin begin
Result := FViewClienteAlbaran; Result := FViewClienteAlbaran;
end; end;
procedure TfrViewAlbaranCliente.RellenarCuentasBancarias;
var
AController : IEmpresasController;
ALista : TStringList;
AListaIBAN : TStringList;
AListaCliente: TStringList;
i : integer;
begin
AController := TEmpresasController.Create;
try
ALista := AController.DarListaCuentasBancarias(AppFactuGES.EmpresaActiva);
AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva);
AListaCliente := Controller.ClienteController.DarListaCuentasBancarias(FAlbaran.ID_CLIENTE);
try
with cbCuentaBancaria.Properties.Items do
begin
BeginUpdate;
try
Clear;
Add('');
for i := 0 to ALista.Count - 1 do
Add(ALista.Names[i]);
if AListaIBAN.Count > 0 then
begin
Add('--------------');
for i := 0 to AListaIBAN.Count - 1 do
Add(AListaIBAN.Names[i]);
end;
if AListaCliente.Count > 0 then
begin
Add('--------------');
for i := 0 to AListaCliente.Count - 1 do
Add(AListaCliente.Names[i]);
end;
finally
EndUpdate;
end;
end;
finally
FreeANDNIL(ALista);
FreeANDNIL(AListaIBAN);
end;
finally
AController := NIL;
end;
end;
procedure TfrViewAlbaranCliente.SetAlbaran(const Value: IBizAlbaranCliente); procedure TfrViewAlbaranCliente.SetAlbaran(const Value: IBizAlbaranCliente);
begin begin
FAlbaran := Value; FAlbaran := Value;
RellenarCuentasBancarias;
if Assigned(FAlbaran) then if Assigned(FAlbaran) then
begin begin
DADataSource.DataTable := FAlbaran.DataTable; DADataSource.DataTable := FAlbaran.DataTable;
@ -488,4 +559,9 @@ begin
end; end;
end; end;
procedure TfrViewAlbaranCliente.SetController(const Value: IAlbaranesClienteController);
begin
FController := Value;
end;
end. end.

10
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -216,24 +216,22 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Width = 228 Width = 228
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 332 Left = 257
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 332 ExplicitLeft = 257
ExplicitWidth = 460 ExplicitWidth = 460
Width = 460 Width = 460
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 829 Left = 638
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 829 ExplicitLeft = 638
ExplicitWidth = 215
Width = 215
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

2
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
View File

@ -13,7 +13,7 @@ uses
cxGrid, cxGrid,
uBizAlbaranesCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ComCtrls, Tabs, uBizAlbaranesCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ComCtrls, Tabs,
cxPC, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg, cxPC, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg,
uDAInterfaces; uDAInterfaces, uCustomView, uViewBase;
type type
IViewAlbaranesCliente = interface(IViewGrid) IViewAlbaranesCliente = interface(IViewGrid)

28
Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.dfm
View File

@ -1,13 +1,13 @@
inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
Width = 505 Width = 646
Height = 196 Height = 245
ExplicitWidth = 505 ExplicitWidth = 646
ExplicitHeight = 196 ExplicitHeight = 245
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 505 Width = 646
Height = 196 Height = 245
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
Margins.Right = 0 Margins.Right = 0
@ -17,9 +17,11 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 505
ExplicitHeight = 196
DesignSize = ( DesignSize = (
505 646
196) 245)
object edtlNombre: TcxDBTextEdit object edtlNombre: TcxDBTextEdit
Left = 63 Left = 63
Top = 41 Top = 41
@ -48,7 +50,7 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
Width = 224 Width = 224
end end
object edtNIFCIF: TcxDBTextEdit object edtNIFCIF: TcxDBTextEdit
Left = 392 Left = 533
Top = 41 Top = 41
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
AutoSize = False AutoSize = False
@ -163,7 +165,7 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00} FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
end end
object Button3: TBitBtn object Button3: TBitBtn
Left = 303 Left = 444
Top = 158 Top = 158
Width = 192 Width = 192
Height = 25 Height = 25
@ -254,7 +256,7 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
Width = 403 Width = 403
end end
object Button4: TButton object Button4: TButton
Left = 472 Left = 613
Top = 68 Top = 68
Width = 23 Width = 23
Height = 25 Height = 25
@ -262,7 +264,7 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
TabOrder = 5 TabOrder = 5
end end
object Button5: TButton object Button5: TButton
Left = 472 Left = 613
Top = 127 Top = 127
Width = 23 Width = 23
Height = 25 Height = 25
@ -334,6 +336,7 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'Button4' Caption = 'Button4'
ShowCaption = False ShowCaption = False
Visible = False
Control = Button4 Control = Button4
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -355,6 +358,7 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
ShowCaption = False ShowCaption = False
Visible = False
Control = Button5 Control = Button5
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

14
Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas
View File

@ -322,13 +322,13 @@ begin
if FCliente.ID > 0 then if FCliente.ID > 0 then
edtPersonaContacto.Enabled := True; edtPersonaContacto.Enabled := True;
// if FCliente.Direcciones.RecordCount > 0 then if FCliente.Direcciones.RecordCount > 0 then
// ElegirDireccionCliente ElegirDireccionCliente
// else begin else begin
// FAlbaran.Edit; FAlbaran.Edit;
// FAlbaran.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO; FAlbaran.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
// RefrescarDireccion; RefrescarDireccion;
// end; end;
end end
else begin else begin
dsCliente.DataTable := NIL; dsCliente.DataTable := NIL;

72
Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
View File

@ -2,20 +2,30 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Height = 100 Height = 100
ExplicitHeight = 100 ExplicitHeight = 100
inherited ToolButton14: TToolButton inherited ToolButton3: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton9: TToolButton [5] inherited ToolButton4: TToolButton
Left = 121 Left = 278
Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Top = 22 Top = 22
ExplicitLeft = 121
ExplicitTop = 22 ExplicitTop = 22
end end
inherited FontName: TJvFontComboBox [6] inherited FontSize: TEdit
Left = 266
Top = 22 Top = 22
ExplicitLeft = 266 Width = 90
ExplicitTop = 22 ExplicitTop = 22
ExplicitWidth = 90
end end
inherited ToolButton13: TToolButton [7] inherited ToolButton13: TToolButton [7]
Left = 0 Left = 0
@ -23,40 +33,33 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
Wrap = True Wrap = True
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 22 ExplicitTop = 22
ExplicitHeight = 27
end end
inherited ToolButton6: TToolButton [8] inherited UpDown1: TUpDown [8]
Left = 0 Left = 0
Top = 49 Top = 49
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 49 ExplicitTop = 49
end end
inherited FontSize: TEdit [9] inherited ToolButton6: TToolButton
Left = 66 Left = 17
Top = 49 Top = 49
Width = 58 ExplicitLeft = 17
ExplicitLeft = 66
ExplicitTop = 49
ExplicitWidth = 58
end
inherited UpDown1: TUpDown [10]
Left = 124
Top = 49
ExplicitLeft = 124
ExplicitTop = 49 ExplicitTop = 49
end end
inherited ToolButton7: TToolButton [11] inherited ToolButton7: TToolButton
Left = 141 Left = 83
Top = 49 Top = 49
ExplicitLeft = 141 ExplicitLeft = 83
ExplicitTop = 49 ExplicitTop = 49
end end
inherited ToolButton11: TToolButton [12] inherited ToolButton8: TToolButton
Left = 208 Left = 150
Top = 49 Top = 49
ExplicitLeft = 208 ExplicitLeft = 150
ExplicitTop = 49 ExplicitTop = 49
end end
inherited ToolButton12: TToolButton [13] inherited ToolButton12: TToolButton
Left = 0 Left = 0
Top = 49 Top = 49
Wrap = True Wrap = True
@ -64,16 +67,22 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
ExplicitTop = 49 ExplicitTop = 49
ExplicitHeight = 27 ExplicitHeight = 27
end end
inherited ToolButton10: TToolButton inherited ToolButton9: TToolButton
Left = 0 Left = 0
Top = 76 Top = 76
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 76 ExplicitTop = 76
end end
inherited ToolButton8: TToolButton [15] inherited ToolButton10: TToolButton
Left = 125 Left = 145
Top = 76 Top = 76
ExplicitLeft = 125 ExplicitLeft = 145
ExplicitTop = 76
end
inherited ToolButton11: TToolButton
Left = 270
Top = 76
ExplicitLeft = 270
ExplicitTop = 76 ExplicitTop = 76
end end
end end
@ -103,6 +112,7 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
end> end>
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = cxGridViewCANTIDAD2PropertiesButtonClick Properties.OnButtonClick = cxGridViewCANTIDAD2PropertiesButtonClick
HeaderAlignmentHorz = taRightJustify
end end
inherited cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn inherited cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
Visible = False Visible = False
@ -127,6 +137,8 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
inherited ActionListContenido: TActionList inherited ActionListContenido: TActionList
inherited actAnadirArticulos: TAction inherited actAnadirArticulos: TAction
Caption = 'A'#241'adir art'#237'culos...' Caption = 'A'#241'adir art'#237'culos...'
Enabled = False
Visible = False
end end
end end
inherited GridGeneralPopupMenu: TPopupMenu inherited GridGeneralPopupMenu: TPopupMenu

172
Source/Modulos/Albaranes de cliente/Views/uViewTotalesAlbaran.dfm
View File

@ -1,92 +1,78 @@
inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
Width = 858 Width = 612
Height = 387 Height = 270
ExplicitWidth = 858 ExplicitHeight = 270
ExplicitHeight = 387
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 858 Width = 612
Height = 387 Height = 270
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 230 ExplicitHeight = 270
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 428 Left = 266
Top = 10 Top = 10
ExplicitLeft = 428 ExplicitLeft = 266
ExplicitTop = 10 ExplicitTop = 10
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 561 Left = 399
Top = 52 Top = 52
Width = 342 Width = 342
ExplicitLeft = 561 ExplicitLeft = 399
ExplicitTop = 52 ExplicitTop = 52
ExplicitWidth = 342 ExplicitWidth = 342
end end
inherited Bevel1: TBevel
Left = 561
Top = 168
Width = 368
ExplicitLeft = 561
ExplicitTop = 168
ExplicitWidth = 368
end
inherited Bevel2: TBevel
Left = 119
Top = 170
Width = 368
ExplicitLeft = 119
ExplicitTop = 170
ExplicitWidth = 368
end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 190 Left = 163
Top = 37 Top = 37
Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 190 ExplicitLeft = 163
ExplicitTop = 37 ExplicitTop = 37
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 632 Left = 470
Top = 87 Top = 87
DataBinding.DataField = 'IMPORTE_DESCUENTO' DataBinding.DataField = 'IMPORTE_DESCUENTO'
Properties.DisplayFormat = '-,0.00 '#8364';,0.00 '#8364
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 10
ExplicitLeft = 632 ExplicitLeft = 470
ExplicitTop = 87 ExplicitTop = 87
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 562 Left = 400
Top = 141 Top = 141
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14 TabOrder = 13
ExplicitLeft = 562 ExplicitLeft = 400
ExplicitTop = 141 ExplicitTop = 141
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 119 Left = 92
Top = 37 Top = 37
Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 119 ExplicitLeft = 92
ExplicitTop = 37 ExplicitTop = 37
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 561 Left = 399
Top = 87 Top = 87
DataBinding.DataField = 'DESCUENTO' DataBinding.DataField = 'DESCUENTO'
Enabled = True Enabled = True
@ -95,12 +81,12 @@ inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 9
ExplicitLeft = 561 ExplicitLeft = 399
ExplicitTop = 87 ExplicitTop = 87
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 561 Left = 399
Top = 10 Top = 10
DataBinding.DataField = 'IMPONIBLE_NETO' DataBinding.DataField = 'IMPONIBLE_NETO'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -108,12 +94,12 @@ inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 8
ExplicitLeft = 561 ExplicitLeft = 399
ExplicitTop = 10 ExplicitTop = 10
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 561 Left = 399
Top = 114 Top = 114
DataBinding.DataField = 'DESCUENTO2' DataBinding.DataField = 'DESCUENTO2'
Enabled = True Enabled = True
@ -122,120 +108,88 @@ inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 11
ExplicitLeft = 561 ExplicitLeft = 399
ExplicitTop = 114 ExplicitTop = 114
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 632 Left = 470
Top = 114 Top = 114
DataBinding.DataField = 'IMPORTE_DESCUENTO2' DataBinding.DataField = 'IMPORTE_DESCUENTO2'
Properties.DisplayFormat = '-,0.00 '#8364';,0.00 '#8364
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13 TabOrder = 12
ExplicitLeft = 632 ExplicitLeft = 470
ExplicitTop = 114 ExplicitTop = 114
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 119 Left = 92
Top = 10 Top = 10
Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 119 ExplicitLeft = 92
ExplicitTop = 10 ExplicitTop = 10
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Left = 119 Left = 92
Top = 64 Top = 64
Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 119 ExplicitLeft = 92
ExplicitTop = 64 ExplicitTop = 64
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Left = 119 Left = 92
Top = 91 Top = 91
DataBinding.DataField = '' DataBinding.DataField = ''
Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 119 ExplicitLeft = 92
ExplicitTop = 91 ExplicitTop = 91
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 280 Left = 118
Top = 91 Top = 91
ExplicitLeft = 280 Enabled = False
ExplicitLeft = 118
ExplicitTop = 91 ExplicitTop = 91
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 119 Left = 92
Top = 118 Top = 118
DataBinding.DataField = '' DataBinding.DataField = ''
Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 119 ExplicitLeft = 92
ExplicitTop = 118 ExplicitTop = 118
ExplicitWidth = 221 ExplicitWidth = 221
Width = 221 Width = 221
end end
inherited edtRetencion: TcxDBSpinEdit object Panel1: TPanel [15]
Left = 561
Top = 188
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
ExplicitLeft = 561
ExplicitTop = 188
end
inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 632
Top = 188
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
ExplicitLeft = 632
ExplicitTop = 188
ExplicitWidth = 180
Width = 180
end
inherited edtFechaRetencion: TcxDBDateEdit
Left = 119
Top = 190
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 119
ExplicitTop = 190
ExplicitWidth = 280
Width = 280
end
object Panel1: TPanel [20]
Left = 10 Left = 10
Top = 217 Top = 145
Width = 185 Width = 185
Height = 41 Height = 41
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 8 TabOrder = 7
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
@ -243,23 +197,25 @@ inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
ShowBorder = False ShowBorder = False
inherited dxLayoutControl1Group2: TdxLayoutGroup inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Item8: TdxLayoutItem inherited dxLayoutControl1Item8: TdxLayoutItem
Enabled = False
Visible = False Visible = False
end end
inherited dxLayoutControl1Group7: TdxLayoutGroup inherited dxLayoutControl1Group7: TdxLayoutGroup
inherited dxLayoutControl1Group10: TdxLayoutGroup inherited dxLayoutControl1Group10: TdxLayoutGroup
Enabled = False
Visible = False Visible = False
end end
inherited dxLayoutControl1Item9: TdxLayoutItem inherited dxLayoutControl1Item9: TdxLayoutItem
Enabled = False
Visible = False Visible = False
end end
end end
inherited dxLayoutControl1Group6: TdxLayoutGroup inherited dxLayoutControl1Group6: TdxLayoutGroup
Enabled = False
Visible = False Visible = False
end end
inherited dxLayoutControl1Item16: TdxLayoutItem inherited dxLayoutControl1Item16: TdxLayoutItem
Visible = False Enabled = False
end
inherited dxLayoutControl1Item19: TdxLayoutItem
Visible = False Visible = False
end end
object dxLayoutControl1Item20: TdxLayoutItem object dxLayoutControl1Item20: TdxLayoutItem
@ -277,30 +233,26 @@ inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
inherited dxLayoutControl1Group3: TdxLayoutGroup inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Item12: TdxLayoutItem inherited dxLayoutControl1Item12: TdxLayoutItem
Caption = 'Importe neto:' Caption = 'Importe neto:'
CaptionOptions.AlignHorz = taRightJustify
end end
inherited dxLayoutControl1Item14: TdxLayoutItem inherited dxLayoutControl1Item14: TdxLayoutItem
Enabled = False
Visible = False Visible = False
end end
inherited dxLayoutControl1Group9: TdxLayoutGroup inherited dxLayoutControl1Group9: TdxLayoutGroup
inherited dxLayoutControl1Item5: TdxLayoutItem inherited dxLayoutControl1Item5: TdxLayoutItem
Caption = 'Dto. cliente (%):' Caption = 'Dto. cliente (%):'
CaptionOptions.AlignHorz = taLeftJustify
end end
end end
inherited dxLayoutControl1Group8: TdxLayoutGroup inherited dxLayoutControl1Group8: TdxLayoutGroup
inherited dxLayoutControl1Item6: TdxLayoutItem inherited dxLayoutControl1Item6: TdxLayoutItem
Caption = 'Dto. pronto pago (%):' Caption = 'Dto. pronto pago (%):'
CaptionOptions.AlignHorz = taLeftJustify
end end
inherited dxLayoutControl1Item7: TdxLayoutItem inherited dxLayoutControl1Item7: TdxLayoutItem
Visible = True Visible = True
end end
end end
inherited dxLayoutControl1Item3: TdxLayoutItem
CaptionOptions.AlignHorz = taRightJustify
end
inherited dxLayoutControl1Item10: TdxLayoutItem
Visible = False
end
end end
end end
end end

2
Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.res */
/* E:\temp\dtf6E9.tmp */ /* E:\temp\dtf4F5.tmp */

2
Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Data\uDataModuleAlbaranesProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Data\uDataModuleAlbaranesProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Data\AlbaranesProveedor_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Data\AlbaranesProveedor_data.res */
/* E:\temp\dtf6E7.tmp */ /* E:\temp\dtf4F3.tmp */

2
Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Model\AlbaranesProveedor_model.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Model\AlbaranesProveedor_model.res */
/* E:\temp\dtf6E5.tmp */ /* E:\temp\dtf4F1.tmp */

2
Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Plugin\uPluginAlbaranesProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Plugin\uPluginAlbaranesProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.res */
/* E:\temp\dtf729.tmp */ /* E:\temp\dtf535.tmp */

2
Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.drc
View File

@ -29,4 +29,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\uEditorAlbaranDevProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\uEditorAlbaranDevProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\uEditorAlbaranesProveedorReport.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\uEditorAlbaranesProveedorReport.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\AlbaranesProveedor_view.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\AlbaranesProveedor_view.res */
/* E:\temp\dtf727.tmp */ /* E:\temp\dtf533.tmp */

2
Source/Modulos/Contactos/Controller/Contactos_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Controller\Contactos_controller.res */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Controller\Contactos_controller.res */
/* E:\temp\dtf665.tmp */ /* E:\temp\dtf471.tmp */

2
Source/Modulos/Contactos/Data/Contactos_data.drc
View File

@ -18,4 +18,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleVendedores.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleVendedores.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\Contactos_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\Contactos_data.res */
/* E:\temp\dtf663.tmp */ /* E:\temp\dtf46F.tmp */

4
Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
View File

@ -184,6 +184,10 @@ inherited DataModuleClientes: TDataModuleClientes
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'ID_AGENTE'
DataType = datInteger
end
item item
Name = 'GRUPO_CLIENTE' Name = 'GRUPO_CLIENTE'
DataType = datString DataType = datString

2
Source/Modulos/Contactos/Model/Contactos_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Model\Contactos_model.res */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Model\Contactos_model.res */
/* E:\temp\dtf661.tmp */ /* E:\temp\dtf46D.tmp */

125
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -9,21 +9,21 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Contactos = '{31E890C9-C096-4B82-8434-F8C22E4BDEDC}'; RID_Contactos = '{ACB5CADD-F95C-443A-8A8E-1924599B45CC}';
RID_GruposCliente = '{70B933FC-B92B-4DEA-B54A-5B4D39AC8BC0}'; RID_GruposCliente = '{B0E83D00-997F-4D68-B4B0-8D60D75329E3}';
RID_DatosBancarios = '{67D159F3-DF6A-4090-85D0-18942A2E5E9F}'; RID_DatosBancarios = '{10ECFCDF-8C7A-47DE-AE72-4077BE1B2360}';
RID_Vendedores = '{395B321C-C0F2-422E-9DCB-9F7535E4A2EF}'; RID_Vendedores = '{12514B73-4876-4C4D-A6D0-60879AEE5665}';
RID_Clientes = '{78865B8B-5E9D-48DA-A2B4-C7BF60D2C90A}'; RID_Clientes = '{18301B14-C8F8-4DEB-B02A-90CA5A5130DE}';
RID_Proveedores = '{35C717ED-5796-4BD8-9D32-F3BA1FE2F050}'; RID_Proveedores = '{A4AB7805-4A02-4CA0-90BC-77BA265E009E}';
RID_Empleados = '{AA5DB4CA-CC60-431C-9C32-3396340E225B}'; RID_Empleados = '{5609D8C2-BE56-4FA0-AB73-F0EC2484A84D}';
RID_DireccionesContacto = '{1F2574EE-F467-48A2-BD39-D288B2E72968}'; RID_DireccionesContacto = '{0C5E669A-17DE-4DF9-8B49-7081CC8F0981}';
RID_ClientesDescuentos = '{7971F20B-2FAA-4CFF-AFDB-3846A73505A2}'; RID_ClientesDescuentos = '{688D93EC-D8E9-41FD-929A-3F347665F442}';
RID_GruposProveedor = '{E426F450-BDFB-412A-9BBE-83309453C2D2}'; RID_GruposProveedor = '{79F38AFD-1BBF-4DF0-A867-BF6FF8391738}';
RID_GruposEmpleado = '{B7E33531-935F-43EF-9AAA-EA60734E4312}'; RID_GruposEmpleado = '{B545DB65-489F-4361-BE6F-A59ECAF92498}';
RID_Contactos_Refresh = '{B9889A3F-313E-4454-AE79-97CF3D812540}'; RID_Contactos_Refresh = '{DB8C8518-32E0-45D1-8020-37A643685AD4}';
RID_ContratosEmpleados = '{6DE395F5-9C4F-4BED-BEC6-29552362FB92}'; RID_ContratosEmpleados = '{6FE7D29D-BB36-4438-88AB-E81F6D099306}';
RID_DescripcionesProveedores = '{39884348-E254-4A49-932E-8FE22A14331E}'; RID_DescripcionesProveedores = '{5175E0DD-DF25-4BD8-A758-7117195820F1}';
RID_PersonalContacto = '{C74D4AF4-AF4E-4CC4-977F-93219C341679}'; RID_PersonalContacto = '{122D7340-896B-4E17-9A8B-8F8F7600F059}';
{ Data table names } { Data table names }
nme_Contactos = 'Contactos'; nme_Contactos = 'Contactos';
@ -203,6 +203,7 @@ const
fld_ClientesID_EMPRESA = 'ID_EMPRESA'; fld_ClientesID_EMPRESA = 'ID_EMPRESA';
fld_ClientesREFERENCIA = 'REFERENCIA'; fld_ClientesREFERENCIA = 'REFERENCIA';
fld_ClientesPAIS = 'PAIS'; fld_ClientesPAIS = 'PAIS';
fld_ClientesID_AGENTE = 'ID_AGENTE';
fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE'; fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE';
fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL'; fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1';
@ -244,21 +245,22 @@ const
idx_ClientesID_EMPRESA = 21; idx_ClientesID_EMPRESA = 21;
idx_ClientesREFERENCIA = 22; idx_ClientesREFERENCIA = 22;
idx_ClientesPAIS = 23; idx_ClientesPAIS = 23;
idx_ClientesGRUPO_CLIENTE = 24; idx_ClientesID_AGENTE = 24;
idx_ClientesNOMBRE_COMERCIAL = 25; idx_ClientesGRUPO_CLIENTE = 25;
idx_ClientesVENCIMIENTO_FACTURAS_1 = 26; idx_ClientesNOMBRE_COMERCIAL = 26;
idx_ClientesVENCIMIENTO_FACTURAS_2 = 27; idx_ClientesVENCIMIENTO_FACTURAS_1 = 27;
idx_ClientesVENCIMIENTO_FACTURAS_3 = 28; idx_ClientesVENCIMIENTO_FACTURAS_2 = 28;
idx_ClientesBLOQUEADO = 29; idx_ClientesVENCIMIENTO_FACTURAS_3 = 29;
idx_ClientesREGIMEN_IVA = 30; idx_ClientesBLOQUEADO = 30;
idx_ClientesMOTIVO_BLOQUEO = 31; idx_ClientesREGIMEN_IVA = 31;
idx_ClientesRECARGO_EQUIVALENCIA = 32; idx_ClientesMOTIVO_BLOQUEO = 32;
idx_ClientesID_TIPO_IVA = 33; idx_ClientesRECARGO_EQUIVALENCIA = 33;
idx_ClientesID_FORMA_PAGO = 34; idx_ClientesID_TIPO_IVA = 34;
idx_ClientesTIENDA_WEB = 35; idx_ClientesID_FORMA_PAGO = 35;
idx_ClientesDESCUENTO = 36; idx_ClientesTIENDA_WEB = 36;
idx_ClientesDESCUENTO2 = 37; idx_ClientesDESCUENTO = 37;
idx_ClientesFELICITACION = 38; idx_ClientesDESCUENTO2 = 38;
idx_ClientesFELICITACION = 39;
{ Proveedores fields } { Proveedores fields }
fld_ProveedoresID = 'ID'; fld_ProveedoresID = 'ID';
@ -563,7 +565,7 @@ const
type type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{A35A8745-1A25-43A0-B705-6E13F0D74A27}'] ['{6FFD15FA-F03C-4A70-9869-849498EF548F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -874,7 +876,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{FAAEE2D3-FB05-47AD-8948-E82168F803B6}'] ['{88D32187-D7D2-4E4A-8B19-CBDE9C92DC95}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -921,7 +923,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{14B854C7-B106-4620-9E3C-4C7346C1F185}'] ['{D0179233-B497-4F75-8DD3-D735B6AD3DCE}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1052,7 +1054,7 @@ type
{ IVendedores } { IVendedores }
IVendedores = interface(IDAStronglyTypedDataTable) IVendedores = interface(IDAStronglyTypedDataTable)
['{2BA78472-22B6-4544-874D-7C9F7FA3D9AC}'] ['{3F7AD4D0-A0A7-4CBD-945E-9C09D256F985}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1375,7 +1377,7 @@ type
{ IClientes } { IClientes }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{E76A366B-DE63-4C0C-8634-103DA9C2858E}'] ['{13CA3422-D066-4E6E-BC73-CD524DE9B38B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1472,6 +1474,10 @@ type
procedure SetPAISValue(const aValue: String); procedure SetPAISValue(const aValue: String);
function GetPAISIsNull: Boolean; function GetPAISIsNull: Boolean;
procedure SetPAISIsNull(const aValue: Boolean); procedure SetPAISIsNull(const aValue: Boolean);
function GetID_AGENTEValue: Integer;
procedure SetID_AGENTEValue(const aValue: Integer);
function GetID_AGENTEIsNull: Boolean;
procedure SetID_AGENTEIsNull(const aValue: Boolean);
function GetGRUPO_CLIENTEValue: String; function GetGRUPO_CLIENTEValue: String;
procedure SetGRUPO_CLIENTEValue(const aValue: String); procedure SetGRUPO_CLIENTEValue(const aValue: String);
function GetGRUPO_CLIENTEIsNull: Boolean; function GetGRUPO_CLIENTEIsNull: Boolean;
@ -1583,6 +1589,8 @@ type
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property PAIS: String read GetPAISValue write SetPAISValue; property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
@ -1717,6 +1725,10 @@ type
procedure SetPAISValue(const aValue: String); virtual; procedure SetPAISValue(const aValue: String); virtual;
function GetPAISIsNull: Boolean; virtual; function GetPAISIsNull: Boolean; virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual; procedure SetPAISIsNull(const aValue: Boolean); virtual;
function GetID_AGENTEValue: Integer; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
function GetID_AGENTEIsNull: Boolean; virtual;
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
function GetGRUPO_CLIENTEValue: String; virtual; function GetGRUPO_CLIENTEValue: String; virtual;
procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual; procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual;
function GetGRUPO_CLIENTEIsNull: Boolean; virtual; function GetGRUPO_CLIENTEIsNull: Boolean; virtual;
@ -1827,6 +1839,8 @@ type
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property PAIS: String read GetPAISValue write SetPAISValue; property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
@ -1866,7 +1880,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{69281F58-47C5-447A-811E-27BAE8C96B1A}'] ['{09C19974-2929-4FA3-9C2E-81C86D19A192}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2333,7 +2347,7 @@ type
{ IEmpleados } { IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable) IEmpleados = interface(IDAStronglyTypedDataTable)
['{9225D67C-D954-4519-BB62-C8FB0EFB9C72}'] ['{2A6F4FA5-EACD-4B61-855C-FB78AF8AB97F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2764,7 +2778,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{FABA6DB9-4D4A-4D85-B09D-8E276690BBEE}'] ['{34A6F19A-C8EC-4868-95DE-A9EF058BCDA3}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2979,7 +2993,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{B9D08C3F-73DF-40A9-8276-51CE26BA7E11}'] ['{A5743C5A-DADA-4A63-8741-5AC78A7E45D2}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3062,7 +3076,7 @@ type
{ IGruposProveedor } { IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable) IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{8EDC5230-73EE-4212-83F1-881C5F46E504}'] ['{649EDBC4-FD69-4670-AFFB-2C573641E8A8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3109,7 +3123,7 @@ type
{ IGruposEmpleado } { IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable) IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{A9B3167E-EF15-42F4-AAD7-2E195697345A}'] ['{1ED96515-2619-4578-B181-09164CB0A100}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3156,7 +3170,7 @@ type
{ IContactos_Refresh } { IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable) IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{983F8897-1B60-47CE-A029-A58FB45854C0}'] ['{8E91D71D-F232-4050-A268-ECEB26CE6A62}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3443,7 +3457,7 @@ type
{ IContratosEmpleados } { IContratosEmpleados }
IContratosEmpleados = interface(IDAStronglyTypedDataTable) IContratosEmpleados = interface(IDAStronglyTypedDataTable)
['{476A9822-5CC7-45FB-BEB1-66DB796FA07A}'] ['{3DFCEC34-6845-4EC6-8A19-BA53BE6B364C}']
{ Property getters and setters } { Property getters and setters }
function GetCONTRATOValue: String; function GetCONTRATOValue: String;
procedure SetCONTRATOValue(const aValue: String); procedure SetCONTRATOValue(const aValue: String);
@ -3478,7 +3492,7 @@ type
{ IDescripcionesProveedores } { IDescripcionesProveedores }
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable) IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
['{0B27EF2B-D61E-4CDE-AEAF-AF2F3275D15D}'] ['{3FFC0F30-8945-4562-817B-36840D881863}']
{ Property getters and setters } { Property getters and setters }
function GetDESCRIPCION_PROVEEDORValue: String; function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@ -3513,7 +3527,7 @@ type
{ IPersonalContacto } { IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable) IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{F8B934DE-AE4E-4C28-90B2-7D81DA8A43FA}'] ['{DE1EDF09-B74A-477F-B8E9-5B41210E97F0}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -5502,6 +5516,27 @@ begin
DataTable.Fields[idx_ClientesPAIS].AsVariant := Null; DataTable.Fields[idx_ClientesPAIS].AsVariant := Null;
end; end;
function TClientesDataTableRules.GetID_AGENTEValue: Integer;
begin
result := DataTable.Fields[idx_ClientesID_AGENTE].AsInteger;
end;
procedure TClientesDataTableRules.SetID_AGENTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesID_AGENTE].AsInteger := aValue;
end;
function TClientesDataTableRules.GetID_AGENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesID_AGENTE].IsNull;
end;
procedure TClientesDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesID_AGENTE].AsVariant := Null;
end;
function TClientesDataTableRules.GetGRUPO_CLIENTEValue: String; function TClientesDataTableRules.GetGRUPO_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString; result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString;

103
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

@ -9,26 +9,26 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ContactosDelta = '{D6DB0142-BEA4-4DC0-B44D-42008D833687}'; RID_ContactosDelta = '{35EC5BF8-126B-441D-B145-43D38FF03722}';
RID_GruposClienteDelta = '{E6162081-3DD9-48ED-91A1-8BD0F798707B}'; RID_GruposClienteDelta = '{27C3BC18-CFA9-4E9E-85F3-F431159A9EB9}';
RID_DatosBancariosDelta = '{C18FF453-BFAF-4639-A681-AB04B74D6517}'; RID_DatosBancariosDelta = '{DF8C8BF9-7D6F-4650-8913-8A888C23E120}';
RID_VendedoresDelta = '{5D018AE5-CDFF-48F1-A1DE-7767FC7DB308}'; RID_VendedoresDelta = '{A6E192F4-3421-443D-958F-A48C8F6731CE}';
RID_ClientesDelta = '{FADEA8D9-97E9-4309-A11D-07D6E35D08B8}'; RID_ClientesDelta = '{0548B10F-D93E-4B76-AA9B-51BFBC04921B}';
RID_ProveedoresDelta = '{E7B3535A-B1BA-4926-AE46-BDD885A62B44}'; RID_ProveedoresDelta = '{16295798-804B-490B-8E29-212CE00362DA}';
RID_EmpleadosDelta = '{3768A3D0-2DBE-4A8A-A120-64D68A76B527}'; RID_EmpleadosDelta = '{3C707336-4534-4AAB-9559-1D77997CF19E}';
RID_DireccionesContactoDelta = '{8210370B-075D-42EC-B0FE-C500A85C1E49}'; RID_DireccionesContactoDelta = '{3959A09C-3EEA-4DCB-8A49-0D2B2AE9C72C}';
RID_ClientesDescuentosDelta = '{20831A5F-CC5C-4301-BC5E-9D2DD8A77A60}'; RID_ClientesDescuentosDelta = '{52224EF5-FDD9-4AA7-B5BE-4A529BD7F2B8}';
RID_GruposProveedorDelta = '{7F668480-9D2B-48D4-8DDE-506796230F77}'; RID_GruposProveedorDelta = '{57A6B910-1DCC-4EB1-BFC1-59F07F6CA76B}';
RID_GruposEmpleadoDelta = '{7AB05FA7-9124-4A83-89B4-79B348BA09CA}'; RID_GruposEmpleadoDelta = '{FE643621-8089-483A-9829-C94F4224CD54}';
RID_Contactos_RefreshDelta = '{4184B8C3-2380-46D4-AA92-8128EE40E17B}'; RID_Contactos_RefreshDelta = '{9DF96FDB-21E2-44F1-93BC-F4C8E9B09720}';
RID_ContratosEmpleadosDelta = '{6A832332-537B-4FD9-A618-5D40690AEDB5}'; RID_ContratosEmpleadosDelta = '{A84D6F08-40EE-46F9-B53E-D6B2AC27F76B}';
RID_DescripcionesProveedoresDelta = '{366EAA53-20C7-4B8C-846C-480DF1C4A4FF}'; RID_DescripcionesProveedoresDelta = '{BED04FB6-DC23-4AB4-BD23-3CBE23CB4E65}';
RID_PersonalContactoDelta = '{E71E7008-5A1D-43BE-98E9-50AB8CB8418B}'; RID_PersonalContactoDelta = '{59A67125-C3DE-4410-BD18-D5267708A007}';
type type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{D6DB0142-BEA4-4DC0-B44D-42008D833687}'] ['{35EC5BF8-126B-441D-B145-43D38FF03722}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -339,7 +339,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{E6162081-3DD9-48ED-91A1-8BD0F798707B}'] ['{27C3BC18-CFA9-4E9E-85F3-F431159A9EB9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -385,7 +385,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{C18FF453-BFAF-4639-A681-AB04B74D6517}'] ['{DF8C8BF9-7D6F-4650-8913-8A888C23E120}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -515,7 +515,7 @@ type
{ IVendedoresDelta } { IVendedoresDelta }
IVendedoresDelta = interface(IVendedores) IVendedoresDelta = interface(IVendedores)
['{5D018AE5-CDFF-48F1-A1DE-7767FC7DB308}'] ['{A6E192F4-3421-443D-958F-A48C8F6731CE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -838,7 +838,7 @@ type
{ IClientesDelta } { IClientesDelta }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{FADEA8D9-97E9-4309-A11D-07D6E35D08B8}'] ['{0548B10F-D93E-4B76-AA9B-51BFBC04921B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -864,6 +864,7 @@ type
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldPAISValue : String; function GetOldPAISValue : String;
function GetOldID_AGENTEValue : Integer;
function GetOldGRUPO_CLIENTEValue : String; function GetOldGRUPO_CLIENTEValue : String;
function GetOldNOMBRE_COMERCIALValue : String; function GetOldNOMBRE_COMERCIALValue : String;
function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt; function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt;
@ -905,6 +906,7 @@ type
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldPAIS : String read GetOldPAISValue; property OldPAIS : String read GetOldPAISValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value; property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value;
@ -1072,6 +1074,12 @@ type
function GetOldPAISIsNull: Boolean; virtual; function GetOldPAISIsNull: Boolean; virtual;
procedure SetPAISValue(const aValue: String); virtual; procedure SetPAISValue(const aValue: String); virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual; procedure SetPAISIsNull(const aValue: Boolean); virtual;
function GetID_AGENTEValue: Integer; virtual;
function GetID_AGENTEIsNull: Boolean; virtual;
function GetOldID_AGENTEValue: Integer; virtual;
function GetOldID_AGENTEIsNull: Boolean; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
function GetGRUPO_CLIENTEValue: String; virtual; function GetGRUPO_CLIENTEValue: String; virtual;
function GetGRUPO_CLIENTEIsNull: Boolean; virtual; function GetGRUPO_CLIENTEIsNull: Boolean; virtual;
function GetOldGRUPO_CLIENTEValue: String; virtual; function GetOldGRUPO_CLIENTEValue: String; virtual;
@ -1260,6 +1268,10 @@ type
property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull; property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
property OldPAIS : String read GetOldPAISValue; property OldPAIS : String read GetOldPAISValue;
property OldPAISIsNull : Boolean read GetOldPAISIsNull; property OldPAISIsNull : Boolean read GetOldPAISIsNull;
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
property GRUPO_CLIENTE : String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTE : String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property GRUPO_CLIENTEIsNull : Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property GRUPO_CLIENTEIsNull : Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
@ -1329,7 +1341,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{E7B3535A-B1BA-4926-AE46-BDD885A62B44}'] ['{16295798-804B-490B-8E29-212CE00362DA}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1796,7 +1808,7 @@ type
{ IEmpleadosDelta } { IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados) IEmpleadosDelta = interface(IEmpleados)
['{3768A3D0-2DBE-4A8A-A120-64D68A76B527}'] ['{3C707336-4534-4AAB-9559-1D77997CF19E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -2231,7 +2243,7 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{8210370B-075D-42EC-B0FE-C500A85C1E49}'] ['{3959A09C-3EEA-4DCB-8A49-0D2B2AE9C72C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -2446,7 +2458,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{20831A5F-CC5C-4301-BC5E-9D2DD8A77A60}'] ['{52224EF5-FDD9-4AA7-B5BE-4A529BD7F2B8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2528,7 +2540,7 @@ type
{ IGruposProveedorDelta } { IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor) IGruposProveedorDelta = interface(IGruposProveedor)
['{7F668480-9D2B-48D4-8DDE-506796230F77}'] ['{57A6B910-1DCC-4EB1-BFC1-59F07F6CA76B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2574,7 +2586,7 @@ type
{ IGruposEmpleadoDelta } { IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado) IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{7AB05FA7-9124-4A83-89B4-79B348BA09CA}'] ['{FE643621-8089-483A-9829-C94F4224CD54}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2620,7 +2632,7 @@ type
{ IContactos_RefreshDelta } { IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh) IContactos_RefreshDelta = interface(IContactos_Refresh)
['{4184B8C3-2380-46D4-AA92-8128EE40E17B}'] ['{9DF96FDB-21E2-44F1-93BC-F4C8E9B09720}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -2907,7 +2919,7 @@ type
{ IContratosEmpleadosDelta } { IContratosEmpleadosDelta }
IContratosEmpleadosDelta = interface(IContratosEmpleados) IContratosEmpleadosDelta = interface(IContratosEmpleados)
['{6A832332-537B-4FD9-A618-5D40690AEDB5}'] ['{A84D6F08-40EE-46F9-B53E-D6B2AC27F76B}']
{ Property getters and setters } { Property getters and setters }
function GetOldCONTRATOValue : String; function GetOldCONTRATOValue : String;
@ -2941,7 +2953,7 @@ type
{ IDescripcionesProveedoresDelta } { IDescripcionesProveedoresDelta }
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores) IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
['{366EAA53-20C7-4B8C-846C-480DF1C4A4FF}'] ['{BED04FB6-DC23-4AB4-BD23-3CBE23CB4E65}']
{ Property getters and setters } { Property getters and setters }
function GetOldDESCRIPCION_PROVEEDORValue : String; function GetOldDESCRIPCION_PROVEEDORValue : String;
@ -2975,7 +2987,7 @@ type
{ IPersonalContactoDelta } { IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto) IPersonalContactoDelta = interface(IPersonalContacto)
['{E71E7008-5A1D-43BE-98E9-50AB8CB8418B}'] ['{59A67125-C3DE-4410-BD18-D5267708A007}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -5807,6 +5819,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAIS] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAIS] := Null;
end; end;
function TClientesBusinessProcessorRules.GetID_AGENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_AGENTE];
end;
function TClientesBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_AGENTE]);
end;
function TClientesBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_AGENTE];
end;
function TClientesBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_AGENTE]);
end;
procedure TClientesBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_AGENTE] := aValue;
end;
procedure TClientesBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_AGENTE] := Null;
end;
function TClientesBusinessProcessorRules.GetGRUPO_CLIENTEValue: String; function TClientesBusinessProcessorRules.GetGRUPO_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];

4
Source/Modulos/Contactos/Model/uBizClientesServer.pas
View File

@ -81,7 +81,7 @@ begin
with ACommand do with ACommand do
begin begin
ParamByName('ID_CLIENTE').Value := aChange.NewValueByName[fld_ClientesID]; ParamByName('ID_CLIENTE').Value := aChange.NewValueByName[fld_ClientesID];
// ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE]; ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]; ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO]; ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO];
@ -122,7 +122,7 @@ begin
begin begin
ParamByName('OLD_ID_CLIENTE').Value := aChange.OldValueByName[fld_ClientesID]; ParamByName('OLD_ID_CLIENTE').Value := aChange.OldValueByName[fld_ClientesID];
ParamByName('ID_CLIENTE').Value := aChange.NewValueByName[fld_ClientesID]; ParamByName('ID_CLIENTE').Value := aChange.NewValueByName[fld_ClientesID];
// ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE]; ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]; ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO]; ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO];

2
Source/Modulos/Contactos/Plugin/Contactos_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */
/* E:\temp\dtf669.tmp */ /* E:\temp\dtf475.tmp */

35
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -817,6 +817,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'DESCUENTO2' DatasetField = 'DESCUENTO2'
TableField = 'DESCUENTO2' TableField = 'DESCUENTO2'
end
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end> end>
end> end>
Name = 'Clientes' Name = 'Clientes'
@ -961,6 +965,10 @@ object srvContactos: TsrvContactos
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'ID_AGENTE'
DataType = datInteger
end
item item
Name = 'GRUPO_CLIENTE' Name = 'GRUPO_CLIENTE'
DataType = datString DataType = datString
@ -3131,6 +3139,11 @@ object srvContactos: TsrvContactos
Name = 'FELICITACION' Name = 'FELICITACION'
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end
item
Name = 'ID_AGENTE'
DataType = datInteger
Value = ''
end> end>
Statements = < Statements = <
item item
@ -3141,12 +3154,12 @@ object srvContactos: TsrvContactos
'ARGO_EQUIVALENCIA, NOMBRE_COMERCIAL,'#10' BLOQUEADO, MOTIVO_BLOQ' + 'ARGO_EQUIVALENCIA, NOMBRE_COMERCIAL,'#10' BLOQUEADO, MOTIVO_BLOQ' +
'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, D' + 'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, D' +
'ESCUENTO, DESCUENTO2,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_F' + 'ESCUENTO, DESCUENTO2,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_F' +
'ACTURAS_2, VENCIMIENTO_FACTURAS_3,'#10' FELICITACION)'#10' VALUES'#10' ' + 'ACTURAS_2, VENCIMIENTO_FACTURAS_3,'#10' FELICITACION, ID_AGENTE)' +
' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NOMBRE_' + #10' VALUES'#10' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCI' +
'COMERCIAL,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_T' + 'A, :NOMBRE_COMERCIAL,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN' +
'IPO_IVA, :ID_FORMA_PAGO,'#10' :TIENDA_WEB, :DESCUENTO, :DESCUENT' + '_IVA, :ID_TIPO_IVA, :ID_FORMA_PAGO,'#10' :TIENDA_WEB, :DESCUENTO' +
'O2,'#10' :VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENC' + ', :DESCUENTO2,'#10' :VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTUR' +
'IMIENTO_FACTURAS_3,'#10' :FELICITACION)'#10 'AS_2, :VENCIMIENTO_FACTURAS_3,'#10' :FELICITACION, :ID_AGENTE)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3332,6 +3345,11 @@ object srvContactos: TsrvContactos
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end end
item
Name = 'ID_AGENTE'
DataType = datInteger
Value = ''
end
item item
Name = 'OLD_ID_CLIENTE' Name = 'OLD_ID_CLIENTE'
Value = '' Value = ''
@ -3350,8 +3368,9 @@ object srvContactos: TsrvContactos
' DESCUENTO = :DESCUENTO,'#10' DESCUENTO2 = :DESCUENTO2,'#10' VE' + ' DESCUENTO = :DESCUENTO,'#10' DESCUENTO2 = :DESCUENTO2,'#10' VE' +
'NCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_' + 'NCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_' +
'FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3' + 'FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3' +
' = :VENCIMIENTO_FACTURAS_3,'#10' FELICITACION = :FELICITACION'#10' W' + ' = :VENCIMIENTO_FACTURAS_3,'#10' FELICITACION = :FELICITACION,'#10' ' +
'HERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10 ' ID_AGENTE = :ID_AGENTE'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIEN' +
'TE)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

114
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,63 +49,63 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="..\Model\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" /> <DCCReference Include="..\Model\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="..\Model\Base.dcp" />
<DCCReference Include="..\bdertl.dcp" /> <DCCReference Include="..\Model\bdertl.dcp" />
<DCCReference Include="..\ccpackD11.dcp" /> <DCCReference Include="..\Model\ccpackD11.dcp" />
<DCCReference Include="..\cfpack_d11.dcp" /> <DCCReference Include="..\Model\cfpack_d11.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" /> <DCCReference Include="..\Model\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" /> <DCCReference Include="..\Model\Contactos_model.dcp" />
<DCCReference Include="..\cxDataD11.dcp" /> <DCCReference Include="..\Model\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" /> <DCCReference Include="..\Model\cxEditorsD11.dcp" />
<DCCReference Include="..\cxExportD11.dcp" /> <DCCReference Include="..\Model\cxExportD11.dcp" />
<DCCReference Include="..\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Model\cxExtEditorsD11.dcp" />
<DCCReference Include="..\cxGridD11.dcp" /> <DCCReference Include="..\Model\cxGridD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" /> <DCCReference Include="..\Model\cxLibraryD11.dcp" />
<DCCReference Include="..\cxPageControlD11.dcp" /> <DCCReference Include="..\Model\cxPageControlD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Model\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" /> <DCCReference Include="..\Model\dbrtl.dcp" />
<DCCReference Include="..\dclcxLibraryD11.dcp" /> <DCCReference Include="..\Model\dclcxLibraryD11.dcp" />
<DCCReference Include="..\designide.dcp" /> <DCCReference Include="..\Model\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" /> <DCCReference Include="..\Model\dsnap.dcp" />
<DCCReference Include="..\dxComnD11.dcp" /> <DCCReference Include="..\Model\dxComnD11.dcp" />
<DCCReference Include="..\dxCoreD11.dcp" /> <DCCReference Include="..\Model\dxCoreD11.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Model\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Model\dxLayoutControlD11.dcp" />
<DCCReference Include="..\dxPSCoreD11.dcp" /> <DCCReference Include="..\Model\dxPSCoreD11.dcp" />
<DCCReference Include="..\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Model\dxPScxCommonD11.dcp" />
<DCCReference Include="..\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Model\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\dxPSLnksD11.dcp" /> <DCCReference Include="..\Model\dxPSLnksD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" /> <DCCReference Include="..\Model\dxThemeD11.dcp" />
<DCCReference Include="..\FormasPago_controller.dcp" /> <DCCReference Include="..\Model\FormasPago_controller.dcp" />
<DCCReference Include="..\FormasPago_model.dcp" /> <DCCReference Include="..\Model\FormasPago_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="..\Model\GUIBase.dcp" />
<DCCReference Include="..\GUISDK_D11R.dcp" /> <DCCReference Include="..\Model\GUISDK_D11R.dcp" />
<DCCReference Include="..\Jcl.dcp" /> <DCCReference Include="..\Model\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" /> <DCCReference Include="..\Model\JclVcl.dcp" />
<DCCReference Include="..\JSDialog100.dcp" /> <DCCReference Include="..\Model\JSDialog100.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" /> <DCCReference Include="..\Model\JvCoreD11R.dcp" />
<DCCReference Include="..\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Model\JvCtrlsD11R.dcp" />
<DCCReference Include="..\JvGlobusD11R.dcp" /> <DCCReference Include="..\Model\JvGlobusD11R.dcp" />
<DCCReference Include="..\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Model\JvPageCompsD11R.dcp" />
<DCCReference Include="..\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Model\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" /> <DCCReference Include="..\Model\JvSystemD11R.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" /> <DCCReference Include="..\Model\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" /> <DCCReference Include="..\Model\PNG_D10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Model\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" /> <DCCReference Include="..\Model\rtl.dcp" />
<DCCReference Include="..\tb2k_d10.dcp" /> <DCCReference Include="..\Model\tb2k_d10.dcp" />
<DCCReference Include="..\tbx_d10.dcp" /> <DCCReference Include="..\Model\tbx_d10.dcp" />
<DCCReference Include="..\TiposIVA_controller.dcp" /> <DCCReference Include="..\Model\TiposIVA_controller.dcp" />
<DCCReference Include="..\TiposIVA_model.dcp" /> <DCCReference Include="..\Model\TiposIVA_model.dcp" />
<DCCReference Include="..\vcl.dcp" /> <DCCReference Include="..\Model\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" /> <DCCReference Include="..\Model\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" /> <DCCReference Include="..\Model\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" /> <DCCReference Include="..\Model\vcljpg.dcp" />
<DCCReference Include="..\vclshlctrls.dcp" /> <DCCReference Include="..\Model\vclshlctrls.dcp" />
<DCCReference Include="..\vclx.dcp" /> <DCCReference Include="..\Model\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" /> <DCCReference Include="..\Model\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas"> <DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form> <Form>fEditorCliente</Form>

2
Source/Modulos/Contactos/Views/Contactos_view.drc
View File

@ -56,4 +56,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\uViewDatosYSeleccionClienteBase.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\uViewDatosYSeleccionClienteBase.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\Contactos_view.res */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\Contactos_view.res */
/* E:\temp\dtf667.tmp */ /* E:\temp\dtf473.tmp */

20
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -470,7 +470,7 @@ inherited fEditorCliente: TfEditorCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 778 Width = 778
Height = 209 Height = 261
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -481,7 +481,7 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 778 ExplicitWidth = 778
ExplicitHeight = 209 ExplicitHeight = 261
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 778 Width = 778
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
@ -500,6 +500,12 @@ inherited fEditorCliente: TfEditorCliente
ExplicitTop = 138 ExplicitTop = 138
ExplicitWidth = 263 ExplicitWidth = 263
end end
inherited Bevel3: TBevel
Top = 203
Width = 385
ExplicitTop = 203
ExplicitWidth = 385
end
inherited eDiasVencimiento1: TcxDBSpinEdit inherited eDiasVencimiento1: TcxDBSpinEdit
Left = 596 Left = 596
Top = 62 Top = 62
@ -598,6 +604,16 @@ inherited fEditorCliente: TfEditorCliente
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 176 ExplicitTop = 176
end end
inherited eVendedor: TcxDBLookupComboBox
Top = 214
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 214
ExplicitWidth = 165
Width = 165
end
end end
end end
end end

90
Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
View File

@ -1,22 +1,29 @@
inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 725 Width = 732
Height = 226 Height = 253
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 725 ExplicitWidth = 732
ExplicitHeight = 226 ExplicitHeight = 253
object Bevel2: TBevel
Left = 22
Top = 136
Width = 385
Height = 5
Shape = bsBottomLine
end
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 725 Width = 732
Height = 217 Height = 255
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
object Label1: TLabel object Label1: TLabel
Left = 447 Left = 466
Top = 28 Top = 28
Width = 227 Width = 227
Height = 26 Height = 26
@ -33,8 +40,15 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Height = 5 Height = 5
Shape = bsBottomLine Shape = bsBottomLine
end end
object Bevel3: TBevel
Left = 22
Top = 201
Width = 385
Height = 5
Shape = bsBottomLine
end
object eDiasVencimiento1: TcxDBSpinEdit object eDiasVencimiento1: TcxDBSpinEdit
Left = 519 Left = 538
Top = 60 Top = 60
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1' DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -58,7 +72,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 9
Width = 79 Width = 79
end end
object cbRegimenIVA: TcxDBComboBox object cbRegimenIVA: TcxDBComboBox
@ -154,7 +168,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 121 Width = 121
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 285 Left = 304
Top = 55 Top = 55
Width = 132 Width = 132
Height = 21 Height = 21
@ -198,7 +212,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 121 Width = 121
end end
object bTiposIVA: TButton object bTiposIVA: TButton
Left = 285 Left = 304
Top = 82 Top = 82
Width = 132 Width = 132
Height = 21 Height = 21
@ -233,7 +247,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 190 Width = 190
end end
object eDiasVencimiento2: TcxDBSpinEdit object eDiasVencimiento2: TcxDBSpinEdit
Left = 519 Left = 538
Top = 87 Top = 87
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_2' DataBinding.DataField = 'VENCIMIENTO_FACTURAS_2'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -256,11 +270,11 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 10
Width = 79 Width = 79
end end
object eDiasVencimiento3: TcxDBSpinEdit object eDiasVencimiento3: TcxDBSpinEdit
Left = 519 Left = 538
Top = 114 Top = 114
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_3' DataBinding.DataField = 'VENCIMIENTO_FACTURAS_3'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -283,7 +297,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 11
Width = 79 Width = 79
end end
object eDescuento2: TcxDBSpinEdit object eDescuento2: TcxDBSpinEdit
@ -312,6 +326,41 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
TabOrder = 7 TabOrder = 7
Width = 190 Width = 190
end end
object eVendedor: TcxDBLookupComboBox
Left = 114
Top = 212
DataBinding.DataField = 'ID_AGENTE'
DataBinding.DataSource = dsDatosComerciales
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'NOMBRE'
end>
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsVendedores
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
Width = 165
end
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -394,6 +443,15 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Control = eDescuento2 Control = eDescuento2
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item15: TdxLayoutItem
Control = Bevel3
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
Caption = 'Vendedor:'
Control = eVendedor
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
@ -429,7 +487,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
end end
end end
end end
object dsAgentes: TDADataSource object dsVendedores: TDADataSource
Left = 40 Left = 40
Top = 8 Top = 8
end end

24
Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas
View File

@ -8,7 +8,7 @@ uses
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, cxControls, cxSpinEdit, cxDBEdit, cxDBLookupEdit, cxDBLookupComboBox, cxControls, cxSpinEdit, cxDBEdit,
uBizContactos, cxCheckBox, StdCtrls, uFormasPagoController, uTiposIVAController, uBizContactos, cxCheckBox, StdCtrls, uFormasPagoController, uTiposIVAController,
uDAInterfaces, uBizFormasPago, uBizTiposIVA, ExtCtrls; uDAInterfaces, uBizFormasPago, uBizTiposIVA, ExtCtrls, uVendedoresController;
type type
IViewClienteDatosComerciales = interface(IViewBase) IViewClienteDatosComerciales = interface(IViewBase)
@ -22,7 +22,7 @@ type
dxLayoutControl1: TdxLayoutControl; dxLayoutControl1: TdxLayoutControl;
dxLayoutGroup1: TdxLayoutGroup; dxLayoutGroup1: TdxLayoutGroup;
dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Group3: TdxLayoutGroup;
dsAgentes: TDADataSource; dsVendedores: TDADataSource;
dxLayoutControl1Item2: TdxLayoutItem; dxLayoutControl1Item2: TdxLayoutItem;
eDiasVencimiento1: TcxDBSpinEdit; eDiasVencimiento1: TcxDBSpinEdit;
dxLayoutControl1Item3: TdxLayoutItem; dxLayoutControl1Item3: TdxLayoutItem;
@ -55,6 +55,11 @@ type
eDiasVencimiento3: TcxDBSpinEdit; eDiasVencimiento3: TcxDBSpinEdit;
dxLayoutControl1Item13: TdxLayoutItem; dxLayoutControl1Item13: TdxLayoutItem;
eDescuento2: TcxDBSpinEdit; eDescuento2: TcxDBSpinEdit;
dxLayoutControl1Item14: TdxLayoutItem;
eVendedor: TcxDBLookupComboBox;
Bevel2: TBevel;
dxLayoutControl1Item15: TdxLayoutItem;
Bevel3: TBevel;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject); procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject);
@ -64,8 +69,10 @@ type
FContacto : IBizContacto; FContacto : IBizContacto;
FTiposIVA : IBizTipoIVA; FTiposIVA : IBizTipoIVA;
FFormasPago : IBizFormaPago; FFormasPago : IBizFormaPago;
FVendedores : IBizContacto;
FFormasPagoController : IFormasPagoController; FFormasPagoController : IFormasPagoController;
FTiposIVAController : ITiposIVAController; FTiposIVAController : ITiposIVAController;
FVendedoresController : IVendedoresController;
function GetContacto: IBizContacto; function GetContacto: IBizContacto;
procedure SetContacto(const Value: IBizContacto); procedure SetContacto(const Value: IBizContacto);
public public
@ -113,7 +120,8 @@ begin
FTiposIVA := Nil; FTiposIVA := Nil;
FFormasPago := Nil; FFormasPago := Nil;
FContacto := Nil; FContacto := Nil;
// FAgentesController := TAgentesController.Create; FVendedores := Nil;
FVendedoresController := TVendedoresController.Create;
FFormasPagoController := TFormasPagoController.Create; FFormasPagoController := TFormasPagoController.Create;
FTiposIVAController := TTiposIVAController.Create; FTiposIVAController := TTiposIVAController.Create;
end; end;
@ -124,7 +132,8 @@ begin
FTiposIVA := Nil; FTiposIVA := Nil;
FFormasPago := Nil; FFormasPago := Nil;
FContacto := Nil; FContacto := Nil;
// FAgentesController := NIL; FVendedores := Nil;
FVendedoresController := NIL;
FFormasPagoController := NIL; FFormasPagoController := NIL;
FTiposIVAController := NIL; FTiposIVAController := NIL;
end; end;
@ -140,8 +149,9 @@ begin
if Assigned(FContacto) then if Assigned(FContacto) then
begin begin
dsDatosComerciales.DataTable := FContacto.DataTable; dsDatosComerciales.DataTable := FContacto.DataTable;
// dsAgentes.DataTable := FAgentesController.BuscarTodos.DataTable; FVendedores := FVendedoresController.BuscarTodos;
// dsAgentes.DataTable.Active := True; dsVendedores.DataTable := FVendedores.DataTable;
dsVendedores.DataTable.Active := True;
FFormasPago := FFormasPagoController.BuscarTodos; FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable; dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True; dsFormaPago.DataTable.Active := True;
@ -151,7 +161,7 @@ begin
end end
else begin else begin
dsDatosComerciales.DataTable := NIL; dsDatosComerciales.DataTable := NIL;
// dsAgentes.DataTable := NIL; dsVendedores.DataTable := NIL;
dsFormaPago.DataTable := NIL; dsFormaPago.DataTable := NIL;
dsTiposIVA.DataTable := NIL; dsTiposIVA.DataTable := NIL;
end end

2
Source/Modulos/Fabricantes/Data/Fabricantes_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Data\uDataModuleFabricantes.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Data\uDataModuleFabricantes.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Data\Fabricantes_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Data\Fabricantes_data.res */
/* E:\temp\dtf677.tmp */ /* E:\temp\dtf483.tmp */

2
Source/Modulos/Fabricantes/Model/Fabricantes_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Model\Fabricantes_model.res */ /* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Model\Fabricantes_model.res */
/* E:\temp\dtf675.tmp */ /* E:\temp\dtf481.tmp */

2
Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas
View File

@ -177,7 +177,7 @@ begin
//de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos. //de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos.
if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
if Assigned(AArticulos) then if Assigned(AArticulos) then
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_PVP_TOTAL ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO
else else
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null; ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
end; end;

4
Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc
View File

@ -12,6 +12,6 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Data\uDataModuleFacturasCliente.DFM */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Data\uDataModuleFacturasCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.res */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.drf */ /* E:\temp\dtf4CF.tmp */

4
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -199,11 +199,9 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
DictionaryEntry = 'FacturasCliente_DATOS_BANCARIOS' DictionaryEntry = 'FacturasCliente_DATOS_BANCARIOS'
end end
item item
Name = 'CLIENTE_FINAL' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Cliente final'
DictionaryEntry = 'FacturasCliente_CLIENTE_FINAL'
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'

2
Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.res */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.res */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.drf */ /* E:\temp\dtf4CD.tmp */

BIN
Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.identcache
View File

Binary file not shown.

64
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -3,15 +3,15 @@ unit schFacturasClienteClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{E39059AE-B71C-4FC8-8DD3-81EBB5116E6B}'; RID_ListaAnosFacturas = '{18E3B38E-05CB-4C64-875A-E3E8DD826B4A}';
RID_FacturasCliente = '{287DAE4D-3DFA-4253-B9B5-0462FEAC4ED5}'; RID_FacturasCliente = '{72415424-F8B7-4DD5-9212-36B4CD96E0E5}';
RID_FacturasCliente_Detalles = '{FA5F5870-5B02-450A-A71C-EB3E455AFA75}'; RID_FacturasCliente_Detalles = '{9C3C3304-5F29-463A-8363-DF71466BD707}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -52,7 +52,7 @@ const
fld_FacturasClientePROVINCIA = 'PROVINCIA'; fld_FacturasClientePROVINCIA = 'PROVINCIA';
fld_FacturasClienteCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_FacturasClienteCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_FacturasClienteDATOS_BANCARIOS = 'DATOS_BANCARIOS'; fld_FacturasClienteDATOS_BANCARIOS = 'DATOS_BANCARIOS';
fld_FacturasClienteCLIENTE_FINAL = 'CLIENTE_FINAL'; fld_FacturasClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
fld_FacturasClienteFECHA_ALTA = 'FECHA_ALTA'; fld_FacturasClienteFECHA_ALTA = 'FECHA_ALTA';
fld_FacturasClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_FacturasClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_FacturasClienteUSUARIO = 'USUARIO'; fld_FacturasClienteUSUARIO = 'USUARIO';
@ -96,7 +96,7 @@ const
idx_FacturasClientePROVINCIA = 24; idx_FacturasClientePROVINCIA = 24;
idx_FacturasClienteCODIGO_POSTAL = 25; idx_FacturasClienteCODIGO_POSTAL = 25;
idx_FacturasClienteDATOS_BANCARIOS = 26; idx_FacturasClienteDATOS_BANCARIOS = 26;
idx_FacturasClienteCLIENTE_FINAL = 27; idx_FacturasClientePERSONA_CONTACTO = 27;
idx_FacturasClienteFECHA_ALTA = 28; idx_FacturasClienteFECHA_ALTA = 28;
idx_FacturasClienteFECHA_MODIFICACION = 29; idx_FacturasClienteFECHA_MODIFICACION = 29;
idx_FacturasClienteUSUARIO = 30; idx_FacturasClienteUSUARIO = 30;
@ -149,7 +149,7 @@ const
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{02245449-B366-4C52-BD24-21593AF9429F}'] ['{C395660C-71FF-4520-ACB6-39D23260DDB9}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -163,7 +163,7 @@ type
end; end;
{ TListaAnosFacturasDataTableRules } { TListaAnosFacturasDataTableRules }
TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas) TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -184,7 +184,7 @@ type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{F26DF140-07D6-46AE-9851-1882FD1CA63E}'] ['{BEC23A5E-4807-4786-937F-D27547B1A4EF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -293,10 +293,10 @@ type
procedure SetDATOS_BANCARIOSValue(const aValue: String); procedure SetDATOS_BANCARIOSValue(const aValue: String);
function GetDATOS_BANCARIOSIsNull: Boolean; function GetDATOS_BANCARIOSIsNull: Boolean;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
function GetCLIENTE_FINALValue: String; function GetPERSONA_CONTACTOValue: String;
procedure SetCLIENTE_FINALValue(const aValue: String); procedure SetPERSONA_CONTACTOValue(const aValue: String);
function GetCLIENTE_FINALIsNull: Boolean; function GetPERSONA_CONTACTOIsNull: Boolean;
procedure SetCLIENTE_FINALIsNull(const aValue: Boolean); procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
function GetFECHA_ALTAValue: DateTime; function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime); procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_ALTAIsNull: Boolean; function GetFECHA_ALTAIsNull: Boolean;
@ -410,8 +410,8 @@ type
property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property CLIENTE_FINAL: String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property CLIENTE_FINALIsNull: Boolean read GetCLIENTE_FINALIsNull write SetCLIENTE_FINALIsNull; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -443,7 +443,7 @@ type
end; end;
{ TFacturasClienteDataTableRules } { TFacturasClienteDataTableRules }
TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente) TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -556,10 +556,10 @@ type
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
function GetDATOS_BANCARIOSIsNull: Boolean; virtual; function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
function GetCLIENTE_FINALValue: String; virtual; function GetPERSONA_CONTACTOValue: String; virtual;
procedure SetCLIENTE_FINALValue(const aValue: String); virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
function GetCLIENTE_FINALIsNull: Boolean; virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
procedure SetCLIENTE_FINALIsNull(const aValue: Boolean); virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual;
@ -672,8 +672,8 @@ type
property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property CLIENTE_FINAL: String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property CLIENTE_FINALIsNull: Boolean read GetCLIENTE_FINALIsNull write SetCLIENTE_FINALIsNull; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -711,7 +711,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{CBAB45E2-2610-41A2-BC17-402FDAE56E26}'] ['{5F50A8F3-8EE1-4976-8180-A2DC77231CDC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -809,7 +809,7 @@ type
end; end;
{ TFacturasCliente_DetallesDataTableRules } { TFacturasCliente_DetallesDataTableRules }
TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles) TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1534,25 +1534,25 @@ begin
DataTable.Fields[idx_FacturasClienteDATOS_BANCARIOS].AsVariant := Null; DataTable.Fields[idx_FacturasClienteDATOS_BANCARIOS].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetCLIENTE_FINALValue: String; function TFacturasClienteDataTableRules.GetPERSONA_CONTACTOValue: String;
begin begin
result := DataTable.Fields[idx_FacturasClienteCLIENTE_FINAL].AsString; result := DataTable.Fields[idx_FacturasClientePERSONA_CONTACTO].AsString;
end; end;
procedure TFacturasClienteDataTableRules.SetCLIENTE_FINALValue(const aValue: String); procedure TFacturasClienteDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin begin
DataTable.Fields[idx_FacturasClienteCLIENTE_FINAL].AsString := aValue; DataTable.Fields[idx_FacturasClientePERSONA_CONTACTO].AsString := aValue;
end; end;
function TFacturasClienteDataTableRules.GetCLIENTE_FINALIsNull: boolean; function TFacturasClienteDataTableRules.GetPERSONA_CONTACTOIsNull: boolean;
begin begin
result := DataTable.Fields[idx_FacturasClienteCLIENTE_FINAL].IsNull; result := DataTable.Fields[idx_FacturasClientePERSONA_CONTACTO].IsNull;
end; end;
procedure TFacturasClienteDataTableRules.SetCLIENTE_FINALIsNull(const aValue: Boolean); procedure TFacturasClienteDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_FacturasClienteCLIENTE_FINAL].AsVariant := Null; DataTable.Fields[idx_FacturasClientePERSONA_CONTACTO].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetFECHA_ALTAValue: DateTime; function TFacturasClienteDataTableRules.GetFECHA_ALTAValue: DateTime;

60
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{2F79221D-DBAF-40B5-AE82-8CA4E267AFE3}'; RID_ListaAnosFacturasDelta = '{AB07EDD0-7B38-4CC2-9C5D-2FBCD2E784AF}';
RID_FacturasClienteDelta = '{22F82387-32E0-42FB-9BCF-6AA6C11881F4}'; RID_FacturasClienteDelta = '{54580672-73BD-4949-859A-E906E7EBCD03}';
RID_FacturasCliente_DetallesDelta = '{04D705AA-0C8D-42E5-98A4-3EA9BBB35577}'; RID_FacturasCliente_DetallesDelta = '{F5138939-68CB-41A9-8AAF-204711F0E911}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{2F79221D-DBAF-40B5-AE82-8CA4E267AFE3}'] ['{AB07EDD0-7B38-4CC2-9C5D-2FBCD2E784AF}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{22F82387-32E0-42FB-9BCF-6AA6C11881F4}'] ['{54580672-73BD-4949-859A-E906E7EBCD03}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -79,7 +79,7 @@ type
function GetOldPROVINCIAValue : String; function GetOldPROVINCIAValue : String;
function GetOldCODIGO_POSTALValue : String; function GetOldCODIGO_POSTALValue : String;
function GetOldDATOS_BANCARIOSValue : String; function GetOldDATOS_BANCARIOSValue : String;
function GetOldCLIENTE_FINALValue : String; function GetOldPERSONA_CONTACTOValue : String;
function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
@ -123,7 +123,7 @@ type
property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldPROVINCIA : String read GetOldPROVINCIAValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldCLIENTE_FINAL : String read GetOldCLIENTE_FINALValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
@ -308,12 +308,12 @@ type
function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual; function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
function GetCLIENTE_FINALValue: String; virtual; function GetPERSONA_CONTACTOValue: String; virtual;
function GetCLIENTE_FINALIsNull: Boolean; virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
function GetOldCLIENTE_FINALValue: String; virtual; function GetOldPERSONA_CONTACTOValue: String; virtual;
function GetOldCLIENTE_FINALIsNull: Boolean; virtual; function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
procedure SetCLIENTE_FINALValue(const aValue: String); virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
procedure SetCLIENTE_FINALIsNull(const aValue: Boolean); virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual;
@ -508,10 +508,10 @@ type
property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull; property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull;
property CLIENTE_FINAL : String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue; property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property CLIENTE_FINALIsNull : Boolean read GetCLIENTE_FINALIsNull write SetCLIENTE_FINALIsNull; property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property OldCLIENTE_FINAL : String read GetOldCLIENTE_FINALValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldCLIENTE_FINALIsNull : Boolean read GetOldCLIENTE_FINALIsNull; property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
@ -577,7 +577,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{04D705AA-0C8D-42E5-98A4-3EA9BBB35577}'] ['{F5138939-68CB-41A9-8AAF-204711F0E911}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -1681,35 +1681,35 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDATOS_BANCARIOS] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDATOS_BANCARIOS] := Null;
end; end;
function TFacturasClienteBusinessProcessorRules.GetCLIENTE_FINALValue: String; function TFacturasClienteBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCLIENTE_FINAL]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePERSONA_CONTACTO];
end; end;
function TFacturasClienteBusinessProcessorRules.GetCLIENTE_FINALIsNull: Boolean; function TFacturasClienteBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCLIENTE_FINAL]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePERSONA_CONTACTO]);
end; end;
function TFacturasClienteBusinessProcessorRules.GetOldCLIENTE_FINALValue: String; function TFacturasClienteBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCLIENTE_FINAL]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClientePERSONA_CONTACTO];
end; end;
function TFacturasClienteBusinessProcessorRules.GetOldCLIENTE_FINALIsNull: Boolean; function TFacturasClienteBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCLIENTE_FINAL]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClientePERSONA_CONTACTO]);
end; end;
procedure TFacturasClienteBusinessProcessorRules.SetCLIENTE_FINALValue(const aValue: String); procedure TFacturasClienteBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCLIENTE_FINAL] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePERSONA_CONTACTO] := aValue;
end; end;
procedure TFacturasClienteBusinessProcessorRules.SetCLIENTE_FINALIsNull(const aValue: Boolean); procedure TFacturasClienteBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCLIENTE_FINAL] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePERSONA_CONTACTO] := Null;
end; end;
function TFacturasClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; function TFacturasClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;

27
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -44,7 +44,6 @@ type
// procedure CalcularDescuento; // procedure CalcularDescuento;
procedure CalcularIVA; procedure CalcularIVA;
procedure CalcularRE; procedure CalcularRE;
procedure CalcularRetencion;
procedure CalcularBaseImponible; procedure CalcularBaseImponible;
procedure AsignarTipoIVA (IDTipoIVA : Integer); procedure AsignarTipoIVA (IDTipoIVA : Integer);
@ -68,9 +67,9 @@ type
procedure IMPORTE_NETOOnChange(Sender: TDACustomField); procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField); procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
procedure DESCUENTOOnChange(Sender: TDACustomField); procedure DESCUENTOOnChange(Sender: TDACustomField);
procedure DESCUENTO2OnChange(Sender: TDACustomField);
procedure IVAOnChange(Sender: TDACustomField); procedure IVAOnChange(Sender: TDACustomField);
procedure REOnChange(Sender: TDACustomField); procedure REOnChange(Sender: TDACustomField);
procedure RetencionOnChange(Sender: TDACustomField);
procedure OnNewRecord(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
@ -138,7 +137,8 @@ begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100); IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100);
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE; IMPORTE_DESCUENTO2 := IMPORTE_NETO * (DESCUENTO2/100);
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO - IMPORTE_DESCUENTO2 + IMPORTE_PORTE;
end; end;
{procedure TBizFacturaCliente.CalcularDescuento; {procedure TBizFacturaCliente.CalcularDescuento;
@ -156,7 +156,6 @@ begin
CalcularBaseImponible; CalcularBaseImponible;
CalcularIVA; CalcularIVA;
CalcularRE; CalcularRE;
CalcularRetencion;
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
@ -181,13 +180,6 @@ begin
IMPORTE_RE := (RE / 100) * BASE_IMPONIBLE; IMPORTE_RE := (RE / 100) * BASE_IMPONIBLE;
end; end;
procedure TBizFacturaCliente.CalcularRetencion;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_RETENCION := (RETENCION / 100) * BASE_IMPONIBLE;
end;
constructor TBizFacturaCliente.Create(aDataTable: TDADataTable); constructor TBizFacturaCliente.Create(aDataTable: TDADataTable);
begin begin
inherited; inherited;
@ -201,9 +193,9 @@ begin
FieldByName(fld_FacturasClienteIMPORTE_NETO).OnChange := IMPORTE_NETOOnChange; FieldByName(fld_FacturasClienteIMPORTE_NETO).OnChange := IMPORTE_NETOOnChange;
FieldByName(fld_FacturasClienteIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange; FieldByName(fld_FacturasClienteIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange;
FieldByName(fld_FacturasClienteDESCUENTO).OnChange := DESCUENTOOnChange; FieldByName(fld_FacturasClienteDESCUENTO).OnChange := DESCUENTOOnChange;
FieldByName(fld_FacturasClienteDESCUENTO2).OnChange := DESCUENTO2OnChange;
FieldByName(fld_FacturasClienteIVA).OnChange := IVAOnChange; FieldByName(fld_FacturasClienteIVA).OnChange := IVAOnChange;
FieldByName(fld_FacturasClienteRE).OnChange := REOnChange; FieldByName(fld_FacturasClienteRE).OnChange := REOnChange;
FieldByName(fld_FacturasClienteRetencion).OnChange := RetencionOnChange;
end; end;
FDetallesLink := TDADataSource.Create(NIL); FDetallesLink := TDADataSource.Create(NIL);
@ -212,6 +204,11 @@ begin
FSeleccionableInterface := TSeleccionable.Create(aDataTable); FSeleccionableInterface := TSeleccionable.Create(aDataTable);
end; end;
procedure TBizFacturaCliente.DESCUENTO2OnChange(Sender: TDACustomField);
begin
CalcularImporteTotal;
end;
procedure TBizFacturaCliente.DESCUENTOOnChange(Sender: TDACustomField); procedure TBizFacturaCliente.DESCUENTOOnChange(Sender: TDACustomField);
begin begin
CalcularImporteTotal; CalcularImporteTotal;
@ -294,11 +291,6 @@ begin
CalcularImporteTotal; CalcularImporteTotal;
end; end;
procedure TBizFacturaCliente.RetencionOnChange(Sender: TDACustomField);
begin
CalcularImporteTotal;
end;
procedure TBizFacturaCliente.SetCliente(AValue: IBizCliente); procedure TBizFacturaCliente.SetCliente(AValue: IBizCliente);
var var
bEnEdicion : Boolean; bEnEdicion : Boolean;
@ -327,6 +319,7 @@ begin
ID_TIPO_IVA := FCliente.ID_TIPO_IVA; ID_TIPO_IVA := FCliente.ID_TIPO_IVA;
RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA; RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA;
DESCUENTO := FCliente.DESCUENTO; DESCUENTO := FCliente.DESCUENTO;
DESCUENTO2 := FCliente.DESCUENTO2;
Post; Post;
if bEnEdicion then if bEnEdicion then

2
Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Plugin\uPluginFacturasCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Plugin\uPluginFacturasCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.res */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.res */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.drf */ /* E:\temp\dtf525.tmp */

49
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -184,10 +184,6 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'DATOS_BANCARIOS' DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS' TableField = 'DATOS_BANCARIOS'
end end
item
DatasetField = 'CLIENTE_FINAL'
TableField = 'CLIENTE_FINAL'
end
item item
DatasetField = 'ID_DIRECCION' DatasetField = 'ID_DIRECCION'
TableField = 'ID_DIRECCION' TableField = 'ID_DIRECCION'
@ -215,6 +211,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item item
DatasetField = 'IMPORTE_DESCUENTO2' DatasetField = 'IMPORTE_DESCUENTO2'
TableField = 'IMPORTE_DESCUENTO2' TableField = 'IMPORTE_DESCUENTO2'
end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
end> end>
end> end>
Name = 'FacturasCliente' Name = 'FacturasCliente'
@ -365,10 +365,9 @@ object srvFacturasCliente: TsrvFacturasCliente
DictionaryEntry = 'FacturasCliente_DATOS_BANCARIOS' DictionaryEntry = 'FacturasCliente_DATOS_BANCARIOS'
end end
item item
Name = 'CLIENTE_FINAL' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'FacturasCliente_CLIENTE_FINAL'
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
@ -985,7 +984,7 @@ object srvFacturasCliente: TsrvFacturasCliente
Value = '' Value = ''
end end
item item
Name = 'CLIENTE_FINAL' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
@ -1025,19 +1024,19 @@ object srvFacturasCliente: TsrvFacturasCliente
'CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUAR' + 'CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUAR' +
'IO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA' + 'IO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA' +
','#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS,'#10' ' + ','#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS,'#10' ' +
'CLIENTE_FINAL,'#10' RETENCION,'#10' IMPORTE_RETENCION,'#10' DESCUEN' + 'PERSONA_CONTACTO,'#10' RETENCION,'#10' IMPORTE_RETENCION,'#10' DESC' +
'TO2,'#10' IMPORTE_DESCUENTO2)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA' + 'UENTO2,'#10' IMPORTE_DESCUENTO2)'#10' VALUES ('#10' :ID,'#10' :ID_EMPR' +
','#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' ' + 'ESA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO' +
' :FECHA_RETENCION,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :I' + ','#10' :FECHA_RETENCION,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' ' +
'MPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPO' + ' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :I' +
'RTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,' + 'MPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIEN' +
#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' :' + 'TE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' ' +
'POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10 + ' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALT' +
' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :' + 'A,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' ' +
'RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :' + ' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' ' +
'IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :CLIENTE_FINAL,'#10' :RE' + ' :IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :PERSONA_CONTACTO,'#10' ' +
'TENCION,'#10' :IMPORTE_RETENCION,'#10' :DESCUENTO2,'#10' :IMPORTE_D' + ' :RETENCION,'#10' :IMPORTE_RETENCION,'#10' :DESCUENTO2,'#10' :IMP' +
'ESCUENTO2);'#10 'ORTE_DESCUENTO2);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1210,7 +1209,7 @@ object srvFacturasCliente: TsrvFacturasCliente
Value = '' Value = ''
end end
item item
Name = 'CLIENTE_FINAL' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
@ -1260,10 +1259,10 @@ object srvFacturasCliente: TsrvFacturasCliente
'RMA_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' ' + 'RMA_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' ' +
'ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' ' + 'ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' ' +
' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_B' + ' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_B' +
'ANCARIOS,'#10' CLIENTE_FINAL = :CLIENTE_FINAL,'#10' RETENCION = :R' + 'ANCARIOS,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' RETENCIO' +
'ETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' DESCUE' + 'N = :RETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' ' +
'NTO2 = :DESCUENTO2,'#10' IMPORTE_DESCUENTO2 = :IMPORTE_DESCUENTO2' + 'DESCUENTO2 = :DESCUENTO2,'#10' IMPORTE_DESCUENTO2 = :IMPORTE_DESC' +
#10' WHERE'#10' (ID = :OLD_ID);'#10 'UENTO2'#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

2
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc
View File

@ -18,11 +18,11 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uViewDatosYSeleccionClienteFacturaCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uViewDatosYSeleccionClienteFacturaCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uViewFacturaCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uViewFacturaCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uViewDetallesFacturaCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uViewDetallesFacturaCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uViewTotalesFactura.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uEditorFacturaCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uEditorFacturaCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uEditorFacturasClienteReport.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uEditorFacturasClienteReport.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uViewElegirArticulosFacturasCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uViewElegirArticulosFacturasCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uEditorElegirArticulosFacturaCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uEditorElegirArticulosFacturaCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uEditorElegirFacturasCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uEditorElegirFacturasCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uViewTotalesFactura.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.drf */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.drf */

48
Source/Modulos/Facturas de cliente/Views/uEditorElegirArticulosFacturaCliente.dfm
View File

@ -1,7 +1,51 @@
inherited fEditorElegirArticulosFacturaCliente: TfEditorElegirArticulosFacturaCliente inherited fEditorElegirArticulosFacturaCliente: TfEditorElegirArticulosFacturaCliente
Caption = 'fEditorElegirArticulosFacturaCliente' Caption = 'fEditorElegirArticulosFacturaCliente'
ExplicitWidth = 320 ExplicitHeight = 538
ExplicitHeight = 478
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
ExplicitTop = 113
end
inherited TBXDock: TTBXDock
ExplicitTop = 64
inherited tbxMain: TTBXToolbar
Left = 346
DockPos = 346
ExplicitLeft = 346
ExplicitWidth = 126
end
inherited tbxFiltro: TTBXToolbar
Left = 3
DockPos = 3
ExplicitLeft = 3
end
inherited TBXTMain2: TTBXToolbar
Left = 472
ExplicitLeft = 472
end
end
inherited pnlHeader: TPanel
ExplicitTop = 0
inherited lblTitle: TLabel
Width = 606
end
inherited lblComments: TLabel
Width = 581
Height = 24
end
end
inherited EditorActionList: TActionList
inherited actNuevo: TAction
Enabled = False
Visible = False
end
inherited actModificar: TAction
Enabled = False
Visible = False
end
inherited actExportarExcel: TAction
Enabled = False
Visible = False
end
end
end end

450
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -2,20 +2,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Left = 454 Left = 454
Top = 208 Top = 208
Caption = 'Nueva factura de cliente' Caption = 'Nueva factura de cliente'
ClientHeight = 608 ClientHeight = 649
ClientWidth = 812 ClientWidth = 902
Position = poScreenCenter Position = poScreenCenter
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 820 ExplicitWidth = 910
ExplicitHeight = 642 ExplicitHeight = 683
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 812 Width = 902
Caption = 'Nueva factura de cliente' Caption = 'Nueva factura de cliente'
ExplicitWidth = 812 ExplicitWidth = 812
inherited Image1: TImage inherited Image1: TImage
Left = 785 Left = 875
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -38,17 +38,17 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitLeft = 742 ExplicitLeft = 742
end end
inherited lblDesbloquear: TcxLabel inherited lblDesbloquear: TcxLabel
Left = 687 Left = 777
ExplicitLeft = 687 ExplicitLeft = 687
AnchorX = 732 AnchorX = 822
AnchorY = 14 AnchorY = 14
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 812 Width = 902
ExplicitWidth = 812 ExplicitWidth = 812
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 613 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -66,7 +66,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 812 ExplicitWidth = 902
inherited TBXSubmenuItem4: TTBXSubmenuItem inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem inherited TBXItem8: TTBXItem
Visible = False Visible = False
@ -87,21 +87,21 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 806 Width = 896
Height = 312 Height = 351
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 806 ExplicitWidth = 806
ExplicitHeight = 312 ExplicitHeight = 310
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 798 ExplicitWidth = 798
ExplicitHeight = 284 ExplicitHeight = 282
inline frViewFacturaCliente1: TfrViewFacturaCliente inline frViewFacturaCliente1: TfrViewFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 798 Width = 888
Height = 284 Height = 323
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -112,21 +112,15 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 798 ExplicitWidth = 798
ExplicitHeight = 284 ExplicitHeight = 282
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 798 Width = 888
Height = 284 Height = 323
ExplicitWidth = 798 ExplicitWidth = 798
ExplicitHeight = 284 ExplicitHeight = 282
DesignSize = ( DesignSize = (
798 888
284) 323)
inherited Label1: TLabel
Left = 378
Width = 311
ExplicitLeft = 378
ExplicitWidth = 311
end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -148,10 +142,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 351 ExplicitWidth = 844
ExplicitHeight = 136 ExplicitHeight = 58
Height = 136 Height = 58
Width = 351 Width = 844
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -162,8 +156,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 111 Width = 111
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 196 Left = 244
ExplicitLeft = 196 ExplicitLeft = 244
end end
inherited cbCuentaBancaria: TcxDBComboBox inherited cbCuentaBancaria: TcxDBComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -173,24 +167,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 249 ExplicitWidth = 249
Width = 249 Width = 249
end end
inherited cbClienteFinal: TcxDBTextEdit
Left = 378
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 378
ExplicitWidth = 339
Width = 339
end
inherited bElegirClienteFinal: TButton
Left = 725
ExplicitLeft = 725
end
inherited frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente inherited frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente
Left = 367 Left = 415
Width = 505 Width = 505
ExplicitLeft = 367 ExplicitLeft = 415
ExplicitWidth = 505 ExplicitWidth = 505
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 505 Width = 505
@ -203,18 +183,34 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 224 Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 279 Left = 321
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 279 ExplicitLeft = 321
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 190 Left = 232
ExplicitLeft = 190 ExplicitLeft = 232
end end
inherited edtDireccion: TcxTextEdit inherited Button4: TButton
Left = 401
ExplicitLeft = 401
end
inherited edtPersonaContacto: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 403
Width = 403
end
inherited Button5: TButton
Left = 401
ExplicitLeft = 401
end
inherited edtDireccion: TcxMemo
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -222,10 +218,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited Button4: TButton
Left = 359
ExplicitLeft = 359
end
end end
end end
inherited edtFechaVemcimiento: TcxDBDateEdit inherited edtFechaVemcimiento: TcxDBDateEdit
@ -242,11 +234,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitWidth = 798
ExplicitHeight = 282
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 798 Width = 888
Height = 284 Height = 323
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -259,110 +253,115 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 798 ExplicitWidth = 798
ExplicitHeight = 284 ExplicitHeight = 282
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 798 Width = 888
Height = 46 Height = 51
ExplicitWidth = 798 ExplicitWidth = 798
ExplicitHeight = 46 ExplicitHeight = 73
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Left = 278 Left = 278
Top = 0 Top = 0
Wrap = True
ExplicitLeft = 278 ExplicitLeft = 278
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton14: TToolButton
Left = 0
Wrap = False
ExplicitLeft = 0
end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 65 Left = 334
Top = 22 Top = 0
ExplicitTop = 22 ExplicitLeft = 334
ExplicitTop = 0
end
inherited ToolButton14: TToolButton
Left = 479
Top = 0
ExplicitLeft = 479
ExplicitTop = 0
end end
inherited FontSize: TEdit inherited FontSize: TEdit
Top = 22 Left = 544
Top = 0
Width = 248 Width = 248
ExplicitTop = 22 ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 248 ExplicitWidth = 248
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 393 Left = 792
Top = 22 Top = 0
ExplicitLeft = 393 ExplicitLeft = 792
ExplicitTop = 22 ExplicitTop = 0
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 410
Top = 22
ExplicitLeft = 410
ExplicitTop = 22
end
inherited ToolButton6: TToolButton
Left = 418
Top = 22
ExplicitLeft = 418
ExplicitTop = 22
end
inherited ToolButton7: TToolButton
Left = 484
Top = 22
ExplicitLeft = 484
ExplicitTop = 22
end
inherited ToolButton8: TToolButton
Left = 551
Top = 22
ExplicitLeft = 551
ExplicitTop = 22
end
inherited ToolButton12: TToolButton
Left = 0 Left = 0
Top = 22 Top = 0
Wrap = True Wrap = True
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 22 ExplicitTop = 0
ExplicitHeight = 27 ExplicitHeight = 27
end end
inherited ToolButton9: TToolButton inherited ToolButton11: TToolButton
Left = 0 Left = 0
Top = 49 Top = 27
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 49 ExplicitTop = 27
end
inherited ToolButton12: TToolButton
Left = 141
Top = 27
Wrap = False
ExplicitLeft = 141
ExplicitTop = 27
ExplicitHeight = 22
end
inherited ToolButton9: TToolButton
Left = 149
Top = 27
ExplicitLeft = 149
ExplicitTop = 27
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 145 Left = 294
Top = 49 Top = 27
ExplicitLeft = 145 ExplicitLeft = 294
ExplicitTop = 49 ExplicitTop = 27
end end
inherited ToolButton11: TToolButton inherited ToolButton6: TToolButton
Left = 270 Left = 419
Top = 49 Top = 27
ExplicitLeft = 270 ExplicitLeft = 419
ExplicitTop = 49 ExplicitTop = 27
end
inherited ToolButton7: TToolButton
Left = 485
Top = 27
Wrap = False
ExplicitLeft = 485
ExplicitTop = 27
end
inherited ToolButton8: TToolButton
Left = 552
Top = 27
ExplicitLeft = 552
ExplicitTop = 27
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 99 Top = 77
Width = 798 Width = 888
Height = 185 Height = 246
ExplicitTop = 104
ExplicitWidth = 798 ExplicitWidth = 798
ExplicitHeight = 180 ExplicitHeight = 183
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 73 Top = 51
Width = 798 Width = 888
ExplicitTop = 78 ExplicitTop = 73
ExplicitWidth = 798 ExplicitWidth = 798
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 798 ExplicitWidth = 838
end end
end end
inherited cxGridPopupMenu: TcxGridPopupMenu inherited cxGridPopupMenu: TcxGridPopupMenu
@ -378,8 +377,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 589 Top = 630
Width = 812 Width = 902
Panels = < Panels = <
item item
Width = 200 Width = 200
@ -387,11 +386,11 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 589 ExplicitTop = 589
ExplicitWidth = 812 ExplicitWidth = 812
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotalesFactura1: TfrViewTotalesFactura [4]
Left = 0 Left = 0
Top = 394 Top = 433
Width = 812 Width = 902
Height = 195 Height = 197
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -401,258 +400,139 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitTop = 394 ExplicitTop = 392
ExplicitWidth = 812 ExplicitWidth = 812
ExplicitHeight = 195 ExplicitHeight = 197
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 812 Width = 902
Height = 195 Height = 197
LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1
ExplicitWidth = 812 ExplicitWidth = 812
ExplicitHeight = 195 ExplicitHeight = 197
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 405 Left = 472
Top = 30 ExplicitLeft = 472
Height = 122
ExplicitLeft = 405
ExplicitTop = 30
ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 517 Left = 584
Top = 60 Width = 317
Width = 192 ExplicitLeft = 584
ExplicitLeft = 517 ExplicitWidth = 317
ExplicitTop = 60
ExplicitWidth = 192
end
inherited Bevel1: TBevel
Left = 517
Top = 164
Width = 368
ExplicitLeft = 517
ExplicitTop = 164
ExplicitWidth = 368
end
inherited Bevel2: TBevel
Top = 190
Width = 368
ExplicitTop = 190
ExplicitWidth = 368
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Top = 57
Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitWidth = 184
Width = 184
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 588 Left = 655
Top = 83
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 655
ExplicitTop = 83
ExplicitWidth = 249
Width = 249
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 518 Left = 585
Top = 137
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 518 ExplicitLeft = 585
ExplicitTop = 137
ExplicitWidth = 319
Width = 319
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Top = 57
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 517 Left = 584
Top = 83
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 517 ExplicitLeft = 584
ExplicitTop = 83
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 517 Left = 584
Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 517 ExplicitLeft = 584
ExplicitTop = 30
ExplicitWidth = 320
Width = 320
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 517 Left = 584
Top = 110
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 517 ExplicitLeft = 584
ExplicitTop = 110
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 588 Left = 655
Top = 110
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 655
ExplicitTop = 110
ExplicitWidth = 249
Width = 249
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30
ExplicitWidth = 255
Width = 255
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Top = 84
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
ExplicitWidth = 255
Width = 255
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Top = 111
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111
ExplicitWidth = 117
Width = 117
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 257 Left = 324
Top = 111 ExplicitLeft = 324
ExplicitLeft = 257
ExplicitTop = 111
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 138
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138 ExplicitWidth = 221
ExplicitWidth = 255 Width = 221
Width = 255
end end
inherited edtRetencion: TcxDBSpinEdit inherited eDescuento2: TcxDBSpinEdit
Left = 517
Top = 184
DataBinding.DataField = 'RETENCION'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 517
ExplicitTop = 184
end end
inherited edtImporteRetencion: TcxDBCurrencyEdit inherited eImporteDto2: TcxDBCurrencyEdit
Left = 588
Top = 184
DataBinding.DataField = 'IMPORTE_RETENCION'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitWidth = 293
ExplicitTop = 184 Width = 293
ExplicitWidth = 152
Width = 152
end
inherited edtFechaRetencion: TcxDBDateEdit
Top = 210
DataBinding.DataField = 'FECHA_RETENCION'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 210
ExplicitWidth = 150
Width = 150
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Group7: TdxLayoutGroup
inherited dxLayoutControl1Item9: TdxLayoutItem
Visible = False
end
end
inherited dxLayoutControl1Item16: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item21: TdxLayoutItem
Visible = True
end
end
inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Item14: TdxLayoutItem
Offsets.Bottom = 3
Offsets.Top = 3
end
inherited dxLayoutControl1Group8: TdxLayoutGroup
Visible = False
inherited dxLayoutControl1Item7: TdxLayoutItem
Visible = True
end
end
inherited dxLayoutControl1Group11: TdxLayoutGroup
Visible = True
end
end
end
end
end end
end end
end end
@ -662,7 +542,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object actEnviarEMail: TAction object actEnviarEMail: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Enviar por e-mail...' Caption = 'Enviar por e-mail...'
Enabled = False
ImageIndex = 21 ImageIndex = 21
Visible = False
OnExecute = actEnviarEMailExecute OnExecute = actEnviarEMailExecute
OnUpdate = actEnviarEMailUpdate OnUpdate = actEnviarEMailUpdate
end end

22
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -17,19 +17,19 @@ uses
uViewDetallesFacturaCliente, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewDetallesFacturaCliente, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar,
uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uDAInterfaces, uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uDAInterfaces,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Grids, DBGrids, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Grids, DBGrids,
uViewDetallesArticulosParaVenta, cxLabel; uViewDetallesArticulosParaVenta, cxLabel, uViewTotalesFactura;
type type
TfEditorFacturaCliente = class(TfEditorDBItem, IEditorFacturaCliente) TfEditorFacturaCliente = class(TfEditorDBItem, IEditorFacturaCliente)
frViewFacturaCliente1: TfrViewFacturaCliente; frViewFacturaCliente1: TfrViewFacturaCliente;
frViewTotales1: TfrViewTotales;
frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente; frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente;
actEnviarEMail: TAction; actEnviarEMail: TAction;
TBXSeparatorItem6: TTBXSeparatorItem; TBXSeparatorItem6: TTBXSeparatorItem;
TBXItem7: TTBXItem; TBXItem7: TTBXItem;
TBXSubmenuItem2: TTBXSubmenuItem; TBXSubmenuItem2: TTBXSubmenuItem;
TBXItem33: TTBXItem; TBXItem33: TTBXItem;
frViewTotalesFactura1: TfrViewTotalesFactura;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure frViewClienteFactura1edtlNombrePropertiesEditValueChanged(Sender: TObject); procedure frViewClienteFactura1edtlNombrePropertiesEditValueChanged(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure dsDataTableDataChange(Sender: TObject; Field: TField);
@ -181,9 +181,9 @@ procedure TfEditorFacturaCliente.FormCloseQuery(Sender: TObject; var CanClose: B
begin begin
inherited; inherited;
frViewTotales1.cbRecargoEquivalencia.Properties.OnEditValueChanged := nil; frViewTotalesFactura1.cbRecargoEquivalencia.Properties.OnEditValueChanged := nil;
frViewTotales1.eIVA.Properties.OnValidate := nil; frViewTotalesFactura1.eIVA.Properties.OnValidate := nil;
frViewTotales1.ePorte.Properties.OnValidate := nil; frViewTotalesFactura1.ePorte.Properties.OnValidate := nil;
end; end;
procedure TfEditorFacturaCliente.FormShow(Sender: TObject); procedure TfEditorFacturaCliente.FormShow(Sender: TObject);
@ -352,9 +352,9 @@ begin
FFactura.DataTable.Edit; FFactura.DataTable.Edit;
// Actualizar IVA y RE a partir del tipo de IVA del cliente. // Actualizar IVA y RE a partir del tipo de IVA del cliente.
Factura.IVA := ((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).IVA; Factura.IVA := ((frViewTotalesFactura1.dsTiposIVA.DataTable) as IBizTipoIVA).IVA;
if FFactura.Cliente.RECARGO_EQUIVALENCIA = 1 then if FFactura.Cliente.RECARGO_EQUIVALENCIA = 1 then
Factura.RE := ((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).RE Factura.RE := ((frViewTotalesFactura1.dsTiposIVA.DataTable) as IBizTipoIVA).RE
else else
Factura.RE := 0; Factura.RE := 0;
@ -461,10 +461,10 @@ begin
if Assigned(FFactura) then if Assigned(FFactura) then
begin begin
dsDataTable.DataTable := FFactura.DataTable; dsDataTable.DataTable := FFactura.DataTable;
frViewTotales1.DADataSource.DataTable := FFactura.DataTable; frViewTotalesFactura1.DADataSource.DataTable := FFactura.DataTable;
FTiposIVA := FTiposIVAController.BuscarTodos; FTiposIVA := FTiposIVAController.BuscarTodos;
frViewTotales1.dsTiposIVA.DataTable := FTiposIVA.DataTable; frViewTotalesFactura1.dsTiposIVA.DataTable := FTiposIVA.DataTable;
FTiposIVA.DataTable.Active := True; FTiposIVA.DataTable.Active := True;
if Assigned(FViewFactura) then if Assigned(FViewFactura) then
@ -482,8 +482,8 @@ begin
else begin else begin
ViewFacturaCliente.ViewClienteFactura.OnClienteChanged := NIL; ViewFacturaCliente.ViewClienteFactura.OnClienteChanged := NIL;
dsDataTable.DataTable := NIL; dsDataTable.DataTable := NIL;
frViewTotales1.DADataSource.DataTable := NIL; frViewTotalesFactura1.DADataSource.DataTable := NIL;
frViewTotales1.dsTiposIVA.DataTable := NIL; frViewTotalesFactura1.dsTiposIVA.DataTable := NIL;
end end
end; end;

21
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
View File

@ -38,7 +38,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Width = 842 Width = 842
ExplicitWidth = 842 ExplicitWidth = 842
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 842 ExplicitWidth = 632
object TBXSubmenuItem2: TTBXSubmenuItem [0] object TBXSubmenuItem2: TTBXSubmenuItem [0]
Caption = 'Nuevo' Caption = 'Nuevo'
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -80,7 +80,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Left = 427 Left = 427
Visible = True Visible = True
ExplicitLeft = 427 ExplicitLeft = 427
ExplicitWidth = 66
object TBXItem41: TTBXItem object TBXItem41: TTBXItem
Action = actInformes Action = actInformes
end end
@ -247,6 +246,10 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
inherited actDuplicar: TAction inherited actDuplicar: TAction
Hint = 'Generar una factura nueva a partir de la factura seleccionada' Hint = 'Generar una factura nueva a partir de la factura seleccionada'
end end
inherited actExportarExcel: TAction
Enabled = False
Visible = False
end
object actNuevaFactura: TAction object actNuevaFactura: TAction
Category = 'Archivo' Category = 'Archivo'
Caption = 'Factura' Caption = 'Factura'
@ -262,12 +265,16 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
object actEnviarEMail: TAction object actEnviarEMail: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Enviar por e-mail...' Caption = 'Enviar por e-mail...'
Enabled = False
Visible = False
OnExecute = actEnviarEMailExecute OnExecute = actEnviarEMailExecute
OnUpdate = actEnviarEMailUpdate OnUpdate = actEnviarEMailUpdate
end end
object actInformes: TAction object actInformes: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Informes' Caption = 'Informes'
Enabled = False
Visible = False
OnExecute = actInformesExecute OnExecute = actInformesExecute
end end
end end
@ -1904,15 +1911,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Default = True Default = True
end end
item item
Caption = 'Utilizar uno o m'#225's presupuestos de cliente.' Caption = 'Utilizar un albar'#225'n de cliente.'
Value = 200
Info.Strings = (
'Puede utilizar uno o m'#225's presupuestos existentes para dar de alt' +
'a una factura nueva.')
end
item
Caption = 'Utilizar uno o m'#225's albaranes de cliente.'
Value = 300 Value = 300
Info.Strings = ( Info.Strings = (

140
Source/Modulos/Facturas de cliente/Views/uViewDatosYSeleccionClienteFacturaCliente.dfm
View File

@ -1,13 +1,13 @@
inherited frViewDatosYSeleccionClienteFacturaCliente: TfrViewDatosYSeleccionClienteFacturaCliente inherited frViewDatosYSeleccionClienteFacturaCliente: TfrViewDatosYSeleccionClienteFacturaCliente
Width = 505 Width = 634
Height = 138 Height = 193
ExplicitWidth = 505 ExplicitWidth = 634
ExplicitHeight = 138 ExplicitHeight = 193
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 505 Width = 634
Height = 138 Height = 193
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
Margins.Right = 0 Margins.Right = 0
@ -18,10 +18,10 @@ inherited frViewDatosYSeleccionClienteFacturaCliente: TfrViewDatosYSeleccionClie
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
505 634
138) 193)
object edtlNombre: TcxDBTextEdit object edtlNombre: TcxDBTextEdit
Left = 58 Left = 63
Top = 41 Top = 41
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
AutoSize = False AutoSize = False
@ -48,7 +48,7 @@ inherited frViewDatosYSeleccionClienteFacturaCliente: TfrViewDatosYSeleccionClie
Width = 224 Width = 224
end end
object edtNIFCIF: TcxDBTextEdit object edtNIFCIF: TcxDBTextEdit
Left = 392 Left = 521
Top = 41 Top = 41
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
AutoSize = False AutoSize = False
@ -163,13 +163,13 @@ inherited frViewDatosYSeleccionClienteFacturaCliente: TfrViewDatosYSeleccionClie
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00} FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
end end
object Button3: TBitBtn object Button3: TBitBtn
Left = 303 Left = 432
Top = 99 Top = 158
Width = 192 Width = 192
Height = 25 Height = 25
Action = actVerContacto Action = actVerContacto
Caption = 'Ver ficha completa del cliente...' Caption = 'Ver ficha completa del cliente...'
TabOrder = 6 TabOrder = 8
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00 2000000000000004000000000000000000000000000000000000FF00FF00FF00
@ -206,9 +206,51 @@ inherited frViewDatosYSeleccionClienteFacturaCliente: TfrViewDatosYSeleccionClie
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00} FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
end end
object edtDireccion: TcxTextEdit object Button4: TButton
Left = 58 Left = 601
Top = 70 Top = 68
Width = 23
Height = 25
Action = actElegirDireccion
Enabled = False
TabOrder = 5
end
object edtPersonaContacto: TcxDBTextEdit
Left = 63
Top = 127
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsFactura
ParentFont = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
Height = 21
Width = 403
end
object Button5: TButton
Left = 601
Top = 127
Width = 23
Height = 25
Caption = '...'
Enabled = False
TabOrder = 7
end
object edtDireccion: TcxMemo
Left = 63
Top = 68
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
@ -226,15 +268,8 @@ inherited frViewDatosYSeleccionClienteFacturaCliente: TfrViewDatosYSeleccionClie
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4 TabOrder = 4
Width = 121 Height = 53
end Width = 403
object Button4: TButton
Left = 472
Top = 68
Width = 23
Height = 25
Action = actElegirDireccion
TabOrder = 5
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
@ -285,23 +320,48 @@ inherited frViewDatosYSeleccionClienteFacturaCliente: TfrViewDatosYSeleccionClie
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item4: TdxLayoutItem object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient
AlignVert = avCenter
Caption = 'Direcci'#243'n'
Control = edtDireccion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'Button4'
ShowCaption = False ShowCaption = False
Control = Button4 Hidden = True
ControlOptions.ShowBorder = False LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Direcci'#243'n:'
Control = edtDireccion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'Button4'
Enabled = False
ShowCaption = False
Visible = False
Control = Button4
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group6: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Contacto:'
Control = edtPersonaContacto
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item6: TdxLayoutItem
Enabled = False
ShowCaption = False
Visible = False
Control = Button5
ControlOptions.ShowBorder = False
end
end end
end end
end end

23
Source/Modulos/Facturas de cliente/Views/uViewDatosYSeleccionClienteFacturaCliente.pas
View File

@ -10,7 +10,8 @@ uses
pngimage, JvExControls, JvComponent, JvButton, JvTransparentButton, Mask, pngimage, JvExControls, JvComponent, JvButton, JvTransparentButton, Mask,
DBCtrls, uClientesController, dxLayoutControl, Buttons, uDAInterfaces, DBCtrls, uClientesController, dxLayoutControl, Buttons, uDAInterfaces,
cxMaskEdit, cxButtonEdit, uBizFacturasCliente, uBizDireccionesContacto, cxMaskEdit, cxButtonEdit, uBizFacturasCliente, uBizDireccionesContacto,
uDireccionesContactoController, Menus, cxLookAndFeelPainters, cxButtons; uDireccionesContactoController, Menus, cxLookAndFeelPainters, cxButtons,
cxMemo;
type type
IViewDatosYSeleccionClienteFacturaCliente = interface(IViewBase) IViewDatosYSeleccionClienteFacturaCliente = interface(IViewBase)
@ -63,11 +64,17 @@ type
dsFactura: TDADataSource; dsFactura: TDADataSource;
actElegirDireccion: TAction; actElegirDireccion: TAction;
dxLayoutControl1Group4: TdxLayoutGroup; dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutControl1Item4: TdxLayoutItem;
edtDireccion: TcxTextEdit;
Button4: TButton; Button4: TButton;
dxLayoutControl1Item5: TdxLayoutItem; dxLayoutControl1Item5: TdxLayoutItem;
dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Item3: TdxLayoutItem;
edtPersonaContacto: TcxDBTextEdit;
dxLayoutControl1Item6: TdxLayoutItem;
Button5: TButton;
dxLayoutControl1Group6: TdxLayoutGroup;
dxLayoutControl1Item4: TdxLayoutItem;
edtDireccion: TcxMemo;
dxLayoutControl1Group5: TdxLayoutGroup;
procedure actElegirContactoExecute(Sender: TObject); procedure actElegirContactoExecute(Sender: TObject);
procedure actAnadirContactoExecute(Sender: TObject); procedure actAnadirContactoExecute(Sender: TObject);
procedure actVerContactoUpdate(Sender: TObject); procedure actVerContactoUpdate(Sender: TObject);
@ -256,8 +263,8 @@ begin
if Assigned(FDireccion) then if Assigned(FDireccion) then
ACadena := Format('%s %s %s %s', ACadena := Format('%s %s %s %s',
[FFactura.CALLE, FFactura.POBLACION, [FDireccion.CALLE, FDireccion.POBLACION,
FFactura.CODIGO_POSTAL, FFactura.PROVINCIA]); FDireccion.CODIGO_POSTAL, FDireccion.PROVINCIA]);
edtDireccion.Text := ACadena; edtDireccion.Text := ACadena;
end; end;
@ -287,7 +294,11 @@ begin
if FCliente.Direcciones.RecordCount > 0 then if FCliente.Direcciones.RecordCount > 0 then
ElegirDireccionCliente ElegirDireccionCliente
else else
RefrescarDireccion; begin
FFactura.Edit;
FFactura.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
RefrescarDireccion;
end;
end end
else begin else begin
dsCliente.DataTable := NIL; dsCliente.DataTable := NIL;

104
Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.dfm
View File

@ -1,43 +1,51 @@
inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Height = 95 Height = 73
ExplicitHeight = 95 ExplicitHeight = 73
inherited FontName: TJvFontComboBox [4] inherited ToolButton3: TToolButton
Left = 56 Wrap = False
end
inherited ToolButton4: TToolButton
Left = 278
Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Top = 22 Top = 22
ExplicitLeft = 56
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton14: TToolButton [5]
Left = 201
Wrap = False
ExplicitLeft = 201
end
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 266
Top = 22 Top = 22
ExplicitLeft = 266
ExplicitTop = 22 ExplicitTop = 22
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 308
Top = 22 Top = 22
ExplicitLeft = 308
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 325
Top = 22 Top = 22
ExplicitLeft = 325
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton11: TToolButton [9] inherited ToolButton6: TToolButton
Left = 333
Top = 22 Top = 22
ExplicitLeft = 333
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton12: TToolButton [10] inherited ToolButton7: TToolButton
Top = 22
ExplicitTop = 22
end
inherited ToolButton8: TToolButton
Top = 22
ExplicitTop = 22
end
inherited ToolButton12: TToolButton
Left = 0 Left = 0
Top = 22 Top = 22
Wrap = True Wrap = True
@ -45,45 +53,59 @@ inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
ExplicitTop = 22 ExplicitTop = 22
ExplicitHeight = 27 ExplicitHeight = 27
end end
inherited ToolButton9: TToolButton [11] inherited ToolButton9: TToolButton
Left = 0 Left = 0
Top = 49 Top = 49
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 49 ExplicitTop = 49
end end
inherited ToolButton10: TToolButton [12] inherited ToolButton10: TToolButton
Left = 145 Left = 145
Top = 49 Top = 49
ExplicitLeft = 145 ExplicitLeft = 145
ExplicitTop = 49 ExplicitTop = 49
end end
inherited ToolButton6: TToolButton [13] inherited ToolButton11: TToolButton
Left = 270 Left = 270
Top = 49 Top = 49
ExplicitLeft = 270 ExplicitLeft = 270
ExplicitTop = 49 ExplicitTop = 49
end end
inherited ToolButton7: TToolButton [14]
Left = 336
Top = 49
Wrap = True
ExplicitLeft = 336
ExplicitTop = 49
end
inherited ToolButton8: TToolButton [15]
Left = 0
Top = 71
ExplicitLeft = 0
ExplicitTop = 71
end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 121 Top = 99
Height = 183 Height = 205
ExplicitHeight = 210 ExplicitTop = 99
ExplicitHeight = 205
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn
Properties.ReadOnly = True
end
inherited cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
end
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 95 Top = 73
ExplicitTop = 68 ExplicitTop = 73
inherited TBXToolbar1: TTBXToolbar
DockPos = 0
inherited TBXSubmenuItem1: TTBXSubmenuItem
Enabled = False
Visible = False
end
end
end
inherited ActionListContenido: TActionList
inherited actAnadirArticulos: TAction
Enabled = False
Visible = False
end
end end
end end

151
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 893 Width = 882
Height = 516 Height = 522
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,8 +9,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 893 Width = 882
Height = 516 Height = 522
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
@ -20,18 +20,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304 ExplicitHeight = 304
DesignSize = ( DesignSize = (
893 882
516) 522)
object Label1: TLabel
Left = 486
Top = 193
Width = 311
Height = 26
Caption =
'Opcionalmente, puede escribir el nombre del cliente final de est' +
'e presupuesto o elegirlo de la lista de clientes.'
WordWrap = True
end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 124 Left = 124
Top = 30 Top = 30
@ -84,7 +74,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 285 Top = 260
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -100,7 +90,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 7
Height = 345 Height = 345
Width = 355 Width = 355
end end
@ -142,7 +132,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 269 Width = 269
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 304 Left = 404
Top = 103 Top = 103
Width = 132 Width = 132
Height = 23 Height = 23
@ -172,47 +162,11 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
TabOrder = 5 TabOrder = 5
Width = 165 Width = 165
end end
object cbClienteFinal: TcxDBTextEdit
Left = 486
Top = 227
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CLIENTE_FINAL'
DataBinding.DataSource = DADataSource
Properties.ReadOnly = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Width = 339
end
object bElegirClienteFinal: TButton
Left = 837
Top = 225
Width = 23
Height = 25
Action = actElegirClienteFinal
TabOrder = 8
end
inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente
Left = 475 Left = 575
Top = 30 Top = 30
Width = 505 Width = 295
Height = 138 Height = 200
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -221,30 +175,48 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 6
ReadOnly = False ReadOnly = False
ExplicitLeft = 475 ExplicitLeft = 575
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 295
ExplicitHeight = 200
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 295
Height = 200
ExplicitWidth = 101
ExplicitHeight = 138
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 224
Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 283 Left = 172
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 283 ExplicitLeft = 172
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 194 Left = 83
ExplicitLeft = 194 ExplicitLeft = 83
end end
inherited edtDireccion: TcxTextEdit inherited Button4: TButton
Left = 252
ExplicitLeft = 252
end
inherited edtPersonaContacto: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited Button5: TButton
Left = 252
ExplicitLeft = 252
end
inherited edtDireccion: TcxMemo
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -252,10 +224,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited Button4: TButton
Left = 363
ExplicitLeft = 363
end
end end
inherited ActionList1: TActionList inherited ActionList1: TActionList
Left = 120 Left = 120
@ -276,6 +244,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO' DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.OnEditValueChanged = edtFechaVemcimientoPropertiesEditValueChanged Properties.OnEditValueChanged = edtFechaVemcimientoPropertiesEditValueChanged
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -349,6 +318,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end end
object ledtFechaVencimiento: TdxLayoutItem object ledtFechaVencimiento: TdxLayoutItem
Caption = 'Fecha de vencimiento:' Caption = 'Fecha de vencimiento:'
Enabled = False
Visible = False Visible = False
Control = edtFechaVemcimiento Control = edtFechaVemcimiento
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
@ -373,43 +343,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Group7: TdxLayoutGroup
Caption = 'Cliente final'
Visible = False
object dxLayoutControl1Item7: TdxLayoutItem
ShowCaption = False
Control = Label1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group8: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = []
AlignHorz = ahClient
AlignVert = avCenter
Control = cbClienteFinal
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
ShowCaption = False
Control = bElegirClienteFinal
ControlOptions.ShowBorder = False
end
end
end
end end
end end
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = [] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avClient AlignVert = avClient
Caption = 'Descripci'#243'n' Caption = 'Observaciones'
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
object dxLayoutControl1Item5: TdxLayoutItem object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [] AutoAligns = []
@ -442,13 +382,4 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Left = 16 Left = 16
Top = 24 Top = 24
end end
object ActionList1: TActionList
Left = 16
Top = 96
object actElegirClienteFinal: TAction
Caption = '...'
OnExecute = actElegirClienteFinalExecute
OnUpdate = actElegirClienteFinalUpdate
end
end
end end

43
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
View File

@ -49,16 +49,6 @@ type
bFormasPago: TButton; bFormasPago: TButton;
dxLayoutControl1Item3: TdxLayoutItem; dxLayoutControl1Item3: TdxLayoutItem;
cbCuentaBancaria: TcxDBComboBox; cbCuentaBancaria: TcxDBComboBox;
dxLayoutControl1Item7: TdxLayoutItem;
Label1: TLabel;
dxLayoutControl1Item8: TdxLayoutItem;
cbClienteFinal: TcxDBTextEdit;
dxLayoutControl1Item9: TdxLayoutItem;
bElegirClienteFinal: TButton;
dxLayoutControl1Group7: TdxLayoutGroup;
dxLayoutControl1Group8: TdxLayoutGroup;
ActionList1: TActionList;
actElegirClienteFinal: TAction;
frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente; frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente;
dxLayoutControl1Group9: TdxLayoutGroup; dxLayoutControl1Group9: TdxLayoutGroup;
dxLayoutControl1Group6: TdxLayoutGroup; dxLayoutControl1Group6: TdxLayoutGroup;
@ -69,8 +59,6 @@ type
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure actElegirClienteFinalExecute(Sender: TObject);
procedure actElegirClienteFinalUpdate(Sender: TObject);
procedure edtFechaVemcimientoPropertiesEditValueChanged(Sender: TObject); procedure edtFechaVemcimientoPropertiesEditValueChanged(Sender: TObject);
protected protected
FFactura : IBizFacturaCliente; FFactura : IBizFacturaCliente;
@ -102,37 +90,6 @@ uses
{ TfrViewFacturaCliente } { TfrViewFacturaCliente }
procedure TfrViewFacturaCliente.actElegirClienteFinalExecute(Sender: TObject);
var
ACliente : IBizCliente;
AClienteController : IClientesController;
begin
inherited;
AClienteController := TClientesController.Create;
try
ACliente := (AClienteController.ElegirContacto(AClienteController.BuscarTodos,
'Elija el cliente final de esta factura', False) as IBizCliente);
if Assigned(ACliente) then
begin
ShowHourglassCursor;
try
FFactura.Edit;
FFactura.CLIENTE_FINAL := ACliente.NOMBRE;
finally
HideHourglassCursor;
end;
end;
finally
ACliente := NIL;
AClienteController := NIL;
end;
end;
procedure TfrViewFacturaCliente.actElegirClienteFinalUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := (not ReadOnly);
end;
procedure TfrViewFacturaCliente.bFormasPagoClick(Sender: TObject); procedure TfrViewFacturaCliente.bFormasPagoClick(Sender: TObject);
begin begin

15
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -55,11 +55,6 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Width = 28 Width = 28
end end
object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
Caption = 'Fecha vto.'
DataBinding.FieldName = 'FECHA_VENCIMIENTO'
PropertiesClassName = 'TcxDateEditProperties'
end
object cxGridViewNIF_CIF: TcxGridDBColumn object cxGridViewNIF_CIF: TcxGridDBColumn
DataBinding.FieldName = 'NIF_CIF' DataBinding.FieldName = 'NIF_CIF'
Visible = False Visible = False
@ -126,19 +121,9 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Width = 128 Width = 128
end end
object cxGridViewIMPORTE_RETENCION: TcxGridDBColumn
Caption = 'Importe retenido'
DataBinding.FieldName = 'IMPORTE_RETENCION'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewREFERENCIA_COMISION: TcxGridDBColumn object cxGridViewREFERENCIA_COMISION: TcxGridDBColumn
Caption = 'Liquidaci'#243'n' Caption = 'Liquidaci'#243'n'
DataBinding.FieldName = 'REFERENCIA_COMISION' DataBinding.FieldName = 'REFERENCIA_COMISION'
Visible = False
VisibleForCustomization = False
Width = 54 Width = 54
end end
end end

2
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

@ -56,8 +56,6 @@ type
TBXItem3: TTBXItem; TBXItem3: TTBXItem;
TBXSeparatorItem2: TTBXSeparatorItem; TBXSeparatorItem2: TTBXSeparatorItem;
cxGridViewTIPO: TcxGridDBColumn; cxGridViewTIPO: TcxGridDBColumn;
cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
cxGridViewIMPORTE_RETENCION: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);

223
Source/Modulos/Facturas de cliente/Views/uViewTotalesFactura.dfm
View File

@ -1,129 +1,306 @@
inherited frViewTotalesFactura: TfrViewTotalesFactura inherited frViewTotalesFactura: TfrViewTotalesFactura
Height = 221
ExplicitHeight = 221
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Height = 221
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 221
inherited Bevel3: TBevel inherited Bevel3: TBevel
Height = 100 Left = 276
ExplicitHeight = 100 Top = 10
Height = 156
ExplicitLeft = 276
ExplicitTop = 10
ExplicitHeight = 156
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Width = 342 Left = 388
ExplicitWidth = 342 Top = 52
end Width = 317
inherited Bevel1: TBevel ExplicitLeft = 388
Width = 368 ExplicitTop = 52
ExplicitWidth = 368 ExplicitWidth = 317
end
inherited Bevel2: TBevel
Width = 368
ExplicitWidth = 368
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 173
Top = 37
Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 173
ExplicitTop = 37
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 459
Top = 87
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
ExplicitLeft = 459
ExplicitTop = 87
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 389
Top = 141
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
ExplicitLeft = 389
ExplicitTop = 141
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 102
Top = 37
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 102
ExplicitTop = 37
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 388
Top = 87
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
ExplicitLeft = 388
ExplicitTop = 87
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 388
Top = 10
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
ExplicitLeft = 388
ExplicitTop = 10
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 388
Top = 114
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
ExplicitLeft = 388
ExplicitTop = 114
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 459
Top = 114
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
ExplicitLeft = 459
ExplicitTop = 114
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 102
Top = 10
Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 102
ExplicitTop = 10
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Left = 102
Top = 91
Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
ExplicitLeft = 102
ExplicitTop = 91
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Left = 102
Top = 118
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
ExplicitLeft = 102
ExplicitTop = 118
end
inherited bTiposIVA: TButton
Left = 128
Top = 118
TabOrder = 7
ExplicitLeft = 128
ExplicitTop = 118
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 102
Top = 145
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
ExplicitLeft = 102
ExplicitTop = 145
ExplicitWidth = 221 ExplicitWidth = 221
Width = 221 Width = 221
end end
inherited edtRetencion: TcxDBSpinEdit object eDescuento2: TcxDBSpinEdit [15]
Left = 102
Top = 64
AutoSize = False
DataBinding.DataField = 'DESCUENTO2'
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.ButtonStyle = bts3D
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Height = 21
Width = 65
end end
inherited edtImporteRetencion: TcxDBCurrencyEdit object eImporteDto2: TcxDBCurrencyEdit [16]
Left = 173
Top = 64
AutoSize = False
DataBinding.DataField = 'IMPORTE_DESCUENTO2'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = '-,0.00 '#8364';,0.00 '#8364
Properties.ReadOnly = False
Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 180 TabOrder = 4
Width = 180 Height = 21
Width = 293
end end
inherited edtFechaRetencion: TcxDBDateEdit inherited dxLayoutControl1Group_Root: TdxLayoutGroup
Style.LookAndFeel.SkinName = '' inherited dxLayoutControl1Group1: TdxLayoutGroup
StyleDisabled.LookAndFeel.SkinName = '' ShowCaption = False
StyleFocused.LookAndFeel.SkinName = '' ShowBorder = False
StyleHot.LookAndFeel.SkinName = '' inherited dxLayoutControl1Group2: TdxLayoutGroup
ExplicitWidth = 280 inherited dxLayoutControl1Item8: TdxLayoutItem
Width = 280 Enabled = False
end
inherited dxLayoutControl1Group7: TdxLayoutGroup
inherited dxLayoutControl1Group10: TdxLayoutGroup
inherited dxLayoutControl1Item4: TdxLayoutItem
Caption = 'Dto. cliente (%):'
end
inherited dxLayoutControl1Item1: TdxLayoutItem
Enabled = False
end
end
object dxLayoutControl1Group12: TdxLayoutGroup [1]
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item20: TdxLayoutItem
Caption = 'Dto. pronto pago:'
Control = eDescuento2
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item22: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Enabled = False
Control = eImporteDto2
ControlOptions.ShowBorder = False
end
end
inherited dxLayoutControl1Item9: TdxLayoutItem
Enabled = False
Visible = False
end
end
end
inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Group9: TdxLayoutGroup
inherited dxLayoutControl1Item5: TdxLayoutItem
CaptionOptions.AlignHorz = taLeftJustify
end
end
inherited dxLayoutControl1Group8: TdxLayoutGroup
inherited dxLayoutControl1Item6: TdxLayoutItem
CaptionOptions.AlignHorz = taLeftJustify
end
inherited dxLayoutControl1Item7: TdxLayoutItem
Visible = True
end
end
end
end
end
end end
end end
end end

5
Source/Modulos/Facturas de cliente/Views/uViewTotalesFactura.pas
View File

@ -12,6 +12,11 @@ uses
type type
TfrViewTotalesFactura = class(TfrViewTotales) TfrViewTotalesFactura = class(TfrViewTotales)
dxLayoutControl1Item20: TdxLayoutItem;
eDescuento2: TcxDBSpinEdit;
dxLayoutControl1Item22: TdxLayoutItem;
eImporteDto2: TcxDBCurrencyEdit;
dxLayoutControl1Group12: TdxLayoutGroup;
private private
{ Private declarations } { Private declarations }
public public

2
Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Controller\FacturasProveedor_controller.res */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Controller\FacturasProveedor_controller.res */
/* E:\temp\dtf6EF.tmp */ /* E:\temp\dtf4FB.tmp */

2
Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Data\uDataModuleFacturasProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Data\uDataModuleFacturasProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Data\FacturasProveedor_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Data\FacturasProveedor_data.res */
/* E:\temp\dtf6ED.tmp */ /* E:\temp\dtf4F9.tmp */

2
Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Model\FacturasProveedor_model.res */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Model\FacturasProveedor_model.res */
/* E:\temp\dtf6EB.tmp */ /* E:\temp\dtf4F7.tmp */

2
Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Plugin\uPluginFacturasProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Plugin\uPluginFacturasProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Plugin\FacturasProveedor_plugin.res */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Plugin\FacturasProveedor_plugin.res */
/* E:\temp\dtf72D.tmp */ /* E:\temp\dtf539.tmp */

2
Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */ /* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
/* E:\temp\dtf681.tmp */ /* E:\temp\dtf48D.tmp */

2
Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
/* E:\temp\dtf67F.tmp */ /* E:\temp\dtf48B.tmp */

2
Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Controller\PedidosProveedor_controller.res */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Controller\PedidosProveedor_controller.res */
/* E:\temp\dtf6CB.tmp */ /* E:\temp\dtf4D7.tmp */

2
Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Data\uDataModulePedidosProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Data\uDataModulePedidosProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Data\PedidosProveedor_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Data\PedidosProveedor_data.res */
/* E:\temp\dtf6C9.tmp */ /* E:\temp\dtf4D5.tmp */

2
Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Model\PedidosProveedor_model.res */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Model\PedidosProveedor_model.res */
/* E:\temp\dtf6C7.tmp */ /* E:\temp\dtf4D3.tmp */

2
Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Plugin\uPluginPedidosProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Plugin\uPluginPedidosProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.res */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.res */
/* E:\temp\dtf725.tmp */ /* E:\temp\dtf531.tmp */

2
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.drc
View File

@ -30,4 +30,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\uEditorDireccionEntregaPedidoProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\uEditorDireccionEntregaPedidoProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\uEditorSituacionPedidoProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\uEditorSituacionPedidoProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\PedidosProveedor_view.res */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\PedidosProveedor_view.res */
/* E:\temp\dtf723.tmp */ /* E:\temp\dtf52F.tmp */

2
Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.res */ /* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.res */
/* E:\temp\dtf6B9.tmp */ /* E:\temp\dtf4C5.tmp */

2
Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Data\uDataModulePresupuestosCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Data\uDataModulePresupuestosCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Data\PresupuestosCliente_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Data\PresupuestosCliente_data.res */
/* E:\temp\dtf6B7.tmp */ /* E:\temp\dtf4C3.tmp */

2
Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Model\PresupuestosCliente_model.res */ /* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Model\PresupuestosCliente_model.res */
/* E:\temp\dtf6B5.tmp */ /* E:\temp\dtf4C1.tmp */

2
Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Plugin\uPluginPresupuestosCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Plugin\uPluginPresupuestosCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Plugin\PresupuestosCliente_plugin.res */ /* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Plugin\PresupuestosCliente_plugin.res */
/* E:\temp\dtf711.tmp */ /* E:\temp\dtf51D.tmp */

2
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc
View File

@ -28,4 +28,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Views\uEditorPresupuestosClienteReport.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Views\uEditorPresupuestosClienteReport.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Views\uEditorAsignarDescuento.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Views\uEditorAsignarDescuento.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Views\PresupuestosCliente_view.res */ /* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Views\PresupuestosCliente_view.res */
/* E:\temp\dtf70F.tmp */ /* E:\temp\dtf51B.tmp */

2
Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.res */
/* E:\temp\dtf6A3.tmp */ /* E:\temp\dtf4AF.tmp */

2
Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Recibos de cliente\Plugin\uPluginRecibosCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Recibos de cliente\Plugin\uPluginRecibosCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.res */ /* C:\Codigo Noviseda\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.res */
/* E:\temp\dtf6A9.tmp */ /* E:\temp\dtf4B5.tmp */

21
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
View File

@ -40,6 +40,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited lblDesbloquear: TcxLabel inherited lblDesbloquear: TcxLabel
Left = 593 Left = 593
ExplicitLeft = 593 ExplicitLeft = 593
AnchorX = 638
AnchorY = 14
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
@ -316,6 +318,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 677 Width = 677
ExplicitWidth = 677 ExplicitWidth = 677
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
ExplicitWidth = 98 ExplicitWidth = 98
end end
@ -367,6 +381,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
inherited eOtrosGastos: TcxDBCurrencyEdit inherited eOtrosGastos: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -388,9 +403,15 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Offsets.Right = 10 Offsets.Right = 10
inherited dxLayoutControl1Item2: TdxLayoutItem
Enabled = False
Visible = False
end
end end
inherited dxLayoutControl1Item3: TdxLayoutItem inherited dxLayoutControl1Item3: TdxLayoutItem
AlignHorz = ahRight AlignHorz = ahRight
Enabled = False
Visible = False
end end
end end
end end

32
Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm
View File

@ -97,38 +97,6 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
ExplicitWidth = 645 ExplicitWidth = 645
ExplicitHeight = 312 ExplicitHeight = 312
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = ',0.00 '#8364';-,0.00 '#8364
Position = spFooter
Column = frViewRecibosCliente1.cxGridViewIMPORTE_TOTAL
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = frViewRecibosCliente1.cxGridViewIMPORTE
end>
DataController.Summary.FooterSummaryItems = <
item
Format = ',0.00 '#8364';-,0.00 '#8364
Column = frViewRecibosCliente1.cxGridViewIMPORTE_TOTAL
end
item
Format = '0 recibos'
Kind = skCount
Column = frViewRecibosCliente1.cxGridViewREFERENCIA
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewRecibosCliente1.cxGridViewIMPORTE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewRecibosCliente1.cxGridViewOTROS_GASTOS
end>
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase

244
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
View File

@ -1,13 +1,13 @@
inherited frViewReciboCliente: TfrViewReciboCliente inherited frViewReciboCliente: TfrViewReciboCliente
Width = 690 Width = 795
Height = 361 Height = 333
ExplicitWidth = 690 ExplicitWidth = 795
ExplicitHeight = 361 ExplicitHeight = 333
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 690 Width = 795
Height = 361 Height = 333
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
@ -15,8 +15,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
DesignSize = ( DesignSize = (
690 795
361) 333)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 120 Left = 120
Top = 30 Top = 30
@ -121,12 +121,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7 TabOrder = 13
Height = 49 Height = 49
Width = 314 Width = 314
end end
object eFechaEmision: TcxDBTextEdit object eFechaEmision: TcxDBTextEdit
Left = 440 Left = 545
Top = 30 Top = 30
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA' DataBinding.DataField = 'FECHA_FACTURA'
@ -152,11 +152,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 7
Width = 228 Width = 228
end end
object eFormaPago: TcxDBTextEdit object eFormaPago: TcxDBTextEdit
Left = 440 Left = 545
Top = 57 Top = 57
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FORMA_PAGO_FACTURA' DataBinding.DataField = 'FORMA_PAGO_FACTURA'
@ -182,11 +182,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 8
Width = 228 Width = 228
end end
object eImporteTotal: TcxDBCurrencyEdit object eImporteTotal: TcxDBCurrencyEdit
Left = 440 Left = 545
Top = 111 Top = 111
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA' DataBinding.DataField = 'IMPORTE_FACTURA'
@ -217,12 +217,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 10
Height = 21 Height = 21
Width = 228 Width = 228
end end
object eNombreCliente: TcxDBTextEdit object eNombreCliente: TcxDBTextEdit
Left = 440 Left = 545
Top = 194 Top = 194
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE_CLIENTE' DataBinding.DataField = 'NOMBRE_CLIENTE'
@ -248,11 +248,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13 TabOrder = 12
Width = 228 Width = 228
end end
object eNifCif: TcxDBTextEdit object eNifCif: TcxDBTextEdit
Left = 440 Left = 545
Top = 167 Top = 167
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF_CLIENTE' DataBinding.DataField = 'NIF_CIF_CLIENTE'
@ -278,7 +278,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 11
Width = 228 Width = 228
end end
object eRemesa: TcxDBTextEdit object eRemesa: TcxDBTextEdit
@ -400,7 +400,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Width = 216 Width = 216
end end
object eCuenta: TcxDBTextEdit object eCuenta: TcxDBTextEdit
Left = 440 Left = 545
Top = 84 Top = 84
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DATOS_BANCARIOS' DataBinding.DataField = 'DATOS_BANCARIOS'
@ -426,128 +426,136 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 9
Width = 228 Width = 228
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group9: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Datos del recibo' ShowCaption = False
object dxLayoutControl1Item1: TdxLayoutItem Hidden = True
ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Referencia:' Caption = 'Datos del recibo'
Control = eReferencia object dxLayoutControl1Item1: TdxLayoutItem
ControlOptions.ShowBorder = False AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Referencia:'
Control = eReferencia
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item19: TdxLayoutItem
Caption = 'Fecha emisi'#243'n:'
Control = edtFechaEmision
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha vencimiento:'
Control = edtFechaVencimiento
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Situaci'#243'n:'
Control = eSituacion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item16: TdxLayoutItem
Caption = 'Ref. remesa:'
Control = eRemesa
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item6: TdxLayoutItem
Caption = 'Concepto:'
Control = eConcepto
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Item19: TdxLayoutItem object dxLayoutControl1Group2: TdxLayoutGroup
Caption = 'Fecha emisi'#243'n:' Caption = 'Compensado en recibo'
Control = edtFechaEmision Enabled = False
ControlOptions.ShowBorder = False Visible = False
end object dxLayoutControl1Item4: TdxLayoutItem
object dxLayoutControl1Item3: TdxLayoutItem Caption = 'Ref. recibo:'
AutoAligns = [aaVertical] Control = rRefReciboCompensado
AlignHorz = ahClient ControlOptions.ShowBorder = False
Caption = 'Fecha vencimiento:' end
Control = edtFechaVencimiento
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Situaci'#243'n:'
Control = eSituacion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item16: TdxLayoutItem
Caption = 'Ref. remesa:'
Control = eRemesa
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item6: TdxLayoutItem
Caption = 'Concepto:'
Control = eConcepto
ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group2: TdxLayoutGroup object dxLayoutControl1Group8: TdxLayoutGroup
Caption = 'Compensado en recibo' AutoAligns = [aaVertical]
object dxLayoutControl1Item4: TdxLayoutItem Caption = 'New Group'
Caption = 'Ref. recibo:' ShowCaption = False
Control = rRefReciboCompensado ShowBorder = False
ControlOptions.ShowBorder = False object dxLayoutControl1Group5: TdxLayoutGroup
Caption = 'Datos de la factura'
object dxLayoutControl1Item7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha emisi'#243'n:'
Control = eFechaEmision
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Forma pago:'
Control = eFormaPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item15: TdxLayoutItem
Caption = 'Cuenta bancaria:'
Control = eCuenta
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Total factura:'
Control = eImporteTotal
ControlOptions.ShowBorder = False
end
end end
end object dxLayoutControl1Group6: TdxLayoutGroup
object dxLayoutControl1Group7: TdxLayoutGroup
Caption = 'Observaciones'
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Observaciones:' Caption = 'Datos del cliente'
ShowCaption = False Offsets.Top = 5
Control = memObservaciones object dxLayoutControl1Item11: TdxLayoutItem
ControlOptions.ShowBorder = False Caption = 'NIF/CIF:'
Control = eNifCif
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item10: TdxLayoutItem
Caption = 'Nombre:'
Control = eNombreCliente
ControlOptions.ShowBorder = False
end
end end
end end
end end
object dxLayoutControl1Group8: TdxLayoutGroup object dxLayoutControl1Group7: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = [aaHorizontal]
Caption = 'New Group' Caption = 'Observaciones'
ShowCaption = False object dxLayoutControl1Item5: TdxLayoutItem
ShowBorder = False
object dxLayoutControl1Group5: TdxLayoutGroup
Caption = 'Datos de la factura'
object dxLayoutControl1Item7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha emisi'#243'n:'
Control = eFechaEmision
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Forma pago:'
Control = eFormaPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item15: TdxLayoutItem
Caption = 'Cuenta bancaria:'
Control = eCuenta
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Total factura:'
Control = eImporteTotal
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group6: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Datos del cliente' Caption = 'Observaciones:'
Offsets.Top = 5 ShowCaption = False
object dxLayoutControl1Item11: TdxLayoutItem Control = memObservaciones
Caption = 'NIF/CIF:' ControlOptions.ShowBorder = False
Control = eNifCif
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item10: TdxLayoutItem
Caption = 'Nombre:'
Control = eNombreCliente
ControlOptions.ShowBorder = False
end
end end
end end
end end

1
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas
View File

@ -59,6 +59,7 @@ type
eConcepto: TcxDBTextEdit; eConcepto: TcxDBTextEdit;
dxLayoutControl1Item15: TdxLayoutItem; dxLayoutControl1Item15: TdxLayoutItem;
eCuenta: TcxDBTextEdit; eCuenta: TcxDBTextEdit;
dxLayoutControl1Group9: TdxLayoutGroup;
private private
FRecibo : IBizRecibosCliente; FRecibo : IBizRecibosCliente;
function GetRecibo: IBizRecibosCliente; function GetRecibo: IBizRecibosCliente;

6
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
View File

@ -124,7 +124,9 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
DataBinding.FieldName = 'OTROS_GASTOS' DataBinding.FieldName = 'OTROS_GASTOS'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Visible = False
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
VisibleForCustomization = False
Width = 55 Width = 55
end end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
@ -132,8 +134,10 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
DataBinding.FieldName = 'IMPORTE_TOTAL' DataBinding.FieldName = 'IMPORTE_TOTAL'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Visible = False
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
VisibleForCustomization = False
Width = 117 Width = 117
end end
object cxGridViewREFERENCIA_REMESA: TcxGridDBColumn object cxGridViewREFERENCIA_REMESA: TcxGridDBColumn
@ -200,6 +204,8 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 389 ExplicitLeft = 389
ExplicitWidth = 215
Width = 215
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

2
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
View File

@ -222,6 +222,7 @@ procedure TfrViewRecibosCliente.cxGridViewIMPORTE_TOTALGetDisplayText(
var var
ImporteTotal : Double; ImporteTotal : Double;
begin begin
{
//Se encarga de mostrar el campo calculado de importe total //Se encarga de mostrar el campo calculado de importe total
ImporteTotal := -1; ImporteTotal := -1;
@ -239,6 +240,7 @@ begin
cxGridViewIMPORTE_TOTAL.EditValue := ImporteTotal; cxGridViewIMPORTE_TOTAL.EditValue := ImporteTotal;
cxGridViewIMPORTE_TOTAL.DataBinding.Field.Value := ImporteTotal; cxGridViewIMPORTE_TOTAL.DataBinding.Field.Value := ImporteTotal;
end; end;
}
end; end;
procedure TfrViewRecibosCliente.cxGridViewStylesGetContentStyle( procedure TfrViewRecibosCliente.cxGridViewStylesGetContentStyle(

2
Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Recibos de proveedor\Data\uDataModuleRecibosProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Recibos de proveedor\Data\uDataModuleRecibosProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Recibos de proveedor\Data\RecibosProveedor_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Recibos de proveedor\Data\RecibosProveedor_data.res */
/* E:\temp\dtf6CF.tmp */ /* E:\temp\dtf4DB.tmp */

2
Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Recibos de proveedor\Plugin\uPluginRecibosProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Recibos de proveedor\Plugin\uPluginRecibosProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Recibos de proveedor\Plugin\RecibosProveedor_plugin.res */ /* C:\Codigo Noviseda\Source\Modulos\Recibos de proveedor\Plugin\RecibosProveedor_plugin.res */
/* E:\temp\dtf6D5.tmp */ /* E:\temp\dtf4E1.tmp */

2
Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas
View File

@ -295,7 +295,7 @@ begin
AAlbaranes := AAlbaranesClienteController.ElegirAlbaranes(AAlbaranesClienteController.BuscarSinFacturar, AAlbaranes := AAlbaranesClienteController.ElegirAlbaranes(AAlbaranesClienteController.BuscarSinFacturar,
'Elija el albarán o albaranes de cliente que desea utilizar para dar de alta la factura.' 'Elija el albarán o albaranes de cliente que desea utilizar para dar de alta la factura.'
+ #10#13 + 'Si elige albaranes de clientes diferentes se dará de alta una factura por cada uno de ellos.' , True); + #10#13 + 'Si elige albaranes de clientes diferentes se dará de alta una factura por cada uno de ellos.' , False);
if Assigned(AAlbaranes) then if Assigned(AAlbaranes) then
begin begin

Some files were not shown because too many files have changed in this diff Show More