roberto
8679a9bc04
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
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.
|