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

Arreglo en factura para que cuando añadimos una nueva y cerramos sin hacer nada no de error

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@313 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2009-03-03 18:52:06 +00:00
parent 0c1b87a136
commit 347c202cb3
9 changed files with 112 additions and 102 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico" MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 3,3,1,0 FILEVERSION 3,3,2,0
PRODUCTVERSION 3,3,1,0 PRODUCTVERSION 3,3,2,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,9 +13,9 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "3.3.1.0\0" VALUE "FileVersion", "3.3.2.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductVersion", "3.3.1.0\0" VALUE "ProductVersion", "3.3.2.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

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

@ -209,40 +209,40 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 58 ExplicitWidth = 58
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 237 Left = 252
ExplicitLeft = 237 ExplicitLeft = 252
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 254 Left = 269
ExplicitLeft = 254 ExplicitLeft = 269
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 262 Left = 277
ExplicitLeft = 262 ExplicitLeft = 277
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 296 Left = 311
ExplicitLeft = 296 ExplicitLeft = 311
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 330 Left = 345
ExplicitLeft = 330 ExplicitLeft = 345
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 364 Left = 379
ExplicitLeft = 364 ExplicitLeft = 379
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 372 Left = 387
ExplicitLeft = 372 ExplicitLeft = 387
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 406 Left = 421
ExplicitLeft = 406 ExplicitLeft = 421
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 440 Left = 455
ExplicitLeft = 440 ExplicitLeft = 455
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
@ -299,18 +299,18 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 73 ExplicitWidth = 73
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 420 Left = 441
Top = 30 Top = 30
Height = 122 Height = 122
ExplicitLeft = 420 ExplicitLeft = 441
ExplicitTop = 30 ExplicitTop = 30
ExplicitHeight = 122 ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 532 Left = 553
Top = 111 Top = 111
Width = 186 Width = 186
ExplicitLeft = 532 ExplicitLeft = 553
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 186 ExplicitWidth = 186
end end
@ -322,19 +322,19 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 603 Left = 624
Top = 57 Top = 57
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 603 ExplicitLeft = 624
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 533 Left = 554
Top = 131 Top = 131
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 533 ExplicitLeft = 554
ExplicitTop = 131 ExplicitTop = 131
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
@ -346,34 +346,34 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 131 ExplicitTop = 131
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 532 Left = 553
Top = 57 Top = 57
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 532 ExplicitLeft = 553
ExplicitTop = 57 ExplicitTop = 57
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 532 Left = 553
Top = 30 Top = 30
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 532 ExplicitLeft = 553
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 532 Left = 553
Top = 84 Top = 84
Properties.AssignedValues.MinValue = True Properties.AssignedValues.MinValue = True
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 532 ExplicitLeft = 553
ExplicitTop = 84 ExplicitTop = 84
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 603 Left = 624
Top = 84 Top = 84
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 603 ExplicitLeft = 624
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
@ -404,18 +404,17 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 134 Width = 134
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 272 Left = 293
Top = 57 Top = 57
OnClick = frViewTotales1bTiposIVAClick OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 272 ExplicitLeft = 293
ExplicitTop = 57 ExplicitTop = 57
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 84 Top = 84
Properties.OnEditValueChanged = frViewTotales1cbRecargoEquivalenciaPropertiesEditValueChanged
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 219 ExplicitWidth = 314
Width = 219 Width = 314
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup

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

