admin/Mareon
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Melding MARX#67715 Uitbreiding van de communicatie van statuscodes naar REMS

Browse Source 
svn path=/Mareon/trunk/; revision=52441
This commit is contained in:
Marcel Bourseau
2021-07-20 13:31:18 +00:00
parent dca0171dc6
commit bb0f81e303
9 changed files with 92 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
ax/SRC/AxFacilitor.js
View File

@@ -554,6 +554,25 @@ function REMS_2_MAREON()
MARX_2_REMS_GeplandeOpdrachten();
__Log("*** END", 2);
if (G_mar_communicatielogboek == 1){
__Log("*** Communicatie logboek AAN", 2);
__Log("*** START MAREON --> REMS : Verlengde opdrachten uit Mareon naar AX ***", 2);
FCLT_2_AX2012_VerlengdeOpdrachten();
__Log("*** END", 2);
__Log("*** START MAREON --> REMS : Opdrachten in uitvoering uit Mareon naar AX ***", 2);
FCLT_2_AX2012_UitvoeringOpdrachten();
__Log("*** END", 2);
__Log("*** START MAREON --> REMS : Onderbroken opdrachten uit Mareon naar AX ***", 2);
FCLT_2_AX2012_OnderbrokenOpdrachten();
__Log("*** END", 2);
}
else{
__Log("*** Communicatie logboek UIT", 2);
}
__Log("*** START MAREON --> REMS : Afgemelde opdrachten uit Mareon naar REMS ***", 2);
MARX_2_REMS_AfgemeldeOpdrachten();
__Log("*** END", 2);
@@ -599,8 +618,9 @@ function FACILITOR_2_Xtractor()
// 1.50 -- MARX#62647: Koppeling AX365 - Mareon (Push)
// 1.51 -- MARX#66742: De logging van de sync adapter voor AX365 per klant + YKPN#66746: Hago en Mondial krijgen geen mails/ meldingen meer door
// 1.52 -- MARX#67695: Adapter genereert veel te veel logging --> Logging van base64 XML nodes (van PDF bestanden) is oorzaak, we kappen de logging daarvan af op max. 1024 tekens (1K)
// 1.53 -- MARX#67715: Uitbreiding van de communicatie van statuscodes naar REMS
var G_Mareon_Adapter = "1.51";
var G_Mareon_Adapter = "1.53";
//MARX#56643: Test Haagwonen inkoopordernummer ontbreekt in Mareon ION001753
var G_new_date = new Date();
//-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

9
ax/SRC/Common.js
View File

