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.
|