Recibos de cliente/proveedor: cambiar título en el editor para que saque si es un recibo libre o asociado a una factura.
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@516 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
8fd1d4be48
commit
938622c77a
@ -62,7 +62,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
Width = 879
|
Width = 879
|
||||||
Height = 331
|
Height = 331
|
||||||
OnChanging = pgPaginasChanging
|
OnChanging = pgPaginasChanging
|
||||||
ExplicitTop = 109
|
|
||||||
ExplicitWidth = 879
|
ExplicitWidth = 879
|
||||||
ExplicitHeight = 331
|
ExplicitHeight = 331
|
||||||
inherited pagGeneral: TTabSheet
|
inherited pagGeneral: TTabSheet
|
||||||
@ -95,102 +94,58 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
871
|
871
|
||||||
303)
|
303)
|
||||||
inherited eReferencia: TcxDBTextEdit
|
inherited eReferencia: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 201
|
ExplicitWidth = 201
|
||||||
Width = 201
|
Width = 201
|
||||||
end
|
end
|
||||||
inherited eSituacion: TcxDBTextEdit
|
inherited eSituacion: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 201
|
ExplicitWidth = 201
|
||||||
Width = 201
|
Width = 201
|
||||||
end
|
end
|
||||||
inherited edtFechaVencimiento: TcxDBDateEdit
|
inherited edtFechaVencimiento: TcxDBDateEdit
|
||||||
Left = 326
|
Left = 326
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 326
|
ExplicitLeft = 326
|
||||||
ExplicitWidth = 67
|
ExplicitWidth = 67
|
||||||
Width = 67
|
Width = 67
|
||||||
end
|
end
|
||||||
inherited eFechaEmision: TcxDBTextEdit
|
inherited eFechaEmision: TcxDBTextEdit
|
||||||
Left = 588
|
Left = 588
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 588
|
ExplicitLeft = 588
|
||||||
ExplicitWidth = 286
|
ExplicitWidth = 286
|
||||||
Width = 286
|
Width = 286
|
||||||
end
|
end
|
||||||
inherited eImporteTotal: TcxDBCurrencyEdit
|
inherited eImporteTotal: TcxDBCurrencyEdit
|
||||||
Left = 588
|
Left = 588
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 588
|
ExplicitLeft = 588
|
||||||
ExplicitWidth = 286
|
ExplicitWidth = 286
|
||||||
Width = 286
|
Width = 286
|
||||||
end
|
end
|
||||||
inherited eNombreCliente: TcxDBTextEdit
|
inherited eNombreCliente: TcxDBTextEdit
|
||||||
Left = 588
|
Left = 588
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 588
|
ExplicitLeft = 588
|
||||||
ExplicitWidth = 286
|
ExplicitWidth = 286
|
||||||
Width = 286
|
Width = 286
|
||||||
end
|
end
|
||||||
inherited eNifCif: TcxDBTextEdit
|
inherited eNifCif: TcxDBTextEdit
|
||||||
Left = 588
|
Left = 588
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 588
|
ExplicitLeft = 588
|
||||||
ExplicitWidth = 286
|
ExplicitWidth = 286
|
||||||
Width = 286
|
Width = 286
|
||||||
end
|
end
|
||||||
inherited eRemesa: TcxDBTextEdit
|
inherited eRemesa: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 201
|
ExplicitWidth = 201
|
||||||
Width = 201
|
Width = 201
|
||||||
end
|
end
|
||||||
inherited edtFechaEmision: TcxDBDateEdit
|
inherited edtFechaEmision: TcxDBDateEdit
|
||||||
DataBinding.DataField = 'FECHA_EMISION'
|
DataBinding.DataField = 'FECHA_EMISION'
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 62
|
ExplicitWidth = 62
|
||||||
Width = 62
|
Width = 62
|
||||||
end
|
end
|
||||||
inherited rRefReciboCompensado: TcxDBTextEdit
|
inherited rRefReciboCompensado: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 201
|
ExplicitWidth = 201
|
||||||
Width = 201
|
Width = 201
|
||||||
end
|
end
|
||||||
inherited eDescripcion: TcxDBTextEdit
|
inherited eDescripcion: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 201
|
ExplicitWidth = 201
|
||||||
Width = 201
|
Width = 201
|
||||||
end
|
end
|
||||||
@ -201,10 +156,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
Width = 201
|
Width = 201
|
||||||
ExplicitWidth = 201
|
ExplicitWidth = 201
|
||||||
inherited cbTienda: TcxComboBox
|
inherited cbTienda: TcxComboBox
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 181
|
ExplicitWidth = 181
|
||||||
Width = 181
|
Width = 181
|
||||||
end
|
end
|
||||||
@ -224,56 +175,32 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
end
|
end
|
||||||
inherited edtlNombre: TcxDBTextEdit
|
inherited edtlNombre: TcxDBTextEdit
|
||||||
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 271
|
ExplicitWidth = 271
|
||||||
Width = 271
|
Width = 271
|
||||||
end
|
end
|
||||||
inherited edtNIFCIF: TcxDBTextEdit
|
inherited edtNIFCIF: TcxDBTextEdit
|
||||||
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 271
|
ExplicitWidth = 271
|
||||||
Width = 271
|
Width = 271
|
||||||
end
|
end
|
||||||
inherited edtCalle: TcxDBTextEdit
|
inherited edtCalle: TcxDBTextEdit
|
||||||
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 271
|
ExplicitWidth = 271
|
||||||
Width = 271
|
Width = 271
|
||||||
end
|
end
|
||||||
inherited edtPoblacion: TcxDBTextEdit
|
inherited edtPoblacion: TcxDBTextEdit
|
||||||
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 153
|
ExplicitWidth = 153
|
||||||
Width = 153
|
Width = 153
|
||||||
end
|
end
|
||||||
inherited edtProvincia: TcxDBTextEdit
|
inherited edtProvincia: TcxDBTextEdit
|
||||||
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 271
|
ExplicitWidth = 271
|
||||||
Width = 271
|
Width = 271
|
||||||
end
|
end
|
||||||
inherited edtCodigoPostal: TcxDBTextEdit
|
inherited edtCodigoPostal: TcxDBTextEdit
|
||||||
Left = 228
|
Left = 228
|
||||||
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 228
|
ExplicitLeft = 228
|
||||||
end
|
end
|
||||||
inherited Button3: TBitBtn
|
inherited Button3: TBitBtn
|
||||||
@ -281,10 +208,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
ExplicitLeft = 118
|
ExplicitLeft = 118
|
||||||
end
|
end
|
||||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 271
|
ExplicitWidth = 271
|
||||||
Width = 271
|
Width = 271
|
||||||
end
|
end
|
||||||
@ -297,8 +220,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
ExplicitHeight = 150
|
ExplicitHeight = 150
|
||||||
inherited memObservaciones: TcxDBMemo
|
inherited memObservaciones: TcxDBMemo
|
||||||
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
||||||
ExplicitWidth = 462
|
ExplicitWidth = 521
|
||||||
ExplicitHeight = 126
|
ExplicitHeight = 150
|
||||||
Height = 150
|
Height = 150
|
||||||
Width = 521
|
Width = 521
|
||||||
end
|
end
|
||||||
@ -449,25 +372,13 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
inherited eImporte: TcxDBCurrencyEdit
|
inherited eImporte: TcxDBCurrencyEdit
|
||||||
DataBinding.DataSource = dsDataTable
|
DataBinding.DataSource = dsDataTable
|
||||||
Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
|
Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 150
|
ExplicitWidth = 150
|
||||||
Width = 150
|
Width = 150
|
||||||
end
|
end
|
||||||
inherited eOtrosGastos: TcxDBCurrencyEdit
|
inherited eOtrosGastos: TcxDBCurrencyEdit
|
||||||
DataBinding.DataSource = dsDataTable
|
DataBinding.DataSource = dsDataTable
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
end
|
end
|
||||||
inherited eImporteTotalRecibo: TcxCurrencyEdit
|
inherited eImporteTotalRecibo: TcxCurrencyEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 366
|
ExplicitWidth = 366
|
||||||
Width = 366
|
Width = 366
|
||||||
end
|
end
|
||||||
|
|||||||
@ -431,9 +431,18 @@ begin
|
|||||||
if Assigned(Recibo) then
|
if Assigned(Recibo) then
|
||||||
begin
|
begin
|
||||||
if Recibo.EsNuevo then
|
if Recibo.EsNuevo then
|
||||||
FTitulo := 'Nuevo recibo de cliente'
|
begin
|
||||||
else
|
if Recibo.SinFactura then
|
||||||
FTitulo := 'Recibo de cliente';
|
FTitulo := 'Nuevo recibo libre de cliente'
|
||||||
|
else
|
||||||
|
FTitulo := 'Nuevo recibo de factura de cliente'
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
if Recibo.SinFactura then
|
||||||
|
FTitulo := 'Recibo libre de cliente'
|
||||||
|
else
|
||||||
|
FTitulo := 'Recibo de factura de cliente'
|
||||||
|
end;
|
||||||
|
|
||||||
if (Recibo.ID_RECIBO_COMPENSADO > 0) then
|
if (Recibo.ID_RECIBO_COMPENSADO > 0) then
|
||||||
FTitulo := FTitulo + ' (compensado)';
|
FTitulo := FTitulo + ' (compensado)';
|
||||||
|
|||||||
@ -62,7 +62,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
|||||||
Width = 685
|
Width = 685
|
||||||
Height = 323
|
Height = 323
|
||||||
ActivePage = pagPagos
|
ActivePage = pagPagos
|
||||||
ExplicitTop = 109
|
|
||||||
ExplicitWidth = 685
|
ExplicitWidth = 685
|
||||||
ExplicitHeight = 323
|
ExplicitHeight = 323
|
||||||
inherited pagGeneral: TTabSheet
|
inherited pagGeneral: TTabSheet
|
||||||
@ -95,101 +94,57 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
|||||||
677
|
677
|
||||||
295)
|
295)
|
||||||
inherited eReferencia: TcxDBTextEdit
|
inherited eReferencia: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 112
|
ExplicitWidth = 112
|
||||||
Width = 112
|
Width = 112
|
||||||
end
|
end
|
||||||
inherited eSituacion: TcxDBTextEdit
|
inherited eSituacion: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 112
|
ExplicitWidth = 112
|
||||||
Width = 112
|
Width = 112
|
||||||
end
|
end
|
||||||
inherited edtFechaVencimiento: TcxDBDateEdit
|
inherited edtFechaVencimiento: TcxDBDateEdit
|
||||||
Left = 228
|
Left = 228
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 228
|
ExplicitLeft = 228
|
||||||
ExplicitWidth = 20
|
ExplicitWidth = 20
|
||||||
Width = 20
|
Width = 20
|
||||||
end
|
end
|
||||||
inherited eFechaEmision: TcxDBTextEdit
|
inherited eFechaEmision: TcxDBTextEdit
|
||||||
Left = 384
|
Left = 384
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 384
|
ExplicitLeft = 384
|
||||||
ExplicitWidth = 255
|
ExplicitWidth = 255
|
||||||
Width = 255
|
Width = 255
|
||||||
end
|
end
|
||||||
inherited eImporteTotal: TcxDBCurrencyEdit
|
inherited eImporteTotal: TcxDBCurrencyEdit
|
||||||
Left = 384
|
Left = 384
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 384
|
ExplicitLeft = 384
|
||||||
ExplicitWidth = 255
|
ExplicitWidth = 255
|
||||||
Width = 255
|
Width = 255
|
||||||
end
|
end
|
||||||
inherited eNombreCliente: TcxDBTextEdit
|
inherited eNombreCliente: TcxDBTextEdit
|
||||||
Left = 384
|
Left = 384
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 384
|
ExplicitLeft = 384
|
||||||
ExplicitWidth = 255
|
ExplicitWidth = 255
|
||||||
Width = 255
|
Width = 255
|
||||||
end
|
end
|
||||||
inherited eRemesa: TcxDBTextEdit
|
inherited eRemesa: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 112
|
ExplicitWidth = 112
|
||||||
Width = 112
|
Width = 112
|
||||||
end
|
end
|
||||||
inherited edtFechaEmision: TcxDBDateEdit
|
inherited edtFechaEmision: TcxDBDateEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 20
|
ExplicitWidth = 20
|
||||||
Width = 20
|
Width = 20
|
||||||
end
|
end
|
||||||
inherited eReferenciaProveedor: TcxDBTextEdit
|
inherited eReferenciaProveedor: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 112
|
ExplicitWidth = 112
|
||||||
Width = 112
|
Width = 112
|
||||||
end
|
end
|
||||||
inherited rReferenciaFacturaProv: TcxDBTextEdit
|
inherited rReferenciaFacturaProv: TcxDBTextEdit
|
||||||
Left = 384
|
Left = 384
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 384
|
ExplicitLeft = 384
|
||||||
ExplicitWidth = 255
|
ExplicitWidth = 255
|
||||||
Width = 255
|
Width = 255
|
||||||
end
|
end
|
||||||
inherited rRefReciboCompensado: TcxDBTextEdit
|
inherited rRefReciboCompensado: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 112
|
ExplicitWidth = 112
|
||||||
Width = 112
|
Width = 112
|
||||||
end
|
end
|
||||||
@ -200,29 +155,17 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
|||||||
Width = 112
|
Width = 112
|
||||||
ExplicitWidth = 112
|
ExplicitWidth = 112
|
||||||
inherited cbTienda: TcxComboBox
|
inherited cbTienda: TcxComboBox
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 92
|
ExplicitWidth = 92
|
||||||
Width = 92
|
Width = 92
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited eDescripcion: TcxDBTextEdit
|
inherited eDescripcion: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 112
|
ExplicitWidth = 112
|
||||||
Width = 112
|
Width = 112
|
||||||
end
|
end
|
||||||
inherited eNifCif: TcxDBTextEdit
|
inherited eNifCif: TcxDBTextEdit
|
||||||
Left = 384
|
Left = 384
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 384
|
ExplicitLeft = 384
|
||||||
ExplicitWidth = 255
|
ExplicitWidth = 255
|
||||||
Width = 255
|
Width = 255
|
||||||
@ -241,56 +184,32 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
|||||||
end
|
end
|
||||||
inherited edtlNombre: TcxDBTextEdit
|
inherited edtlNombre: TcxDBTextEdit
|
||||||
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 283
|
ExplicitWidth = 283
|
||||||
Width = 283
|
Width = 283
|
||||||
end
|
end
|
||||||
inherited edtNIFCIF: TcxDBTextEdit
|
inherited edtNIFCIF: TcxDBTextEdit
|
||||||
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 283
|
ExplicitWidth = 283
|
||||||
Width = 283
|
Width = 283
|
||||||
end
|
end
|
||||||
inherited edtCalle: TcxDBTextEdit
|
inherited edtCalle: TcxDBTextEdit
|
||||||
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 283
|
ExplicitWidth = 283
|
||||||
Width = 283
|
Width = 283
|
||||||
end
|
end
|
||||||
inherited edtPoblacion: TcxDBTextEdit
|
inherited edtPoblacion: TcxDBTextEdit
|
||||||
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 165
|
ExplicitWidth = 165
|
||||||
Width = 165
|
Width = 165
|
||||||
end
|
end
|
||||||
inherited edtProvincia: TcxDBTextEdit
|
inherited edtProvincia: TcxDBTextEdit
|
||||||
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 283
|
ExplicitWidth = 283
|
||||||
Width = 283
|
Width = 283
|
||||||
end
|
end
|
||||||
inherited edtCodigoPostal: TcxDBTextEdit
|
inherited edtCodigoPostal: TcxDBTextEdit
|
||||||
Left = 282
|
Left = 282
|
||||||
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 282
|
ExplicitLeft = 282
|
||||||
end
|
end
|
||||||
inherited Button3: TBitBtn
|
inherited Button3: TBitBtn
|
||||||
@ -298,10 +217,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
|||||||
ExplicitLeft = 166
|
ExplicitLeft = 166
|
||||||
end
|
end
|
||||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 283
|
ExplicitWidth = 283
|
||||||
Width = 283
|
Width = 283
|
||||||
end
|
end
|
||||||
@ -469,25 +384,13 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
|||||||
inherited eImporte: TcxDBCurrencyEdit
|
inherited eImporte: TcxDBCurrencyEdit
|
||||||
DataBinding.DataSource = dsDataTable
|
DataBinding.DataSource = dsDataTable
|
||||||
Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged
|
Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 150
|
ExplicitWidth = 150
|
||||||
Width = 150
|
Width = 150
|
||||||
end
|
end
|
||||||
inherited eOtrosGastos: TcxDBCurrencyEdit
|
inherited eOtrosGastos: TcxDBCurrencyEdit
|
||||||
DataBinding.DataSource = dsDataTable
|
DataBinding.DataSource = dsDataTable
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
end
|
end
|
||||||
inherited eImporteTotalRecibo: TcxCurrencyEdit
|
inherited eImporteTotalRecibo: TcxCurrencyEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 315
|
ExplicitWidth = 315
|
||||||
Width = 315
|
Width = 315
|
||||||
end
|
end
|
||||||
|
|||||||
@ -395,17 +395,26 @@ begin
|
|||||||
if Assigned(Recibo) then
|
if Assigned(Recibo) then
|
||||||
begin
|
begin
|
||||||
if Recibo.EsNuevo then
|
if Recibo.EsNuevo then
|
||||||
FTitulo := 'Nuevo recibo de proveedor'
|
begin
|
||||||
else
|
if Recibo.SinFactura then
|
||||||
FTitulo := 'Recibo de proveedor';
|
FTitulo := 'Nuevo recibo libre de proveedor'
|
||||||
|
else
|
||||||
|
FTitulo := 'Nuevo recibo de factura de proveedor'
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
if Recibo.SinFactura then
|
||||||
|
FTitulo := 'Recibo libre de cliente'
|
||||||
|
else
|
||||||
|
FTitulo := 'Recibo de factura de cliente'
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (Recibo.ID_RECIBO_COMPENSADO > 0) then
|
||||||
|
FTitulo := FTitulo + ' (compensado)';
|
||||||
|
|
||||||
|
if Length(Recibo.NOMBRE_PROVEEDOR) > 0 then
|
||||||
|
FTitulo := FTitulo + ' - ' + Recibo.NOMBRE_PROVEEDOR;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if (Recibo.ID_RECIBO_COMPENSADO > 0) then
|
|
||||||
FTitulo := FTitulo + ' (compensado)';
|
|
||||||
|
|
||||||
if Length(Recibo.NOMBRE_PROVEEDOR) > 0 then
|
|
||||||
FTitulo := FTitulo + ' - ' + Recibo.NOMBRE_PROVEEDOR;
|
|
||||||
|
|
||||||
inherited PonerTitulos(FTitulo);
|
inherited PonerTitulos(FTitulo);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user