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); var Error: Boolean);
begin begin
inherited; inherited;
if not VarIsNull(DisplayValue) then if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then
begin begin
cxGridViewDESCUENTO.DataBinding.Field.Value := ((cxGridViewIMPORTEUNIDAD.DataBinding.Field.Value - DisplayValue) * 100) / cxGridViewIMPORTEUNIDAD.DataBinding.Field.Value; cxGridViewDESCUENTO.DataBinding.Field.Value := ((cxGridViewIMPORTEUNIDAD.DataBinding.Field.Value - DisplayValue) * 100) / cxGridViewIMPORTEUNIDAD.DataBinding.Field.Value;
Controller.ActualizarTotales(Detalles); Controller.ActualizarTotales(Detalles);

6
Source/Cliente/FactuGES.bdsproj
View File

@ -149,7 +149,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo> <VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo> <VersionInfo Name="MajorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">3</VersionInfo> <VersionInfo Name="MinorVer">3</VersionInfo>
<VersionInfo Name="Release">4</VersionInfo> <VersionInfo Name="Release">5</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo> <VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo> <VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo> <VersionInfo Name="PreRelease">False</VersionInfo>
@ -162,13 +162,13 @@
<VersionInfoKeys> <VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys> <VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></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="InternalName">FactuGES</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys> <VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">2.1.4</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion"></VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys> <Excluded_Packages> </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> <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" MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,3,4,0 FILEVERSION 2,3,5,0
PRODUCTVERSION 2,3,4,0 PRODUCTVERSION 2,3,5,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" 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 "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.1.4\0" VALUE "ProductVersion", "2.3.5.0\0"
END END
END END
BLOCK "VarFileInfo" 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); var Error: Boolean);
begin begin
inherited; inherited;
if not VarIsNull(DisplayValue) then if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then
FAlbaran.IMPORTE_PORTE := DisplayValue FAlbaran.IMPORTE_PORTE := DisplayValue
else else
FAlbaran.IMPORTE_PORTE := 0; 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 begin
inherited; inherited;
if VarIsNull(DisplayValue) or (DisplayValue = '') then if not (VarIsNull(DisplayValue) or (DisplayValue = '')) then
begin 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 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 begin
@ -267,7 +267,7 @@ procedure TfrViewAlbaranCliente.eFechaPrevistaPropertiesValidate(Sender: TObject
var Error: Boolean); var Error: Boolean);
begin begin
inherited; inherited;
if VarIsNull(DisplayValue) or (DisplayValue = '') then if not (VarIsNull(DisplayValue) or (DisplayValue = '')) then
begin 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 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 begin

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

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

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

@ -91,10 +91,9 @@ begin
Exit; Exit;
lsReferencia := VarToStr(DisplayValue); lsReferencia := VarToStr(DisplayValue);
if (length(trim(lsReferencia)) = 0) then if (Length(Trim(lsReferencia)) = 0) then
Exit; Exit;
if not AnadirArticulo(lsReferencia, tCliente) then if not AnadirArticulo(lsReferencia, tCliente) then
begin begin
ErrorText := 'La referencia introducida no exite en el catálogo'; 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 begin
inherited; inherited;
if not VarIsNull(DisplayValue) then if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then
FFactura.IMPORTE_PORTE := DisplayValue FFactura.IMPORTE_PORTE := DisplayValue
else else
FFactura.IMPORTE_PORTE := 0; 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); var Error: Boolean);
begin begin
inherited; inherited;
if not VarIsNull(DisplayValue) then if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then
FFactura.IMPORTE_PORTE := DisplayValue FFactura.IMPORTE_PORTE := DisplayValue
else else
FFactura.IMPORTE_PORTE := 0; 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 Name="Comments"></VersionInfoKeys>
</VersionInfoKeys> </VersionInfoKeys>
</Delphi.Personality> </Delphi.Personality>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=519 EurekaLog Version=519
Activate=1 Activate=1

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

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

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

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

13
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -154,7 +154,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo> <VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo> <VersionInfo Name="MajorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">3</VersionInfo> <VersionInfo Name="MinorVer">3</VersionInfo>
<VersionInfo Name="Release">3</VersionInfo> <VersionInfo Name="Release">5</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo> <VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo> <VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo> <VersionInfo Name="PreRelease">False</VersionInfo>
@ -167,16 +167,19 @@
<VersionInfoKeys> <VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys> <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></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="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys> <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">2.3.2.0</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion"></VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
<VersionInfoKeys Name="CompileDate">miércoles, 17 de octubre de 2007 14:01</VersionInfoKeys></VersionInfoKeys> <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> <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> <ModelSupport>False</ModelSupport>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

10
Source/Servidor/FactuGES_Server.rc
View File

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

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.