Ccomo a ideia não estava dando certo achei outra solução, que esta
funcionando perfeitamente e no mesmo formulario filtrado que era o que eu
queria
1) no formulario animal 3 , nas propriedades do formulario>eventos
peguei o valor atual de cad e armazenei em myindex
com :
Sub armazena valores
Dim oForm
Dim oDoc as Object
Dim oApp as Object
oApp = StarDesktop
oDoc = ThisComponent
oForm = oDoc.Drawpage.Forms(0)
colindex = oForm.findColumn("Cad")
myindex = oForm.getString(colindex)
End Sub
Lembrando que myindex esta definida como global
2) ainda em formularios>evento , mas em após alteração do registro
Sub usa_valores
Dim oForm
Dim oDoc as Object
Dim oApp as Object
oApp = StarDesktop
oDoc = ThisComponent
oForm = oDoc.Drawpage.Forms(0)
colindex = oForm.findColumn("Cad")
oForm.updateString (colindex, myindex)
End Sub
Sub CopyDataToTemp(Event As Object)
End Sub
solução encontrada em :
http://www.oooforum.org/forum/viewtopic.phtml?t=28839
Em 13 de agosto de 2011 10:00, rogerio dandrea <[email protected]>escreveu:
> sub atualiza
> Dim Filter As String
> dim odoc,oform as Object
>
> odoc=thiscomponent
> oform=odoc.drawpage.forms.getbyindex(0)
> 'pega o dado da oitava coluna( =campo Cad no meu caso) do registro
> atual
> myindex=oform.getstring(8)
> print myindex ' apenas para testar o valor
> End Sub
>
> Em 13 de agosto de 2011 07:53, rogerio dandrea <[email protected]>escreveu:
>
> Quero dizer a variavel esta valida no formulario filtrado animal
>>
>> Em 13 de agosto de 2011 07:51, rogerio dandrea <[email protected]>escreveu:
>>
>> Embora a variável myindex tenha sido declarada como global, o seu valor
>>> não se mantem entre os formulários.
>>> Como a variável foi definida no formulário clientes e utilizada apenas
>>> para definir o filtro ao o formulário animais, ela se perdeu no formulário
>>> animal, fiz um simples teste para constatar isto.
>>>
>>> resolvi recriar a variável , mas desta vez ao abrir o formulário animal,
>>> pois bem agora a variável esta valida no formulário clientes, agora como
>>> faço ela valer para quando um novo registro for adicionado?
>>>
>>> Em 12 de agosto de 2011 18:26, rogerio dandrea
>>> <[email protected]>escreveu:
>>>
>>> Cara pela pouca documentação que temos do base, qualquer informação é bem
>>>> vinda :0)
>>>>
>>>> vou continuar tentando quando descobrir posto aqui a solução encontrada,
>>>>
>>>>
>>>> Estou na reta final da migração do acess para o libreoffice, o que
>>>> muitas vezes me confunde são as diferenças entre os 2 programas, de
>>>> qualquer
>>>> forma arrumando isto o programa já fica funcional.
>>>>
>>>>
>>>>
>>>> Em 12 de agosto de 2011 18:17, sp24horas <[email protected]>escreveu:
>>>>
>>>> desculpe, se não for claro :
>>>>> vc já tem o myindex, que deve ser uma variável que possa ser conhecida
>>>>> pelo
>>>>> outro form.
>>>>> caso tenha dúvidas procure a lição de escopo de variável do Noelson
>>>>> (local,
>>>>> global, etc.)[?]
>>>>> acho dificil aproveitar o form do jeito que tá com o filtro ativado.
>>>>>
>>>>> se for mais facil p/ voce, cria um novo form só para incluir novo
>>>>> animal.
>>>>>
>>>>> Mas, não quero atrapalhar a sua lógica.
>>>>> Em 12 de agosto de 2011 17:39, rogerio dandrea <[email protected]
>>>>> >escreveu:
>>>>>
>>>>> > Bom a variavel já esta armazenada em myindex , então voce sugere que
>>>>> eu não
>>>>> > utilize a barra inferior e crie um botão para inserir novo registro ?
>>>>> > o Problema e bem simples ... atribuir o valor de cad ao inserir novo
>>>>> > registro, só não sei como fazer isto...rs
>>>>> >
>>>>> > formulario cliente
>>>>> > ao clicar no botão
>>>>> > atribui a variavel
>>>>> > myindex =clientes.Cad
>>>>> > abre o formulario animal com filtro
>>>>> >
>>>>> > formulario animal
>>>>> > aberto pelo botão apresenta somente os dados filtrados
>>>>> > ou seja todos os animais daquele cliente
>>>>> >
>>>>> > o problema esta ao inserir novo animal
>>>>> > como informar que o numero do Cad deve permanecer o mesmo?
>>>>> >
>>>>> > Em 12 de agosto de 2011 16:58, sp24horas <[email protected]>
>>>>> escreveu:
>>>>> >
>>>>> > > para coisas mais sofisticadas, não tem jeito:
>>>>> > > vai ser preciso escrever código.[?]
>>>>> > > acho que um caminho para vc, passa por guardar o valor do numero do
>>>>> > > cadastro
>>>>> > > do dono em uma variável, (que tal ao clicar no botão animais e
>>>>> antes de
>>>>> > > abrir o form !?), e quando for gravar os animais, vc já tem esse
>>>>> dado
>>>>> > para
>>>>> > > fazer o comando insert.
>>>>> > >
>>>>> > > Em 12 de agosto de 2011 16:38, rogerio dandrea <
>>>>> [email protected]
>>>>> > > >escreveu:
>>>>> > >
>>>>> > > > mas ai vou ter que digitar o numero do cadastro do dono do
>>>>> animal,
>>>>> > sendo
>>>>> > > > que
>>>>> > > > este valor á foi definido no filtro ao abrir o formulario animal
>>>>> > > >
>>>>> > > > Em 12 de agosto de 2011 16:10, sp24horas <[email protected]>
>>>>> > escreveu:
>>>>> > > >
>>>>> > > > > experimenta : desabilitar o filtro, fazer a inclusão de
>>>>> animais,
>>>>> > > reativar
>>>>> > > > o
>>>>> > > > > filtro.
>>>>> > > > >
>>>>> > > > > --
>>>>> > > > > Você está recebendo e-mails da lista
>>>>> [email protected]
>>>>> > > > > # Informações sobre os comandos disponíveis (em inglês):
>>>>> > > > > mande e-mail vazio para [email protected]
>>>>> > > > > # Cancelar sua assinatura: mande e-mail vazio para:
>>>>> > > > > [email protected]
>>>>> > > > > # Arquivo de mensagens:
>>>>> > > > > http://listarchives.libreoffice.org/pt-br/usuarios/
>>>>> > > > >
>>>>> > > > >
>>>>> > > >
>>>>> > > > --
>>>>> > > > Você está recebendo e-mails da lista
>>>>> [email protected]
>>>>> > > > # Informações sobre os comandos disponíveis (em inglês):
>>>>> > > > mande e-mail vazio para [email protected]
>>>>> > > > # Cancelar sua assinatura: mande e-mail vazio para:
>>>>> > > > [email protected]
>>>>> > > > # Arquivo de mensagens:
>>>>> > > > http://listarchives.libreoffice.org/pt-br/usuarios/
>>>>> > > >
>>>>> > > >
>>>>> > >
>>>>> > > --
>>>>> > > Você está recebendo e-mails da lista
>>>>> [email protected]
>>>>> > > # Informações sobre os comandos disponíveis (em inglês):
>>>>> > > mande e-mail vazio para [email protected]
>>>>> > > # Cancelar sua assinatura: mande e-mail vazio para:
>>>>> > > [email protected]
>>>>> > > # Arquivo de mensagens:
>>>>> > > http://listarchives.libreoffice.org/pt-br/usuarios/
>>>>> > >
>>>>> > >
>>>>> >
>>>>> > --
>>>>> > Você está recebendo e-mails da lista [email protected]
>>>>> > # Informações sobre os comandos disponíveis (em inglês):
>>>>> > mande e-mail vazio para [email protected]
>>>>> > # Cancelar sua assinatura: mande e-mail vazio para:
>>>>> > [email protected]
>>>>> > # Arquivo de mensagens:
>>>>> > http://listarchives.libreoffice.org/pt-br/usuarios/
>>>>> >
>>>>> >
>>>>>
>>>>> --
>>>>> Você está recebendo e-mails da lista [email protected]
>>>>> # Informações sobre os comandos disponíveis (em inglês):
>>>>> mande e-mail vazio para [email protected]
>>>>> # Cancelar sua assinatura: mande e-mail vazio para:
>>>>> [email protected]
>>>>> # Arquivo de mensagens:
>>>>> http://listarchives.libreoffice.org/pt-br/usuarios/
>>>>>
>>>>>
>>>>
>>>
>>
>
--
Você está recebendo e-mails da lista [email protected]
# Informações sobre os comandos disponíveis (em inglês):
mande e-mail vazio para [email protected]
# Cancelar sua assinatura: mande e-mail vazio para:
[email protected]
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/
