Důvodem, proč se kromě importu jednotky z importního souboru vytvoří také jednotka KS, je to, že na Business objektu skladové karty je nastavena vlastnost, aby se při založení nové skladové karty vždy založila také jednotka Kusy, KS. Tuto vlastnost nelze nijak vypnout. Je však možné situaci ošetřit tak, že budete spouštět importy dva. První import bude vytvářet nové skladové karty bez jednotek. Druhý import bude opravovat jednotky na skladové kartě za jednotky z importního souboru.

Oba importy následně můžete přidat do agendy Sady importních a exportních definic a následně je spouštět jedinou akcí, a to buď tlačítkem Zpracovat, nebo naplánovanou úlohou.

V importu záleží na pořadí Business objektů (BO). Pořadí položek v definici musí odpovídat tomu, jak jej vidíte ve vizuální podobě v ABRA Gen. Častým důvodem, proč se nějaká položka nenaimportuje, je, že se daná položka v importní definici nachází na špatném místě.

Položka Zakázka na dokladu Objednávky přijaté:

Položka Zakázka se na dokladu Objednávky přijaté nachází až na druhém řádku za střediskem.

Na řádku dokladů jsou na prvních místech položky jako Typ řádku, Sklad, Skladová karta atd. Až na druhém řádku je položka Střediska a za nim teprve Zakázka. Proto to i v importní definici musí být stejně.

Jak je vidět na obrázku výše, pole Zakázka se nachází až za Střediskem. Pokud bychom jej v definici umístili na vyšší pozici nebo bychom například Typ řádku dali až na konec, hodnota by se v poli Zakázka importem nevyplnila.

Dalším velmi častým důvodem je to, že položka je umístěna na správné pozici, ale není nastavena jako Aktivní, proto ji import ignoruje. Řešením je položku aktivovat pro import.

Pokud se má položka importovat, je potřeba, aby byl prvek Aktivní nastaven na ANO. V opačném případě se položka ignoruje.

Může existovat celá řada dalších důvodů, proč import položky neprochází, například chybně napsaný SQL dotaz, který nic nedohledá a podobně. Avšak takové případy je již nutné řešit individuálně. Vždy doporučujeme podívat se do agendy Servisní knížka, kde pod zkratkou dokladů SEZ vznikne o importu záznam s logem. V logu lze příčinu neúspěchu dohledat.

V servisní knížce v Typu záznamů SEZ najdete na záložce Obsah kompletní informace o průběhu importu.

Agenda Definice definovatelných importů nabízí mnoho vlastností pro různé potřeby. Pole Výraz umožní nadefinovat si vlastní výraz tak, aby kromě dat, která se nacházejí v importním souboru, doplnil importované pole o další potřebné znaky, datum atd.

Postup si vysvětlíme na příkladu, kde budeme do pole Text na dokladu OSV importovat vlastní text, aktuální datum ponížené o 30 dnů a název zakázky.

V položce Text otevřeme šipkou pole Výraz pro editaci.

U položky Text klikneme na šipku u pole výraz, aby se nám okno otevřelo pro editaci.

Do otevřeného pole Výraz zapíšeme následující výraz:

.'My text' + NxFormatDate('DD.MM.YYYY',Int(NxNow()-30))+ ', ' + NxSQLSelect('Select Name from BusOrders where Code =' + NxQuotedSTR('%s')+ ' and hidden=' + NxQuotedSTR('N'))

První je vlastní text uvedený v apostrofech. Následuje funkce pro formátování datumu, kde si určíme formát, v jakém potřebujeme datum vracet. Dále je převod datumu na číslo a funkce NxNow vrátí aktuální datum v číselné podobě, které ponížíme o 30 dní. V následujícím SQL dotazu zjišťujeme název zakázky podle jejího kódu, který je v importních datech obsažen.

Díky tomuto výrazu bude importovaný text vypadat například tak jako na obrázku níže:

