Fórum Dúvida Máscara #363572
08/09/2008
0
Saudações!
Tenho um dbgrid que possui uma coluna chamada AT_CLIN_TEX, onde o usuário digita uma informação diretamente nele. Há um campochamado CF_OR_ITEM_TIP_DADO que identifica o tipo de informação que é digitada no campo AT_CLIN_TEX (texto livre ou data). A idéia é CF_OR_ITEM_TIP_DADO = D (data), a célula do campo AT_CLIN_TEX deverá automaticamente ser mascarada. Eu tentei fazer este processo, no entanto, qdo eu digito uma data, a máscara é apagada.
procedure TdmAtendimento.cdsAten_TempAT_CLIN_TEXGetText(Sender: TField;
var Text: string; DisplayText: Boolean);
begin
Text := Sender.AsString;
if cdsAten_TempCF_OR_ITEM_TIP_DADO.AsString = ´D´ then
Text := FormatMaskText(´99/99/9999;1;_´, Text);
end;
Gostaria que, se possível, verificassem onde está o problema e me apontassem uma solução mais adequada.
Obrigado.
[]s
Tenho um dbgrid que possui uma coluna chamada AT_CLIN_TEX, onde o usuário digita uma informação diretamente nele. Há um campochamado CF_OR_ITEM_TIP_DADO que identifica o tipo de informação que é digitada no campo AT_CLIN_TEX (texto livre ou data). A idéia é CF_OR_ITEM_TIP_DADO = D (data), a célula do campo AT_CLIN_TEX deverá automaticamente ser mascarada. Eu tentei fazer este processo, no entanto, qdo eu digito uma data, a máscara é apagada.
procedure TdmAtendimento.cdsAten_TempAT_CLIN_TEXGetText(Sender: TField;
var Text: string; DisplayText: Boolean);
begin
Text := Sender.AsString;
if cdsAten_TempCF_OR_ITEM_TIP_DADO.AsString = ´D´ then
Text := FormatMaskText(´99/99/9999;1;_´, Text);
end;
Gostaria que, se possível, verificassem onde está o problema e me apontassem uma solução mais adequada.
Obrigado.
[]s
Roger1976
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)