Jump to content

belo

Membros
  • Posts

    3
  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

belo's Achievements

Newbie

Newbie (1/14)

  • Conversation Starter
  • First Post
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

0

Reputation

  1. Bom dia a todos! Alguém aqui que trabalha com Prefeituras e já concluiu com envio da 1º Fase (Eventos de tabelas, S-1000, S-1005, S-1010, S-1020 e S-1070) do 4º Grupo? Estou com algumas dúvidas, em especial com a S-1010. Se alguém puder me dá um suporte off. Eduardo Belo
  2. Provavelmente a base foi corrompido na origem. Se o program for em Clipper, recomendo antes de copiar, reindexar pelo próprio programa original e depois compactar todas essas tabelas com ZIP ou RAR e só depois copiar para o seu micro afim de evitar a corrupção da base na transferência remota. Para você utilizar o DBF com o Delphi, você vai ter que criar um Alias no BDE com Type Standard e DefaultDrive DBase. Se você estiver utilizando o Firebird como banco de dados destino, existe o utilitário IBExpert onde ele faz essa conversão diretamente, você pode baixar a versão trial que ele converte sem limitação diretamente. sds Eduardo Belo
  3. Olá Márcio! Eu faço assim para campos tipo Date: procedure TDM.cdsCLIENTESDATA_CADASTROSetText(Sender: TField; const Text: string); begin if Text = ' / / ' then Sender.AsString := '' else Sender.AsString := Text; end; Coloque no seu Form Principal ou no Data Module o componente "ApplicationEvents" afim de centralizar as mensagens de erros, veja o exemplo com Data, Hora e Campo Obrigatório: procedure TFrmPrincipal.ApplicationEvents1Exception(Sender: TObject; E: Exception); var Mensagem: string; Pos1, Pos2: integer; begin if Pos(UpperCase('is not a valid date'), UpperCase(E.Message)) <> 0 then ShowMessage('Data inválida, proceda a correção.') else if Pos(UpperCase('is not a valid time'), UpperCase(E.Message)) <> 0 then ShowMessage('Hora inválida, proceda a correção.') else if Pos(UpperCase('must have a value'), UpperCase(E.Message)) <> 0 then begin Pos1 := Pos('''', E.Message); Mensagem := E.Message; Delete(Mensagem, Pos1, 1); Pos2 := Pos('''', Mensagem); Mensagem := copy(E.Message, Pos1 + 1, Pos2 - Pos1); ShowMessage('É obrigatório o preenchimento do campo "' + Mensagem + '".'); end else ShowMessage(E.Message); end; Espero ter ajudado. Boa Sorte! abs Eduardo Belo
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.