11 lines
4.7 KiB
JSON
11 lines
4.7 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function msg,send_event\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n$insert rpt_cfg_equ\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nReportID = Trim(.report_id->text)\r\n\r\nReportRecord = ''\r\n\r\nIf ReportID > '' Then\r\n * SET RECORD TO ALL CONTROLS\r\n TempVar = .Table_Name->Text\r\n Convert @Lower_Case To @Upper_Case In TempVar\r\n ReportRecord<TableName$> = TempVar\r\n ReportRecord<Width$> = .Width->Text \r\n ReportRecord<Title$> = .Title->Text\r\n ReportRecord<Title2$> = .Title_2->Text\r\n ReportRecord<Title3$> = .Title_3->Text\r\n ReportRecord<Title4$> = .Title_4->Text \r\n ReportRecord<TitleFontType$> = .Title_Font_Type->Text \r\n ReportRecord<TitleFontSize$> = .Title_Font_Size->Text \r\n ReportRecord<TitleFontBold$> = .Title_Font_Bold->Check \r\n ReportRecord<TitleFontItalic$> = .Title_Font_Italic->Check \r\n ReportRecord<TitleFontUnderline$> = .Title_Font_Underline->Check \r\n ReportRecord<ColHeadFontType$> = .Col_Hed_Font_Type->Text \r\n ReportRecord<ColHeadFontSize$> = .Col_Hed_Font_Size->Text \r\n ReportRecord<ColHeadFontBold$> = .Col_Hed_Font_Bold->Check \r\n ReportRecord<ColHeadFontItalic$> = .Col_Hed_Font_Italic->Check\r\n ReportRecord<ColHeadFontUnderline$> = .Col_Hed_Font_Underline->Check\r\n ReportRecord<DefFontType$> = .Def_Font_Type->Text \r\n ReportRecord<DefFontSize$> = .Def_Font_Size->Text \r\n ReportRecord<DefFontBold$> = .Def_Font_Bold->Check \r\n ReportRecord<DefFontItalic$> = .Def_Font_Italic->Check\r\n ReportRecord<DefFontUnderline$> = .Def_Font_Underline->Check\r\n ReportRecord<ByStmt$> = .OrderBy->text\r\n ReportRecord<Landscape$> = .Landscape_Chk->Check\r\n ReportRecord<Grid$> = .Grid_Chk->Check \r\n ReportRecord<NoPage$> = .No_Page_Chk->Check \r\n ReportRecord<DoubleSpace$> = .Dbl_Spc_Chk->Check \r\n ReportRecord<IdSupp$> = .Id_Supp_Chk->Check \r\n ReportRecord<DetailSupp$> = .Det_Supp_Chk->Check \r\n ReportRecord<ColumnHeaderSupp$> = .Col_Hdr_Supp->Check \r\n ReportRecord<HeaderSupp$> = .Hdr_Supp->Check \r\n ReportRecord<WithStmt$> = .With_Statement->Text \r\n ReportRecord<Footer$> = .Footer->Text\r\n ReportRecord<PageNumber$> = .PageNumber->Check\r\n\r\n ReportRecord<ReportProcedure$> = .Report_Procedure->text\r\n\r\n arrayinfo = .COLUMN_INFO->array\r\n TempVar = arrayinfo<1>\r\n Convert @Lower_Case To @Upper_Case In TempVar\r\n ReportRecord<Field$> = TempVar \r\n ReportRecord<Header$> = arrayinfo<2> \r\n TempVar = arrayinfo<3> \r\n Convert @Lower_Case To @Upper_Case In TempVar \r\n ReportRecord<ColLength$> = TempVar \r\n ReportRecord<DataFontType$> = arrayinfo<4> \r\n ReportRecord<DataFontSize$> = arrayinfo<5>\r\n TempVar = arrayinfo<6>\r\n Convert @Lower_Case To @Upper_Case In TempVar \r\n ReportRecord<DataFontBold$> = TempVar \r\n TempVar = arrayinfo<7>\r\n Convert @Lower_Case To @Upper_Case In TempVar \r\n ReportRecord<DataFontItalic$> = TempVar\r\n TempVar = arrayinfo<8>\r\n Convert @Lower_Case To @Upper_Case In TempVar \r\n ReportRecord<DataFontUnderline$> = TempVar\r\n TempVar = arrayinfo<9>\r\n Convert @Lower_Case To @Upper_Case In TempVar \r\n ReportRecord<BreakOn$> = TempVar \r\n TempVar = arrayinfo<10>\r\n Convert @Lower_Case To @Upper_Case In TempVar \r\n ReportRecord<BreakOnValue$> = TempVar \r\n TempVar = arrayinfo<11>\r\n Convert @Lower_Case To @Upper_Case In TempVar \r\n ReportRecord<Total$> = TempVar \r\n TempVar = arrayinfo<12>\r\n Convert @Lower_Case To @Upper_Case In TempVar \r\n ReportRecord<Limit$> = TempVar \r\n \r\n void = send_event(@window:\".SLIST_SCRIPT_BUTTON\", \"CLICK\" )\r\n ReportRecord<SlistScript$> = .Slist_Script->text \r\n \r\n write ReportRecord on ConfigTable, ReportID Then\r\n Void = msg( '', 'Record ':ReportID:' has been written to CONFIG table' )\r\n end else\r\n Void = msg( '', 'Unable to write ':ReportID:' in CONFIG table' )\r\n end\r\nend\r\n\r\nreturn 0\r\n"
|
|
}
|
|
}
|
|
} |