@ -40,14 +40,15 @@ type
procedure frViewTotales1bTiposIVAClick(Sender: TObject); procedure frViewTotales1bTiposIVAClick(Sender: TObject);
procedure frViewTotales1eIVAPropertiesValidate(Sender: TObject; procedure frViewTotales1eIVAPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure frViewTotales1cbRecargoEquivalenciaPropertiesEditValueChanged(
Sender: TObject);
procedure frViewTotales1ePortePropertiesValidate(Sender: TObject; procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure frViewTotales1ePorteEditing(Sender: TObject; procedure frViewTotales1ePorteEditing(Sender: TObject;
var CanEdit: Boolean); var CanEdit: Boolean);
procedure actEnviarEMailExecute(Sender: TObject); procedure actEnviarEMailExecute(Sender: TObject);
procedure actEnviarEMailUpdate(Sender: TObject); procedure actEnviarEMailUpdate(Sender: TObject);
procedure OnRecargoEquivalenciaPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
private private
procedure RecalcularPortePorUnidad; procedure RecalcularPortePorUnidad;
@ -121,14 +122,15 @@ begin
inherited; inherited;
dsDataTable.DataTable := NIL; dsDataTable.DataTable := NIL;
frViewTotales1.DADataSource.DataTable := NIL; frViewTotales1.DADataSource.DataTable := NIL;
frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := Nil;
FViewFactura := NIL; FViewFactura := NIL;
FFactura := NIL; FFactura := NIL;
FTiposIVAController := NIL;
end; end;
destructor TfEditorFacturaCliente.Destroy; destructor TfEditorFacturaCliente.Destroy;
begin begin
FTiposIVAController := NIL;
inherited; inherited;
end; end;
@ -167,6 +169,7 @@ begin
if not Assigned(Factura) then if not Assigned(Factura) then
raise Exception.Create('No hay ninguna factura asignada'); raise Exception.Create('No hay ninguna factura asignada');
frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := OnRecargoEquivalenciaPropertiesValidate;
Factura.DataTable.Active := True; Factura.DataTable.Active := True;
end; end;
@ -190,14 +193,15 @@ begin
FTiposIVAController.VerTodos((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA); FTiposIVAController.VerTodos((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA);
end; end;
procedure TfEditorFacturaCliente.frViewTotales1cbRecargoEquivalenciaPropertiesEditValueChanged( procedure TfEditorFacturaCliente.OnRecargoEquivalenciaPropertiesValidate(
Sender: TObject); Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin begin
inherited; inherited;
{ if frViewTotales1.cbRecargoEquivalencia.Checked then if frViewTotales1.cbRecargoEquivalencia.Checked then
Factura.RECARGO_EQUIVALENCIA := 1 Factura.RECARGO_EQUIVALENCIA := 1
else else
Factura.RECARGO_EQUIVALENCIA := 0;} Factura.RECARGO_EQUIVALENCIA := 0;
end; end;
procedure TfEditorFacturaCliente.frViewTotales1edtDescuentoPropertiesValidate( procedure TfEditorFacturaCliente.frViewTotales1edtDescuentoPropertiesValidate(

92
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -71,7 +71,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 788 Width = 788
Height = 315 Height = 315
ActivePage = pagContenido
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 788 ExplicitWidth = 788
ExplicitHeight = 315 ExplicitHeight = 315
@ -102,22 +101,22 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 780 ExplicitWidth = 780
ExplicitHeight = 287 ExplicitHeight = 287
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 159 ExplicitWidth = 230
Width = 159 Width = 230
end end
inherited edtFecha: TcxDBDateEdit inherited edtFecha: TcxDBDateEdit
ExplicitWidth = 159 ExplicitWidth = 230
Width = 159 Width = 230
end end
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
ExplicitWidth = 301 ExplicitWidth = 344
ExplicitHeight = 159 ExplicitHeight = 107
Height = 159 Height = 107
Width = 301 Width = 344
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
ExplicitWidth = 78 ExplicitWidth = 92
Width = 78 Width = 92
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 234 Left = 234
@ -125,35 +124,35 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
Left = 394 Left = 394
Width = 350 Width = 364
ExplicitLeft = 394 ExplicitLeft = 394
ExplicitWidth = 350 ExplicitWidth = 364
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 350 Width = 364
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
ExplicitWidth = 276 ExplicitWidth = 290
Width = 276 Width = 290
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
ExplicitWidth = 562 ExplicitWidth = 290
Width = 562 Width = 290
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
ExplicitWidth = 562 ExplicitWidth = 290
Width = 562 Width = 290
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
ExplicitWidth = 177 ExplicitWidth = 172
Width = 177 Width = 172
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
ExplicitWidth = 327 ExplicitWidth = 290
Width = 327 Width = 290
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 272 Left = 272
@ -166,6 +165,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end end
end end
inherited eReferenciaProveedor: TcxDBTextEdit
ExplicitWidth = 230
Width = 230
end
end end
end end
end end
@ -303,18 +306,18 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 73 ExplicitWidth = 73
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 420 Left = 441
Top = 30 Top = 30
Height = 122 Height = 122
ExplicitLeft = 420 ExplicitLeft = 441
ExplicitTop = 30 ExplicitTop = 30
ExplicitHeight = 122 ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 532 Left = 553
Top = 111 Top = 111
Width = 186 Width = 186
ExplicitLeft = 532 ExplicitLeft = 553
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 186 ExplicitWidth = 186
end end
@ -326,19 +329,19 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 603 Left = 624
Top = 57 Top = 57
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 603 ExplicitLeft = 624
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 533 Left = 554
Top = 131 Top = 131
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 533 ExplicitLeft = 554
ExplicitTop = 131 ExplicitTop = 131
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
@ -350,34 +353,34 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitTop = 131 ExplicitTop = 131
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 532 Left = 553
Top = 57 Top = 57
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 532 ExplicitLeft = 553
ExplicitTop = 57 ExplicitTop = 57
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 532 Left = 553
Top = 30 Top = 30
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 532 ExplicitLeft = 553
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 532 Left = 553
Top = 84 Top = 84
Properties.AssignedValues.MinValue = True Properties.AssignedValues.MinValue = True
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 532 ExplicitLeft = 553
ExplicitTop = 84 ExplicitTop = 84
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 603 Left = 624
Top = 84 Top = 84
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 603 ExplicitLeft = 624
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
@ -408,18 +411,17 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 134 Width = 134
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 272 Left = 293
Top = 57 Top = 57
OnClick = frViewTotales1bTiposIVAClick OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 272 ExplicitLeft = 293
ExplicitTop = 57 ExplicitTop = 57
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 84 Top = 84
Properties.OnEditValueChanged = frViewTotales1cbRecargoEquivalenciaPropertiesEditValueChanged
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 219 ExplicitWidth = 314
Width = 219 Width = 314
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
LookAndFeel = frViewFacturaProveedor1.dxLayoutOfficeLookAndFeel1 LookAndFeel = frViewFacturaProveedor1.dxLayoutOfficeLookAndFeel1

17
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
View File

@ -33,10 +33,12 @@ type
procedure frViewTotales1bTiposIVAClick(Sender: TObject); procedure frViewTotales1bTiposIVAClick(Sender: TObject);
procedure frViewTotales1eIVAPropertiesValidate(Sender: TObject; procedure frViewTotales1eIVAPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure frViewTotales1cbRecargoEquivalenciaPropertiesEditValueChanged(Sender: TObject);
procedure frViewTotales1ePortePropertiesValidate(Sender: TObject; procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure frViewTotales1ePorteEditing(Sender: TObject; var CanEdit: Boolean); procedure frViewTotales1ePorteEditing(Sender: TObject; var CanEdit: Boolean);
procedure OnRecargoEquivalenciaPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
private private
procedure RecalcularPortePorUnidad; procedure RecalcularPortePorUnidad;
@ -98,14 +100,15 @@ begin
inherited; inherited;
dsDataTable.DataTable := NIL; dsDataTable.DataTable := NIL;
frViewTotales1.DADataSource.DataTable := NIL; frViewTotales1.DADataSource.DataTable := NIL;
frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := Nil;
FViewFactura := NIL; FViewFactura := NIL;
FFactura := NIL; FFactura := NIL;
FTiposIVAController := NIL;
end; end;
destructor TfEditorFacturaProveedor.Destroy; destructor TfEditorFacturaProveedor.Destroy;
begin begin
FTiposIVAController := NIL;
inherited; inherited;
end; end;
@ -144,6 +147,7 @@ begin
if not Assigned(Factura) then if not Assigned(Factura) then
raise Exception.Create('No hay ninguna factura asignada'); raise Exception.Create('No hay ninguna factura asignada');
frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := OnRecargoEquivalenciaPropertiesValidate;
Factura.DataTable.Active := True; Factura.DataTable.Active := True;
end; end;
@ -167,14 +171,15 @@ begin
FTiposIVAController.VerTodos((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA); FTiposIVAController.VerTodos((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA);
end; end;
procedure TfEditorFacturaProveedor.frViewTotales1cbRecargoEquivalenciaPropertiesEditValueChanged( procedure TfEditorFacturaProveedor.OnRecargoEquivalenciaPropertiesValidate(
Sender: TObject); Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin begin
inherited; inherited;
{ if frViewTotales1.cbRecargoEquivalencia.Checked then if frViewTotales1.cbRecargoEquivalencia.Checked then
Factura.RECARGO_EQUIVALENCIA := 1 Factura.RECARGO_EQUIVALENCIA := 1
else else
Factura.RECARGO_EQUIVALENCIA := 0;} Factura.RECARGO_EQUIVALENCIA := 0;
end; end;
procedure TfEditorFacturaProveedor.frViewTotales1edtDescuentoPropertiesValidate( procedure TfEditorFacturaProveedor.frViewTotales1edtDescuentoPropertiesValidate(

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "3.3.1.0\0" VALUE "FileVersion", "3.3.1.0\0"
VALUE "ProductName", "FactuGES Server\0" VALUE "ProductName", "FactuGES Server\0"
VALUE "ProductVersion", "3.3.1.0\0" VALUE "ProductVersion", "3.3.1.0\0"
VALUE "CompileDate", "jueves, 26 de febrero de 2009 16:23\0" VALUE "CompileDate", "martes, 03 de marzo de 2009 19:36\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.