João Paulo Taraciuk

Deu certo aqui, porém surgiu outro problema, todos os produtos tem que ter unidade de medida para que eu possa utilizar, eu consegui fazer jogar para um ClientDataSet os produtos que estão no txt e não tem a unidade, teria como eu inserir somente a unidade na linha determinada e na posição determinada ? O código que eu utilizei para jogar os dados para um ClientDataSet é esse: Criei essa procedure para validar o arquivo, verificando onde tem produtos sem unidade de medida indicada. Aí eu to jogando para um DBGrid o Código do Produto, a Descrição, e unidade e a Linha do mesmo no arquivo texto. Tem como eu inserir a unidade na posição desejada dentro do arquivo texto sem alterar o restante do conteúdo do mesmo ? Obrigado pela ajuda

Boa tarde Novamente venho pedir ajuda aos colegas de fórum. Tenho que pegar alguns dados de um arquivo txt digamos, tabulado, que no caso seria o arquivo do sintegra. o que eu preciso é pegar os arquivos 75, que seria o cadastro de produtos para fazer um copy neles e tirar algumas informacoes para enviar para uma base de dados, mas não estou sabendo fazer isso, localizar as linhas que iniciam com 75 para fazer um copy neles.

Boa tarde Estou fazendo uma aplicação de uma agenda e pretendo fazer o seguinte Tenho lá no DB Access os eventos separados por datas, o que eu gostaria de fazer é assim, a Query pega todas as datas, e primeiramente cria o nó do Ano(Somente do ano que existir evento), aí cria o nó filho do mes e dentro desse nó do mes cria o nó filho de dias, somente dos dias e meses que tiver evento. Estou encontrando dificuldade para fazer isso. tentei faze assim: procedure Tfrm_servicos.BitBtn1Click(Sender: TObject); var no1 : TTreeNode; a : Integer; begin { with TreeView1.Items do begin Clear; AdoQuery1.Active:=False; AdoQuery1.SQL.Clear; AdoQuery1.SQL.Add(Select Year([data])from tabela); AdoQuery1.Active:=True; AdoQuery1.First; While not(Adoquery1.EOF)do Begin for a:=0 to TreeView1.Items.Count do Begin if(TreeView1.Items.Item[a].Text<> AdoQuery1.Fields[0].AsString)then no1:=Add(nil, AdoQuery1.Fields[0].AsString) else Abort; Mas não consegui sair daí, para pegar depois disso os meses e fazer a mesma coisa, jogando cada mes no seu respectivo ano.

Olá Micheus Deu certo a sua dica, consegui abrir o arquivo .xml, apesar de ele ter vindo sem o .xtr, segui os passos do link que voce passou e deu certo. Porém, para abrir o arquivo pelo XML Mapper, tive que ir corrigindo os campos, tinha algumas tags do xml que estavam na quebra de linha, assim </retir= ada> aí dava erro nessas linhas, voce tem alguma idéia de como eu poderia fazer isso automaticamente pelo Delphi, sem precisar abrir o arquivo e editá-lo manualmente ? Gostaria de saber também como eu poderia fazer para abrir mais de um arquivo em sequencia para criar o .xtr, e depois de criado mais de um .xtr, como eu poderia fazer para ler os mesmos em sequencia? será que se eu colocar mais um ClientDataSet e fazer assim: Listo o nome dos arquivos em um TMemo, jogo o primeiro para o XMLTransformProvider, e ativo o ClientDataSet1, aí jogo os dados do ClientDataSet1 para o outro CDS ,e pulo para a outra linha do TMemo, assim por diante, poderia ser assim ? Obrigado pela atenção.

Olá pessoal, preciso de uma ajudinha para exportar os dados de arquivos .xml (NFe) para .txt, separando os campos, mas eu nunca trabalhei com xml em Delphi. Haveria a possibilidade de exportar os dados para um txt ?

Muito bom Jhonas, era isso mesmo que eu procurava. Obrigado!!!

Boa tarde Estou fazendo uma tela de cadastros de medicamentos e gostaria de colocar um link para uma busca por informações adicionais do medicamento, algo assim: Clique aqui para saber mais sobre este medicamento. E clicando no link ou botão, abriria uma tela do Google com a pesquisa pelo nome do medicamento. Como eu poderia chamar essa pesquisa do Google que retornasse já com os resultados? utilizo o Delphi 7.

Daria para fazer o select comparando a quantidade em estoque, quantidade vendida e estoque mínimo, aí se a quantidade vendida estiver dentro do que tem no estoque, vende normalmente, apenas comparando com a quantidade mínima, aí sim, se a quantidade em estoque for ficar menor que o estoque mínimo, coloca na lista de produtos com quantidade menor ou igual ao mínimo desejado. Essa quantidade mínima é muito utililizada para saber a hora de fazer o pedido daquele ítem, por exemplo, determinada marca de Açúcar vende em média 10 unidades por dia, porém quando é feito o pedido ele demora 5 dias para ser entregue, então a quantidade mínima seria de 50 unidades, mais uma margem de segurança, daria para deixar um mínimo com 70 unidades. Tem produtos que demoram 15 dias para serem entregues mas vende 2 unidades por dia, e assim por diante, a Quantidade Mínima é muito útil para que seja feita da forma mais racional a logística de distribuição das mercadorias, para que a empresa não corra o risco de ficar sem determinado produto.

Valeu Jhonas, no último link tinha o que eu precisava Obrigado!!!

Problema resolvido instalando a versao 0.9.24 do Lazarus

Bom dia Alguém saberia me informar onde posso encontrar o layout do SPED Contábil ? Pois já virei a internet atrás desse layout e não encontrei.

Olá pessoal, eu estou iniciando trabalhos com o Lazarus, e quero instalar o Zeos nele eu fiz assim , no lazarus fui em Component-> Open Package File, selecionei o ZComponent e cliquei em install, porém se eu coloco uma ZConnection no form ele dá a mensagem de erro : Can't find Unit ZConnection. O que eu esqueci de fazer para que funcione o Zeos no Lazarus? Estou utilizando o Lazarus 0.9.22 Zeos 6.6.2 -rc Windows XP

Olá pessoal, quero uma dica sobre como eu poderia fazer para realizar uma pesquisa da seguinte maneira. O usuário teria um form com opções de fazer o select por data, valor, nome de cliente, cidade, etc, sendo que todas as opções poderiam ser adicionadas ou apenas uma, assim(O usuário seleciona dados de um cliente, entre determinadas datas e de certo valor). Eu teria que fazer vários if's para esta consulta e ma consulta para cada possibilidade de seleção ou teria uma maneira mais prática de se fazer isso?

Olá robinhocne, bom, uma idéia seria primeiro você capturar a impressora padrão atual do micro e jogar em uma variável, aí voce substitui a padrão pela que você deseja imprimir, manda a impressão e joga impressora que ficou armazenada na variável para padrão, é testar e ver se funciona. Promeiro declare a Uses Printers , aí crie a procedure: Procedure MudarImpressoraPadrao(PrinterName: string); a procedure em questão: procedure TFrm_Config.MudarImpressoraPadrao(PrinterName: string); var I: Integer; Device : PChar; Driver : Pchar; Port : Pchar; HdeviceMode: Thandle; aPrinter : TPrinter; begin Printer.PrinterIndex := -1; getmem(Device, 255); getmem(Driver, 255); getmem(Port, 255); aPrinter := TPrinter.create; for I := 0 to Printer.printers.Count-1 do begin if Printer.printers[i] = PrinterName then begin aprinter.printerindex := i; aPrinter.getprinter (device, driver, port, HdeviceMode); StrCat(Device, ','); StrCat(Device, Driver ); StrCat(Device, Port ); WriteProfileString('windows', 'device', Device); StrCopy( Device, 'windows' ); SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, Longint(@Device)); end; end; Freemem(Device, 255); Freemem(Driver, 255); Freemem(Port, 255); aPrinter.Free; end; Aí voce poderia chamar a impressao: procedure TFrm_Fatura.Imprime_Duplicata; var padrão:string; //essa variável vai armazenar a impressora padrão atual begin padrão:=printer.Printers.Strings[printer.PrinterIndex]; Frm_Config.MudarImpressoraPadrao(ImpressoraDeSuaEscolha); //Comandos e dados à imprimir //... //... Frm_Config.MudarImpressoraPadrao(padrão);{Aqui voce coloca novamente a impressora padrão do sistema} end; Testa aí e ve se funciona para o seu caso. Valeu

