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;
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)