Bloco P - Access Violation

[colmanetti]

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;

 

 

 

 

[Juliomar Marchetti]

Sugestão de correção? favor anexar a unit alterada e corrigida!

alias já temos um tópico só para isso