https://bugs.freedesktop.org/show_bug.cgi?id=76642

--- Comment #1 from Diego Ariel <[email protected]> ---
Code:
'----------
sub probar
dim res as string
dim Table as String
dim Field as String
dim pPieza as Integer
'Table = ""
'Field = ""
pPieza = 1
    'res = IIf(Len(Table) > 0, Table & ".", "") & IIf(Len(Field) > 0, Field,
"Pieza") & "= " & pPieza
'msgbox res
probar2(1)
end sub

function probar2 (pPieza as Long, optional byRef Table as String, Optional
byRef Field as String) as string
    probar2 = IIf(Len(Table) > 0, Table & ".", "") & IIf(Len(Field) > 0, Field,
"Pieza") & "= " & pPieza
    msgbox probar2
end function
'--------'

-- 
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
[email protected]
http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs

Reply via email to