Transformer un code LS en JS

[Stephane Maillard]

Bonjour,Comment transformer ce code en JavaScript :Sub Click(Source As Button) ' Déclaration des classe Front End Dim Ws As NotesUIWorkspace Dim UIDoc As NotesUIDocument ' Déclaration des classe Back End Dim Doc As NotesDocument ' Variable de récupération des champs de la Centrale Dim sClientNom As String Dim sClientAdresse1 As String Dim sClientAdresse2 As String Dim sClientCodePostal As String Dim sClientVille As String Dim sClientTelephone As String Dim sClientFax As String Dim sCommercialNom As String Dim sCommercialCourriel As String Dim sCommercialTelephone As String Dim sCommercialPoste As String Dim sCommercialPortable As String ' Variable de test Dim bTestEdition As Boolean ' Initialisation des deux classes Set Ws = New NotesUIWorkspace Set UIDoc = Ws.CurrentDocument Set Doc = UIDoc.Document ' Récupération des valeurs des Champs sClientNom = UIDoc.FieldGetText("fld_ClientNom") sClientAdresse1 = UIDoc.FieldGetText("fld_ClientAdresse1") sClientAdresse2 = UIDoc.FieldGetText("fld_ClientAdresse2") sClientCodePostal = UIDoc.FieldGetText("fld_ClientCodePostal") sClientVille = UIDoc.FieldGetText("fld_ClientVille") sClientTelephone = UIDoc.FieldGetText("fld_ClientTelephone") sClientFax = UIDoc.FieldGetText("fld_ClientFax") sCommercialNom = UIDoc.FieldGetText("fld_CommercialNom") sCommercialCourriel = UIDoc.FieldGetText("fld_CommercialCourriel") sCommercialTelephone = UIDoc.FieldGetText("fld_CommercialTelephone") sCommercialPoste = UIDoc.FieldGetText("fld_CommercialPoste") sCommercialPortable = UIDoc.FieldGetText("fld_CommercialPortable") ' Vérifit si le document est en mode édition bTestEdition = UIDoc.EditMode ' Bascule document en mode édition si la réponse est négative If Not bTestEdition Then UIDoc.EditMode = True End If ' Modification des champs Back End Call Doc.ReplaceItemValue("fld_MagasinNom", sClientNom) Call Doc.ReplaceItemValue("fld_MagasinAdresse1", sClientAdresse1) Call Doc.ReplaceItemValue("fld_MagasinAdresse2", sClientAdresse2) Call Doc.ReplaceItemValue("fld_MagasinCodePostal", sClientCodePostal) Call Doc.ReplaceItemValue("fld_MagasinVille", sClientVille) Call Doc.ReplaceItemValue("fld_MagasinTelephone", sClientTelephone) Call Doc.ReplaceItemValue("fld_MagasinFax", sClientFax) Call Doc.ReplaceItemValue("fld_MagasinCommercialNom", sCommercialNom) Call Doc.ReplaceItemValue("fld_MagasinCommercialCourriel", sCommercialCourriel) Call Doc.ReplaceItemValue("fld_MagasinCommercialTelephone", sCommercialTelephone) Call Doc.ReplaceItemValue("fld_MagasinCommercialPoste", sCommercialPoste) Call Doc.ReplaceItemValue("fld_MagasinCommercialPortable", sCommercialPortable) ' Modication du champs permertant la sauvegarde du document Call Doc.ReplaceItemValue("SaveOptions", "1")End Sub[%sig%]

[Teamlogeur]

var frm=document.forms[0];frm.fld_MagasinNom.value=frm.fld_ClientAdresse1.value;frm.fld_MagasinAdresse1.value=frm.fld_ClientAdresse1.value;...frm.submit();

[Stephane Maillard]

Bonjour,Super, merci.[%sig%]