belo

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

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

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