<script runat="server">
        Platform.Response.SetResponseHeader("Content-Security-Policy", "default-src 'self'; img-src 'self' https://image.digital.endesaclientes.com https://image.dev.notificaciones.endesaclientes.com;style-src 'self' https://cloud.dev.notificaciones.endesaclientes.com/Captacion-email-ML-CSS https://cloud.dev.notificaciones.endesaclientes.com/Captacion-email-CSS-Fuente https://cloud.digital.endesaclientes.com/css-bootstrap-ml; font-src 'self' https://cloud.dev.notificaciones.endesaclientes.com/Captacion-email-CSS-Fuente data:; script-src 'self' 'unsafe-inline' https://code.jquery.com/jquery-3.7.1.min.js https://cloud.dev.notificaciones.endesaclientes.com/Captacion-email-ML-JS https://cloud.dev.notificaciones.endesaclientes.com/Captacion-email-JS-errores-es;")
        Platform.Response.SetResponseHeader("X-Frame-Options", "DENY");
        Platform.Response.SetResponseHeader("X-Content-Type-Options", "nosniff");
        Platform.Response.SetResponseHeader("Strict-Transport-Security", "max-age=31536000; includeSubDomains; preload");
        Platform.Response.SetResponseHeader("Referrer-Policy", "no-referrer");
        Platform.Response.SetResponseHeader("Permissions-Policy", "geolocation=(), microphone=()");
  </script>

