Untitled

mail@pastecode.io avatar
unknown
pascal
2 months ago
296 B
1
Indexable
Never
// UTelaBuscaCli_For
// 840

if FrmTelaBuscaCli_For.Tag = 73 then //Tela 9 - Controle de Deslocamento
begin
with FrmControleDeslocamento_9 do
begin
  PnlDescricaoPosto.Tag := Ordem_Cliente;
  EdtPosto.Text := Codigo;
  PnlDescricaoPosto.Caption := Nome;
  EdtPosto.SetFocus;
end;
end;
Leave a Comment