Erro de Parametro Impressora Fiscal

18/12/2009

1

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;
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira