BaseDatos/TablaFacturasProveedor.pas

@@ -20,6 +20,7 @@
     ---------------------------------------------------------------------------
     02-02-2004    Se ha eliminado el atributo SERIE (P8 MULTIEMPRESA)
                   Se ha adaptado a los nuevos contadores
+
 ===============================================================================
 }
 
@@ -154,6 +155,7 @@ type
     function DarTiposOpDesTrimestral(var ListaCodigos: TStrings): TStrings;
     function ComprobarTrimestreFactura(CodigoFactura: String): Boolean;
     function AsignarTrimestre(CodigoFactura: String; CodigoTrimestre: String): Boolean;
+    function ModificarSituacionFacturas(Codigos: TStrings; Situacion: String): Boolean;
   end;
 
 var
@@ -1194,6 +1196,47 @@ begin
   end;
 end;
 
+function TdmTablaFacturasProveedor.ModificarSituacionFacturas(Codigos: TStrings; Situacion: String): Boolean;
+var
+  oSQL : TIBSQL;
+  Indice : Integer;
+  Cadena : String;
+begin
+  Result := False;
+  if Codigos.Count = 0 then
+     Exit;
+
+  //Formateamos los códigos para optimizar la sentencia SQL
+  for Indice:=0 to Codigos.Count-1 do
+  begin
+    if (Indice <> 0) then
+       Cadena := Cadena + ',';
+    Cadena := Cadena + '''' + Codigos.Strings[Indice] + '''';
+  end;
+
+  oSQL := TIBSQL.Create(Self);
+  with oSQL do
+  begin
+    Database := dmBaseDatos.BD;
+    Transaction := dmBaseDatos.Transaccion;
+    SQL.Add('update FACTURASPROVEEDOR ');
+    SQL.Add('set SITUACION = :SITUACION ');
+    SQL.Add('where CODIGOEMPRESA = :CODIGOEMPRESA ');
+    SQL.Add('and CODIGO IN (' + Cadena + ')');
+    ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
+    ParamByName('SITUACION').AsString := Situacion;
+    try
+      Prepare;
+      ExecQuery;
+      Result := True;
+    finally
+      Close;
+      Transaction := NIL;
+      Free;
+    end;
+  end;
+end;
+
 { TDatosFacturaProveedor }
 
 procedure TDatosFacturaProveedor.AssignTo(Dest: TPersistent);