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

- Incremento de versión -> 2.3.5

Browse Source 
- Fallo de conversión de tipos en los campos 'importe del porte' de varios módulos al dejar el valor vacío.


git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@190 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
David Arranz 2007-12-05 17:35:00 +00:00
parent c215d3906a
commit 335f7e65a5
19 changed files with 36 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl5
View File

Binary file not shown.

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

2
Source/Base/GUIBase/uViewDetallesDTO.pas
View File

@ -58,7 +58,7 @@ procedure TfrViewDetallesDTO.cxGridViewIMPORTENETOPropertiesValidate(Sender: TOb
var Error: Boolean);
begin
inherited;
if not VarIsNull(DisplayValue) then
if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then
begin
cxGridViewDESCUENTO.DataBinding.Field.Value := ((cxGridViewIMPORTEUNIDAD.DataBinding.Field.Value - DisplayValue) * 100) / cxGridViewIMPORTEUNIDAD.DataBinding.Field.Value;
Controller.ActualizarTotales(Detalles);

6
Source/Cliente/FactuGES.bdsproj
View File

@ -149,7 +149,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">3</VersionInfo>
<VersionInfo Name="Release">4</VersionInfo>
<VersionInfo Name="Release">5</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
@ -162,13 +162,13 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.3.4.0</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.3.5.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">2.1.4</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion"></VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys> <Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>

8
Source/Cliente/FactuGES.rc
View File

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

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

2
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -169,7 +169,7 @@ procedure TfEditorAlbaranCliente.frViewTotales1ePortePropertiesValidate(
var Error: Boolean);
begin
inherited;
if not VarIsNull(DisplayValue) then
if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then
FAlbaran.IMPORTE_PORTE := DisplayValue
else
FAlbaran.IMPORTE_PORTE := 0;

4
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas
View File

@ -249,7 +249,7 @@ procedure TfrViewAlbaranCliente.eFechaEnvioPropertiesValidate(Sender: TObject;
begin
inherited;
if VarIsNull(DisplayValue) or (DisplayValue = '') then
if not (VarIsNull(DisplayValue) or (DisplayValue = '')) then
begin
if (ShowConfirmMessage('Si elimina la fecha prevista de envio, se eliminarán tambien las fechas de envio y recepción en caso de tenerlas. ¿Desea continuar?', '') = IDYES) then
begin
@ -267,7 +267,7 @@ procedure TfrViewAlbaranCliente.eFechaPrevistaPropertiesValidate(Sender: TObject
var Error: Boolean);
begin
inherited;
if VarIsNull(DisplayValue) or (DisplayValue = '') then
if not (VarIsNull(DisplayValue) or (DisplayValue = '')) then
begin
if (ShowConfirmMessage('Si elimina la fecha prevista de envio, se eliminarán tambien las fechas de envio y recepción en caso de tenerlas. ¿Desea continuar?', '') = IDYES) then
begin

2
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
View File

@ -169,7 +169,7 @@ procedure TfEditorAlbaranProveedor.frViewTotales1ePortePropertiesValidate(
var Error: Boolean);
begin
inherited;
if not VarIsNull(DisplayValue) then
if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then
FAlbaran.IMPORTE_PORTE := DisplayValue
else
FAlbaran.IMPORTE_PORTE := 0;

3
Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
View File

@ -91,10 +91,9 @@ begin
Exit;
lsReferencia := VarToStr(DisplayValue);
if (length(trim(lsReferencia)) = 0) then
if (Length(Trim(lsReferencia)) = 0) then
Exit;
if not AnadirArticulo(lsReferencia, tCliente) then
begin
ErrorText := 'La referencia introducida no exite en el catálogo';

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

@ -212,7 +212,7 @@ procedure TfEditorFacturaCliente.frViewTotales1ePortePropertiesValidate(
begin
inherited;
if not VarIsNull(DisplayValue) then
if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then
FFactura.IMPORTE_PORTE := DisplayValue
else
FFactura.IMPORTE_PORTE := 0;

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

@ -206,7 +206,7 @@ procedure TfEditorFacturaProveedor.frViewTotales1ePortePropertiesValidate(
var Error: Boolean);
begin
inherited;
if not VarIsNull(DisplayValue) then
if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then
FFactura.IMPORTE_PORTE := DisplayValue
else
FFactura.IMPORTE_PORTE := 0;

2
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.bdsproj
View File

@ -172,7 +172,7 @@
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
</Delphi.Personality>
<!-- EurekaLog First Line
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=519
Activate=1

4
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
View File

@ -123,6 +123,10 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasProv: TfrViewIncidencias
Left = 0
Top = 0

4
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas
View File

@ -147,8 +147,8 @@ procedure TfEditorPedidoProveedor.frViewTotales1ePortePropertiesValidate(
var Error: Boolean);
begin
inherited;
if (not VarIsNull(DisplayValue)) and (VarToStr(DisplayValue) <> '') then
FPedido.IMPORTE_PORTE := DisplayValue
if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then
FPedido.IMPORTE_PORTE := DisplayValue
else
FPedido.IMPORTE_PORTE := 0;

2
Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.pas
View File

@ -148,7 +148,7 @@ procedure TfEditorPedidoCliente.frViewTotales1ePortePropertiesValidate(
var Error: Boolean);
begin
inherited;
if not VarIsNull(DisplayValue) then
if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then
FPedido.IMPORTE_PORTE := DisplayValue
else
FPedido.IMPORTE_PORTE := 0;

13
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -154,7 +154,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">3</VersionInfo>
<VersionInfo Name="Release">3</VersionInfo>
<VersionInfo Name="Release">5</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
@ -167,16 +167,19 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.3.3.0</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.3.5.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">2.3.2.0</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion"></VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
<VersionInfoKeys Name="CompileDate">miércoles, 17 de octubre de 2007 14:01</VersionInfoKeys></VersionInfoKeys>
<Excluded_Packages><Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages></Excluded_Packages></Delphi.Personality>
<VersionInfoKeys Name="CompileDate"></VersionInfoKeys></VersionInfoKeys>
<Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<ModelSupport>False</ModelSupport>
<!-- EurekaLog First Line
[Exception Log]

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,3,3,0
PRODUCTVERSION 2,3,3,0
FILEVERSION 2,3,5,0
PRODUCTVERSION 2,3,5,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN
BLOCK "0C0904E4"
BEGIN
VALUE "FileVersion", "2.3.3.0\0"
VALUE "ProductVersion", "2.3.3.0\0"
VALUE "CompileDate", "martes, 04 de diciembre de 2007 13:27\0"
VALUE "FileVersion", "2.3.5.0\0"
VALUE "ProductVersion", "2.3.5.0\0"
VALUE "CompileDate", "miércoles, 05 de diciembre de 2007 18:27\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.