LuisLeon_FactuGES2/Source/Modulos/Inventario/Utiles/uInventarioUtils.pas

unit uInventarioUtils;

interface

uses
  SysUtils, Classes, pngimage;

type
  TdmInventarioUtils = class(TDataModule)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function ShowConfirmMessage_ArticulosSinStock(AListaArticulos : TStringList): Integer;

implementation
{$R *.dfm}

uses
  uEditorDialog;

var
  dmInventarioUtils: TdmInventarioUtils;
  AEditor: TfDialog1;


function ShowConfirmMessage_ArticulosSinStock(AListaArticulos : TStringList): Integer;
begin
  try
    AEditor := TfDialog1.Create(nil);
    AEditor.Memo1.Lines.AddStrings(AListaArticulos);
    Result := AEditor.ShowModal;
  finally
    FreeAndNil(AEditor);
  end;
end;



end.