Cambios varios para subida

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@421 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-06-03 15:16:04 +00:00
parent 0c39d9a777
commit 56770ef2a2
6 changed files with 45 additions and 45 deletions

View File

@ -199,7 +199,7 @@ procedure TfEditorAlbaranesProveedor.ImprimirInterno;
AllItems: Boolean;
}
begin
AppFactuGES.ShowCapado;
inherited;
{
AAlbaranes := Nil;
AllItems := False;
@ -290,7 +290,7 @@ procedure TfEditorAlbaranesProveedor.PrevisualizarInterno;
AAlbaranes: IBizAlbaranProveedor;
AllItems: Boolean;}
begin
AppFactuGES.ShowCapado;
inherited;
{
AAlbaranes := Nil;
AllItems := False;

View File

@ -38,7 +38,7 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Width = 849
ExplicitWidth = 849
inherited tbxMain: TTBXToolbar
ExplicitWidth = 474
ExplicitWidth = 632
object TBXSubmenuItem2: TTBXSubmenuItem [0]
Caption = 'Nuevo'
DisplayMode = nbdmImageAndText
@ -131,27 +131,15 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Width = 849
ExplicitWidth = 849
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 752
Width = 752
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 282
Width = 282
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 386
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 386
ExplicitWidth = 453
Width = 453
@ -208,6 +196,12 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
inherited actConfPagina: TAction
Visible = False
end
inherited actPrevisualizar: TAction
Visible = True
end
inherited actImprimir: TAction
Visible = True
end
inherited actDuplicar: TAction
Hint = 'Generar una factura nueva a partir de la factura seleccionada'
end

View File

@ -231,7 +231,7 @@ procedure TfEditorFacturasProveedor.ImprimirInterno;
AFacturas: IBizFacturaProveedor;
AllItems: Boolean;}
begin
AppFactuGES.ShowCapado;
inherited;
{
AFacturas := Nil;
AllItems := False;
@ -333,7 +333,7 @@ procedure TfEditorFacturasProveedor.PrevisualizarInterno;
AFacturas: IBizFacturaProveedor;
AllItems: Boolean;}
begin
AppFactuGES.ShowCapado;
inherited;
{
AFacturas := Nil;
AllItems := False;

View File

@ -119,27 +119,15 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
Width = 645
ExplicitWidth = 645
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 548
Width = 548
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 194
Width = 194
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 298
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 298
ExplicitWidth = 337
Width = 337
@ -174,6 +162,14 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
BuiltInReportLink = True
end
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item
GridView = frViewRecibosCliente1.cxGridView
HitTypes = [gvhtCell]
Index = 0
end>
end
end
inherited EditorActionList: TActionList [4]
Left = 136

View File

@ -131,12 +131,13 @@ begin
end;
procedure TfEditorRecibosCliente.ImprimirInterno;
{var
{
Respuesta : Integer;
ARecibosCliente: IBizRecibosCliente;
AllItems: Boolean;}
}
begin
AppFactuGES.ShowCapado;
inherited;
{
ARecibosCliente := Nil;
AllItems := False;
@ -196,12 +197,13 @@ begin
end;
procedure TfEditorRecibosCliente.PrevisualizarInterno;
{var
{
Respuesta : Integer;
ARecibosCliente: IBizRecibosCliente;
AllItems: Boolean;}
}
begin
AppFactuGES.ShowCapado;
inherited;
{
ARecibosCliente := Nil;
AllItems := False;

View File

@ -3,7 +3,7 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
ClientHeight = 664
ClientWidth = 638
ExplicitWidth = 646
ExplicitHeight = 691
ExplicitHeight = 698
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -41,7 +41,7 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
Width = 638
ExplicitWidth = 638
inherited tbxMain: TTBXToolbar
ExplicitWidth = 276
ExplicitWidth = 434
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 638
@ -119,18 +119,18 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
Width = 638
ExplicitWidth = 638
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
ExplicitWidth = 541
Width = 541
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
ExplicitWidth = 190
Width = 190
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 294
ExplicitLeft = 294
ExplicitWidth = 244
Width = 244
ExplicitWidth = 334
Width = 334
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -162,6 +162,14 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
BuiltInReportLink = True
end
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item
GridView = frViewRecibosProveedor1.cxGridView
HitTypes = [gvhtCell]
Index = 0
end>
end
end
inherited EditorActionList: TActionList [4]
Left = 136
@ -176,10 +184,10 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
Visible = False
end
inherited actPrevisualizar: TAction
Enabled = False
Visible = True
end
inherited actImprimir: TAction
Enabled = False
Visible = True
end
inherited actDuplicar: TAction
Enabled = False