AbetoDesign_FactuGES2/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas

unit uGenerarFacturasCliUtils;

interface

uses
 Windows, SysUtils, Classes, pngimage, JSDialog,
 uBizContratosCliente, uBizFacturasCliente;

type
  TdmGenerarFacturasCli = class(TDataModule)
    JsListaFacturasGenerados: TJSDialog;
    JsListaFacturasAsignadasAContrato: TJSDialog;
  end;

  function GenerarFacturaCli(const IDContrato : Integer; const TenerEnCuentaFacturasExistentes: Boolean = false) : Boolean; overload;
  function GenerarFacturaCli(AContrato : IBizContratoCliente; var AFactura: IBizFacturaCliente; const AFacturasATenerEnCuenta: IBizFacturaCliente) : Boolean; overload;
//  function ElegirPedidoYGenerarAlbaranCli(var IDAlbaran: Integer) : Boolean;
  function AsignarContratoAFacturas(AContrato : IBizContratoCliente; var AFacturas: IBizFacturaCliente): Boolean;

implementation

{$R *.dfm}

uses
  uDialogUtils, uBizDetallesContratoCliente, uBizDetallesFacturaCliente,
  uContratosClienteController, uFacturasClienteController, uClientesController,
  uDetallesFacturaClienteController, uControllerDetallesBase,
  uBizContactos, schFacturasClienteClient_Intf, uFactuGES_App,
  schContratosClienteClient_Intf, uBizDetallesPresupuestoCliente, uCalculosUtils;

var
  dmGenerarFacturasCli: TdmGenerarFacturasCli;
  AContratosClienteController : IContratosClienteController;
  AFacturasClienteController : IFacturasClienteController;
  AClientesController : IClientesController;

{ M<>todos auxiliares }
procedure CopiarContratoAFactura(AContrato: IBizContratoCliente; AFactura : IBizFacturaCliente);
begin
  if not Assigned(AFactura) then
    raise Exception.Create ('Factura no asignado (CopiarContratoAFactura)');

  if not Assigned(AContrato) then
    raise Exception.Create ('Contrato no asignado (CopiarContratoAFactura)');

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

  // La factura tiene que venir ya abierto y posicionado donde hay que copiar
  AFactura.ID_CLIENTE := AContrato.ID_CLIENTE;

  AFactura.ID_AGENTE := AContrato.ID_AGENTE;
  AFactura.NOMBRE_AGENTE := AContrato.NOMBRE_AGENTE;
  AFactura.DELEGACION := AContrato.DELEGACION;

  // Lo dejamos listo para que se localize la subcuenta contable asociada al cliente
  AFacturasClienteController.RecuperarCliente(AFactura);
  AFactura.Cliente.Open;

  AFactura.NIF_CIF := AContrato.NIF_CIF;
  AFactura.NOMBRE := AContrato.NOMBRE;
  AFactura.CALLE := AContrato.CALLE;
  AFactura.POBLACION := AContrato.POBLACION;
  AFactura.PROVINCIA := AContrato.PROVINCIA;
  AFactura.CODIGO_POSTAL := AContrato.CODIGO_POSTAL;


//  AFactura.PERSONA_CONTACTO := AContrato.PERSONA_CONTACTO;
//  AFactura.DataTable.FieldByName(fld_FacturasClientePLAZO_ENTREGA).AsVariant := AContrato.DataTable.FieldByName(fld_ContratosClientePLAZO_ENTREGA).AsVariant;
  AFactura.DataTable.FieldByName(fld_FacturasClienteOBSERVACIONES).AsVariant := AContrato.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsVariant;
  AFactura.IMPORTE_NETO := AContrato.IMPORTE_NETO;
  AFactura.IMPORTE_PORTE := AContrato.IMPORTE_PORTE;
  AFactura.DESCUENTO := AContrato.DESCUENTO;
  AFactura.IMPORTE_DESCUENTO := AContrato.IMPORTE_DESCUENTO;
  AFactura.BASE_IMPONIBLE := AContrato.BASE_IMPONIBLE;
  AFactura.ID_TIPO_IVA := AContrato.ID_TIPO_IVA;
  AFactura.IVA := AContrato.IVA;
  AFactura.IMPORTE_IVA := AContrato.IMPORTE_IVA;
  AFactura.IMPORTE_TOTAL := AContrato.IMPORTE_TOTAL;
