{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare function sched_rpt1, send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nEntDateFrom   = .entry_date_from->text\r\nEntDateThru   = .entry_date_thru->text\r\nDueDateFrom   = .due_date_from->text\r\nDueDateThru   = .due_date_thru->text\r\nCloseDateFrom = .close_date_from->text\r\nCloseDateThru = .close_date_thru->text\r\nWOFrom        = .wo_from->text\r\nWOThru        = .wo_thru->text\r\nOpen          = .open_check->check\r\nClosed        = .closed_check->check\r\nSchedYes      = .sched_yes_check->check\r\nSchedNo       = .sched_no_check->check\r\nCusts         = ex_vm_rem( .customer_info->array<1> )\r\nEntParam = EntDateFrom:EntDateThru:DueDateFrom:DueDateThru:CloseDateFrom:CloseDateThru:WOFrom:WOThru:Custs:Open:Closed:SchedYes:SchedNo\r\nif  EntParam then\r\n\tDirToPrint   = .send_to_printer->text\r\n\tRetVal = EntDateFrom:'*':EntDateThru:'*':DueDateFrom:'*':DueDateThru:'*'\r\n\tRetVal:= CloseDateFrom:'*':CloseDateThru:'*':WOFrom:'*':WOThru:'*':Custs:'*':Open:'*':Closed:'*':SchedYes:'*':SchedNo:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n    MsgInfo = ''\r\n    MsgInfo<mtext$> = 'You must enter at least one parameter for the report.'\r\n    MsgInfo<micon$> = '!'\r\n    Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n"
        }
    }
}