Na prefeitura meu cliente não consegue falar, resolvi implementar as 4 opções que o componente me permite:
stbGerar.SimpleText := 'Enviando o lote: '+inttostr(vNumLote);
try
case rgModo.ItemIndex of
0: ACBrNFSeX1.Emitir(inttostr(vNumLote),meAutomatico,false);
1: ACBrNFSeX1.Emitir(inttostr(vNumLote),meLoteSincrono,false);
2: ACBrNFSeX1.Emitir(inttostr(vNumLote),meLoteAssincrono,false);
3: ACBrNFSeX1.Emitir(inttostr(vNumLote),meUnitario,false);
end;
LProtocolo := ACBrNFSeX1.Webservice.Emite.Protocolo;
ChecarResposta(tmRecepcionar);
except
on E: Exception do
begin
mensagem(E.message);
end;
end;
Vou pedir pro cliente testar no sincrono, porque antes estava engessado no automático.
Alias, como saber que o provedor usa, tem alguma forma.