Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios varios para subida

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

20
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm
View File

@ -38,7 +38,7 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Width = 849 Width = 849
ExplicitWidth = 849 ExplicitWidth = 849
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 474 ExplicitWidth = 632
object TBXSubmenuItem2: TTBXSubmenuItem [0] object TBXSubmenuItem2: TTBXSubmenuItem [0]
Caption = 'Nuevo' Caption = 'Nuevo'
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -131,27 +131,15 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Width = 849 Width = 849
ExplicitWidth = 849 ExplicitWidth = 849
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 752 ExplicitWidth = 752
Width = 752 Width = 752
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 282 ExplicitWidth = 282
Width = 282 Width = 282
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 386 Left = 386
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 386 ExplicitLeft = 386
ExplicitWidth = 453 ExplicitWidth = 453
Width = 453 Width = 453
@ -208,6 +196,12 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
inherited actConfPagina: TAction inherited actConfPagina: TAction
Visible = False Visible = False
end end
inherited actPrevisualizar: TAction
Visible = True
end
inherited actImprimir: TAction
Visible = True
end
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

4
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas
View File

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

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

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

14
Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas
View File

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

28
Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm
View File

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