//  AFactura.ID_VENDEDOR := AContrato.ID_VENDEDOR;
  AFactura.RECARGO_EQUIVALENCIA := AContrato.RECARGO_EQUIVALENCIA;
  AFactura.RE := AContrato.RE;
  AFactura.IMPORTE_RE := AContrato.IMPORTE_RE;
  AFactura.ID_CONTRATO := AContrato.ID;
  AFactura.REF_CONTRATO := AContrato.REFERENCIA;
  AFactura.REF_CLI_CONTRATO := AContrato.REFERENCIA_CLIENTE;
  AFactura.ID_FORMA_PAGO := AContrato.ID_FORMA_PAGO;
end;

procedure CopiarDetallesAFactura(
  AContrato: IBizContratoCliente;
  AFactura: IBizFacturaCliente;
  AArticulos: IBizDetallesContratoCliente);
var
  i : integer;
  ADetalles : IBizDetallesFacturaCliente;
  ADetallesController : IDetallesFacturaClienteController;
begin
  if not Assigned(AFactura) then
    raise Exception.Create ('Factura no asignada (CopiarDetallesAFactura)');

  if not Assigned(AContrato) then
    raise Exception.Create ('Contrato no asignado (CopiarDetallesAFactura)');

  if not Assigned(AArticulos) then
    raise Exception.Create ('Art<72>culos no asignado (CopiarDetallesAFatura)');

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

  // El contrato tiene que venir ya abierto y posicionado donde hay que copiar

  ADetalles := AFactura.Detalles;
  ADetallesController := TDetallesFacturaClienteController.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);

    AArticulos.DataTable.First;
    for i := 0 to AArticulos.DataTable.RecordCount - 1 do
    begin
      ADetallesController.Add(ADetalles, AArticulos.TIPO_DETALLE);
      ADetalles.Edit;
      ADetalles.REFERENCIA := AArticulos.REFERENCIA;
      ADetalles.ID_ARTICULO := AArticulos.ID_ARTICULO;
      if (AArticulos.PROPIEDAD <> '')  then
        ADetalles.CONCEPTO := AArticulos.PROPIEDAD + ' '+ AArticulos.CONCEPTO
      else
        ADetalles.CONCEPTO := AArticulos.CONCEPTO;

      if not AArticulos.CANTIDADIsNull then
         ADetalles.CANTIDAD := AArticulos.CANTIDAD;
      if not AArticulos.IMPORTE_UNIDADIsNull then
         ADetalles.IMPORTE_UNIDAD := CalcularImporteNeto(AArticulos.IMPORTE_UNIDAD, AArticulos.INCREMENTO, AArticulos.DECREMENTO);
      if not AArticulos.IMPORTE_TOTALIsNull then
         ADetalles.IMPORTE_TOTAL := AArticulos.IMPORTE_TOTAL;
      if not AArticulos.DESCUENTOIsNull then
         ADetalles.DESCUENTO := AArticulos.DESCUENTO;
      if not AArticulos.IMPORTE_PORTEIsNull then
         ADetalles.IMPORTE_PORTE := AArticulos.IMPORTE_PORTE;
      ADetalles.VISIBLE := AArticulos.VISIBLE;
      ADetalles.REFERENCIA_PROVEEDOR := AArticulos.REFERENCIA_PROVEEDOR;
      ADetalles.Post;
      AArticulos.Next;
    end;
  finally
    ADetallesController.EndUpdate(ADetalles);
    ADetallesController := NIL;
  end;
end;

