Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se habilita el duplicar factura, y poder imprimir factura en editorFactura

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@180 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-03-25 18:44:38 +00:00
parent fdabe53df8
commit 1f1879dcb4
9 changed files with 298 additions and 284 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.res
View File

Binary file not shown.

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

@ -122,7 +122,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 314
inherited dxLayoutControl1: TdxLayoutControl
Width = 314
ExplicitWidth = 314
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitWidth = 224
@ -219,40 +218,40 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 57
end
inherited UpDown1: TUpDown
Left = 218
ExplicitLeft = 218
Left = 202
ExplicitLeft = 202
end
inherited ToolButton13: TToolButton
Left = 235
ExplicitLeft = 235
Left = 219
ExplicitLeft = 219
end
inherited ToolButton6: TToolButton
Left = 243
ExplicitLeft = 243
Left = 227
ExplicitLeft = 227
end
inherited ToolButton7: TToolButton
Left = 277
ExplicitLeft = 277
Left = 261
ExplicitLeft = 261
end
inherited ToolButton8: TToolButton
Left = 311
ExplicitLeft = 311
Left = 295
ExplicitLeft = 295
end
inherited ToolButton12: TToolButton
Left = 345
ExplicitLeft = 345
Left = 329
ExplicitLeft = 329
end
inherited ToolButton9: TToolButton
Left = 353
ExplicitLeft = 353
Left = 337
ExplicitLeft = 337
end
inherited ToolButton10: TToolButton
Left = 387
ExplicitLeft = 387
Left = 371
ExplicitLeft = 371
end
inherited ToolButton11: TToolButton
Left = 421
ExplicitLeft = 421
Left = 405
ExplicitLeft = 405
end
end
inherited cxGrid: TcxGrid

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

@ -294,11 +294,8 @@ end;
procedure TfEditorFacturaCliente.ImprimirInterno;
begin
AppFactuGES.ShowCapado;
{
inherited;
FController.Print(FFactura);
}
end;
procedure TfEditorFacturaCliente.OnClienteChanged(Sender: TObject);
@ -374,11 +371,8 @@ end;
procedure TfEditorFacturaCliente.PrevisualizarInterno;
begin
AppFactuGES.ShowCapado;
{
inherited;
FController.Preview(FFactura);
}
end;
procedure TfEditorFacturaCliente.RecalcularPortePorUnidad;

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

@ -3,7 +3,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
ClientHeight = 666
ClientWidth = 640
ExplicitWidth = 648
ExplicitHeight = 693
ExplicitHeight = 700
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -141,8 +141,10 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Width = 240
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 351
ExplicitLeft = 351
Left = 367
ExplicitLeft = 367
ExplicitWidth = 244
Width = 244
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel

7
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -129,11 +129,9 @@ begin
end;
procedure TfEditorFacturasCliente.DuplicarInterno;
{var
AFactura : IBizFacturaCliente;}
var
AFactura : IBizFacturaCliente;
begin
AppFactuGES.ShowCapado;
{
inherited;
AFactura := FController.Duplicar(FFacturas);
try
@ -141,7 +139,6 @@ begin
finally
actRefrescar.Execute;
end;
}
end;
procedure TfEditorFacturasCliente.EliminarInterno;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "martes, 25 de marzo de 2008 9:34\0"
VALUE "CompileDate", "martes, 25 de marzo de 2008 19:25\0"
END
END
BLOCK "VarFileInfo"