Chamar dados em dialog e alterar dados(RESOLVIDO)

[Luisão]

Só explicando: Você deve fazer o USE novamente após incluir/atualizar/etc pois os dados atualizados estão no servidor e não na área aberta do sistema. (Lembrando que não é DBF, que você atualiza e o listbox já está OK).

Com MySQL você tem que "buscar" os dados novamente.

Sobre "zerar" os Gets, dê um refresh neles após limpar as variáveis.

Luis Fernando Jr.(Luisão)

"Seize the day or die regretting the time you lost"

FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

[Luiz Arruda (ICO)]

Completando a dica do Luisão..

se vc colocar

cEmpresa:=" "

cContato:=" "

cEmail:=" "

cTelefone:=" "

id=code>id=code>

Seus Gets vão ficar só com um espaço, o certo seria vc. redefiner os tamanhos tipo

cEmpresa:=Space(nn)

cConta:=Space(nn)

etc...

id=code>id=code>

Fabio eu trabalho com atualização de listbox, gets e afins normalmente e nunca tive problemas, só que eu sempre procuro fazer os controles todos na mesma dialog, tenho prgs com dois e tres ListBox atualizando automaticamente.

Abraços..

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

ico.corumba@gmail.com

--

Não Abandone Seu Tópicoid=red>

[fabin01]

citação:

Completando a dica do Luisão..

se vc colocar

cEmpresa:=" "

cContato:=" "

cEmail:=" "

cTelefone:=" "

id=code>id=code>

Seus Gets vão ficar só com um espaço, o certo seria vc. redefiner os tamanhos tipo

cEmpresa:=Space(nn)

cConta:=Space(nn)

etc...

id=code>id=code>

Fabio eu trabalho com atualização de listbox, gets e afins normalmente e nunca tive problemas, só que eu sempre procuro fazer os controles todos na mesma dialog, tenho prgs com dois e tres ListBox atualizando automaticamente.

Abraços..

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

ico.corumba@gmail.com

--

Não Abandone Seu Tópicoid=red>

---

id=quote>id=quote>

um dia eu chego no seu nivel corumba hehehe....

mas ta certo do jeito que eu fiz a atualizaçao neh da listbox neh??

pq aqui ta funcionando certim...

agora sobre zerar as edits nao conseguir fazer...

coloquei o mesmo codigo postado acima so que substiuir o que estva por isso

cContato:=space(0)

cEmail:=space(0)

cTelefone:=space(0)

id=code>id=code>

porem so zerou cEmpresa

o que esta errado?

valews

Obrigado pela ATENÇÃO e AJUDA!

"O homem deve criar as oportunidades e não somente encontrá-las."

Fábio Igor (BH-MG)

fabio.igor@hotmail.com

Iniciante

FWH 2.8

[x]Harbour 9.61

xdev 0.70

WS

[Luiz Arruda (ICO)]

Vc. não pode criar as variaveis como 0(zero) o Space(nn) indica quantos caracteres vão caber no Get que não pode ser maior que o campo de sua tabela.

De um oGet[1]:Refresh() se mesmo assim não funcionar entra com o Varput()

cEmpresa:=Space(nn)

cContato:=Space(nn)

oget[2]:Varput(cEmpresa)

oGet[2]:Refresh()

oget[3]:Varput(cContato)

oGet[3]:Refresh()

etc...

id=code>id=code>

Onde (nn) é o numero

não esqueça de passar oget no action do botão

Redefine Button ... Action SuaFuncao(,oget)

id=code>id=code>

é oget mesmo e não oget[1],oget[2],oget[3] etc...

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

ico.corumba@gmail.com

--

Não Abandone Seu Tópicoid=red>

Editado por - ico on 02/10/2009 14:20:42

[fabin01]

corumba note na primeira funçao que ja tenho as variaveis locais ja com o space no caso na funçao de salvar teria que declarar novamente e colocar os oget's no ()

