Henrique Bosse

Boa tarde pessoal... Estou com um pequeno problema... Possuo um sistema onde realizo um cadastro de OS e gravo no banco de dados (frmCadastro) Possuo na tela inicial (frmConsulta), um dbgrid que mostra todas as OS cadastradas. Quero saber como eu posso selecionar a linha do meu dbgrid e abrir um outro formulário idêntico ao de cadastro só que para edição dos campos... esse novo formulário(frmEditar) deve trazer os campos preenchidos já com os dados do Dbgrid. Estou utilizando o Zeos para realizar a comunicação, e Querys para realizar os cadastros e consultas juntamente com DataModule.

Boa tarde Jonas.. desculpe a demora em dar retorno... consegui falar com o suporte do bradesco, que me informou que somente o cliente com conta no bradesco pode ter acesso a esse material entrando em contato diretamente com o gerente de contas... estou entrando em contato com ele (cliente) agora pra agilizar... se conseguir o arquivo posto aqui.. abraços e muito obrigado

na verdade preciso para o débito em conta... eu estou gerando dos outros banco normalmente no 150 posições tudo conferindo certinho... agora esse do bradesco de 400 posições ta quebrando

Boa tarde galera... estou necessitando o manual onde consta todos os campos do objeto cobrebemX.. já fucei em tudo quanto é lugar e nada. Alguém consegue me ajudar? é o Layout de 400 Posições, o do Bradesco é diferente dos outros bancos pelo que eu li... PS: já enviei inúmeros emails para o suporte da cobrebemx e nada de resposta e telefone não atende, fica chamando até cair.

Nossa... não acreidto que não vi isso... pqp tava mongando aqui um bom tempo por uma bobagem! Muito obrigado ai fera... quando as coisas estão no lugar certo fica melhor heheheh abraçoss

Não rola... ele apaga o Form inteiro.. já havia tentado dessa forma tb

Olá galera... mais uma dúvida minha... Tenho um programa que lê um arquivo Txt e joga para um Memo só que eu precisaria apagar a primeira e a ultima linha desse Memo sendo que ele pode variar de tamanho conforme o dia que eu importar esse arquivo. No meu Memo o código está assim, onde eu detectava alguma palavra que tem em todos TXT na primeira e ultima linha e deleto ela. O TXT contém somente valores numéricos (nos campos que eu preciso).. o que acontece porém é que 1 maldito TXT na última linha só tem um numero 9 e mais nada então essa minha lógica "gambiarra" não funciona... Alguma idéia de como deletar somente a primeira e última linha do Memo? procedure TfrmDebitoConta.mmListaChange(Sender: TObject); var Palavra : String; i : Integer; begin Palavra := 'LOVELY'; for i := Pred(mmLista.Lines.Count) DownTo 0 do begin if Pos(Palavra, mmLista.Lines) > 0 then mmLista.Lines.Delete(i); end; Palavra := 'Z000'; for i := Pred(mmLista.Lines.Count) DownTo 0 do begin if Pos(Palavra, mmLista.Lines) > 0 then mmLista.Lines.Delete(i); end; end;

Pois é... estava me enrolando demais nisso.. acabei mudando meu layout por um listfield e tratando os campos dentro dele... agora deu certo =) Obrigado ai cara

na verdade AsString não funciona, já havia tentado antes... porque meu campo é integer.. Acho estranho porque meu DBLookupComboBox mostra os campos tudo certinho.. eu seleciono o DBLookupComboBox, seleciono o arquivo txt e mando percorrer o arquivo, que é essa rotina ai acima... quando eu mando percorrer o arquivo, meu campo DBLookupComboBox fica vazio e não grava nada..

Boa tarde... estou desenvolvendo uma tela onde eu pego um arquivo txt, percorro ele e vejo se tem alguma informação a mais que no banco de dados. Tenho uma DBLookupComboBox que quando aperto o botão de "Percorrer" o arquivo, ela zera e não grava os valores.. e também não estou conseguindo tratar meu códido na linha "qryUpDate.ParamByName('p_I_COD_B_CONTA_CORRENTE_DEBIT_C')." que seria o campo da ComboBox.. Ela mostra o nome e deveria gravar o código. Eu possuo 2 Query de pesquisa por causa do DBLookupComboBox, uma Query de Pesquisa em uma tabela X e outra na Tabela Y, pois preciso ler os arquivos de uma tabela e gravar em outra. Estou usando o componente Zeos para fazer essa conexão. O único problema que estou enfrentando é que não estou conseguindo fazer gravar esse DBLookupComboBox no banco, após eu clica no botão "percorrer" ele apaga o valor do campo e não grava nada... se precisarem mais informações é só pedir =) Abaixo meu código do botão de percorrer arquivo pra darem uma olhada o que ta faltando.. procedure TfrmDebitoConta.btnPercorrerClick(Sender: TObject); var ind : integer; begin mmPercorre.Lines.Clear; memAtualizado.Lines.Clear; for ind := 0 to mmLista.Lines.Count - 1 do begin qryPesquisa.Close; qryPesquisa.ParamByName('p_S_NUMERO_FICHA_DEBITO_CONTA').AsString := Copy(mmLista.Lines[ind], 2, 6); qryPesquisa.Open; if qryPesquisa.IsEmpty then mmPercorre.Lines.Add(Copy(mmLista.Lines[ind], 2, 6)) else begin qryUpDate.Close; qryUpDate.ParamByName('p_S_NUM_FICHA_DEB_CONTA').AsString := Copy(mmLista.Lines[ind], 2, 6); qryUpDate.ParamByName('p_S_AG_CLIENTE_DEB_CONTA').AsString := Copy(mmLista.Lines[ind], 27, 4); qryUpDate.ParamByName('p_S_CONTA_CLIENTE_DEB_CONTA').AsString := Copy(mmLista.Lines[ind], 31, 12); qryUpDate.ParamByName('p_F_VAL_DEB_CONTA_CLIENTE').AsString := Copy(mmLista.Lines[ind], 63, 5); //qryUpDate.ParamByName('p_I_COD_B_CONTA_CORRENTE_DEBIT_C').AsInteger := dbBancoNome.KeyValue; ( não estou conseguindo tratar esse campo) qryUpDate.ExecSQL; memAtualizado.Lines.Add(Copy(mmLista.Lines[ind], 2, 6)); memAtualizado.Lines.Add(Copy(mmLista.Lines[ind], 27, 4)); memAtualizado.Lines.Add(Copy(mmLista.Lines[ind], 31, 12)); memAtualizado.Lines.Add(Copy(mmLista.Lines[ind], 63, 5)); showmessage(dbBancoNome.text); memAtualizado.Lines.Add(''); end; end;