LuisLeon_FactuGES/Source/Modulos/Relaciones/Pedidos de proveedor - Albaranes de proveedor/uGenerarAlbaranesProvUtils.pas

unit uGenerarAlbaranesProvUtils;

interface

uses
 Windows, SysUtils, Classes, uBizPedidosProveedor, pngimage, JSDialog,
 uBizAlbaranesProveedor, uBizInventario, uBizContactos;

type
  TdmGenerarAlbaranesProv = class(TDataModule)
    JsListaAlbaranesGenerados: TJSDialog;
  end;

  function GenerarAlbaranProv(const IDPedido : Integer) : Boolean; overload;
  function GenerarAlbaranProv(APedido : IBizPedidoProveedor) : Boolean; overload;
  function GenerarAlbaranProv : Boolean; overload;
  function RecibirPedidoProv(APedido: IBizPedidoProveedor): Boolean; overload;
  function RecibirPedidoProv: Boolean; overload;

  //Metodos para recibir articulos pendientes
  function GenerarAlbaranesProv(AArticulos : IBizDetalleSinRecibir; var AAlbaranes: IBizAlbaranProveedor; const IDAlmacen:Integer) : Boolean; overload;
  procedure InicializarAlbaran(var AAlbaranes: IBizAlbaranProveedor; AProveedor: IBizProveedor; const IDAlmacen:Integer; AArticulos: IBizDetalleSinRecibir);


implementation

{$R *.dfm}

uses
  cxControls, Dialogs, uDialogUtils, uBizDetallesPedidoProveedor, uBizDetallesAlbaranProveedor,
  uPedidosProveedorController, uDetallesPedidoProveedorController,
  uAlbaranesProveedorController, uProveedoresController,
  uDetallesAlbaranProveedorController, uControllerDetallesBase,
  schPedidosProveedorClient_Intf, schAlbaranesProveedorClient_Intf, uInventarioController, 
  uDADataTable, schInventarioClient_Intf;

var
  dmGenerarAlbaranesCli: TdmGenerarAlbaranesProv;
  APedidosProveedorController : IPedidosProveedorController;
  ADetallesPedidosProveedorController : IDetallesPedidoProveedorController;
  AAlbaranesProveedorController : IAlbaranesProveedorController;
  ADetallesAlbaranesController : IDetallesAlbaranProveedorController;
  AProveedoresController : IProveedoresController;
  AInventarioController : IInventarioController;

{ M<>todos auxiliares }
procedure CopiarPedidoAAlbaran(APedido: IBizPedidoProveedor;
  AAlbaran : IBizAlbaranProveedor);
begin
  if not Assigned(AAlbaran) then
    raise Exception.Create ('Albar<61>n no asignado (CopiarPedidoAAlbaran)');

  if not Assigned(APedido) then
    raise Exception.Create ('Pedido no asignado (CopiarPedidoAAlbaran)');

  if not APedido.DataTable.Active then
    APedido.DataTable.Active := True;

  // El albar<61>n tiene que venir ya abierto y posicionado donde hay que copiar
  AAlbaran.ID_PROVEEDOR := APedido.ID_PROVEEDOR;
  AAlbaran.ID_PEDIDO := APedido.ID;
  AAlbaran.CALLE := APedido.CALLE;
  AAlbaran.CODIGO_POSTAL := APedido.CODIGO_POSTAL;
  AAlbaran.POBLACION := APedido.POBLACION;
  AAlbaran.PROVINCIA := APedido.PROVINCIA;
  AAlbaran.PERSONA_CONTACTO := APedido.PERSONA_CONTACTO;
  AAlbaran.TELEFONO := APedido.TELEFONO;
  AAlbaran.IMPORTE_NETO := APedido.IMPORTE_NETO;
  AAlbaran.IMPORTE_PORTE := APedido.IMPORTE_PORTE;
  AAlbaran.DESCUENTO := APedido.DESCUENTO;
  AAlbaran.IMPORTE_DESCUENTO := APedido.IMPORTE_DESCUENTO;
  AAlbaran.BASE_IMPONIBLE := APedido.BASE_IMPONIBLE;
  AAlbaran.IVA := APedido.IVA;
  AAlbaran.IMPORTE_IVA := APedido.IMPORTE_IVA;
  AAlbaran.IMPORTE_TOTAL := APedido.IMPORTE_TOTAL;
  AAlbaran.DataTable.FieldByName(fld_AlbaranesProveedorOBSERVACIONES).AsVariant := APedido.DataTable.FieldByName(fld_PedidosProveedorOBSERVACIONES).AsVariant;
  AAlbaran.ID_FORMA_PAGO := APedido.ID_FORMA_PAGO;