Olá amigo, coloca um Edit e testa dessa maneira: procedure TForm1.Button1Click(Sender: TObject); var a : string; begin a:='''fb6790tyu'''; Edit1.Text:='(' + a +',0)'; end; Vai sair algo assim ('fb6790tyu',0).

usuario e senha são variaveis ? O que voce quer colocar entre aspas? O valor que a variável vai receber ou a variável em si ? tenta fazer algo assim pra ver se dá certo procedure TForm1.Button1Click(Sender: TObject); var a : String; begin a:='''Teste'''; Label1.Caption:=a; end;

Olá, de onde viria este valor anteriordisponivel, seria do banco de dados ? no código que voce postou, deveria estar assim if (vendido <> anteriorDisponivel)or(roubado <> anteriorDisponivel)or (inativo <> anteriorDisponivel)then begin ShowMessage('Status não pode ser alterado porque/o valor anterior não esta disponivel!'); DBEStatus:=StrToFloat(anteriorDisponivel); end else begin ShowMessage('Status alterado com sucesso!'); end; tinha 2 or e um and, Que valores tem neste combobox ? Que valores voce está comparando? Seria valores numéricos ? Porque voce está convertendo a variável string para Float DBEStatus:=StrToFloat(anteriorDisponivel); Passe os dados a serem comparados que a gente pode te ajudar, mas acredito que o problema esteja nesta conversao de String para Float, se possível, posta a mensagem de erro prá gente. Abraço!!

