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

Se habilita duplicar albaranes de cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@181 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-03-25 19:06:25 +00:00
parent 1f1879dcb4
commit c9e2512299
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -422,6 +422,7 @@ begin
USUARIO := AppFactuGES.UsuarioActivo.UserName; USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_ALBARAN := DateOf(Now); FECHA_ALBARAN := DateOf(Now);
INCIDENCIAS_ACTIVAS := 0; INCIDENCIAS_ACTIVAS := 0;
SITUACION := SITUACION_ALBARAN_PENDIENTE;
// INCIDENCIAS := Nil; // INCIDENCIAS := Nil;
REFERENCIA := ''; REFERENCIA := '';
FECHA_PREVISTA_ENVIO := 0; FECHA_PREVISTA_ENVIO := 0;

3
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -281,8 +281,6 @@ procedure TfEditorAlbaranesCliente.DuplicarInterno;
var var
APedido : IBizAlbaranCliente; APedido : IBizAlbaranCliente;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
APedido := FController.Duplicar(Albaranes); APedido := FController.Duplicar(Albaranes);
try try
@ -290,7 +288,6 @@ AppFactuGES.ShowCapado;
finally finally
actRefrescar.Execute; actRefrescar.Execute;
end; end;
}
end; end;
procedure TfEditorAlbaranesCliente.EliminarInterno; procedure TfEditorAlbaranesCliente.EliminarInterno;