<script runat="server">

  Platform.Load("Core", "1.1.1")
  try {
    var data = Request.GetFormField("data");

    JSON = Platform.Function.ParseJSON(data);

    Email = JSON.Email;
    nDocumento = JSON.Documento;
    AccountId = JSON.AccountId;
    ContactId = JSON.ContactId;  
    otrasComunicaciones = JSON.otrasComunicaciones;
    proteccionDatos = JSON.proteccionDatos;
    today = new Date();
 
    
    Variable.SetValue("@accountIdAmpscript", AccountId);
    Variable.SetValue("@contactIdAmpscript", ContactId);
    Variable.SetValue("@emailAmpscript", Email);

</script>

%%[

SET @retrieveAcc = RetrieveSalesforceObjects('Account', 'Id, Identifier_Type__c, NIF_CIF_Customer_NIE__c', 'Id', '=', @accountIdAmpscript)
SET @accountId = Field(Row(@retrieveAcc, 1), 'Id')
SET @tipoDocumento = Field(Row(@retrieveAcc, 1), 'Identifier_Type__c')
SET @numDocumento = Field(Row(@retrieveAcc, 1), 'NIF_CIF_Customer_NIE__c')
SET @responseAcc = Concat(@accountId, ',', @tipoDocumento, ',', @numDocumento)

SET @retrieveCont = RetrieveSalesforceObjects('Contact', 'Id, NIF_CIF_Customer_NIE__c', 'Id', '=', @contactIdAmpscript)
SET @contactId = Field(Row(@retrieveCont, 1), 'Id')
SET @contactDocumento = Field(Row(@retrieveCont, 1), 'NIF_CIF_Customer_NIE__c')
SET @responseCont = Concat(@contactId, ',', @contactDocumento)

]%%

<script runat="server">

    var responseAcc = Variable.GetValue("@responseAcc");
    var responseCont = Variable.GetValue("@responseCont");

    if (responseAcc && responseCont) {
      var responseAccRowData = responseAcc.split(',');
      var accountData = {
        id: responseAccRowData[0],
        tipoDocumento: responseAccRowData[1],
        numDocumento: responseAccRowData[2]
      };
      var responseContRowData = responseCont.split(',');
      var contactData = {
        id: responseContRowData[0],
        contactDocumento: responseContRowData[1]
      };      


      if (accountData.id == AccountId && accountData.numDocumento == nDocumento && contactData.id == ContactId && contactData.contactDocumento == nDocumento) {

</script>

%%[

SET @updateEmailAcc = UpdateSingleSalesforceObject('Account', @accountIdAmpscript, 'Email_con__c', @emailAmpscript, 'No_Email_flg__c', 'false')
SET @updateEmailCon = UpdateSingleSalesforceObject('Contact', @contactIdAmpscript, 'Email', @emailAmpscript, 'Validate_email__c', 'false', 'No_Email_flg__c', 'false')
SET @updateResponse = Concat(@updateEmailAcc, ',', @updateEmailCon)

]%%

<script runat="server">

          var updateResponse = Variable.GetValue("@updateResponse")


          var updateResponseRowData = updateResponse.split(',');
          var updateResponseData = {
            AccEmail: updateResponseRowData[0],
            ContEmail: updateResponseRowData[1]
          };


          if (updateResponseData.AccEmail == 1 && updateResponseData.ContEmail == 1) {

</script>

%%[

SET @createCase = CreateSalesforceObject('Case', 4, 'Subject', 'Modificación de cliente', 'AccountId', @accountIdAmpscript, 'RecordTypeId', '0121r000000Vl8IAAS', 'Status', 'New')


]%%

<script runat="server">

             var createCase = Variable.GetValue("@createCase") //Devuelve el ID

             if (createCase) {

</script>

%%[

SET @createTask = CreateSalesforceObject('Task', 6, 'RecordTypeId', '0121r000000Vl90AAC', 'Type', 'Action', 'Subject','Modificación de cliente', 'Status', 'Completed', 'WhatId', @createCase, 'FII_ACT_LKP_RelatedClient__c', @accountIdAmpscript)


]%%

<script runat="server">

            var createTask = Variable.GetValue("@createTask") //Devuelve el ID

            if (createTask) {

              if (otrasComunicaciones) {


</script>

%%[

SET @retrieveIndividual = RetrieveSalesforceObjects('Individual', 'Id', 'Contact__c', '=', @contactIdAmpscript)

IF RowCount(@retrieveIndividual) > 0 THEN

SET @individualId = Field(Row(@retrieveIndividual, 1), 'Id')
SET @updateIndividual = UpdateSingleSalesforceObject('Individual', @individualId, 'FII_IND_SEL_Molestar__c', 'No Ofertas', 'FII_IND_SEL_Iden_Evi__c', 'Landing SFMC')

ELSE

SET @retrieveNames = RetrieveSalesforceObjects('Contact', 'FirstName, LastName', 'Id', '=', @contactIdAmpscript)
SET @firstName = Field(Row(@retrieveNames, 1), 'FirstName')
SET @lastName = Field(Row(@retrieveNames, 1), 'LastName')
SET @createIndividual = CreateSalesforceObject('Individual', 5, 'Contact__c', @contactIdAmpscript, 'FII_IND_SEL_Molestar__c', 'No Ofertas', 'FII_IND_SEL_Iden_Evi__c', 'Landing SFMC', 'FirstName', @firstName, 'LastName', @lastName)

ENDIF

]%%

<script runat="server">

                var individualId = Variable.GetValue("@individualId")
                var updateIndividual = Variable.GetValue("@updateIndividual")
                var createIndividual = Variable.GetValue("@createIndividual")

                var rows = Platform.Function.UpsertData("DE_S010528_ATC_CAM_DIG_ML_Captacion_Email_Registros_Landing", ["SubscriberKey"], [ContactId], ["Email", "AccountId", "Tipo_Documento", "Numero_Documento", "CurrentDate", "CheckboxPolProtDatos", "CheckboxOtrasCom", "CaseId", "TaskId", "IndividualId", "NewIndividualId"], [Email, AccountId, accountData.tipoDocumento, nDocumento, today, proteccionDatos, otrasComunicaciones, createCase, createTask, individualId, createIndividual]);
                Write('true')

              } else {
                var rows = Platform.Function.UpsertData("DE_S010528_ATC_CAM_DIG_ML_Captacion_Email_Registros_Landing", ["SubscriberKey"], [ContactId], ["Email", "AccountId", "Tipo_Documento", "Numero_Documento", "CurrentDate", "CheckboxPolProtDatos", "CheckboxOtrasCom", "CaseId", "TaskId"], [Email, AccountId, accountData.tipoDocumento, nDocumento, today, proteccionDatos, otrasComunicaciones, createCase, createTask]);
                Write('true');
              }

            } else {
              var rows = Platform.Function.UpsertData("DE_S010528_ATC_CAM_DIG_ML_Captacion_Email_Registros_Landing", ["SubscriberKey"], [ContactId], ["Email", "AccountId", "Tipo_Documento", "Numero_Documento", "CurrentDate", "CheckboxPolProtDatos", "CheckboxOtrasCom", "Error", "CaseId"], [Email, AccountId, accountData.tipoDocumento, nDocumento, today, proteccionDatos, otrasComunicaciones, 'La Task no ha podido crearse', createCase]);
              Write('false')
            }

          } else {
            var rows = Platform.Function.UpsertData("DE_S010528_ATC_CAM_DIG_ML_Captacion_Email_Registros_Landing", ["SubscriberKey"], [ContactId], ["Email", "AccountId", "Tipo_Documento", "Numero_Documento", "CurrentDate", "CheckboxPolProtDatos", "CheckboxOtrasCom", "Error"], [Email, AccountId, accountData.tipoDocumento, nDocumento, today, proteccionDatos, otrasComunicaciones, 'El Case no ha podido crearse']);
            Write('false')
          }

        } else {
          var rows = Platform.Function.UpsertData("DE_S010528_ATC_CAM_DIG_ML_Captacion_Email_Registros_Landing", ["SubscriberKey"], [ContactId], ["Email", "AccountId", "Tipo_Documento", "Numero_Documento", "CurrentDate", "CheckboxPolProtDatos", "CheckboxOtrasCom", "Error"], [Email, AccountId, accountData.tipoDocumento, nDocumento, today, proteccionDatos, otrasComunicaciones, 'Ha habido un error al modificar el email']);
          Write('false');
        }

      } else {
        var rows = Platform.Function.UpsertData("DE_S010528_ATC_CAM_DIG_ML_Captacion_Email_Registros_Landing", ["SubscriberKey"], [ContactId], ["Email", "AccountId", "Tipo_Documento", "Numero_Documento", "CurrentDate", "CheckboxPolProtDatos", "CheckboxOtrasCom", "Error"], [Email, AccountId, accountData.tipoDocumento, nDocumento, today, proteccionDatos, otrasComunicaciones, 'El número de documento no coincide']);
        Write('false');
      }
    } else {
      var rows = Platform.Function.UpsertData("DE_S010528_ATC_CAM_DIG_ML_Captacion_Email_Registros_Landing", ["SubscriberKey"], [ContactId], ["Email", "AccountId", "CurrentDate", "CheckboxPolProtDatos", "CheckboxOtrasCom", "Error"], [Email, AccountId, today, proteccionDatos, otrasComunicaciones, 'No se pudo recuperar información de la cuenta.']);
      Write('false');
    }

  }

  catch (error) {
    var rows = Platform.Function.UpsertData("DE_S010528_ATC_CAM_DIG_ML_Captacion_Email_Registros_Landing", ["SubscriberKey"], [ContactId], ["Email", "AccountId", "CurrentDate", "CheckboxPolProtDatos", "CheckboxOtrasCom", "Error"], [Email, AccountId, today, proteccionDatos, otrasComunicaciones, 'Se ha producido un error en el proceso'])
    Write('false')    
  }
</script>