Bonjour, JE RENCONTRE UN SERIEUX PROBLEME AVEC LA FONCTION JSON POUR UN FORMULAIRE DE CONNEXION A MON APPLICATION, LE CODE CIDESSOUS
......................................................................
gl_language_id, gL_db_type sont int
gender_res est int
gs_user_id, gs_adt_id, gs_patient_id, gs_webservice_url, gs_clinic_id, gs_image_location, gs_male_image, gs_female_image, gs_user_name are string
//............note rapide
gb_patient_seen, gb_appointment sont booléens
gn_flag_password est int
gn_Open_quicknote est int = 0
gdNextDayApp est la date
gn_billpayment is int
gs_webservice_url = "http://192.172.1.3/"
gl_language_id = 1
gs_user_id = "20171221000000252"
gs_image_location = fCurrentDir () + ""
gs_clinic_id = "201712201928020902"
gL_db_type = 1
l'envoi est httpRequest
la réception est httpResponse
lv_connect_db est une variante
bufLv_test est un tampon
objCls_Common_Masters est Cls_Common_Masters
garr_cls_parameter est un tableau de Cls_Parameter
garr_parameter_types est un tableau de Mgen_mst_parameter_types
garr_parameter_types_ln est un tableau de Mgen_mst_parameter_types_ln
garr_parameter est un tableau de Mgen_mst_parameter
garr_parameter_ln est un tableau de Mgen_mst_parameter_ln
garr_error_messages est un tableau de Msys_mst_message
garr_error_messages_ln est un tableau de Msys_mst_message_ln
garr_patients est un tableau de Mgen_mst_patient
garr_languages est un tableau de Mgen_mst_language
garr_adt_template_types est un tableau de Mclinic_mst_adt_note_templates
garr_parameter_v est un tableau de Cls_Parameter_v
garr_ph_mst_item est un tableau de Mph_mst_item
garr_user est un tableau de Mhr_mst_user
garr_adt_patient est un tableau de Cls_Adt_Patients
garr_medicine_list est un tableau de Mph_mst_item
garr_careplan_procedures est un tableau de Mgen_mst_careplan_procedures
gcl_DoctorSchedule est Cls_Appointment_Schedule
garr_appointments est un tableau de Mapp_txn_appointments
garr_txn_adt est Mclinic_txn_adt
h est httpRequest
h..Method = httpGet
h..URL = gs_webservice_url + "f_get_common_masters /" + gl_language_id
//h..ContentType = "application / json"
r est restRéponse = RESTEnvoie (h)
SI r.StatusCode = 200 ALORS
bufLv_test = r..Content
Désérialiser (objCls_Common_Masters, bufLv_test, psdJSON)
garr_parameter = objCls_Common_Masters.objparameter
garr_parameter_ln = objCls_Common_Masters.objparameter_ln
garr_parameter_types = objCls_Common_Masters.objparameter_type
garr_parameter_types_ln = objCls_Common_Masters.objparameter_type_ln
garr_error_messages = objCls_Common_Masters.objerrormessages
garr_error_messages_ln = objCls_Common_Masters.objerrormessages_ln
garr_patients = objCls_Common_Masters.objpatients
garr_adt_template_types = objCls_Common_Masters.objadttemplatetypes
garr_parameter_v = objCls_Common_Masters.objparameters_v
garr_user = objCls_Common_Masters.objusermaster
AUTRE
Info ("Problème de connexion, réessayez plus tard")
FIN
garr_gender est un tableau de Cls_Parameter_v
gender_res = ArraySeek (garr_parameter_v, asLinear, "parameter_type_id", 1)
TANT QUE gender_res <> - 1
SI garr_parameter_v [gender_res] .status_id = 1 ALORS
ArrayAdd (garr_gender, garr_parameter_v [gender_res])
FIN
gender_res = ArraySeek (garr_parameter_v, asLinearNext, "parameter_type_id", 1)
FIN
// ************************************************ ****** JOEMON
garr_lab_result_master est un tableau de Mlab_mst_result // pour la table de la fenêtre principale des résultats de laboratoire
garr_lab_result_master_link est un tableau de Mlab_mst_result_link // pour la table de droite dans la fenêtre de lien des résultats de laboratoire
garr_clinic_txn_sick_leave est un tableau de Mclinic_txn_sick_leave
obj_Mclinic_txn_sick_leave est Mclinic_txn_sick_leave
// ************************************************ ******
gclObj_txn_patient_referal est Mclinic_txn_referals
// niyas careplan
ST_crplan_proc est Structure
gm_medication est un tableau de Cls_Clinic_Txn_Medication
garr_labPro est un tableau de Cls_Lab_Txn_Procedures
garr_rad_nurPro est un tableau de Cls_clinic_txn_procedures
Careplan_id est une chaîne
FIN
gst_Available_procedures est ST_crplan_proc
ST_careplan_result est Structure
gm_care_plan_ordered_list est un tableau de procédures Mgen_mst_careplan_procedures
gm_care_plan_ordered_medicine est un tableau de Mclinic_txn_medication
FIN
ST_report_template est la structure
sReport_header est une chaîne
sReport_content est une chaîne
FIN
gclObj_parameter_v est Cls_Parameter_v
gclObj_parameter_v = new Cls_Parameter_v
SI gL_db_type = 1 ALORS
h..URL = gs_webservice_url + "f_get_todays_patient_list /" + Today ()
r = RESTEnvoie (h)
SI r.StatusCode = 200 ALORS
bufLv_test = r.Content
// Désérialiser (garr_adt_patient, bufLv_test, psdJSON)
FIN
AUTRE
// bufLv_test = f_get_today_visits (Aujourd'hui ())
FIN
Désérialiser (garr_adt_patient, bufLv_test, psdJSON)