Instalační sadu můžete potřebovat nainstalovat v mnoha případech. Např. se jedná o dodávaný katalogový doplněk k systému ABRA Gen, o součást jiného dodávaného řešení (např. nějaké zakázkové úpravy od vašeho konzultanta), může se jednat i o některý z dodávaných příkladů pro řešení nějaké úlohy formou skriptování. Prostřednictvím instalačních sad lze v mnoha případech "předávat" i různá nastavení a definice mezi instalacemi (např. mezi zkušební instalací a instalací s ostrými daty) apod.

Vlastní instalace je jednoduchá. Postup:

• Otevřete agendu Instalační sady. Zvolte volbu Expertní import.

  

  Volba typu importu. Více k oběma funkcím viz popis funkcí v agendě Instalační sady.

• Spustí se Průvodce importem instalační sady. Poté vyberte soubor dodané instalační sady v odpovídající verzi (na aktuální verzi se informujte u dodavatele) z cesty, kam jste si jej uložili.

  

  Příklad importu souboru instalační sady.

• Tlačítkem Dále postupně sadu nainstalujete. Postupujte podle pokynů průvodce uvedených v jednotlivých krocích průvodce.

  

  Příklad zobrazeného seznamu položek, které sada přidá.

• Některé instalované objekty vyžadují restart systému ABRA Gen resp. restart aplikačního serveru (pokud se jedná o síťovou instalaci). Ukončete systém ABRA Gen na všech počítačích (pro všechny klienty, tj. vč. různých OLE, API aplikací, ...) a restartujte aplikační server:

  

Viz též kap. Instalační sady a kap. Průvodce importem instalační sady.

Omezení nabídnutých záznamů číselníku vyvolaného jako výběrového lze zajistit použitím parametrů. Popis nejobvyklejších parametrů viz Parametry číselníků volaných z číselníkových položek. Pozor, jak je uvedeno v popisu zmíněné položky Parametry, jaké parametry se nakonec uplatní při volání číselníku ze vstupních formulářů, závisí na tom, jak jsou zadány ve vstupním formuláři (nikoli jen v definici číselníkové položky).

Jiná možnost je využití skriptování. Tj. vložit číselníkovou položku do vstupního formuláře coby číselník objektový a nabízené záznamy dynamicky měnit podle nadefinovaného skriptu. (Např. nabízet z číselníku jen záznamy splňující určité podmínky podle hodnot editovaného záznamu agendy.)

Viz též příklady skriptování.

Evidence historických hodnot k položkám je velmi náročná na další práci s nimi, a nabízí se tedy jen u vybraných Business objektů (typicky objektů mezd), kde je tato vlastnost nezbytná. U jiných objektů k dispozici není.

Viz též položka Historie.

Nicméně uvedený příklad lze řešit bez potíží jiným způsobem, např. takto: Úloha vede na jakousi subkolekci řádků. Tudíž založit uživatelskou tabulku (vlastní úprava databázových objektů) a použít skriptování pro její plnění a pro její zobrazení... (tj. skriptem do ní ukládat historické hodnoty při změně položky, v níž se eviduje aktuální stav obsazenosti plochy).

Vzorové řešení naleznete mezi dodávanými příklady v adresáři instalace ABRA Gen v podadresáři Examples. Zde je k dispozici mj. instalační sada, která obsahuje balíček skriptů s ukázkou úpravy struktury BO:

• HowToCorrectBusinessObjectStructureInScripting.ais

Vzorové řešení naleznete mezi dodávanými příklady v adresáři instalace ABRA Gen v podadresáři Examples. Zde je k dispozici mj. instalační sada, která obsahuje balíček skriptů s ukázkou práce s importním manažerem:

• HowToPresetImportManagerInScripting.ais

Vzorové řešení naleznete mezi dodávanými příklady v adresáři instalace ABRA Gen v podadresáři Examples. Zde je k dispozici mj. instalační sada, která obsahuje balíček skriptů s ukázkou přípravy MemoryDatasetu a DBGridu pro doplňování definovatelných sloupců.

• HowToDefineDBGridColumnsWithMemoryDataset.ais

Odeslání EET lze řešit i pomocí skriptování.

