forum.clarionlife.net

kreator писал(а): ↑18 Октябрь 2018, 16:41Придётся второй if not писать

Игорь Столяров писал(а): ↑18 Октябрь 2018, 16:51 Непонятно поведение Clarion Report …

Игорь Столяров писал(а): ↑18 Октябрь 2018, 15:52Я же в первом посте написал, где юзается … Было вот так:
Код: Выделить всё
Report_Slip(Loc:Sber{'GParamString("Cheque")'}) ! Получить и распечать слип-чек эквайринга сбера ...

! X-Отчёт по операциям с платёжными картами
If Not Loc:Sber{'NFun(6002)'} then Report_Slip(Loc:Sber{'GParamString("Cheque")'}).

Игорь Столяров писал(а): ↑18 Октябрь 2018, 8:56Report_Slip('') ! GPF с крахом приложения

print_str = ''
Report_Slip(print_str)

Report_Slip       Procedure(string xText_)
text_ string(...)
report              REPORT('Текстовый файл'),AT(200,200,7760,11031),PAPER(PAPER:A4), PRE(RPT),FONT('Consolas',10,,FONT:regular,CHARSET:CYRILLIC),THOUS
detail  DETAIL,USE(?detail)
        TEXT,AT(,,7760,),USE(  text_  ),TRN,LEFT,RESIZE
  END
END
    code
        text_ = xText_
        OPEN(report)
        . . .

kreator писал(а): ↑18 Октябрь 2018, 17:22ДП объяснил. Null'ы по-любому надо как-то обрабатывать

Игорь Столяров писал(а): ↑18 Октябрь 2018, 17:50Не согласный я c ним. Косяк это именно Report. Нет проблем ведь с отображением такого же пустого параметра в поле окна,
нет проблем с присвоением этого параметра, и только внутри Report всё клинит. С чего бы ?

  PROGRAM

  MAP
    DisplayWin(STRING pText)
  END

  CODE
!  DisplayWin('Hello world!')  !- works
  DisplayWin('')                     !- GPF
  
DisplayWin                    PROCEDURE(STRING pText)
Window                          WINDOW('Caption'),AT(,,260,110),CENTER,GRAY,FONT('Segoe UI',9)
                                  TEXT,AT(20,20,214),USE(pText)
                                  BUTTON('Close'),AT(195,87),USE(?bClose),STD(STD:Close)
                                END
  CODE
  OPEN(Window)
  ACCEPT
  END

Дед Пахом писал(а): ↑18 Октябрь 2018, 13:48Явно нет, а неявно есть. На мой взгляд, правильно делать как-то так:
Код: Выделить всёTEXT,AT(,,7760,),USE(?txtField),TRN,LEFT,RESIZE
?txtField{prop:text} = xText_

Игорь Столяров писал(а): ↑19 Октябрь 2018, 7:18При передаче в отчёт пустой строки - отчёт просто не создаётся …

kreator писал(а): ↑19 Октябрь 2018, 12:08Нафига печатать отчёт с пустой деталью?