Olá
Atualizei os fontes do ACBr e me deparei com uma situação nova com a Daruma FS600. Ao identificar o consumidor no fechamento do cupom, este não era mais impresso. Isto ocorre apenas com a FS600 onde o fsNumVersao = 010400. Baixei os manuais da Daruma e esta nova forma de identificar o consumidor não é compatível com esta versão deste modelo.
Desta forma, fiz uma modificação. Aqui funcionou plenamente.
Peço que avaliem e atualizem caso julgarem que está ok.
procedure TACBrECFDaruma.FechaCupom(Observacao: AnsiString; IndiceBMP : Integer);
Var
Obs, StrConsumidor : AnsiString ;
begin
Obs := Observacao ;
if (not Consumidor.Enviado) then
begin
try
AguardaImpressao := True ;
if (fpMFD) and not(fsNumVersao = '010400') then
begin
StrConsumidor := LeftStr(Consumidor.Documento,20) + cDELIMITADOR +
LeftStr(Consumidor.Nome,30) + cDELIMITADOR +
LeftStr(Consumidor.Endereco,79) + cDELIMITADOR ;
EnviaComando( FS + 'F' + #240 + StrConsumidor ) ;
end
else if fsNumVersao = '2000' then
begin
StrConsumidor := PadL( PadL(Consumidor.Documento,27) +
PadL(Consumidor.Nome,42)+
PadL(Consumidor.Endereco,42), 153) ;
EnviaComando( ESC + #208 + StrConsumidor ) ;
end
else
begin
StrConsumidor := PadL(Consumidor.Nome,84) +
PadL(Consumidor.Endereco,84) +
PadL(Consumidor.Documento,84) ;
EnviaComando( ESC + #201 + StrConsumidor ) ;
end ;
Consumidor.Enviado := True ;
except
Obs := Observacao;
end ;
end ;