procedure Inicializar;
begin
  dmGenerarFacturasCli := TdmGenerarFacturasCli.Create(nil);
  AContratosClienteController := TContratosClienteController.Create;
  AFacturasClienteController := TFacturasClienteController.Create;
  AClientesController := TClientesController.Create;
end;

procedure Finalizar;
begin
  FreeAndNIL(dmGenerarFacturasCli);
  AContratosClienteController := nil;
  AFacturasClienteController := nil;
  AClientesController := nil;
end;


function GenerarFacturaCli(const IDContrato : Integer; const TenerEnCuentaFacturasExistentes: Boolean = false) : Boolean; overload;
var
  AContrato : IBizContratoCliente;
  AFactura : IBizFacturaCliente;
  AFacturasRelacionadas : IBizFacturaCliente;
begin
  Result := False;
  AFacturasRelacionadas := Nil;

  try
    if not Assigned(AContratosClienteController) then
       Inicializar;


    if TenerEnCuentaFacturasExistentes then
    begin
      AFacturasRelacionadas := AFacturasClienteController.ElegirFacturas(AFacturasClienteController.BuscarTodasDelContrato(IDContrato),
               'Elija la/s factura/s de cliente que desea tener en cuenta para dar de alta la nueva factura.'
               , True);
    end;
    

    AContrato := AContratosClienteController.Buscar(IDContrato);
    if Assigned(AContrato) then
       Result := GenerarFacturaCli(AContrato, AFactura, AFacturasRelacionadas);
  finally
    if Assigned(AContratosClienteController) then
       Finalizar;
  end;
end;

function GenerarFacturaCli(AContrato : IBizContratoCliente; var AFactura: IBizFacturaCliente; const AFacturasATenerEnCuenta: IBizFacturaCliente) : Boolean; overload;
var
  ARespuesta : Integer;
  ACadena : String;
begin
  AFactura := NIL;

  if not Assigned(AContrato) then
    raise Exception.Create('Contrato de cliente no asignado (GenerarContratoCli)');

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

  if not Assigned(AFacturasClienteController) then
     Inicializar;

  try
    AFactura := AFacturasClienteController.Nuevo;
    AFactura.ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;

    AFactura.ID_TIENDA := AContrato.ID_TIENDA;
    AFactura.TIENDA := AContrato.TIENDA;
//Solicitado por Ang<6E>lica, al generar una factura a partir del contrato, que se copie el IVA asignado en el contrato
//    AFactura.ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA; //SIEMPRE SE ASIGNAR<41> EL IVA DE LA EMPRESA ACTIVA
    CopiarContratoAFactura(AContrato, AFactura);
    CopiarDetallesAFactura(AContrato, AFactura, AContrato.Detalles);


