Duplicar formulario PERO SOLO algunos campos
Hola:
Tengo un formulario que se llama "Licencia" en el que para facilitar el trabajo al usuario, quiero poner un botón llamado "Duplicar" que le permita cerrar y salvar la Licencia y que se abriera otra LicenciaB en la que sólo ciertos campos (nombre/dirección...) coincidan con la Licencia, pero que también exista la posibilidad de crear una nueva Licencia con todos los campos en blanco.
Hasta ahora he intentado con fórmulas:
******************************
@Command([FileSave]);
@Command([FileCloseWindow]);
@PostedCommand([Compose];"License");
Choice1:=@PickList ([Custom]; "" ;"LicRepetir"; "Select a product" ;"Please select the products";2);
@SetField("Kyw_CustName";@DbLookup("":"No Cache";" ";"LicRepetir" ;Choice1;3));
****************************************
Pero no funciona porque realiza los cambios en la "LicenciaA" que además se queda abierta y no hace nada en la LicenciaB.
También lo he intentado con LotusScript(del cual soy totalmente desconocedora):
++++++++++++++++++++++++++++++++++++++++++
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim doc2 As NotesDocument
Dim itemA As NotesItem
Dim view As NotesView
Set db = session.CurrentDatabase
Set view = db.GetView("LicRepetir")
Set doc2= New NotesDocument(db)
doc2.Form= "License"
Set doc =view.GetFirstDocument
Set itemA = doc.GetFirstItem("Kyw_CustName")
Call itemA.CopyItemToDocument(doc2, "")
Call doc2.save(True, False)
Call doc.save(True,False)
End Sub
************************************************
Pero tampoco me funciona porque no cierra la Licencia y no abre la LicenciaB, por lo cual no encuentro si está creada o no.
¿Cómo lo puedo hacer?
Mil gracias por la ayuda!
Tengo un formulario que se llama "Licencia" en el que para facilitar el trabajo al usuario, quiero poner un botón llamado "Duplicar" que le permita cerrar y salvar la Licencia y que se abriera otra LicenciaB en la que sólo ciertos campos (nombre/dirección...) coincidan con la Licencia, pero que también exista la posibilidad de crear una nueva Licencia con todos los campos en blanco.
Hasta ahora he intentado con fórmulas:
******************************
@Command([FileSave]);
@Command([FileCloseWindow]);
@PostedCommand([Compose];"License");
Choice1:=@PickList ([Custom]; "" ;"LicRepetir"; "Select a product" ;"Please select the products";2);
@SetField("Kyw_CustName";@DbLookup("":"No Cache";" ";"LicRepetir" ;Choice1;3));
****************************************
Pero no funciona porque realiza los cambios en la "LicenciaA" que además se queda abierta y no hace nada en la LicenciaB.
También lo he intentado con LotusScript(del cual soy totalmente desconocedora):
++++++++++++++++++++++++++++++++++++++++++
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim doc2 As NotesDocument
Dim itemA As NotesItem
Dim view As NotesView
Set db = session.CurrentDatabase
Set view = db.GetView("LicRepetir")
Set doc2= New NotesDocument(db)
doc2.Form= "License"
Set doc =view.GetFirstDocument
Set itemA = doc.GetFirstItem("Kyw_CustName")
Call itemA.CopyItemToDocument(doc2, "")
Call doc2.save(True, False)
Call doc.save(True,False)
End Sub
************************************************
Pero tampoco me funciona porque no cierra la Licencia y no abre la LicenciaB, por lo cual no encuentro si está creada o no.
¿Cómo lo puedo hacer?
Mil gracias por la ayuda!
{"Lat":40.4464245155347,"Lng":-3.69153499603271}
1 Respuesta
Respuesta de dgomezban
1