Галактика в вопросах и ответах

m0p3e

Алексей писал(а):в какой этой? _loop по корневой таблицы, после невалидного листа continue переведёт корневую на следующую запись.

Издеваемся? Проехали...

m0p3e

А continue то при чем? Если мне требуется пропустить запись без потомков в конкретно этой таблице?

m0p3e

edward_K писал(а): 2. В общем случае хватит
if isValid(#table)
{ вывод
}
else { вывод 0 }
но никак не continue;
[/code]

continue то чем помешал? Компактно и читаемость текста лучше.

m0p3e

Вроде всегда так было.
Поэтому либо жесткая подцепка /==
Либо валидность проверять.

Код: Выделить всё

_Loop ObjRemReestr 
{
  If not IsValid(tn...)
    continue;
  set Objrem_ := ObjRemReestr.nrec;
  Rereadrecord;
  ... 
  xlStWriteToMatrix(i,    7, anytable.vString   );
}

m0p3e

Можно с tnsnames.ora вообще не связываться.

Код: Выделить всё

[SQLDriver]
 SQLServer=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.1.1)(PORT=1521))(CONNECT_DATA=(SID=GALAXY)))

Меняем цифры, буквы на свои и прописываем в общий cfg.

m0p3e

<> означают, что нужно свое значение подставить. :) .Create view AdOrg From katorg, PodrInfo Where (( ORG_NREC == katorg.nrec and Katorg.nrec == podrinfo.cpodr )); .fields iAdrFunc.GetFullTerrName(comp(AdOrg.PodrInfo.okved)) .endfields Ну и пропозиционировать предварительно таблицу не помешает.

m0p3e

Если в форме, то как-то так:

Код: Выделить всё

.var iAdrFunc : AddressFunc; .endvar
.fields
 iAdrFunc.GetFullTerrName (<AddressN.nrec>)
.endfields

m0p3e

Адреса обычно формируются через ObjAddressFunc (AdrFunc.vih).

Код: Выделить всё

     FullNameAdr    := iAdrFunc.GetFullAddressInd(CurNRecAdr);
     FullNameATD    := iAdrFunc.GetFullTerrName(CurNRecATD);

m0p3e

В vipprog к 9.1 появилось описание функций: *PartMemo*. Видимо они и нужны. VIP 5.5.20.

m0p3e

Проверил с текстом - работает.

Код: Выделить всё

  ImportFileToMemo ( DocInfo.TextData, 'C:\TEMP\memo1.txt', false );
  ImportFileToMemo ( DocInfo.TextData, 'C:\TEMP\memo2.txt', true );
  SetMemoPrefix ( tnDocInfo, 'txt' );
  Update Current DocInfo;

В memo тексты обоих файлов.

m0p3e

В рабочей папке создаем файл excel.log и пробуем выгружать. В нем будет протокол.

m0p3e

Так и получается. Отзыв у одного сотрудника. Отпуск идет один за другим и соответственно отзыв из двух отпусков. Но двумя строками в приказе. То есть сначала отзыв из основного ежегодного, затем отзыв из дополнительного отпуска. В этом случае проблем быть не должно. Но если, например идут отпуска: ...

m0p3e

Если нужен отпуск из которого идет отзыв, то:

Код: Выделить всё

       ContDocNrec == ContDoc.nrec
   and ContDoc.ObjNrec == OtpOtz.nrec
   and OtpOtz.kOtpus == KlOtpusk.kOtpus

Но нужно учитывать, что одним отзывом можно отозвать сразу из нескольких разных отпусков, если они идут один за другим.

m0p3e

KATZ писал(а): Скорее так
Код: Выделить всё
SubStr(KatParty.kod,17,1)<>'h'

Точно.

m0p3e

Код: Выделить всё

pos('h',Katparty.kod)<>17

17-ую позицию правильнее отлавливать так:

Код: Выделить всё

SubStr(KatParty.kod,17,17)<>'h'

Галактика в вопросах и ответах

Найдено 1378 результатов

Re: Значение в невалидной таблице из предыдущей записи в цик

Re: Значение в невалидной таблице из предыдущей записи в цик

Re: Значение в невалидной таблице из предыдущей записи в цик

Re: Значение в невалидной таблице из предыдущей записи в цик

Re: Не могу зайти в галактику

Re: Использование переменной, которая находится вне таблицы

Re: Использование переменной, которая находится вне таблицы

Re: Использование переменной, которая находится вне таблицы

Re: Как программно дописать в MEMO поле?

Re: Как программно дописать в MEMO поле?

Re: Выгрузка в excel 2010

Re: Вид отпуска в приказе на отзыв

Re: Вид отпуска в приказе на отзыв

Re: Ограничение на запрос

Re: Ограничение на запрос