How to know if a PROD_OPPO relation exists based on DOCU_PROD

Mon, 03 Sep 2018 15:25:20 +0000

Hi!

When I commit Document I have to update product on Opportunity :
- if a DocuProd is remove I want to remove it from the PRODOPPO
- if a DocuProd is update I have to update PRODOPPO
- if a DocuProd is added I have to insert it in the PRODOPPO

important notes :
- insert copy DOCUPROD.KRELATION in PRODOPPO.KRELATION
- PRODOPPO have a FKDOCUMENT field which contains the KDOCUMENT to know which Document linked it

Unless I'm wrong, in the After or BeforeCommitDocu event, with GetDetailDataSet(EditHandle, ntProd) we are not able to know the removed relation, so, to remove the product on the Opportunity my workflow (example with Oppo as container) get:

Trigger AfterCommitDocu(EditHandle)
Check the container (ntOppo op ntProj based on the reference of the document)
Get the container key and open the edit context (containerEdit)
First I check the products to delete on the Oppo :
4.1 Execute an SQL Query to get the products of the Oppo
4.2 Iterate through the result Dataset
4.3 To check if the product is not in the document I use PositionDetail(EditHanle) (cf workflow below)
Link and update products of the document
If the container is an Opportunity I update its BUDGET
Commit the changes of the Oppo

I have just a problem in the 5th bullet point : PositionDetail always return false and at the and all the PROD_OPPO obtained with the request are deleted.
I think the CommitChanges calls all InsertDetails first, and then DeleteDetail..

Why PositionDetail is not able to return me true ? I checked with the Logger and and the KPRODUCT and KRELATION are correct. I can not find example of PositionDetail (edn, standard code, ...)

P.S : in DeleteProdOnContainer what is the better way to delete the record ? Database.DeleteDetail() or or the TDataSet.delete() method ?

Workflow :