//A<>adir lineas descuento con las facturas seleccionadas si las hubiera Solicitado por EVA
//Presupuesto aceptado 5 de marzo 2024
    if Assigned(AFacturasATenerEnCuenta) then
    begin
        if not AFacturasATenerEnCuenta.DataTable.Active then
           AFacturasATenerEnCuenta.DataTable.Active := True;
        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
          AFacturasClienteController.DetallesController.BeginUpdate(AFactura.Detalles);

          AFacturasATenerEnCuenta.DataTable.First;
          while not AFacturasATenerEnCuenta.DataTable.EOF do
          begin
            ACadena := 'Pago a cuenta incluido en ';
            AFacturasClienteController.DetallesController.Add(AFactura.Detalles, TIPO_DETALLE_CONCEPTO);
            AFactura.Detalles.Edit;
            //ADetalles.REFERENCIA := AArticulos.REFERENCIA;
            //ADetalles.ID_ARTICULO := AArticulos.ID_ARTICULO;

            if AFacturasATenerEnCuenta.TIPO = CTE_TIPO_FACTURA then
            begin
              AFactura.Detalles.CANTIDAD := -1;
              ACadena := ACadena + 'Factura ';
            end
            else
            begin
              AFactura.Detalles.CANTIDAD := 1;
              ACadena := ACadena + 'Abono '
            end;

            AFactura.Detalles.CONCEPTO :=  ACadena + AFacturasATenerEnCuenta.REFERENCIA + ' con fecha ' + DateToStr(AFacturasATenerEnCuenta.FECHA_FACTURA);
            if not AFacturasATenerEnCuenta.BASE_IMPONIBLEIsNull then
               AFactura.Detalles.IMPORTE_UNIDAD := AFacturasATenerEnCuenta.BASE_IMPONIBLE;
            AFactura.Detalles.Post;
            AFacturasATenerEnCuenta.DataTable.Next;
          end;

        finally
          AFacturasClienteController.DetallesController.EndUpdate(AFactura.Detalles);
          AFacturasClienteController.RecalcularImportes(AFactura);
        end;
    end;


    AFacturasClienteController.Ver(AFactura);

    //Sustituir por if de guardar
{    if AFacturasClienteController.Guardar(AFactura) then
    begin
      with dmGenerarFacturasCli.JsListaFacturasGenerados do
      begin
        Instruction.Text := 'Se ha generado la factura';

        Content.Clear;
        Content.Add(Format('Se ha generado correctamente la factura %s a partir del contrato de cliente' + #10#13, [AFactura.REFERENCIA]));
        Execute;

        ARespuesta := CustomButtonResult;
        case ARespuesta of
          100 : begin
                  // Ver la factura
                  AFacturasClienteController.Ver(AFactura);
                end;
          200 : // Continuar;
        end;
      end;
    end;
}
    Result := True;
  finally
    if Assigned(AContratosClienteController) then
       Finalizar;
  end;
end;
{
function ElegirPedidoYGenerarAlbaranCli(var IDAlbaran: Integer) : Boolean; overload;
var
  APedido : IBizPedidoCliente;
  AAlbaran : IBizAlbaranCliente;
begin
  Result := False;
  IDAlbaran := -1;

  AAlbaran := NIL;
  try
    if not Assigned(APedidosClienteController) then
      Inicializar;

    APedido := APedidosClienteController.ElegirPedidos(APedidosClienteController.BuscarPendientes,
                  'Elija el pedido de cliente que desea utilizar para dar de alta el albar<61>n de cliente.'
                  , False);

    if Assigned(APedido) then
    begin
      Result := GenerarAlbaranCli(APedido, AAlbaran);
      if Result then
        IDAlbaran := AAlbaran.ID;
    end;
  finally
    if Assigned(APedidosClienteController) then
      Finalizar;
  end;
end;
}


function AsignarContratoAFacturas(AContrato : IBizContratoCliente; var AFacturas: IBizFacturaCliente): Boolean;
var
  i: integer;

begin
  Result := False;

  if not Assigned(AFacturas) then
    raise Exception.Create ('Facturas no asignadas (AsignarContratoAFacturas)');

  if not Assigned(AContrato) then
    raise Exception.Create ('Contrato no asignado (AsignarContratoAFacturas)');

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

  if not Assigned(AContratosClienteController) then
    Inicializar;

  with dmGenerarFacturasCli.JsListaFacturasAsignadasAContrato do
  begin
    Content.Clear;
    AFacturas.DataTable.First;
    for i := 0 to AFacturas.DataTable.RecordCount - 1 do
    begin
      if (AFacturas.SITUACION = CTE_PENDIENTE)  then
      begin
        AFacturas.Edit;
        AFacturas.ID_CONTRATO := AContrato.ID;
        Content.Add(AFacturas.REFERENCIA + ': Asignado contrato ' + AContrato.REFERENCIA);
        AFacturas.Post;
        Result := True;
      end
      else
        Content.Add(AFacturas.REFERENCIA + ': La factura est<73> pagada o parcialmente pagada, por lo que no se puede modificar el contrato asociado  ' + AFacturas.REF_CONTRATO);
      AFacturas.Next;
    end;
  end;
  dmGenerarFacturasCli.JsListaFacturasAsignadasAContrato.Execute;
  AFacturas.DataTable.ApplyUpdates;
end;
end.