Lo importante de este Script
es que ninguno de las campos es calculado
por que sino con una sencilla fórmula lo tendriamos resuelto.
Cambiar el valor de un campo en base a otro campo sin grabar, ni
recalcular formulas. Simplemente dado un campo precio, calcula el iva en
otro campo solo con tabular al siguiente campo, usando el Evento Exiting
del campo.
INS_C es el preio sin IVA, e INS_D el que alojará el IVA
Sub Exiting(Source As Field)
Dim uiWorkspace As New NotesUIWorkspace
Dim uiDoc As NotesUIDocument
Dim MasIVA As Variant
Dim MasIVA2 As Variant
Set uiDoc = uiWorkspace.CurrentDocument
MasIVA = uiDoc.FieldGetText("INS_C")
MasIVA2 = Cvar(Cvar(MasIVA) * (1 + (16/100)))
Call uiDoc.FieldSetText("INS_D", Cstr(MasIVA2))
End Sub
|
Otros documentos de LotusScript
|