roberto
90229c6a3d
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@4 f33bb606-9f5c-448d-9c99-757f00063c96
32 lines
531 B
ObjectPascal
32 lines
531 B
ObjectPascal
unit uRegimenIVAUtils;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes;
|
|
|
|
const
|
|
REGIMEN_IVA_GENERAL = 'General';
|
|
REGIMEN_IVA_EXENTO = 'Exento';
|
|
REGIMEN_IVA_UE = 'U.E.';
|
|
REGIMEN_IVA_IMPORTACIONES = 'Importaciones';
|
|
|
|
function DarRegimenesIVA : TStringList;
|
|
|
|
implementation
|
|
|
|
function DarRegimenesIVA : TStringList;
|
|
begin
|
|
Result := TStringList.Create;
|
|
with Result do
|
|
begin
|
|
Add(REGIMEN_IVA_GENERAL);
|
|
Add(REGIMEN_IVA_EXENTO);
|
|
Add(REGIMEN_IVA_UE);
|
|
Add(REGIMEN_IVA_IMPORTACIONES);
|
|
end;
|
|
end;
|
|
|
|
|
|
end.
|