arreglo de duplicar presupuestos para que no copie la factura relacionada del presupuesto si la tuviera

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@791 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-12-02 17:23:33 +00:00
parent e136ba4c8f
commit c7ec8445a1
3 changed files with 5 additions and 2 deletions

View File

@ -432,9 +432,12 @@ begin
USUARIO := AppFactuGES.UsuarioActivo.UserName; USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_PRESUPUESTO := DateOf(Now); FECHA_PRESUPUESTO := DateOf(Now);
INCIDENCIAS_ACTIVAS := 0; INCIDENCIAS_ACTIVAS := 0;
DataTable.FieldByName('INCIDENCIAS').AsVariant := Null; INCIDENCIASIsNull := True;
ID_FACTURAIsNull := True;
FECHA_DECISIONIsNull := True;
REFERENCIA := ''; REFERENCIA := '';
SITUACION := SITUACION_PRESUPUESTO_PENDIENTE; SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;
end; end;
Result.Post; Result.Post;
finally finally

Binary file not shown.

View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.4.7.0\0" VALUE "FileVersion", "1.4.7.0\0"
VALUE "ProductVersion", "1.4.7.0\0" VALUE "ProductVersion", "1.4.7.0\0"
VALUE "CompileDate", "lunes, 01 de diciembre de 2008 12:06\0" VALUE "CompileDate", "martes, 02 de diciembre de 2008 18:01\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"