Работа с доп. реквизитами организации будет внесена в API.
Если это очень нужно сделать сейчас, можно воспользоваться следующим вариантом, хотя такой способ крайне не рекомендуется использовать:
Код |
---|
Dim sSQLselect As String
Dim ResultSetADO As Object
Dim ResultSet As Object
sSQLselect = "SELECT EOS_GUID_SSTU FROM AR_ORGANIZ_VALUE WHERE ISN_NODE = " & "4057793" ' где 4057793 - isn организации
Set ResultSet = oHead.GetResultSet()
Set ResultSetADO = ResultSet.GetRecordset(sSQLselect)
If Not IsNull(ResultSetADO.Fields(0).value) Then
MsgBox ResultSetADO.Fields(0).value
End If
|
После появления поддержки доп. реквизитов организаций в API настоятельно рекомендуется переделать работу с ними под стандартные объекты API.