Incluir varios registros

[alinesf4 0]

Boa tarde!

 

Meu cliente me pediu para que qndo ele pedir para incluir um novo registro, ele faça pelo menos uns 10 registros automáticos, que depois ele possa editar....alguns campos tenho que incluir juntos como, incrementar o nr da fatura, que tem q ser o nr da ultima fatura + 1;

 

Tentei esse código mas dá erro qndo dou um post.

procedure TDMCADASTRO.incluir_fatura_avulsa;
Var
i: Integer;

begin
   For i := 1 to 10 do
   begin
    DMCADASTRO.TBFATURAS.Open;
    DMCADASTRO.TBFATURAS.Insert;
    DMCADASTRO.TBFATURASLANCADO_POR.AsString := DMCADASTRO.UsuarioLogado.Nome;
    DMCADASTRO.TBFATURASDATA_LANCAMENTO_FATURA.Value := Now;
    DMCADASTRO.TBFATURASNR_FATURA.Value := DMCADASTRO.TBFATURASNR_FATURA.Value + 1;
    DMCADASTRO.TBFATURASPAGO.AsString := 'NAO';
    DMCADASTRO.TBFATURASANULADO.AsString := 'NAO';
    DMCADASTRO.TBFATURAS.Post;
   end;
end;

Quando chega no comando Post da o erro cannot focus a disabled or invisible window....

 

Se alguém puder me ajudar...

 

Fico no aguardo.

Obrigada!

[Eisenheim 67]

Olá amiga!

 

Olha, esse erro eu já vi estar relacionado a algum objeto que está recebendo foco mas o mesmo está desabilitado.

 

Não é a correção, mas tomei a liberdade de fazer a seguinte alteração no seu código.

 

 

procedure TDMCADASTRO.incluir_fatura_avulsa; 
Var i: Integer; 
begin 
  DMCADASTRO.TBFATURAS.Open; 
  For i := 1 to 10 do 
  begin 
    DMCADASTRO.TBFATURAS.Append; 
    DMCADASTRO.TBFATURASLANCADO_POR.AsString := DMCADASTRO.UsuarioLogado.Nome;
    DMCADASTRO.TBFATURASDATA_LANCAMENTO_FATURA.Value := Now; 
    DMCADASTRO.TBFATURASNR_FATURA.Value := DMCADASTRO.TBFATURASNR_FATURA.Value + 1;
    DMCADASTRO.TBFATURASPAGO.AsString := 'NAO';
    DMCADASTRO.TBFATURASANULADO.AsString := 'NAO'; 
    DMCADASTRO.TBFATURAS.Post; 
  end; 
end;

 

Experimente e reporte o que acontece.

 

Até a próxima. :thumbsup:

[alinesf4 0]

Boa noite!

 

Utilizei esse código...dá o mesmo erro....

[DecioNeto 0]

Ola provavelmente vc deve ta mandando o foco em algum lugar q nao foi criado ainda ]. da uma olhada nos controles e se naum resolver post ai..

[alinesf4 0]

Certo vou verificar....Obrigada!

[Eisenheim 67]

Olá amigo(a)s!

 

Você conseguiu solucionar o seu problema?

 

Até a próxima. :thumbsup:

[contento 1]

Não é a correção, mas tomei a liberdade de fazer a seguinte alteração no seu código.

[Eisenheim 67]

Olá pessoal!

 

Amigo contento, acredito que esqueceu o código...rs

 

Até a próxima. :thumbsup:

[alinesf4 0]

Boa tarde!

 

Pessoal desculpa a demora, mas estava com muito trabalho e tive que deixar de lado esse projeto.

Mas o código funcionou sim, Obrigada!