11 lines
2.0 KiB
JSON
11 lines
2.0 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function security_check, fieldcount, center_window, send_event, post_event\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nTemplatePassed = field( CreateParam, '*', 1 )\r\nSystemGenerated = false$\r\nif index( CreateParam, 'NOEXCEL', 1 ) then\r\n Void = set_property( @window, '@NoExcel', 1 )\r\nend else\r\n Void = set_property( @window, '@NoExcel', 0 )\r\nend\r\nif index( CreateParam, 'SYSTEM_GENERATED', 1 ) then\r\n\t* DO NOT MAKE THE WINDOW VISIBLE CAUSE WE ARE CALLING BEHIND THE SCENES\r\n\t* TO DO AN EXPORT I FUCKING HOPE\r\n\tSystemGenerated = true$\r\nend else\r\n\tif index( CreateParam, 'CENTER', 1 ) then\r\n\t void = center_window( @window )\r\n\tend else\r\n\t Void = set_property( @window, 'VISIBLE', 1 )\r\n\tend\r\nend\r\nTToVal = xlate( 'LISTBOX_CONFIG', 'EXPORTTABLENAMES', 1, 'X' )\r\nTToValOut = oconv( TToVal, '[TABLENAME_CONV]' )\r\nTcnt = fieldcount( TToVal, @vm )\r\nTList = ''\r\nfor i = 1 to Tcnt\r\n if security_check( TToValOut<1,i>, Read$ ) then\r\n TList<-1> = TToVal<1,i>\r\n end\r\nnext i\r\nif TList then\r\n IF @USER4 = 'BRYCE_M' THEN\r\n TLIST<-1> = 'NOTES'\r\n TLIST<-1> = 'MODS'\r\n END\r\n .exporttablenames->list = TList \r\nend\r\nif SystemGenerated then\r\n\tVoid = set_property( @window, '@SystemGenerated', true$ )\r\n\tVoid = set_property( @window, '@CurCustomer', field( CreateParam, '*', 3 ) )\r\n\tTemplateToUse = field( CreateParam, '*', 2 )\r\n\t* THIS WILL BE THE ID TO THE TABLE, NO ERROR CHECKING CAUSE THE CODE WILL\r\n\t* BE THE ONLY CALLING PIECE\r\n\t.export_name->text = TemplateToUse\r\n\tVoid = send_event( @window:'.EXPORT_NAME', 'LOSTFOCUS' )\r\n\tVoid = send_event( @window:'.BUTTON_1', 'CLICK' )\r\nend\r\nif TemplatePassed then\r\n .export_name->text = TemplatePassed\r\n Void = send_event( @window:'.EXPORT_NAME', 'LOSTFOCUS' )\r\nend\r\nRETURN 1"
|
|
}
|
|
}
|
|
} |