// called by AfterCommitDocu
function GestionDocuProd(EditHandle, Inserted) {
  var containerHandle=0;
  var Ref = Database.GetFieldValue(EditHandle, 'REFERENCE');

  // update Oppo or Proj ?
  switch(true) {
    case /^D\d+$/.test(Ref) : // DEVIS
      // pas de traitement si Devis final
      if(Database.GetFieldValue(EditHandle, 'F_STATUS') == 5) {
        return;
      }
      containerHandle = ntOppo;
      break;
    case /^IPC/.test(Ref) : // COMMANDE
      containerHandle = ntProj;
      break;
    default:
      return;
      break;
  }

  // key of the container : Devis ==> Opportunity || IPC ==> Project
  var containerKey = Database.GetMainDetail(EditHandle, containerHandle);

  // Erreur si pas de container
  if(containerKey==0) {
    if(containerHandle==ntOppo) {
      throw new Error("This type of document must be linked to a container (devis = opportunity) / Le document doit être lié a un container (devis = Opportunité");
    }
    else if(containerHandle==ntProj) {
      throw new Error("This type of document must be linked to a container (Commande / IPC = Dossier) / Le document doit être lié a un container (Commande / IPC = Dossier");
    }
  }

  // Document key and container Edit context
  var docuKey = Database.GetEditKey(EditHandle);
  var containerEdit = Database.OpenEditContext(containerHandle, containerKey);

  Database.CopyDetails(containerEdit, EditHandle, [ntCont, ntComp, ntProf], false, false);

  try {
    /* delete product on Oppo/Proj */
    DeleteProdOnContainer(containerEdit, containerKey, EditHandle, docuKey);

    /* Insert & Update product */
    UpdateProdOnContainer(EditHandle, Ref, containerHandle, containerEdit)

    if(containerHandle == ntOppo) {
      Database.CommitChanges(containerEdit, true); // persist link to update BUDGET

      // Get new BUDGET
      var SQLGetNewBudget = "Select Coalesce(Sum(TOTAL),0) as BUDGET from <#TABLE NAME='PROD_OPPO'> where K_OPPORTUNITY=:param1 and F_LOT <> K_PRODUCT";
      var result = ExecuteQuery(SQLGetNewBudget, containerKey);
      var newBudget = result.FieldByName('BUDGET').AsFloat || 0;

      // Update
      Database.UpdateField(containerEdit, 0, 'BUDGET', newBudget);
    }

    Database.CommitChanges(containerEdit, false);
  }
  finally {
    Database.CloseContext(containerEdit);
  }
}
function DeleteProdOnContainer(ContainerEdit, ContainerKey, DetailEdit, K_DOCUMENT) {
  var SQLGetProducts = "select * from <#TABLE NAME=\"PROD_OPPO\"> where K_OPPORTUNITY=:param1 and F_K_DOCUMENT=:param2";
  var params = ContainerKey+'\n'+K_DOCUMENT;

  var prodDS = ExecuteQuery(SQLGetProducts, params);

  if(!prodDS.IsEmpty) {
    prodDS.First

    while(!prodDS.EoF) {
      var k_product = prodDS.FieldByName('K_PRODUCT').AsFloat;
      var k_relation = prodDS.FieldByName('K_RELATION').AsFloat;
      var k_lot = prodDS.FieldByName('F_LOT').AsFloat;
      var k_opportunity = prodDS.FieldByName('K_OPPORTUNITY').AsFloat;

      var debugStr = 'RELATION OPPO_PROD ' + k_opportunity+'-'+k_product + '('+k_relation+') from Batch ' + k_lot

      // if current PROD_OPPO/PROD_PROJ don't exists on Document ==> delete on Oppo
      if(!Database.PositionDetail(DetailEdit, ntProd, k_product, k_relation)) {

        // What is better ? delete() or DeleteDetail() ?
        // prodDS.delete();
        //Logger.Write('Delete Oppo-Prod 136-' + k_product + '('+k_relation+')');
        debugStr += ' | DELETE'

        Database.DeleteDetail(ContainerEdit, ntProd, k_product, k_relation);
      }
      Logger.Write(debugStr);
      prodDS.Next;
    }
  }
  else {
    Logger.Write('No product on container');
  }
}
// insert and/or update PROD_OPPO from current DOCU_PROD
function UpdateProdOnContainer(EditHandle, Ref, containerHandle, ContainerEdit) {
  var docuProdDataSet = Database.GetDetailDataSet(EditHandle, ntProd);
  if(!docuProdDataSet.IsEmpty) {
    docuProdDataSet.First;
    // fields to copy
    var FieldList = ["QUANTITY", "PRICE", "TOTAL", "F_LOT"];

    if(containerHandle==ntOppo) { // PROD_OPPO have more field to copy than PROD_PROJ
      FieldList = FieldList.concat(["RATE", "DISCOUNT", "VAT", "CONSO_RATE", "CONSO_TOTAL"]);
    }

    while(!docuProdDataSet.EoF) {
      var prodKey = docuProdDataSet.FieldByName("K_PRODUCT").AsFloat;
      var relKey = docuProdDataSet.FieldByName("K_RELATION").AsFloat;
      Database.InsertDetail(ContainerEdit, ntProd, prodKey, relKey, false);

      // copy relation fields value
      for (var i = 0; i < FieldList.length; i++) {
        Database.UpdateDetailField(ContainerEdit, ntProd, 0, relKey, FieldList[i], docuProdDataSet.FieldByName(FieldList[i]).AsFloat);
      }
      Database.UpdateDetailField(ContainerEdit, ntProd, 0, relKey, 'F_K_DOCUMENT', docuProdDataSet.FieldByName('K_DOCUMENT').AsFloat);  // --> which document have linked the product
      Database.UpdateDetailStringField(ContainerEdit, ntProd, 0, relKey, 'F_DOCUREF', Ref);  // --> easy way to get the Document reference in the Opportunity.Products grid
      Database.UpdateDetailStringField(ContainerEdit, ntProd, 0, relKey, 'COMMENT', docuProdDataSet.FieldByName('COMMENT').AsString);

      docuProdDataSet.Next;
    }
  }
  else {
    Logger.Write('No product on document');
  }
}

Efficy Overflow Q&A - Recent questions tagged positiondetail

How to know if a PROD_OPPO relation exists based on DOCU_PROD