dispatch xDokPn = xFactory.NewObject("BDokumentPn")
xDokPn.Load(using "kod='%s'", sKodPlatnosci)
// (...)
dispatch xRejPn = xDokPn.rejestr.LoadFullObject()

xDokPn.UstawTypDK("PADD")
xDokPn.UstawSerie("sPADD")

SELECT       idTX
FROM            HM.KH
WHERE        (kod = 'BANK EUR') AND (typ = 104)

SELECT *
FROM HM.TX
WHERE id = wartość_z_pola_idTx_tabeli_KH

trybRozliczania='0' typRaportu='' seriaKorekty='' typWplaty='BP' seriaWplaty='sBP' typWyplaty='BW' seriaWyplaty='sBW' parametrFK=''

string sub INT_getRejestrPnParam(string sRejestrKod, string sParametr)
   dispatch con = GetAdoConnection()
   dispatch rs = "ADODB.Recordset"
   INT_getRejestrPnParam = ""
   
   string sTemplate = "SELECT CASE WHEN (CHARINDEX ( '%s=''', TX.opis ) = 0) THEN '' ELSE SUBSTRING( TX.opis, CHARINDEX ( '%s=''', TX.opis ) + LEN('%s='''), CHARINDEX( '''', SUBSTRING( TX.opis, CHARINDEX ( '%s=''', TX.opis ) + LEN('%s='''), 10) ) - 1) END AS OUT FROM HM.KH WITH (NOLOCK) INNER JOIN HM.TX WITH (NOLOCK) ON (KH.idTX = TX.id) WHERE (KH.kod = '%s') AND (KH.typ = 104)"
   string sSQL = using sTemplate, sParametr, sParametr, sParametr, sParametr, sParametr, sRejestrKod

   if rs.State == 1 then rs.Close()
   rs.Open ( sSQL ,con,3)
   
   if rs.RecordCount > 0 then
      rs.MoveFirst()
      if !rs.EOF then
         INT_getRejestrPnParam = rs.Fields("OUT").Value
      endif
   endif
   rs.Close()
endsub

string sub INT_getRejestrPnParam(string sRejestrKod, string sParametr)
   dispatch con = GetAdoConnection()
   dispatch rs = "ADODB.Recordset"
   
   string sSQL = using "SELECT opis FROM HM.KH INNER JOIN HM.TX ON (KH.idTX = TX.id) WHERE (KH.kod = '%s') AND (KH.typ = 104)", sRejestrKod

   if rs.State == 1 then rs.Close()
   rs.Open ( sSQL ,con,3)
   
   if rs.RecordCount > 0 then
         buf = rs.Fields("opis").Value
       if find regular (using "^*%s/='{*}'*$", sParametr) then INT_getRejestrPnParam = regular 1
   endif
   rs.Close()
endsub

print INT_getRejestrPnParam("BANK EUR", "typWplaty")