Vzorové řešení naleznete mezi dodávanými příklady v adresáři instalace ABRA Gen v podadresáři Examples. Zde jsou k dispozici mj. dvě instalační sady, které obsahují balíček skriptů s ukázkou související s EET:

• HowToEETOnCashReceived.ais - Ukázka provedení EET nad dokladem pokladního příjmu, který náleží do EET.
• HowToEETOnCashReceivedOrOtherIncomesFromInvoiceOut.ais - Ukázka vytvoření platby faktury vydané pomocí pokladního příjmu a ostatního příjmu (elektronická platba) včetně provedení EET.

Vzorové řešení naleznete mezi dodávanými příklady v adresáři instalace ABRA Gen v podadresáři Examples. Zde je k dispozici mj. instalační sada, která obsahuje balíček skriptů s ukázkou práce s kasou a účtenkami maloobchodního prodeje:

• HowToWorkWithPOS.ais

Ano, ve skriptování je implementována třída TNxComPort nabízející potřebnou funkcionalitu. Použití je patrné z příkladu.

Příklad...

Následující ilustrační příklad přidá do zvolené agendy (Druh skriptu: Agenda) funkční tlačítko Získat hmotnost pro načtení hmotnosti z váhy Tonava připojené na portu COM3 a následné zobrazení načtené hodnoty v informačním okně.

procedure FormCreate_Hook(Self: TSiteForm);
var
  mAction, mAction2: TBasicAction;
begin
  mAction := Self.GetNewAction;
  mAction.ShowControl := True;
  mAction.ShowMenuItem := True;
  mAction.Caption := 'Získat hmotnost';
  mAction.Category := 'tabList';
  mAction.OnExecute := @Main;
end;

function GetWeight: Integer;
var
  mComPort: TNxComPort;
  mInputCount: Integer;
  mData, mBuffer: TBytes;
  i, d: Integer;
  mWeight: string;
begin
  Result := 0;
  mComPort := TNxComPort.Create('COM3', nxbr9600, 7, nxOneStopBit, nxparEven, False, False, False);
  try
    mComPort.Open;
    try
      // Vyčištění bufferu
      mInputCount := mComPort.InputCount;
      if mInputCount > 0 then
        mComPort.Read(mBuffer, mInputCount);

      // Příjem aktuální hmotnosti
      Sleep(300);
      SetLength(mBuffer, 0);
      mInputCount := mComPort.InputCount;
      if mInputCount > 0 then
        mComPort.Read(mBuffer, mInputCount);
      if Length(mBuffer) < 8 then
      begin
        // Hmotnost nepředána
        Exit;
      end;

      // Dekódování přijaté hmotnosti
      // Příklad předání jednoho údaje
      // 02 30 31 30 37 30 33 03
      // stx 0  1  0  7  0  3 etx
      // 01 kg a 070.3 gramu

      for i := 0 to Length(mBuffer)-7 do
      begin
        if (mBuffer[i]=$02) and  // najít okno dat ohraničené stx/etx
          (mBuffer[i+7]=$03) then
        begin
          SetLength(mData, 5);
          for d := 0 to 4 do
            mData[d] := mBuffer[i + 1 + d];
          // mData = 30 31 30 37 30
          mWeight := TEncoding.ASCII.GetString(mData);
          if NxIsNumeric(mWeight) then
          begin
            Result := StrToInt(mWeight);
            exit;
          end;
        end;
      end;
    finally
      mComPort.Close;
    end;
  finally
    mComPort.Free;
  end;
end;

procedure Main(Sender : TObject);
var
  mSite : TSiteForm;
  mWeight: Integer;
begin
  mSite := TComponent(Sender).Site;
  mWeight := GetWeight;
  if mWeight > 0 then
    NxShowSimpleMessage(IntToStr(mWeight) + 'g', mSite.GetSiteAppForm);
end;

begin
end.

Ano. Viz otázka Je možné využívat funkcionalitu ochrany dat také v rámci zakázkových úprav (skriptování, OLE aj.) v sekci Ochrana dat.