"Numeric value out of range." (Sybase SQL Anywhere 5.5)

Tak mám tu hodiť 300 riadkov zdrojáku v Delphi (je to len čisto to, čo vkladá do databázy), tú databázovú procedúru a dátové typy jednotlivých stĺpcov (je ich 46) tabuľky, do ktorej to vkladám?

to dej na uloz.to v textovém souboru s příponou .txt

Tak už som to všetko dal na Problem.txt

Dal som tam celú procedúru Vklad, ktorú potom 2-krát využívam v programe. Dal som ju tam celú hlavne, aby ste sa mohli pozrieť na deklarácie premenných. Potom sa mrknite hlavne za poznámku // Pre Crystal Reports, pretože kód pred ňou bezproblémovo funguje a robí, čo má.

Inak procedúra frmZaklad.NacitanieSQL robí toto:

procedure TfrmZaklad.NacitanieSQL(Prikaz: String);
  begin
    with DataModule1.ADOQuery do begin
      SQL.Clear;
      SQL.Add(Prikaz);
      Active := true;
    end;
  end;

Ďalej procedúra frmZaklad.VykonanieSQL robí toto:

procedure TfrmZaklad.VykonanieSQL(Prikaz: String); 
  begin
    with DataModule1.ADOCommand do begin
      CommandText := Prikaz;
      Execute;
    end;
  end;

A nakoniec funkcia frmZaklad.BodkaNaCiarku robí toto:

function TfrmZaklad.BodkaNaCiarku(C: String): Currency;
  var
    i: Integer;
  begin
    for i := 1 to Length(C) do begin
      if (C[i] = '.') then C[i] := ',';
    end;
    BodkaNaCiarku := StrToCurr(C);
  end;

Môžete mi z toho zdrojáku poradiť? ...

A jsi si jisty, ze vsechny polozky pole Doby[] jsou naplnene? V tom cyklu je ruzne preskakujes.

Zjisti si aspon, co tam posilas. Prece neni problem odrokovat program a precist si ri tom hodnoty promennych, ktere ti jsou jako parametry.

Aha, díky. Ja som tam všade mal premennú i, potom som ten cyklus celý prepisoval a zamenil som aj to, čo som nemal. Idem vyskúšať.

Tak problém je vyriešený. Díky všetkým, ale hlavne autorovi PSPadu, ktorý to s Delphi naozaj umí.