Mudar Nome do arquivo a Ser Salvo (HMG)

por **guanabara** » 07 Mar 2013 12:28

Boa tarde a todos, criei um botão para exportar os dados da grid com o código abaixo e funciona muito bem, só que eu queria que o nome do arquivo fosse uma variavel conforme uma que tenho no código que é cProcura, como faço ?

Function main_botaoexporta_action()

Arquivo := HB_OemToAnsi( MemoRead( "TESTE.CSV" ) )
MemoWrit( "TESTE.CSV", Arquivo )

copy to teste.csv delimited with ({chr(34), ";"})

msgbox( "Arquivos Exportados com Sucesso ! " ) 

Return Nil

por **Pablo César** » 07 Mar 2013 12:40

Use hb_memowrit em lugar de memowrit, permitindo gravar com nomes longos,se esse for o caso.

copy to (&cProcura) delimited with ({chr(34), ";"}) (não testei mas acho que é isso).

Antes de usar o copy o dbf tem que estar aberto.

Arquivo := HB_OemToAnsi( MemoRead( "TESTE.CSV" ) )
MemoWrit( "TESTE.CSV", Arquivo )
    
copy to teste.csv delimited with ({chr(34), ";"})

Mas me diga, para quê é teste.csv ? Ahhh sim entendi, que você gera a planilha. Mas dessa forma você estaria sobre-escrevendo o arquivo lido pela geração do arquivo. Não seria ao contrário ?

copy to (&cProcura) delimited with ({chr(34), ";"})

Arquivo := HB_OemToAnsi( MemoRead( cProcura ) )
hb_MemoWrit( cProcura, Arquivo )

Explique melhor o que você precisa.

por **guanabara** » 07 Mar 2013 19:44

Preciso que os nomes dos arquivos criados fiquem iguais ao mesmo nome que digito no campo da pesquisa, tipo se pesquisar o Municipio de Aracatuba, o nome do arquivo ficara Aracatuba.csv e assim por diante.

por **Pablo César** » 07 Mar 2013 20:06

Entendi. E o código indicado que eu fiz na mensagem anterior, não serviu ? Dá erro ? Qual erro ?

A variável cprocura deve ser atribuido com o conteúdo do TEXTBOX GetPesq, mas lembre não pode ser valor vazio. Sabe como pegar o valor do TEXTBOX ? (veja o primeiro código que passei).

por **guanabara** » 07 Mar 2013 20:45

Pablo César escreveu:Entendi. E o código indicado que eu fiz na mensagem anterior, não serviu ?

Não.

Pablo César escreveu:Dá erro ?

Dá Sim.

Pablo César escreveu: Qual erro ?

O erro está em anexo.

Pablo César escreveu:A variável cprocura deve ser atribuido com o conteúdo do TEXTBOX GetPesq, mas lembre não pode ser valor vazio. Sabe como pegar o valor do TEXTBOX ? (veja o primeiro código que passei).

Ela está sim atribuida com o conteúdo do TEXTBOX. Sei sim como pegar o valor do TEXTBOX. Fiz até um teste que achei bacana pra descobrir o conteúdo das variáveis naquele momento do programa com o seguinte código :

msgbox(cProcura)

com esse codigo me retornou o nome da cidade.

e o código atual que está dando erro é este:

Function main_botaoexportacao_action()

Arquivo := HB_OemToAnsi( MemoRead( "TESTE.CSV" ) ) 
hb_MemoWrit( "TESTE.CSV", Arquivo ) 
 
copy to (&cProcura) delimited with ({chr(34), ";"})

Return Nil

por **Pablo César** » 07 Mar 2013 22:45

guanabara escreveu:com esse codigo me retornou o nome da cidade.

e o código atual que está dando erro é este:
Function main_botaoexportacao_action()

Arquivo := HB_OemToAnsi( MemoRead( "TESTE.CSV" ) ) 
hb_MemoWrit( "TESTE.CSV", Arquivo ) 
 
copy to (&cProcura) delimited with ({chr(34), ";"})

Return Nil

Mas não é este o código que indiquei. Leia atentamente a minha mensagem: http://www.pctoledo.com.br/forum/viewtopic.php?f=45&t=13955#p81144 onde questiono a você (você não respondeu a isto) e indico o seguinte código:

copy to (&cProcura) delimited with ({chr(34), ";"})

Arquivo := HB_OemToAnsi( MemoRead( cProcura ) )
hb_MemoWrit( cProcura, Arquivo )

Era este código que você deveria utilizar.

Quanto a este erro: Imagem

é justamente por você não adicionou a atribuição da variável cProcura como tinha indicado antes. Coloque dentro da função onde gera a planilha (no código que indiquei (mas acima dessa linhas).

por **guanabara** » 11 Mar 2013 00:14

Mas não é este o código que indiquei. Leia atentamente a minha mensagem: posting.php?mode=reply&f=45&t=13955#pr81144 onde questiono a você (você não respondeu a isto) e indico o seguinte código:

Agora entendi, é que copiei o comando inteiro daqui do Forum e o que realmente necessito é somente esta linha: copy to (&cProcura) delimited with ({chr(34), ";"}), as outras linhas não há necessidade, e se houvesse o mesmo estava invertido....

Consegui, aleluia, aleluia, obrigado mesmo pelo inicio de tudo, consegui rodar o comando assim:

copy to (cProcura + ".CSV") delimited with ({chr(34), ";"})

Então com o código acima consigo gerar um arquivo com o mesmo nome que é usado na pesquisa com a extensão *.CSV que pode ser lido no Excel, tudo bem que seria melhor se gerasse em XML, mais pra frente o farei, um passo de cada vez, né Pablo..... Valeu...

Quem está online