Boa tarde a todos, tenho uma aplicação stand-Alone rodando com horse conectado em um banco de dados firebird. Na minha maquina de desenvolvimento em homologação consigo validar nfce sem problema mas quando coloco no cliente em produção, ao chamar o método enviar cai no tratamento da exception e acontece um mistério, não tem nada nesse exception, ou seja, gera uma exception em branco. O pior de tudo a NFCe é validada no sefaz...
Alguem ja viu isso acontecer?
function TDAO_NFCe.SendToValidate(AID: Integer): TJSONObject;
begin
Try
try
FACBrNFe.Enviar(0, False, True); //Nao imprimir automatico pois caso ficasse aberto danfe nao atualizava base enquanto nao era fechado
UpdateStatus(
AID,
FACBrNFe.NotasFiscais.Items[0].NFe.procNFe.cStat,
FACBrNFe.NotasFiscais.Items[0].NFe.procNFe.xMotivo,
FACBrNFe.NotasFiscais.Items[0].NFe.procNFe.nProt,
FACBrNFe.NotasFiscais.Items[0].XML,
False);
case FACBrNFe.NotasFiscais.Items[0].NFe.procNFe.cStat of
110,301,302,303: begin //Denegado
CancelDataBase(AID, tpCanc);
end;
end;
Result := TJSONObject.Create;
Result.AddPair('cStat' , FACBrNFe.NotasFiscais.Items[0].NFe.procNFe.cStat.ToString);
Result.AddPair('xMotivo', FACBrNFe.NotasFiscais.Items[0].NFe.procNFe.xMotivo);
Result.AddPair('nProt' , FACBrNFe.NotasFiscais.Items[0].NFe.procNFe.nProt);
Result.AddPair('chNFe' , FACBrNFe.NotasFiscais.Items[0].NFe.procNFe.chNFe);
Result.AddPair('XML' , FACBrNFe.NotasFiscais.Items[0].XML);
Result.AddPair('IsPrazo', IfThen(getIsPrazo(AID),'S','N'));
finally
MoveFileProc('');
end;
Except
on e:Exception do
begin
Result := TJSONObject.Create;
Result.AddPair('Error' , e.Message); //e.Message esta em branco
Result.AddPair('cStat' , FACBrNFe.WebServices.Enviar.cStat.ToString); //cStat esta em branco
Result.AddPair('xMotivo', FACBrNFe.WebServices.Enviar.xMotivo);//xMotivo fica em branco
end;
end;
end;