Fórum Erro Ao salvar e Imprimir o Contrato Automatico. #345871
12/09/2007
0
Olá pessoal no final dos eventos do botão salvar fiz esses dados para que na hora que salvar ele perguntar se quer imprimir o contrato de prestação de serviço, mas até aki ok, mas quando eu aperto não para ele não imprimir ele volta na edição normal, e ai eu mudei o Inherited para o final do codigo mas acontecesse o mesmo no começo desses dados ele dá erro ai estão os dados se alguém me poder resolver essa questão eu agradeço.
if (not pergunta(´Deseja Imprimir o Contrato de Prestação de Serviço?´)) then exit;
With DtmIza.qryIza do
Begin
ConsultaRegistros (´Empresa´, ´Empresa, Endereco, Numero, Cnpj, Bairro, Cidade´,
´Codigo>=´ + txtMat.Text);
With TFrmRelContrato.Create (Application) do
try
QuickRep1.Preview;
finally
free;
end;
End ;
inherited;
end;
Robinhocne
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)