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 //En caso de ser un Abono no podra tener un importe total positivo
if (AFactura.TIPO = CTE_TIPO_ABONO) then if (AFactura.TIPO = CTE_TIPO_ABONO) then
if (AFactura.IMPORTE_TOTAL >= 0) 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 { Asegurarse de valores en campos "automáticos" tanto
en MODIFICACIÓN como en INSERCIÓN. } 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; IVA := AppFactuGES.EmpresaActiva.IVA;
RE := 0; RE := 0;
SITUACION := CTE_PENDIENTE; SITUACION := CTE_PENDIENTE;
//TEMPORAL
ID_TIENDA := AppFactuGES.VAR_IDTIENDA; ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
TIENDA := AppFactuGES.VAR_TIENDA; TIENDA := AppFactuGES.VAR_TIENDA;
IGNORAR_CONTABILIDAD := 0; IGNORAR_CONTABILIDAD := 0;
end; end;

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

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

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

@ -272,7 +272,7 @@ begin
begin begin
ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA); ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA);
//Preguntamos is desea hacer una orden de devolución asociada //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); // GenerarAlbaranProv(FFactura);
end; end;
end; end;