Bloco P - Access Violation

colmanetti · 1 Setembro, 2015

PRIMEIRO: Parabéns pela mudança do Trunk2 ficou muito bom.

Quando Crio o Bloco P mostra acess violation em:

RegistroP030New = Erro acess violation.

Onde estou fazendo algo de errado?

Se puderem me ajudar agradeço.

========================================================

debugando Na Unit:ACBrECFBloco_P_Class.pas

FRegistroP001.RegistroP030 ==== nil {deve ser por isto o access violation}

Linha 200: se mudar não dá o erro:

function TBloco_P.RegistroP030New: TRegistroP030;
begin
//Result := FRegistroP001.RegistroP030.New;
Result := RegistroP030.New; {Ezequiel alterou esta linha não existia}
end;

==========================================================

Abaixo Meu Código a Sequencia de Criação do Bloco P

TP200,TP030,TP300 = Dataset´s

==========================================================

with ACBrSPEDECF1.Bloco_P do
begin
with RegistroP001New do
begin
IND_DAD:=idComDados;
if TP200.IsEmpty then
begin
IND_DAD:=idSemDados;
exit;
end;
end;
TP030.First;
while not TP030.Eof do
begin
with RegistroP030New do <=========ERRO AQUI=========
begin
DT_INI:=TP030DT_INI.AsDateTime;
DT_FIN:=TP030DT_FIM.AsDateTime;
PER_APUR:=TP030PER_APUR.AsString;
TP200.First;
while not TP200.Eof do
begin
with RegistroP200New do
begin
CODIGO :=TP200CODIGO.AsString;
DESCRICAO:=TP200DESCRICAO.AsString;
VALOR :=TP200VALOR.AsCurrency;
end;