ldateFrom = Format(dateOfarrival,"DF=""yyyyMMdd""");
ldateTo = Format(dateOfdeparture,"DF=""yyyyMMdd""");
ltimeFrom = Format(timeOfarrival,"DF=""HHmm""");
ltimeTo = Format(timeOfdeparture,"DF=""HHmm""");
lroomNmbr = Mid(suite.Code,2);
catch = new COMObject("InterGH.clsPrincipal");
результат = catch.InterGH_TarjetaUsuario(lroomNmbr, ldateFrom
, ltimeFrom, ldateTo, ltimeTo,
"0", "0", "0",
"0", 1, 0,
"", "N",
"1","ISMIe");
if результат = 0 then
domessagebox("карта записана");
endif;