end;

procedure CopiarArticulosPendAAlbaran(
  APedido: IBizPedidoProveedor;
  AAlbaran: IBizAlbaranProveedor;
  AArticulosPendientes: IBizDetallesPedidoProveedorPend);
var
  i : integer;
  ADetalles : IBizDetallesAlbaranProveedor;
  ADetallesController : IDetallesAlbaranProveedorController;
begin
  if not Assigned(AAlbaran) then
    raise Exception.Create ('Albar<61>n no asignado (CopiarArticulosPendAAlbaran)');

  if not Assigned(APedido) then
    raise Exception.Create ('Pedido no asignado (CopiarArticulosPendAAlbaran)');

  if not Assigned(AArticulosPendientes) then
    raise Exception.Create ('Art<72>culos pendientes no asignado (CopiarArticulosPendAAlbaran)');

  if not AArticulosPendientes.DataTable.Active then
    AArticulosPendientes.DataTable.Active := True;

  // El albar<61>n tiene que venir ya abierto y posicionado donde hay que copiar

  ADetalles := AAlbaran.Detalles;
  ADetallesController := TDetallesAlbaranProveedorController.Create;
  try
    //OJO IMPORTANTE
    //Siempre que vayamos a trabajar con los detalles debemos hacer un beginupdate de los mismos y un endupdate para
    //obligarle siempre a recalcular los detalles una sola vez
    ADetallesController.BeginUpdate(ADetalles);

    AArticulosPendientes.DataTable.First;
    for i := 0 to AArticulosPendientes.DataTable.RecordCount - 1 do
    begin
      APedido.Detalles.First;
      if (APedido.Detalles.Locate('ID_ARTICULO', AArticulosPendientes.ID_ARTICULO, [])) then
        if (AArticulosPendientes.CANTIDAD > 0) then
        begin
          ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
          ADetalles.Edit;
          ADetalles.ID_PEDIDO := APedido.Detalles.ID_PEDIDO;
          ADetalles.REFERENCIA := APedido.Detalles.REFERENCIA;
          ADetalles.ID_ARTICULO := APedido.Detalles.ID_ARTICULO;
          ADetalles.CONCEPTO := APedido.Detalles.CONCEPTO;
          ADetalles.CANTIDAD := AArticulosPendientes.CANTIDAD;
          ADetalles.IMPORTE_UNIDAD := APedido.Detalles.IMPORTE_UNIDAD;
          ADetalles.IMPORTE_TOTAL := APedido.Detalles.IMPORTE_TOTAL;
          ADetalles.DESCUENTO := APedido.Detalles.DESCUENTO;
          ADetalles.IMPORTE_PORTE := APedido.Detalles.IMPORTE_PORTE;
          ADetalles.VISIBLE := APedido.Detalles.VISIBLE;
          ADetalles.REFERENCIA_PROVEEDOR := APedido.Detalles.REFERENCIA_PROVEEDOR;
          ADetalles.Post;
          AArticulosPendientes.Next;
        end;
    end;
  finally
    ADetallesController.EndUpdate(ADetalles);
    ADetallesController := NIL;
  end;
end;

procedure Inicializar;
begin
  dmGenerarAlbaranesCli := TdmGenerarAlbaranesProv.Create(nil);
  APedidosProveedorController := TPedidosProveedorController.Create;
  ADetallesPedidosProveedorController := TDetallesPedidoProveedorController.Create;
  AAlbaranesProveedorController := TAlbaranesProveedorController.Create;
  ADetallesAlbaranesController := TDetallesAlbaranProveedorController.Create;
  AProveedoresController := TProveedoresController.Create;
  AInventarioController := TInventarioController.Create;
end;

