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

Se desactiva la creación de ordenes de devolución cuando hacemos abonos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@235 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-05-23 14:57:11 +00:00
parent e78c983d16
commit cb82d83f57
4 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -657,7 +657,7 @@ begin
//En caso de ser un Abono no podra tener un importe total positivo
if (AFactura.TIPO = CTE_TIPO_ABONO) then
if (AFactura.IMPORTE_TOTAL >= 0) then
raise Exception.Create('Un abono nunca no puede tener un importe positivo');
raise Exception.Create('Un abono nunca no puede tener un importe positivo, asegurese que las cantidades sean negativas');
{ Asegurarse de valores en campos "automáticos" tanto
en MODIFICACIÓN como en INSERCIÓN. }

3
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

@ -245,11 +245,8 @@ begin
IVA := AppFactuGES.EmpresaActiva.IVA;
RE := 0;
SITUACION := CTE_PENDIENTE;
//TEMPORAL
ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
TIENDA := AppFactuGES.VAR_TIENDA;
IGNORAR_CONTABILIDAD := 0;
end;

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

@ -124,8 +124,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 169
end
inherited bFormasPago: TButton
Left = 240
ExplicitLeft = 240
Left = 183
ExplicitLeft = 183
end
inherited eReferenciaProveedor: TcxDBTextEdit
ExplicitWidth = 316
@ -143,13 +143,17 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end
end
inherited frViewProveedorFactura1: TfrViewProveedorFactura
Left = 400
Left = 343
Width = 350
ExplicitLeft = 400
ExplicitLeft = 343
ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl
Width = 350
ExplicitWidth = 350
inherited Bevel1: TBevel
Width = 242
ExplicitWidth = 242
end
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = dsDataTable
ExplicitWidth = 266
@ -175,7 +179,17 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 266
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 258
DataBinding.DataSource = dsDataTable
ExplicitLeft = 258
end
inherited Button3: TBitBtn
Left = 142
ExplicitLeft = 142
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
end
end

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

@ -272,7 +272,7 @@ begin
begin
ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA);
//Preguntamos is desea hacer una orden de devolución asociada
if (Application.MessageBox('¿Desea crear una orden de devolución para el abono?', 'Atención', MB_YESNO) = IDYES) then
// if (Application.MessageBox('¿Desea crear una orden de devolución para el abono?', 'Atención', MB_YESNO) = IDYES) then
// GenerarAlbaranProv(FFactura);
end;
end;