1

Тема: Ошибка в тиражном макросе "ФИО"

Ошибка в тиражном макросе "ФИО", проигнорирован параметр "пол" (SEX) при выборе.
строки 25,26

вот исправленный текст:

LOCAL nKodKli     := _aFEVParameters[1]
LOCAL nPadeg      := _aFEVParameters[2]
LOCAL cFirstName 
LOCAL cLastName   
LOCAL cSecondName
LOCAL nSex       
LOCAL Language := 'UK'   
LOCAL oSQL
LOCAL aDCC := GetSpID('DOCLIST','DIC_CASES')
LOCAL cReturn

                                       
oSQL:=SpSQL():new():create()

oSQL:executeDirect("SELECT * FROM dc000060 WHERE priznak=523 AND worker="+STR(nKodKli))
cFirstName   := UPPER(oSQL:dataArea:name)
cLastName    := UPPER(oSQL:dataArea:family)
cSecondName  := UPPER(oSQL:dataArea:father)
nSex         := oSQL:dataArea:sexual


oSQL:executeDirect("SELECT dc1._"+STR(nPadeg,1)+" AS first, dc3._"+STR(nPadeg,1)+" AS last, "+;
                   "       HR.GetSecondNameCase('"+cSecondName+"', "+STR(nSex)+", "+STR(nPadeg)+", '"+Language+"') AS second "+;
                   "FROM system.iota dc "+;
                   "LEFT JOIN dc"+STRZERO(aDCC[1],6)+" dc1 ON dc1.priznak="+STR(aDCC[2])+" AND dc1._1 =UPPER(TRIM('"+cFirstName+"')) AND dc1.type=1 AND dc1.langid='"+UPPER(Language)+"' and dc1.sex="+STR(nSex)+;
                   "LEFT JOIN dc"+STRZERO(aDCC[1],6)+" dc3 ON dc3.priznak="+STR(aDCC[2])+" AND dc3._1 =UPPER(TRIM('"+cLastName+"')) AND dc3.type=2 AND dc3.langid='"+UPPER(Language)+"' and dc3.sex="+STR(nSex))
IF oSQL:eof()     
   RETURN ''
ENDIF
cReturn := UpCase(LOWER(oSQL:dataArea:last))+' '+UpCase(LOWER(oSQL:dataArea:first))+' '+UpCase(LOWER(oSQL:dataArea:second))
IF LEN(_aFEVParameters)>2
   EVAL(_aFEVParameters[3], oSQL)
ENDIF
oSQL:destroy() 

RETURN cReturn

2

Re: Ошибка в тиражном макросе "ФИО"

Спасибо.
Проверим и обновим в тираже

3

Re: Ошибка в тиражном макросе "ФИО"

Добрый день!

Этот мак не используется. Удалили из тиража


meatsoft пишет:

Ошибка в тиражном макросе "ФИО", проигнорирован параметр "пол" (SEX) при выборе.
строки 25,26

вот исправленный текст:

LOCAL nKodKli     := _aFEVParameters[1]
LOCAL nPadeg      := _aFEVParameters[2]
LOCAL cFirstName 
LOCAL cLastName   
LOCAL cSecondName
LOCAL nSex       
LOCAL Language := 'UK'   
LOCAL oSQL
LOCAL aDCC := GetSpID('DOCLIST','DIC_CASES')
LOCAL cReturn

                                       
oSQL:=SpSQL():new():create()

oSQL:executeDirect("SELECT * FROM dc000060 WHERE priznak=523 AND worker="+STR(nKodKli))
cFirstName   := UPPER(oSQL:dataArea:name)
cLastName    := UPPER(oSQL:dataArea:family)
cSecondName  := UPPER(oSQL:dataArea:father)
nSex         := oSQL:dataArea:sexual


oSQL:executeDirect("SELECT dc1._"+STR(nPadeg,1)+" AS first, dc3._"+STR(nPadeg,1)+" AS last, "+;
                   "       HR.GetSecondNameCase('"+cSecondName+"', "+STR(nSex)+", "+STR(nPadeg)+", '"+Language+"') AS second "+;
                   "FROM system.iota dc "+;
                   "LEFT JOIN dc"+STRZERO(aDCC[1],6)+" dc1 ON dc1.priznak="+STR(aDCC[2])+" AND dc1._1 =UPPER(TRIM('"+cFirstName+"')) AND dc1.type=1 AND dc1.langid='"+UPPER(Language)+"' and dc1.sex="+STR(nSex)+;
                   "LEFT JOIN dc"+STRZERO(aDCC[1],6)+" dc3 ON dc3.priznak="+STR(aDCC[2])+" AND dc3._1 =UPPER(TRIM('"+cLastName+"')) AND dc3.type=2 AND dc3.langid='"+UPPER(Language)+"' and dc3.sex="+STR(nSex))
IF oSQL:eof()     
   RETURN ''
ENDIF
cReturn := UpCase(LOWER(oSQL:dataArea:last))+' '+UpCase(LOWER(oSQL:dataArea:first))+' '+UpCase(LOWER(oSQL:dataArea:second))
IF LEN(_aFEVParameters)>2
   EVAL(_aFEVParameters[3], oSQL)
ENDIF
oSQL:destroy() 

RETURN cReturn

4

Re: Ошибка в тиражном макросе "ФИО"

Хочу возразить. Этот мак используется(вался) в докменте выписка доверенностей тиража 7.54.
Я так понимаю, что бы быть последовательными вы и этот документ подправили. Или как всегда?

5

Re: Ошибка в тиражном макросе "ФИО"

Добрый день!

Спасибо, мак исправили