Valeu, obrigado pela atenção. Peguei uns livros de JavaScript na Faculdade, vou começar a estudar JavaScript, é incrível o que da para fazer com ele, quase tudo.

Bom dia Gostaria de saber como eu poderia fazer para que um código HTML com JavaScript abra normalmente no Intenet Explorer, pois quando coloco para rodar qualquer código no IE aparece aquele barrinha amarela pedindo a confirmação para executar o conteúdo, e, acredito que por esse mesmo motivo eu não consigo fazer que um documento HTML que contenha JavaScript possa ser utilizado como rodapé no Outlook Express, quando coloco algo com script, simplesmente não aparece no Outlook. Qualquer dica eu agradeço.

Olá, que evento eu poderia colocar no OnMouseMove ? Tipo se eu tenho 2 categorias no ActionManager, e ao passar na 1, que poderia ser "Arquivo" aparece os ítens desse menu, e ao Passar na 2 que pode ser "Cadastro" aparece estes ítens. OnMouseMove ActionMainMenuBar. ...?.

Olá pessoal, eu estou utilizando um ActionMainMenuBar no Delphi 7 e gostaria de saber se tem como eu, ao passar o mouse, o menu apareça automaticamente, sem a necessidade de clicar sobre ele, assim como é feito nos menus em flash.

Excelente Jhonas, exatamente o que eu precisava, mas, agora, o que faz exatamente esta linha? if Pos(', FROM', S) > 0 then delete(s,Pos(', FROM', S),1); De que forma está eliminando a última vírgula dos campos antes do "From", e o que significa este "Pos"?

Olá pessoal, eu estou precisando de ajuda na montagem de um layout para exportar dados de um sistema para outro, aí, eu preciso por a opção de escolher os campos que irão para o select,eu tentei colocar alguns CheckBox, e no evento OnKeyUp ir colocando ou removendo o campo de um TMemo, fiz mais ou menos assim: IF(CheckBox1.Checked=True)then Memo1.Lines.Strings[2]:=',nomcli' else if(CheckBox1.Checked=False)then Memo1.Lines.Strings[2]:=''; Funciona beleza, mas o problema está na vírgula, pois nesse caso acima, eu estou supondo que já tem um campo no memo, ah, e no memo eu já coloquei por padrão na primeira linha o select e na última irei colocar o "from tabela...". Na consulta está assim: ADOQuery2.Active:=False; ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add(Memo1.Lines.Text); ADOQuery2.Active:=True; Como eu poderia fazer para colocar as vírgulas no local correto, ou se alguém tiver uma idéa melhor para esta exportação, eu agradeço!!

Olá pessoal, eu trabalho com o MySQL, e nele para fazer backup, simplesmente pego o MySQLDump, e envio os dados do banco para um arquivo de texto com a extensão .SQL, mas e no access ?, como eu poderia fazer um backup sem precisar fechar a aplicação ? Seria uma boa idéia enviar para um txt, que ocupa muito menos espaço, para de repente ser enviado para um FTP, ou algo parecido. Eu Utilizo o Delphi 7, qualquer dica eu agradeço. Abraço!!!

Olá pessoal, eu estava utilizando o banco de dados MySQL 3.23, e o ZEOS 6.51, mas recentemente decidi atualizar a minha versão de banco de dados para a 5.0.41, e consequentemente atualizar também a versão do ZEOS para a ZEOSDBO-6.6.2-rc, mas ocorre que ao abrir o DataModule que estão as ZQueryes e a ZConnection, dá o seguinte alerta : O que poderia ser feito para resolver esse problema ?