Local cEmpresa:=space(35), cContato:=space(30), cEmail:=space(50), cTelefone:=space(13)

Local oget[10]

Define Dialog oDLG2 RESOURCE "AGENDA_CADASTRO_e_ALTERA" Title "Cadastro de Clientes"

Redefine BTNBMP obnt1 prompt "&Retornar";

ID 7 of oDLG2 Action oDLG2:end()

Redefine Get oGet[1] Var cCodigo ID 1 of oDLG2 when(.f.)

Redefine Get oGet[2] Var cEmpresa ID 2 of oDLG2

Redefine Get oGet[3] Var cContato ID 3 of oDLG2

Redefine Get oGet[4] Var cEmail ID 4 of oDLG2

Redefine Get oGet[5] Var cTelefone ID 5 of oDLG2

Redefine BTNBMP obnt2 prompt "Salvar";

ID 6 of oDLG2 Action Salvar_Agenda_Cadastro(@cCodigo,@cEmpresa,@cContato,@cEmail,@cTelefone,oget,olbx)

Activate Dialog oDLG2 CENTERED

Return .t.

Function Salvar_Agenda_Cadastro(cCodigo,cEmpresa,cContato,cEmail,cTelefone,oget,olbx)

IF cEmpresa=" "

MsgAlert("Campo Empresa Nao pode ser Nulo.","..::Aviso")

Return .f.

EndIf

SQL EXECUTE "INSERT into cadastro_clientes (codcliente,empresa,contato,email,telefone) VALUES ("+;

sqlNtrim(cCodigo)+", "+;

sqlStr(cEmpresa)+", "+;

sqlStr(cContato)+", "+;

sqlStr(cEmail)+", "+;

sqlStr(cTelefone)+") "

cCodigo=Reccount()+1

cCodigo=cCodigo+1

oget[1]:Varput(cCodigo) //pega o valor da variavel e transforma no get oget[1]

oGet[1]:Refresh() //ao retornar p/ a dialog atualiza o get com o vl. da variavel inserida com o varput no oget[1]

Select CAD

Use SQL "Select * from cadastro_clientes" Alias CAD Via "MySQL"

olbx:Refresh()

xSetFocus(oget[2]) //o xSetfocus faz o cursor voltar no Get especificado

//após a gravação assim que salvar o registro,

//sem ele o cursor pularia para os controles que estiverem

//na frente como outros botoes por exemplo..

Return .t.

id=code>id=code>

Obrigado pela ATENÇÃO e AJUDA!

"O homem deve criar as oportunidades e não somente encontrá-las."

Fábio Igor (BH-MG)

fabio.igor@hotmail.com

Iniciante

FWH 2.8

[x]Harbour 9.61

xdev 0.70

WS

[Luiz Arruda (ICO)]

Se já tem deixa... ele tava ali a toa mesmo, agora vai ser usado

citação:

corumba note na primeira funçao que ja tenho as variaveis locais ja com o space no caso na funçao de salvar teria que declarar novamente e colocar os oget's no ()

Local cEmpresa:=space(35), cContato:=space(30), cEmail:=space(50), cTelefone:=space(13)

Local oget[10]

Define Dialog oDLG2 RESOURCE "AGENDA_CADASTRO_e_ALTERA" Title "Cadastro de Clientes"

Redefine BTNBMP obnt1 prompt "&Retornar";

ID 7 of oDLG2 Action oDLG2:end()

Redefine Get oGet[1] Var cCodigo ID 1 of oDLG2 when(.f.)

Redefine Get oGet[2] Var cEmpresa ID 2 of oDLG2

Redefine Get oGet[3] Var cContato ID 3 of oDLG2

Redefine Get oGet[4] Var cEmail ID 4 of oDLG2

Redefine Get oGet[5] Var cTelefone ID 5 of oDLG2

Redefine BTNBMP obnt2 prompt "Salvar";