procedure Finalizar;
begin
  FreeAndNIL(dmGenerarAlbaranesCli);
  APedidosProveedorController := nil;
  ADetallesPedidosProveedorController := nil;
  AAlbaranesProveedorController := nil;
  ADetallesAlbaranesController := nil;
  AProveedoresController := nil;
  AInventarioController := nil;
end;


function GenerarAlbaranProv(const IDPedido : Integer) : Boolean; overload;
var
  APedido : IBizPedidoProveedor;
begin
  try
    if not Assigned(APedidosProveedorController) then
       Inicializar;

    APedido := APedidosProveedorController.Buscar(IDPedido);
    Result := GenerarAlbaranProv(APedido);

    if Assigned(APedidosProveedorController) then
       Finalizar;
  finally
    APedido := NIL;
  end;
end;

function GenerarAlbaranProv(APedido : IBizPedidoProveedor) : Boolean; overload;
var
  ARespuesta : Integer;
  AAlbaran : IBizAlbaranProveedor;
  AArticulosPendientes: IBizDetallesPedidoProveedorPend;

begin
  Result := False;

  if not Assigned(APedido) then
    raise Exception.Create('Pedido de proveedor no asignado (GenerarAlbaranProv)');

  if not APedido.DataTable.Active then
    APedido.DataTable.Active := True;

  try
    if not Assigned(APedidosProveedorController) then
       Inicializar;

    AArticulosPendientes := ADetallesPedidosProveedorController.ArticulosPendientes(APedido.ID);
    if not Assigned(AArticulosPendientes) then
       raise Exception.Create('Error al recuperar los art<72>culos sin albar<61>n del pedido (GenerarAlbaranProv)');

    AArticulosPendientes.DataTable.Active := True;
    if AArticulosPendientes.DataTable.RecordCount = 0 then
    begin
      ARespuesta := ShowConfirmMessage('Generar albar<61>n a partir del pedido', 'Todos los art<72>culos de este pedido ya figuran en uno o m<>s albaranes de proveedor.' +
      #10#13 + '<27>Desea generar de todas formas otro albar<61>n para este pedido?');
      if (ARespuesta = IDNO) then
         Exit; // Aunque es un exit, se ejecuta la parte del finally antes de salir.
    end;

    AAlbaran := AAlbaranesProveedorController.Nuevo;
    CopiarPedidoAAlbaran(APedido, AAlbaran);
    CopiarArticulosPendAAlbaran(APedido, AAlbaran, AArticulosPendientes);

    //Sustituir por if de guardar
    if AAlbaranesProveedorController.Guardar(AAlbaran) then
    begin
//       ShowWarningMessage('Todos los art<72>culos que contiene el pedido no est<73>n en el cat<61>logo, y por lo tanto no se puede generar el albar<61>n');

      with dmGenerarAlbaranesCli.JsListaAlbaranesGenerados do
      begin
        Instruction.Text := 'Se ha generado el albar<61>n';
        Content.Clear;
        Content.Add(Format('Se ha generado correctamente el albar<61>n %s a partir del pedido de cliente' + #10#13, [AAlbaran.REFERENCIA]));
        Execute;

        ARespuesta := CustomButtonResult;
        case ARespuesta of
          100 : begin
                  // Ver el albar<61>n
                  AAlbaranesProveedorController.Ver(AAlbaran);
                end;
          200 : // Continuar;
        end;
      end;
    end;

    Result := True;
  finally
    AArticulosPendientes := NIL;
    if Assigned(APedidosProveedorController) then
       Finalizar;
  end;
end;

function GenerarAlbaranProv : Boolean; overload;
var
  APedido : IBizPedidoProveedor;
begin
  Result := False;
  try
    if not Assigned(APedidosProveedorController) then
       Inicializar;

    APedido := APedidosProveedorController.ElegirPedidos(APedidosProveedorController.BuscarPendientesRecepcion,
               'Elija el pedido de proveedor que desea utilizar para dar de alta el albar<61>n correspondiente.'
               , False);
    if Assigned(APedido) then
       Result := GenerarAlbaranProv(APedido);

  finally
    if Assigned(APedidosProveedorController) then
       Finalizar;
  end;
end;

function RecibirPedidoProv(APedido: IBizPedidoProveedor): Boolean;
var
  bGenerarAlbaran : Boolean;
  ARespuesta : Integer;

  AArticulosPendientes: IBizDetallesPedidoProveedorPend;
  AAlbaran : IBizAlbaranProveedor;
  AInventarioRecibido: IBizInventario;

begin
  Result := False;
  bGenerarAlbaran := False;
  AInventarioRecibido := NIL;

  if not Assigned(AInventarioController) then
     Inicializar;

  // <20>Hay almac<61>n asociado al pedido?
  if APedido.ID_ALMACEN = 0 then
  begin
    if (ShowConfirmMessage('Recepci<63>n de pedido a proveedor', 'Este pedido no tiene un almac<61>n asociado por lo que se generar<61> el albar<61>n de proveedor correspondiente sin hacer ning<6E>n cambio en el stock de los almacenes.'
      + #10#13 + #10#13 + '<27>Desea continuar?') = IDYES) then
      bGenerarAlbaran := True;
  end
  else begin
    try

      // En AInventarioRecibido tenemos la lista de articulos que hemos recibido y
      // que utilizaremos para hacer el albar<61>n
      AArticulosPendientes := ADetallesPedidosProveedorController.ArticulosPendientes(APedido.ID);
      if not Assigned(AArticulosPendientes) then
         raise Exception.Create('Error al recuperar los art<72>culos pendientes de recibir del pedido (GenerarAlbaranProv)');

      AArticulosPendientes.DataTable.Active := True;
      if AArticulosPendientes.DataTable.RecordCount = 0 then
      begin
        ARespuesta := ShowConfirmMessage('Generar albar<61>n a partir del pedido', 'Todos los art<72>culos de este pedido ya figuran en uno o m<>s albaranes de proveedor.' +
        #10#13 + '<27>Desea generar de todas formas otro albar<61>n para este pedido?');
        if (ARespuesta = IDNO) then
            Exit; // Aunque es un exit, se ejecuta la parte del finally antes de salir.
      end;

      bGenerarAlbaran := AInventarioController.EntradaPedido(nil, APedido, AArticulosPendientes, AInventarioRecibido);
    except
      on E : Exception do
        ShowMessage(E.Message);
    end;
  end;

  if bGenerarAlbaran then
  begin
    try
      AAlbaran := AAlbaranesProveedorController.Nuevo;
      // En AInventarioRecibido tenemos la lista de articulos que hemos recibido y
      // que utilizaremos para hacer el albar<61>n
      if AAlbaranesProveedorController.Anadir(AAlbaran, APedido.ID, AInventarioRecibido) then
         AAlbaranesProveedorController.Ver(AAlbaran);
    finally
      AAlbaran := NIL;
    end;
  end;

  if Assigned(AAlbaranesProveedorController) then
     Finalizar;

  //  actRefrescar.Execute;
end;

function RecibirPedidoProv: Boolean; overload;
var
  APedido : IBizPedidoProveedor;
begin
  Result := False;
  try
    if not Assigned(APedidosProveedorController) then
       Inicializar;

    APedido := APedidosProveedorController.ElegirPedidos(APedidosProveedorController.BuscarPendientesRecepcion,
               'Elija el pedido de proveedor que desea recibir.'
               , False);
    if Assigned(APedido) then
       Result := RecibirPedidoProv(APedido);

  finally
    if Assigned(APedidosProveedorController) then
       Finalizar;
  end;
end;

function GenerarAlbaranesProv(AArticulos : IBizDetalleSinRecibir; var AAlbaranes: IBizAlbaranProveedor; const IDAlmacen:Integer) : Boolean; overload;
var
  ARespuesta : Integer;
  AProveedor: IBizProveedor;
  RefPedCliAux: String;
  I: Integer;

begin
  Result := False;

  if not Assigned(AArticulos) then
    raise Exception.Create('AArticulos no asignado (GenerarAlbaranesProv)');

  if not Assigned(APedidosProveedorController) then
     Inicializar;

  ShowHourglassCursor;
  try
    //Preparamos el componente donde almacenaremos las referencias de los albaranes generados
    dmGenerarAlbaranesCli.JsListaAlbaranesGenerados.CustomButtons.Clear;
    dmGenerarAlbaranesCli.JsListaAlbaranesGenerados.Content.Clear;
    dmGenerarAlbaranesCli.JsListaAlbaranesGenerados.Instruction.Text := 'Se han generado los albaranes';

    // Ordenar por proveedor y pedido
    AArticulos.DataTable.Sort([fld_AlbaranesProveedorID_PROVEEDOR, fld_AlbaranesProveedorID_PEDIDO], [uDADataTable.sdAscending, uDADataTable.sdAscending]);
    AArticulos.DataTable.First;

    //Inicializamos albaran
    AProveedor := (AProveedoresController.Buscar(AArticulos.ID_PROVEEDOR) as IBizProveedor);
    AProveedor.DataTable.Active := True;
    AAlbaranes := AAlbaranesProveedorController.Nuevo;
    InicializarAlbaran(AAlbaranes, AProveedor, IDAlmacen, AArticulos);

    //Aqui no es necesario BeginUpdate y EndUpdate de los detalles porque siempre a<>adimos una linea al final.
    // A<>ado el t<>tulo del pedido ya que siempre tendremos al menos un concepto de pedido
    ADetallesAlbaranesController.Add(AAlbaranes.Detalles, TIPO_DETALLE_TITULO);
    with AAlbaranes.Detalles do
    begin
      Edit;
      RefPedCliAux := AArticulos.REFERENCIA_PEDIDO;
      CONCEPTO := 'Pedido ' + AArticulos.REFERENCIA_PEDIDO + ' del ' + DateToStr(AArticulos.FECHA_PEDIDO);
      Post;
    end;

    for I := 0 to AArticulos.DataTable.RecordCount - 1 do
    begin
      //En el caso que se cambie de pedido, cerramos detalles del pedido
      if (RefPedCliAux <> AArticulos.REFERENCIA_PEDIDO) then
      begin
        // A<>ado el resumen del pedido
        ADetallesAlbaranesController.Add(AAlbaranes.Detalles, TIPO_DETALLE_SUBTOTAL);
        with AAlbaranes.Detalles do
        begin
          Edit;
          CONCEPTO := 'Total del pedido ' + RefPedCliAux;
          Post;
        end;

        // A<>ado una l<>nea en blanco
        ADetallesAlbaranesController.Add(AAlbaranes.Detalles, TIPO_DETALLE_CONCEPTO);
        with AAlbaranes.Detalles do
        begin
          Edit;
          CONCEPTO := '';
          Post;
        end;

        //En el caso que cambie de pedido pero no de proveedor volvemos a crear la cabecera del nuevo pedido
        if (AProveedor.ID = AArticulos.ID_PROVEEDOR) then
        begin
          // A<>ado el t<>tulo del pedido ya que siempre tendremos al menos un concepto de pedido
          ADetallesAlbaranesController.Add(AAlbaranes.Detalles, TIPO_DETALLE_TITULO);
          with AAlbaranes.Detalles do
          begin
            Edit;
            RefPedCliAux := AArticulos.REFERENCIA_PEDIDO;
            CONCEPTO := 'Pedido ' + AArticulos.REFERENCIA_PEDIDO + ' del ' + DateToStr(AArticulos.FECHA_PEDIDO);
            Post;
          end;
        end;
      end;

      //En el caso que cambie el cliente se guarda el albaran actual y se crea uno nuevo
      if (AProveedor.ID <> AArticulos.ID_PROVEEDOR) then
      begin
        AAlbaranesProveedorController.RecalcularImportes(AAlbaranes);
        AAlbaranesProveedorController.Guardar(AAlbaranes);
        dmGenerarAlbaranesCli.JsListaAlbaranesGenerados.Content.Add(Format('%s: %s' + #10#13, [AAlbaranes.REFERENCIA, AProveedor.NOMBRE]));

        //Inicializamos albaran
        AProveedor := (AProveedoresController.Buscar(AArticulos.ID_PROVEEDOR) as IBizProveedor);
        AProveedor.DataTable.Active := True;
        AAlbaranesProveedorController.Anadir(AAlbaranes);
        InicializarAlbaran(AAlbaranes, AProveedor, IDAlmacen, AArticulos);

        // A<>ado el t<>tulo del pedido ya que siempre tendremos al menos un concepto de pedido
        ADetallesAlbaranesController.Add(AAlbaranes.Detalles, TIPO_DETALLE_TITULO);
        with AAlbaranes.Detalles do
        begin
          Edit;
          RefPedCliAux := AArticulos.REFERENCIA_PEDIDO;
          CONCEPTO := 'Pedido ' + AArticulos.REFERENCIA_PEDIDO + ' del ' + DateToStr(AArticulos.FECHA_PEDIDO);
          Post;
        end;
      end;

      //Rellenamos el detalle del albar<61>n
      ADetallesAlbaranesController.Add(AAlbaranes.Detalles, TIPO_DETALLE_CONCEPTO);
      AAlbaranes.Detalles.Edit;
      AAlbaranes.Detalles.ID_PEDIDO := AArticulos.ID_PEDIDO;
      AAlbaranes.Detalles.REFERENCIA := AArticulos.REFERENCIA;
      AAlbaranes.Detalles.REFERENCIA_PROVEEDOR := AArticulos.REFERENCIA_PROVEEDOR;
      AAlbaranes.Detalles.ID_ARTICULO := AArticulos.ID_ARTICULO;
      AAlbaranes.Detalles.CONCEPTO := AArticulos.DESCRIPCION;
      AAlbaranes.Detalles.CANTIDAD := AArticulos.CANTIDAD_PENDIENTE;
      AAlbaranes.Detalles.IMPORTE_UNIDAD := AArticulos.PRECIO_COSTE;
      AAlbaranes.Detalles.DESCUENTO := AArticulos.DESCUENTO;
      AAlbaranes.Detalles.Post;

      //Pasamos al siguiente articulo
      AArticulos.DataTable.Next;
    end;


    //Finalmente cerraremos el <20>ltimo pedido del <20>ltimo albar<61>n
    ADetallesAlbaranesController.Add(AAlbaranes.Detalles, TIPO_DETALLE_SUBTOTAL);
    with AAlbaranes.Detalles do
    begin
      Edit;
      CONCEPTO := 'Total del pedido ' + RefPedCliAux;
      Post;
    end;

    // A<>ado una l<>nea en blanco
    ADetallesAlbaranesController.Add(AAlbaranes.Detalles, TIPO_DETALLE_CONCEPTO);
    with AAlbaranes.Detalles do
    begin
      Edit;
      CONCEPTO := '';
      Post;
    end;

    AAlbaranesProveedorController.RecalcularImportes(AAlbaranes);
    AAlbaranesProveedorController.Guardar(AAlbaranes);
    dmGenerarAlbaranesCli.JsListaAlbaranesGenerados.Content.Add(Format('%s: %s' + #10#13, [AAlbaranes.REFERENCIA, AProveedor.NOMBRE]));

  finally
    HideHourglassCursor;
    //Visualizamos los albaranes generados
    dmGenerarAlbaranesCli.JsListaAlbaranesGenerados.Execute;
    if Assigned(APedidosProveedorController) then
       Finalizar;
  end;
end;


procedure InicializarAlbaran(var AAlbaranes: IBizAlbaranProveedor; AProveedor: IBizProveedor; const IDAlmacen:Integer; AArticulos: IBizDetalleSinRecibir);
begin
//El albaran debe venir abierto y posicionado para la copia.
  AAlbaranes.Proveedor := (AProveedor as IBizProveedor);
  AAlbaranes.TIPO := CTE_TIPO_ALBARAN;
  AAlbaranes.ID_ALMACEN := IDAlmacen;
  AAlbaranes.CALLE := AArticulos.CALLE;
  AAlbaranes.CODIGO_POSTAL := AArticulos.CODIGO_POSTAL;
  AAlbaranes.POBLACION := AArticulos.POBLACION;
  AAlbaranes.PROVINCIA := AArticulos.PROVINCIA;
  AAlbaranes.PERSONA_CONTACTO := AArticulos.PERSONA_CONTACTO;
  AAlbaranes.TELEFONO := AArticulos.TELEFONO;
  AAlbaranes.IVA := AArticulos.IVA;
  AAlbaranes.ID_FORMA_PAGO := AArticulos.ID_FORMA_PAGO;
end;


end.