_DiaAddress

(dim Ulice      : String[53];
 dim DCislo     : String[8];
 dim OCislo     : String[8];
 dim TypCisla   : Integer;
 dim PSC        : String[12];
 dim Obec       : String[48];
 dim Posta      : String[50];
 dim StatKod    : String[10]  [;
 dim CastObce   : String[20];
 dim Nazev      : String[100];
 dim Zkratka    : String[10];
 dim Okres      : String[48];
 dim MestObvod	: String[50];
 dim Poznamka   : String[100];
 dim GPS        : String[50];
 dim KrajId     : Longint ]) : Integer
Tato funkce zobrazí dialog, který umožňuje zadání adresy s možností výběru PSČ.

Parametr TypCisla určuje pojetí domovního čísla DCislo. (1)adrCisloPopisne = číslo popisné (červené) a (2)adrCisloEvidencni = číslo evidenční (žluté, např.: chaty, garáže).

Parametr OCislo je orientační číslo (modré).

Parametr KrajId je relací do číselníku krajů (dbtCSZ) (název číselníku je: KRAJE) (Pozn: Praha se pozná z čísla kraje - kód číselníku 'CZ010').

Funkce vrací cmOK nebo cmCancel.

Podívejte se na: Procedury a funkce - Objekty , _GetSpecString

Příklad:

dim sUlice      : String[53];
dim sDCislo     : String[8];
dim sOCislo     : String[8];
dim nTypCisla   : Integer;
dim sPSC        : String[12];
dim sObec       : String[48];
dim sPosta      : String[50];
dim sStatKod    : String[10];
dim sCastObce   : String[20];
dim sNazev      : String[100];
dim sZkratka    : String[10];
dim sOkres      : String[48];
dim sMestObvod  : String[50];
dim sPoznamka   : String[100];
dim sGPS        : String[50];
dim nKrajId     : Longint;

sUlice      := "Okrouhlá";
sDCislo     := "4578";
sOCislo     := "73";
sPSC        := "155 00";
sObec       := "Praha 5";
sOkres      := "Praha";
sPosta      := "Praha 5";
sCastObce   := "Stodůlky";
sMestObvod  := "Stodůlky";
sStatKod    := "CZ";
sGPS        := "";
nKrajId     := 0;

nTypCisla   := adrCisloPopisne;

sNazev      := _GetSpecString(  spsAdresa, sUlice, sObec, sPosta, 
                                sDCislo, sOCislo, sPSC, sStatKod, sCastObce, sMestObvod, nTypCisla, adrSkladaniPraha);

if _DiaAddress(sUlice, sDCislo, sOCislo, nTypCisla, sPSC, sObec, sPosta, sStatKod, 
				sCastObce, sNazev, sZkratka, sOkres, sMestObvod, sPoznamka, sGPS, nKrajId) = cmOK then

    Trace(_GetSpecString(  spsAdresa, sUlice, sObec, sPosta, 
                                sDCislo, sOCislo, sPSC, sStatKod, sCastObce, sMestObvod, nTypCisla, adrSkladaniPraha));  
endif