ID 6 of oDLG2 Action Salvar_Agenda_Cadastro(@cCodigo,@cEmpresa,@cContato,@cEmail,@cTelefone,ogetid=red>,olbx)

Activate Dialog oDLG2 CENTERED

Return .t.

Function Salvar_Agenda_Cadastro(cCodigo,cEmpresa,cContato,cEmail,cTelefone,ogetid=red>,olbx)

IF cEmpresa=" "

MsgAlert("Campo Empresa Nao pode ser Nulo.","..::Aviso")

Return .f.

EndIf

SQL EXECUTE "INSERT into cadastro_clientes (codcliente,empresa,contato,email,telefone) VALUES ("+;

sqlNtrim(cCodigo)+", "+;

sqlStr(cEmpresa)+", "+;

sqlStr(cContato)+", "+;

sqlStr(cEmail)+", "+;

sqlStr(cTelefone)+") "

cCodigo=Reccount()+1

cCodigo=cCodigo+1

cEmpresa:=space(35)

cContato:=space(30)

cEmail:=space(50)

cTelefone:=space(13)

id=red>

oget[1]:Varput(cCodigo)

oGet[1]:Refresh()

oGet[2]:Varput(cEmpresa)

oGet[2]:Refres()

oget[3]:Varput(cContato)

oGet[3]:Refresh()

oGet[4]:Varput(cEmail)

oget[4]:Refresh()

id=blue>

Select CAD

Use SQL "Select * from cadastro_clientes" Alias CAD Via "MySQL"

olbx:Refresh()

xSetFocus(oget[2])

Return .t.id=code>id=code>

Obrigado pela ATENÇÃO e AJUDA!

"O homem deve criar as oportunidades e não somente encontrá-las."

Fábio Igor (BH-MG)

fabio.igor@hotmail.com

Iniciante

FWH 2.8

[x]Harbour 9.61

xdev 0.70

WS

---

id=quote>id=quote>

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

ico.corumba@gmail.com

--

Não Abandone Seu Tópicoid=red>

[fabin01]

a ultima pergunta pra fechar este topico corumba

em fivwin tem como eu fazer relatorios??

igual ao vb, access.... tem como? tenho que utilizar uam ferramenta especifica para faze-los? como eu faria um relatorio?

Obrigado pela ATENÇÃO e AJUDA!

"O homem deve criar as oportunidades e não somente encontrá-las."

Fábio Igor (BH-MG)

fabio.igor@hotmail.com

Iniciante

FWH 2.8

[x]Harbour 9.61

xdev 0.70

WS

[Luiz Arruda (ICO)]

citação:

a ultima pergunta pra fechar este topico corumba

em fivwin tem como eu fazer relatorios??

igual ao vb, access.... tem como? tenho que utilizar uam ferramenta especifica para faze-los? como eu faria um relatorio?

Obrigado pela ATENÇÃO e AJUDA!

"O homem deve criar as oportunidades e não somente encontrá-las."

Fábio Igor (BH-MG)

fabio.igor@hotmail.com

Iniciante

FWH 2.8

[x]Harbour 9.61

xdev 0.70

WS

---

id=quote>id=quote>

Olhe no Samples os arquivos testPrnxid=red>.prg onde o x é num de 1 a 5, e na pasta report tb. em samples tem vários exemplos.

ai vc. vai adequar as suas necessidades.

Compile os exemplos e analise o qual vai te servir..

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

ico.corumba@gmail.com

--

Não Abandone Seu Tópicoid=red>

[fabin01]

ok valews coruma e luiz e a todos aew

problema resolvido...

Obrigado pela ATENÇÃO e AJUDA!

"O homem deve criar as oportunidades e não somente encontrá-las."

Fábio Igor (BH-MG)

fabio.igor@hotmail.com

Iniciante

FWH 2.8

[x]Harbour 9.61

xdev 0.70

WS