NoOutput ()
string linkUpdejtu = "XXX"
string currentRow2
string cos2
basekh basKH2 [b]//zwróćcie uwagę na typ[/b]

IORec  iorecExp2
basKH2.SetKey("id")
string nazwaPliku2 = "C:\\YYY"

Int errBD2=basKH2.GetREc(GE)
while !errBD2

if(basKH2.GetField("typi") == 0) then   [b]// zwróćcie uwagę na warunek[/b]
   currentRow2 = "Kontrahent nazwa: " + basKH2.GetField("nazwa")
   cos2 =  Using "%L", basKH2.GetField("id")
   currentRow2 += ",id:" + cos2
   iorecExp2.SetField("typEksportu", "1")       
   iorecExp2.SetField("sterownik", "ie8.dll")   
   iorecExp2.SetField("parametry", "_EXP_FK")   
   iorecExp2.SetField("raport", "Eksport kontrahentów")
   iorecExp2.SetField("katalog", nazwaPliku2)   
   iorecExp2.SetField("showProgressBar", "1")
   iorecExp2.SetField("flagi", "1")
   
   iorecExp2.BeginSection("DocsData")
   iorecExp2.SetField("id", cos2) 
   iorecExp2.EndSection()
endif
errBD2=basKH2.GetREc(NX)
Wend

ExportKH(iorecExp2)

Execute(tempString)

NoOutput ()
string currentRow
string cos
basetw basTW [b]// inny typ[/b]

IORec  iorecExp
basTW.SetKey("id")
string nazwaPliku = "VVVVV"
Int errBD=basTW.GetREc(GE)
while !errBD

if(basTW.GetField("nazwa") != "") then   [b]// inny warunek[/b]
   currentRow = "Towar nazwa: " + basTW.GetField("nazwa")
   cos =  Using "%L", basTW.GetField("id")
   currentRow += ",id:" + cos
   
   iorecExp.SetField("typEksportu", "1")
   iorecExp.SetField("sterownik", "ie8.dll")       
   iorecExp.SetField("parametry", "_EXP_FK")       
   iorecExp.SetField("raport", "Eksport towarów")   
   iorecExp.SetField("katalog", nazwaPliku)   
   iorecExp.SetField("showProgressBar", "1")   
   iorecExp.SetField("flagi", "1")   
   
   iorecExp.BeginSection("DocsData")
   iorecExp.SetField("id", cos)     
   iorecExp.EndSection()
endif
errBD=basTW.GetREc(NX)

Wend
ExportMg(iorecExp)

string tempString = "KKKKK"+nazwaPliku+" towary "+linkUpdejtu
Execute(tempString)