Jump to content
Fivewin Brasil

@ + recurso


Adalberto_sis

Recommended Posts

Bem.. to meio zoró.. to chegando de um churrasco e C já sabe né....

mas depende do que vc. quer fazer..

Chris isso não é possivel ???


Activate Dialog odlg...

On init ArrobaSay(odlg)

Func ArroBaSay(odlg)

@00,00 Say oGet Var...

Retur .t.

id=code>id=code>

Abraços...

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

ico.corumba@gmail.com

-

Vamor aderir a campanhaid=blue>: "ENTREGA GRÊMIO"id=red>

Link to comment
Share on other sites

Olá...

Num mesmo PRG é impossível os dois, mas é possível trabalhar com funções feitas em @ e em recursos de PRG's diferentes mas sendo chamadas em uma dialog.

EX.:


dialog.prg ---- funcgen.prg (abrearq()) <-- função de abertura de arquivo feita em @

:

:--- funcprin.prg (mostrareg()) <-- função para mostrar registro feita em recursos

id=code>id=code>

Veja que no caso do exemplo estou usando 3 PRG's.... poderia usar apenas 2, mas sempre separando @ e RES.

Espero ter sido compreensível.

[]'s

logoforum.jpg

Email: christiano.silveira@gmail.com

Link to comment
Share on other sites

citação:

Companheiros de profissão é possivel mesclar os dois numa mesma dialog...

FWH 6.12


id=quote>id=quote>

PARA QUE?? SE RECURSOS É INFINITAMENTE MELHOR E MAIS AVANÇADO??

Escolha um e fique nele.

Repare que o pessoal que usa @..., não EVOLUI! kkkkkkkk

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Link to comment
Share on other sites

To com o Kapiaba..

Mas é possivel sim.. cheguei aqui no escritorio e fui por minha idéia em prática..


#Include "FiveWin.ch"

Function Registros()

Local odlg, pipipi, popopo

Private cVar:=Space(60)

Define Dialog oDlg Resource "#8001" Title "..::Registros" Icon oIco

Redefine Get oGet[1] Var cData pipipi, popopo...

Redefine Get oGet[2] Var cConta Pipipi, popopo...

Redefine Button obtn[1] Prompt "Registrar" Action cReg(,cData,cConta,@cVar,.....)

Activate Dialog odlg Centered ;

On Init ArrobaSay(odlg,cVar)

Func ArrobaSay(odlg,cVar)

@10,10 Get oGet3 Var cVar Of odlg ...

Return .t.

Func Reg(cData,cConta,cVar)

Field->Data :=cData

Filed->Conta :=cConta

Field->Historico :=cVar

id=code>id=code>

O Registro foi efetuado normalmente, tem muito mais coisas na dialog para registros, mas troquei o historico original por este cVar com @say e tudo deu certo do jeito que era só com recurso... Só a aparencia do Get que fica esquisito, bem diferente dos feitos com recursos...

Testa ai e reporte..

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

ico.corumba@gmail.com

-

Vamor aderir a campanhaid=blue>: "ENTREGA GRÊMIO"id=red>

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...