Pesquisar na Comunidade
Showing results for tags 'bloco p ecf'.
Encontrado 1 registro
-
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;
