SpedFiscal

[Juliomar Marchetti]

boa tarde

fui testar o componente para gerar o arquivo

e quando gerei os registros do bloco e ocasionou um erro pra mim

      with RegistroE001New do

      begin

         IND_MOV := imComDados;

         ///

         with RegistroE110New do

         begin

ai debuguei e ele chegou na criação do novo record

function TBloco_E.RegistroE110New: TRegistroE110;

begin

   Result := FRegistroE001.RegistroE100.Items[FRegistroE001.RegistroE100.Count -1].RegistroE110;

end;

[EMBarbosa]

Você não postou o erro, a dúvida nem qualquer sugestão... :S

Seja mais claro.

[ricardopdv]

O erro é que antes de criar o registro 110 deve ser criado o registro 100

    

with SP.Bloco_E do

    begin

      // Abertura do Bloco E

      with RegistroE001New do

      begin

        IND_MOV := imComDados;

        with RegistroE100New do

        begin

          DT_INI := cxDateEdit1.Date;

          DT_FIN := cxDateEdit2.Date;


          with RegistroE110New do

          begin

            VL_TOT_DEBITOS := 0;

            VL_AJ_DEBITOS := 0;

Um Abraço !!!

[Juliomar Marchetti]

obrigado jovem