Erro de Parametro Impressora Fiscal

18/12/2009

0

Olá...

Gente tenho essa função a baixo q listo a serie da impressora fiscal e com a impressora Elgin esta dando um erro na seguinte linha Retorno := Elgin_NumeroSerie; esta falando que Não há parâmetros reais

aguem saberia m dizer o pq isso esta ocorrendo...


 {$REGION 'Elgin'}
        SetLength(NumeroSerie,20);
        Retorno := Elgin_AbrePortaSerial;
        if (Retorno = 1) then
        begin
         Retorno := Elgin_NumeroSerie(NumeroSerie);
         if not (Retorno = 1) then
         begin
          ShowMessage('E r r o: '+IntToStr(Retorno)+#13+'Não foi possível obter o Número de Série do ECF.');
          Exit;
         end;
         edtEcfNumSerial.Text := NumeroSerie;
         Retorno := Elgin_NumeroSerie; // aqui esta dando erro
         if not (Retorno = 1) then
          ShowMessage('E r r o: '+IntToStr(Retorno)+#13+'Não foi possível fechar a comunicação com o ECF.');
        end
        else
         ShowMessage('E r r o: '+IntToStr(Retorno)+#13+'Não foi estabelecer uma comunicação com o ECF.');
        {$ENDREGION 'Elgin'}
        end;
  end;
Laelson Fagundes

Laelson Fagundes

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar