diff --git a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
index 499b0286..0e125e53 100644
--- a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
+++ b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
@@ -9,6 +9,7 @@
+
@@ -151,14 +152,23 @@
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+
\ No newline at end of file
diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
index f6e7e4c9..74a93251 100644
--- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
@@ -190,8 +190,9 @@ begin
SITUACION := SITUACION_ALBARAN_PENDIENTE;
REFERENCIA := '';
TIPO := CTE_TIPO_ALBARAN;
- // ALMACÉN PUESTO A CAPÓN Y PROVISIONAL
- ID_ALMACEN := 2;
+
+ // NO SE TIENEN EN CUENTA LOS ALBARANES DE CLIENTE PARA EL STOCK DE ALMACEN "DE MOMENTO"
+ ID_ALMACEN := ID_NULO;
end;
procedure TBizAlbaranCliente.IVAOnChange(Sender: TDACustomField);
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
index 1472c6d9..74f6b1e8 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
@@ -408,11 +408,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited ImporteDto: TcxDBCurrencyEdit
Left = 164
Top = 112
- Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
- StyleDisabled.LookAndFeel.SkinName = ''
- StyleFocused.LookAndFeel.SkinName = ''
- StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 164
ExplicitTop = 112
ExplicitWidth = 188
@@ -422,11 +418,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 555
Top = 38
DataBinding.DataField = ''
- Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
- StyleDisabled.LookAndFeel.SkinName = ''
- StyleFocused.LookAndFeel.SkinName = ''
- StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 555
ExplicitTop = 38
ExplicitWidth = 182
@@ -435,11 +427,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 485
Top = 112
- Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
- StyleDisabled.LookAndFeel.SkinName = ''
- StyleFocused.LookAndFeel.SkinName = ''
- StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 485
ExplicitTop = 112
ExplicitWidth = 252
@@ -448,11 +436,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited edtDescuento: TcxDBSpinEdit
Left = 93
Top = 112
- Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
- StyleDisabled.LookAndFeel.SkinName = ''
- StyleFocused.LookAndFeel.SkinName = ''
- StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 112
end
@@ -460,22 +444,14 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 484
Top = 38
DataBinding.DataField = ''
- Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
- StyleDisabled.LookAndFeel.SkinName = ''
- StyleFocused.LookAndFeel.SkinName = ''
- StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 484
ExplicitTop = 38
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 484
Top = 11
- Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
- StyleDisabled.LookAndFeel.SkinName = ''
- StyleFocused.LookAndFeel.SkinName = ''
- StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 484
ExplicitTop = 11
ExplicitWidth = 253
@@ -485,11 +461,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 484
Top = 65
DataBinding.DataField = ''
- Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
- StyleDisabled.LookAndFeel.SkinName = ''
- StyleFocused.LookAndFeel.SkinName = ''
- StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 484
ExplicitTop = 65
end
@@ -497,11 +469,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 555
Top = 65
DataBinding.DataField = ''
- Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
- StyleDisabled.LookAndFeel.SkinName = ''
- StyleFocused.LookAndFeel.SkinName = ''
- StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 555
ExplicitTop = 65
ExplicitWidth = 182
@@ -510,11 +478,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited eImporteNeto: TcxDBCurrencyEdit
Left = 93
Top = 11
- Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
- StyleDisabled.LookAndFeel.SkinName = ''
- StyleFocused.LookAndFeel.SkinName = ''
- StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 11
ExplicitWidth = 259
@@ -524,11 +488,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 93
Top = 139
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
- Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
- StyleDisabled.LookAndFeel.SkinName = ''
- StyleFocused.LookAndFeel.SkinName = ''
- StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 139
ExplicitWidth = 259
@@ -538,10 +498,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 93
Top = 38
DataBinding.DataField = ''
- Style.LookAndFeel.SkinName = ''
- StyleDisabled.LookAndFeel.SkinName = ''
- StyleFocused.LookAndFeel.SkinName = ''
- StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 38
ExplicitWidth = 121
@@ -558,10 +514,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Top = 65
DataBinding.DataField = ''
DataBinding.DataSource = nil
- Style.LookAndFeel.SkinName = ''
- StyleDisabled.LookAndFeel.SkinName = ''
- StyleFocused.LookAndFeel.SkinName = ''
- StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 65
ExplicitWidth = 259
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
index c0a4a913..84285e12 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
@@ -152,9 +152,10 @@ end;
procedure TfEditorAlbaranesCliente.actEliminarUpdate(Sender: TObject);
begin
inherited;
- if (Sender as TAction).Enabled then
- (Sender as TAction).Enabled := (FAlbaranes.SITUACION = SITUACION_ALBARAN_PENDIENTE)
- and not (FAlbaranes.ID_FACTURA > 0)
+ if (Sender as TAction).Enabled
+ and (FAlbaranes.TIPO = CTE_TIPO_ALBARAN) then
+ (Sender as TAction).Enabled := not (FAlbaranes.ID_FACTURA > 0)
+ and (FAlbaranes.SITUACION = SITUACION_ALBARAN_PENDIENTE)
end;
procedure TfEditorAlbaranesCliente.actGenerarEtiquetasExecute(Sender: TObject);
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.dfm
index 3744688a..cc204529 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.dfm
@@ -1,6 +1,5 @@
inherited fEditorAlbaranesDevCliente: TfEditorAlbaranesDevCliente
Caption = 'Lista de '#243'rdenes de devoluci'#243'n a cliente'
- ExplicitHeight = 478
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.pas
index b1087af3..fc94d886 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.pas
@@ -26,14 +26,14 @@ implementation
uses
uDataModuleUsuarios, uViewAlbaranesDevCliente, uFactuGES_App;
-
+
{ TfEditorAlbaranesDevCliente }
procedure TfEditorAlbaranesDevCliente.actEliminarUpdate(Sender: TObject);
begin
- inherited;
- if (Sender as TAction).Enabled then
- (Sender as TAction).Enabled := (FAlbaranes.REF_FACTURA = '');
+ inherited;
+ if (Sender as TAction).Enabled then
+ (Sender as TAction).Enabled := not (FAlbaranes.ID_FACTURA > 0);
end;
procedure TfEditorAlbaranesDevCliente.AsignarVista;
diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
index 447bd6ce..57aad880 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
@@ -185,7 +185,7 @@ begin
TIPO := CTE_TIPO_ALBARAN;
// OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
// ALMACÉN PUESTO A CAPÓN Y PROVISIONAL
- ID_ALMACEN := 2;
+// ID_ALMACEN := 2;
end;
procedure TBizAlbaranProveedor.IVAOnChange(Sender: TDACustomField);
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 3e6ccaf4..d0e84fd9 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 314d2e9a..5f30bda5 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.0.4.0\0"
VALUE "ProductVersion", "1.0.4.0\0"
- VALUE "CompileDate", "martes, 03 de junio de 2008 12:49\0"
+ VALUE "CompileDate", "martes, 03 de junio de 2008 13:29\0"
END
END
BLOCK "VarFileInfo"