@@ -1057,6 +1057,7 @@ function displayTimeStamp() {
var hours = currentTime.getHours();
var minutes = currentTime.getMinutes();
var seconds = currentTime.getSeconds();
var millsec = currentTime.getMilliseconds();
maand = maand + 1;
if (maand < 10) {
@@ -1071,7 +1072,13 @@ function displayTimeStamp() {
if (seconds < 10) {
seconds = "0" + seconds
}
str += jaar + "-" + maand + "-" + dag + "T" + hours + "_" + minutes + "_" + seconds;
if (millsec < 10) {
millsec = "0" + millsec
}
if (millsec < 100) {
millsec = "0" + millsec
}
str += jaar + "-" + maand + "-" + dag + "T" + hours + "_" + minutes + "_" + seconds + "_" + millsec;
return str;
}

15
ax/SRC/F_GetOpdrachtenAcceptedRefused.js
View File

@@ -74,7 +74,7 @@ function F_GetOpdrachten_AcceptRefuse()
}
if (v_srtnotificatie_code == 'ORDANN') {
GEN_AnnuleerServiceTask(v_company_id, "ANN", v_externnr, v_mld_opdr_extrainfo, "-1");
GEN_AnnuleerServiceTask(v_company_id, v_taskId, "ANN", v_externnr, v_mld_opdr_extrainfo, "-1");
}
i = i + 1;
@@ -101,11 +101,8 @@ function GEN_AcceptServiceTask(v_company_id, v_taskId, v_externnr, v_mld_opdr_ex
if (AX_or_Tobias() == "F") {
v_resp = FCLT_SetOpdrachtStatus (v_company_id, v_taskId, v_externnr, "ORDACP", "");
}
if (AX_or_Tobias() == "R") {
//In REMS bestaat geen expliciet accepteren, ff uitgecommentarieerd
//R_SetOpdrachtStatus (v_company_id, v_taskId, v_externnr, "accepteren", "", v_mld_opdr_extrainfo);
__Log("Opdracht is geaccepteerd door uitvoerder: REMS kent deze status niet",2);
v_resp = {api_status_code: 1, api_status_message: "", api_response_message: ""};
if (AX_or_Tobias() == "R") {
v_resp = R_SetOpdrachtStatus (v_company_id, v_taskId, v_externnr, "ACC", "", v_mld_opdr_extrainfo);
}
return v_resp;
}
@@ -130,14 +127,14 @@ function GEN_RefuseServiceTask(v_company_id, v_taskId, v_externnr, v_code_geweig
v_resp = FCLT_SetOpdrachtStatus (v_company_id, v_taskId, v_externnr, "ORDCAN", "");
}
if (AX_or_Tobias() == "R") {
v_resp = R_SetOpdrachtStatus (v_company_id, v_taskId, v_externnr, "afkeuren ", "", v_mld_opdr_extrainfo);
v_resp = R_SetOpdrachtStatus (v_company_id, v_taskId, v_externnr, "WEI", "", v_mld_opdr_extrainfo);
}
return v_resp;
}
function GEN_AnnuleerServiceTask(v_company_id, v_statuscode, v_externnr, v_mld_opdr_extrainfo, v_date)
function GEN_AnnuleerServiceTask(v_company_id, v_taskId, v_statuscode, v_externnr, v_mld_opdr_extrainfo, v_date)
{
var v_resp;
@@ -157,7 +154,7 @@ function GEN_AnnuleerServiceTask(v_company_id, v_statuscode, v_externnr, v_mld_o
v_resp = {api_status_code: 1, api_status_message: "", api_response_message: ""};
}
if (AX_or_Tobias() == "R") {
v_resp = {api_status_code: 1, api_status_message: "", api_response_message: ""};
v_resp = R_SetOpdrachtStatus (v_company_id, v_taskId, v_externnr, v_statuscode, "", v_mld_opdr_extrainfo);
}
return v_resp;

2
ax/SRC/F_GetOpdrachtenAfgemeld.js
View File

@@ -79,7 +79,7 @@ function GEN_CompleteServiceTask(v_company_id, v_taskId, v_externnr, v_extraInfo
v_resp = FCLT_CompleteServiceTask (v_company_id, v_taskId, v_externnr, v_dateComplete);
}
if (AX_or_Tobias() == "R") {
v_resp = R_SetOpdrachtStatus (v_company_id, v_taskId, v_externnr, "goedkeuren", v_dateComplete, v_extraInfo);
v_resp = R_SetOpdrachtStatus (v_company_id, v_taskId, v_externnr, "GER", v_dateComplete, v_extraInfo);
}
return v_resp;

2
ax/SRC/F_GetOpdrachtenGepland.js
View File

@@ -79,7 +79,7 @@ function GEN_PlanServiceTask(v_company_id, v_taskId, v_externnr, v_extraInfo, v_
v_resp = FCLT_PlanServiceTask (v_company_id, v_taskId, v_externnr, v_date);
}
if (AX_or_Tobias() == "R") {
v_resp = R_SetOpdrachtStatus (v_company_id, v_taskId, v_externnr, "uitstellen", v_date, v_extraInfo);
v_resp = R_SetOpdrachtStatus (v_company_id, v_taskId, v_externnr, "AFH", v_date, v_extraInfo);
}
return v_resp;

12
ax/SRC/F_GetOpdrachtenOnderbroken.js
View File

@@ -51,7 +51,7 @@ function F_GetOpdrachten_Onderbroken()
//MARX#56792: XML equivalent van & < > etc toepassen...
v_extraInfo = escapeXml(v_extraInfo);
GEN_OnderbreekServiceTask(v_company_id, v_statuscode, v_externnr, v_extraInfo, "-1");
GEN_OnderbreekServiceTask(v_company_id, v_taskId, v_statuscode, v_externnr, v_extraInfo, "-1");
i = i + 1;
var strQuery = "//xml/mld_ordr[" + i + "]";
@@ -60,7 +60,7 @@ function F_GetOpdrachten_Onderbroken()
}
function GEN_OnderbreekServiceTask(v_company_id, v_statuscode, v_externnr, v_extraInfo, v_date)
function GEN_OnderbreekServiceTask(v_company_id, v_taskId, v_statuscode, v_externnr, v_extraInfo, v_date)
{
var v_resp;
if (AX_or_Tobias() == "A") {
@@ -70,7 +70,7 @@ function GEN_OnderbreekServiceTask(v_company_id, v_statuscode, v_externnr, v_ext
v_resp = A2012_UpdatePurchStatus(v_company_id, v_statuscode, v_externnr, v_extraInfo, v_date);
}
if (AX_or_Tobias() == "A365") {
v_resp = A365_StatusLog(v_company_id, v_statuscode, v_externnr, v_extraInfo, v_date, 1);
v_resp = A365_StatusLog(v_company_id, v_statuscode, v_externnr, v_extraInfo, v_date, 1);
}
if (AX_or_Tobias() == "T") {
v_resp = {api_status_code: 1, api_status_message: "", api_response_message: ""};
@@ -79,7 +79,7 @@ function GEN_OnderbreekServiceTask(v_company_id, v_statuscode, v_externnr, v_ext
v_resp = {api_status_code: 1, api_status_message: "", api_response_message: ""};
}
if (AX_or_Tobias() == "R") {
v_resp = {api_status_code: 1, api_status_message: "", api_response_message: ""};
v_resp = R_SetOpdrachtStatus (v_company_id, v_taskId, v_externnr, v_statuscode, "", v_extraInfo);
}
return v_resp;
@@ -87,7 +87,7 @@ function GEN_OnderbreekServiceTask(v_company_id, v_statuscode, v_externnr, v_ext
// Dezelfde functie als GEN_OnderbreekServiceTask, maar wordt alleen uitgevoerd als de onderbreek-status afwijkt van laatst gestuurde onderbreek-status, en nadat bericht is gestuurd, wordt deze laatste
// onderbreekstatus in Mareon vastgelegd/geregistreerd, voor de volgende keer.
function GEN_Conditioneel_OnderbreekServiceTask (v_opdr_key, v_company_id, v_statuscode, v_externnr, v_extraInfo, v_date){
function GEN_Conditioneel_OnderbreekServiceTask (v_opdr_key, v_company_id, v_taskId, v_statuscode, v_externnr, v_extraInfo, v_date){
var v_resp;
//Default gaan we ervan uit dat de response goed gaat/is, en dus de notify uit de queue kan...
v_resp = {api_status_code: 1, api_status_message: "", api_response_message: ""};
@@ -96,7 +96,7 @@ function GEN_Conditioneel_OnderbreekServiceTask (v_opdr_key, v_company_id, v_sta
v_laatste_statuscode_Mareon = F_GetOpdracht_Laatse_Onderbreekcode (v_opdr_key);
if (v_statuscode != v_laatste_statuscode_Mareon){
// De statuscode die nu wordt gestuurd, wijkt af van de laatste statuscode, dus: opsturen naar ERP odprachtgever...
v_resp = GEN_OnderbreekServiceTask(v_company_id, v_statuscode, v_externnr, v_extraInfo, v_date);
v_resp = GEN_OnderbreekServiceTask(v_company_id, v_taskId, v_statuscode, v_externnr, v_extraInfo, v_date);
if (v_resp.api_status_code == 1){
// then goed verwerkt, stuur naar Mareon dat deze (laatst) gestuurde onderbreek-code naar ERP opdrachtgever goed is verwerkt, en registreer deze onderbreek-code, om dubbele berichten te voorkomen
MARX_Send_Succes_Or_Failure(v_opdr_key, "OPDR_POST_ONDERBREEK", v_statuscode);

48
ax/SRC/F_GetOpdrachtenStatussen.js
View File

@@ -160,11 +160,36 @@ function do_exec_opdrstatus(p_order, p_min_fac_tracking_datum_ordupd){
var l_mld_opdr_plandatum;
var l_mld_opdr_plandatum_tmp = p_order.mld_opdr_plandatum; //eg "2020-07-30T09:00:00", UTC time, deze kan null zijn!!
if (l_mld_opdr_plandatum_tmp == null){l_mld_opdr_plandatum = ""} else {l_mld_opdr_plandatum = jsdatetoiso(l_mld_opdr_plandatum_tmp)};
if (l_mld_opdr_plandatum_tmp == null){
l_mld_opdr_plandatum = ""
}
else {
if (AX_or_Tobias() == "A365"){
// ISO date-time voor T365
l_mld_opdr_plandatum = jsdatetoiso(l_mld_opdr_plandatum_tmp);
}
else{
// Melding MARX#67715: local time voor REMS (en ook Facilitor, AX2012 en AX2009)
l_mld_opdr_plandatum = jsdatextoxml(l_mld_opdr_plandatum_tmp);
}
}
var l_mld_opdr_plandatum2;
var l_mld_opdr_plandatum2_tmp = p_order.mld_opdr_plandatum2; //eg null, in UTC time, deze kan null zijn!!
if (l_mld_opdr_plandatum2_tmp == null){l_mld_opdr_plandatum2 = ""}else {l_mld_opdr_plandatum2 = jsdatetoiso(l_mld_opdr_plandatum2_tmp)};
if (l_mld_opdr_plandatum2_tmp == null){
l_mld_opdr_plandatum2 = ""
}
else {
if (AX_or_Tobias() == "A365"){
// ISO date-time voor T365
l_mld_opdr_plandatum2 = jsdatetoiso(l_mld_opdr_plandatum2_tmp);
}
else{
// Melding MARX#67715: local time voor REMS (en ook Facilitor, AX2012 en AX2009)
l_mld_opdr_plandatum2 = jsdatextoxml(l_mld_opdr_plandatum2_tmp);
}
}
var l_mld_opdr_opmerking = p_order.mld_opdr_opmerking; // eg "Is niet meer nodig, de vloerbedekking is weer goed.", deze kan null zijn!!
if (l_mld_opdr_opmerking == null){l_mld_opdr_opmerking = ""};
@@ -223,7 +248,7 @@ function do_exec_opdrstatus(p_order, p_min_fac_tracking_datum_ordupd){
// Communciatie vorige GEN_SetSupplierText is goed verlopen
if (l_mld_statusopdr_key == 8 && l_mld_opdr_halted == 1 && l_mld_opdr_onderbreek_code != ""){
// status is 8 (=geaccepteerd), halted is 1 (=onderbroken), en flexprop "onderbeekcode" is gevuld
l_response = GEN_Conditioneel_OnderbreekServiceTask(l_mld_opdr_key, l_ax_company_id, l_mld_opdr_onderbreek_code, l_mld_opdr_externnr, l_mld_opdr_opmerking, "-1");
l_response = GEN_Conditioneel_OnderbreekServiceTask(l_mld_opdr_key, l_ax_company_id, l_mld_opdr_ordernr, l_mld_opdr_onderbreek_code, l_mld_opdr_externnr, l_mld_opdr_opmerking, "-1");
}
}
// 3. bijlage(n)
@@ -264,7 +289,7 @@ function do_exec_opdrstatus(p_order, p_min_fac_tracking_datum_ordupd){
case "ORDPL2":
// Gewijzigde Eind Plandatum bij opdracht
if (l_mld_opdr_plandatum2 != ""){
l_response = GEN_VerlengServiceTask(l_ax_company_id, "VER", l_mld_opdr_externnr, l_mld_opdr_opmerking, l_mld_opdr_plandatum2);
l_response = GEN_VerlengServiceTask(l_ax_company_id, l_mld_opdr_ordernr, "VER", l_mld_opdr_externnr, l_mld_opdr_opmerking, l_mld_opdr_plandatum2);
}
else{
// Uit de NQ halen
@@ -274,12 +299,12 @@ function do_exec_opdrstatus(p_order, p_min_fac_tracking_datum_ordupd){
case "ORDHLT":
// Opdracht is onderbroken
l_response = GEN_Conditioneel_OnderbreekServiceTask(l_mld_opdr_key, l_ax_company_id, l_mld_opdr_onderbreek_code, l_mld_opdr_externnr, l_mld_opdr_opmerking, "-1");
l_response = GEN_Conditioneel_OnderbreekServiceTask(l_mld_opdr_key, l_ax_company_id, l_mld_opdr_ordernr, l_mld_opdr_onderbreek_code, l_mld_opdr_externnr, l_mld_opdr_opmerking, "-1");
break;
case "ORDRSM":
// Opdracht is in uitvoering gezet
l_response = GEN_UitvoeringServiceTask_ResetOnderbreek(l_mld_opdr_key, l_ax_company_id, "UIT", l_mld_opdr_externnr, l_mld_opdr_opmerking, "-1");
l_response = GEN_UitvoeringServiceTask_ResetOnderbreek(l_mld_opdr_key, l_ax_company_id, l_mld_opdr_ordernr, "UIT", l_mld_opdr_externnr, l_mld_opdr_opmerking, "-1");
break;
case "ORDCAN":
@@ -288,13 +313,20 @@ function do_exec_opdrstatus(p_order, p_min_fac_tracking_datum_ordupd){
l_response = GEN_RefuseServiceTask(l_ax_company_id, l_mld_opdr_ordernr, l_mld_opdr_externnr, "GEWEIGERD", l_mld_opdr_opmerking);
}
if (l_mld_opdr_afwijs_code == 'ANN') {
l_response = GEN_AnnuleerServiceTask(l_ax_company_id, "ANN", l_mld_opdr_externnr, l_mld_opdr_opmerking, "-1");
l_response = GEN_AnnuleerServiceTask(l_ax_company_id, l_mld_opdr_ordernr, "ANN", l_mld_opdr_externnr, l_mld_opdr_opmerking, "-1");
}
break;
case "ORDAFM":
// Opdracht is technisch voltooid (gereed)
l_response = GEN_CompleteServiceTask(l_ax_company_id, l_mld_opdr_ordernr, l_mld_opdr_externnr, l_mld_opdr_opmerking, l_fac_tracking_datum_iso);
if (AX_or_Tobias() == "A365"){
// Voor T365, in ISO/UTC time
l_response = GEN_CompleteServiceTask(l_ax_company_id, l_mld_opdr_ordernr, l_mld_opdr_externnr, l_mld_opdr_opmerking, l_fac_tracking_datum_iso);
}
else {
// Melding MARX#67715: local time voor REMS (en ook Facilitor, AX2012 en AX2009)
l_response = GEN_CompleteServiceTask(l_ax_company_id, l_mld_opdr_ordernr, l_mld_opdr_externnr, l_mld_opdr_opmerking, l_fac_tracking_datum_local);
}
break;
case "ORDAFR":

10
ax/SRC/F_GetOpdrachtenUitvoer.js
View File

@@ -47,7 +47,7 @@ function F_GetOpdrachten_Uitvoer()
//MARX#56792: XML equivalent van & < > etc toepassen...
v_extraInfo = escapeXml(v_extraInfo);
GEN_UitvoeringServiceTask(v_company_id, "UIT", v_externnr, v_extraInfo, "-1");
GEN_UitvoeringServiceTask(v_company_id, v_taskId, "UIT", v_externnr, v_extraInfo, "-1");
i = i + 1;
var strQuery = "//xml/mld_ordr[" + i + "]";
@@ -55,7 +55,7 @@ function F_GetOpdrachten_Uitvoer()
}
}
function GEN_UitvoeringServiceTask(v_company_id, v_statuscode, v_externnr, v_extraInfo, v_date)
function GEN_UitvoeringServiceTask(v_company_id, v_taskId, v_statuscode, v_externnr, v_extraInfo, v_date)
{
var v_resp;
if (AX_or_Tobias() == "A") {
@@ -74,18 +74,18 @@ function GEN_UitvoeringServiceTask(v_company_id, v_statuscode, v_externnr, v_ext
v_resp = {api_status_code: 1, api_status_message: "", api_response_message: ""};
}
if (AX_or_Tobias() == "R") {
v_resp = {api_status_code: 1, api_status_message: "", api_response_message: ""};
v_resp = R_SetOpdrachtStatus (v_company_id, v_taskId, v_externnr, v_statuscode, "", v_extraInfo);
}
return v_resp;
}
// Dezelfde functie als GEN_UitvoeringServiceTask, maar nadat bericht is gestuurd, wordt deze laatste onderbreekstatus in Mareon gewist, voor de volgende keer altijd (=onvoorwaardelijk) een onderbreekcode wordt gestuurd.
function GEN_UitvoeringServiceTask_ResetOnderbreek (v_opdr_key, v_company_id, v_statuscode, v_externnr, v_extraInfo, v_date){
function GEN_UitvoeringServiceTask_ResetOnderbreek (v_opdr_key, v_company_id, v_taskId, v_statuscode, v_externnr, v_extraInfo, v_date){
var v_resp;
//Default gaan we ervan uit dat de response goed gaat/is, en dus de notify uit de queue kan...
v_resp = GEN_OnderbreekServiceTask(v_company_id, v_statuscode, v_externnr, v_extraInfo, v_date);
v_resp = GEN_UitvoeringServiceTask(v_company_id, v_taskId, v_statuscode, v_externnr, v_extraInfo, v_date);
if (v_resp.api_status_code == 1){
// then goed verwerkt, stuur naar Mareon dat de (laatst) gestuurde onderbreek-code naar ERP opdrachtgever gewist/gedelete kan worden.
MARX_Send_Succes_Or_Failure(v_opdr_key, "OPDR_POST_ONDERBREEK", "");

8
ax/SRC/F_GetOpdrachtenVerlengd.js
View File

@@ -50,7 +50,7 @@ function F_GetOpdrachten_Verlengd()
//MARX#56792: XML equivalent van & < > etc toepassen...
v_extraInfo = escapeXml(v_extraInfo);
GEN_VerlengServiceTask(v_company_id, "VER", v_externnr, v_extraInfo, v_date);
GEN_VerlengServiceTask(v_company_id, v_taskId, "VER", v_externnr, v_extraInfo, v_date);
i = i + 1;
var strQuery = "//xml/mld_ordr[" + i + "]";
@@ -58,13 +58,13 @@ function F_GetOpdrachten_Verlengd()
}
}
function GEN_VerlengServiceTask(v_company_id, v_statuscode, v_externnr, v_extraInfo, v_date)
function GEN_VerlengServiceTask(v_company_id, v_taskId, v_statuscode, v_externnr, v_extraInfo, v_date)
{
var v_resp;
if (AX_or_Tobias() == "A") {
v_resp = A_UpdatePurchStatus(v_company_id, v_statuscode, v_externnr, v_extraInfo, v_date);
}
if (AX_or_Tobias() == "A12") {
if (AX_or_Tobias() == "A12") {
v_resp = A2012_UpdatePurchStatus(v_company_id, v_statuscode, v_externnr, v_extraInfo, v_date);
}
if (AX_or_Tobias() == "A365") {
@@ -77,7 +77,7 @@ function GEN_VerlengServiceTask(v_company_id, v_statuscode, v_externnr, v_extraI
v_resp = {api_status_code: 1, api_status_message: "", api_response_message: ""};
}
if (AX_or_Tobias() == "R") {
v_resp = {api_status_code: 1, api_status_message: "", api_response_message: ""};
v_resp = R_SetOpdrachtStatus (v_company_id, v_taskId, v_externnr, v_statuscode, v_date, v_extraInfo);
}
return v_resp;