Hello,
Thank you for the answers!
When I replaced the lines containing "getByName" for something as indicated
prints a message saying: "Can not find cod_cliente". I think this is
because it is a field cod_cliente type drop-down list box and i should get
the id of the customer through a cut chain or something, but I really do
not know how to do this in OO Basic. Can you help a little with this
please? I clarify that my formal education rather relied on the C and Java.
regards,
Yessica
2013/1/30 Andrew Douglas Pitonyak <and...@pitonyak.org>
> Which line gives the error?
>
> If you change all lines containing "getByName" with something like
>
> If oFrm.hasByName("cod_cliente") Then
> oCliente=oFrm.getByName("cod_**cliente")
> Else
> Print "Cannot find cod_cliente"
> Exit Sub
> End If
>
> What happens?
>
>
> On 01/30/2013 04:56 AM, Yessica Brinkmann wrote:
>
>> Hello,
>> I have a database of business management. I have a customer table that has
>> a field saldo_actual.
>> On the other hand, I have a sales form, in which I have a total field, and
>> a button Calculate Total.
>> I want to make a macro that when clicking on the Calculate Total button to
>> add the total saldo_actual field.
>> I assigned the macro to the button event: Mouse button released. Then I
>> write my macro:
>> Sub ActualizarSaldoVentas (Evento)
>> Dim oFrm As Object
>> Dim oCliente As Object
>> Dim oTotal As Object
>> Dim oCon As Object
>> Dim oStat As Object
>> Dim sSQL As String
>> Dim oRes As Object
>> Dim sCliente as String
>> oFrm=Evento.Source.Model.**Parent
>> oCliente=oFrm.getByName("cod_**cliente")
>> sCliente=oCliente.**getCurrentValue()
>> oTotal=oFrm.getByName("total")
>> oCon=ThisDatabaseDocument.**CurrentController.**ActiveConnection
>> oStat=oCon.CreateStatement
>> sSQL="UPDATE cliente SET cliente.saldo_actual = cliente.saldo_saldo_actual
>> + "& oTotal.getCurrentValue()& " WHERE id_cliente=" &
>> oCliente.getCurrentValue()
>> oRes=oStat.ExecuteQuery(sSQL)
>> End Sub
>> Clicking on the button Calculate total, I get the following error:
>> BASIC runtime error. There was an exception.
>> Type: com.sun.star.container.**NoSuchElementException Message:
>> I would appreciate very much a help please.
>> regards,
>> Yessica
>>
>>
> --
> Andrew Pitonyak
> My Macro Document:
> http://www.pitonyak.org/**AndrewMacro.odt<http://www.pitonyak.org/AndrewMacro.odt>
> Info: http://www.pitonyak.org/oo.php
>
>
