Tratar Envio do SAT

[walter faria]

Boa tarde
Gostaria de saber como os colegas estas tratando o envio do SAT caso der algum erro , enfim tem algum outro modo de fazer diferente do demo do componente ?

  ACBrSAT1.EnviarDadosVenda( mVendaEnviar.Text );
 
  if ACBrSAT1.Resposta.codigoDeRetorno = 6000 then
  begin
    LoadXML( ACBrSAT1.CFe.AsXMLString,  mRecebido);
    PageControl1.ActivePage := tsRecebido;
  end;

Obrigado

[Sérgio Assunção]

Eu sigo a mesma linha...

Modifiquei um pouquinho só...

 

      case ACBrSAT.Resposta.codigoDeRetorno of
      6000: begin
              btnFinalizaCupClick(Nil);
              try
                PrepararImpressao;
                ACBrSAT.ImprimirExtrato;
                ACBrPosPrinter.Desativar;
              except
                ShowMessage('Houve um erro na impressão do extrato !'+#13+
                            'A 2a. via poderá ser emitida através do F5-MENU');
              end;
            end;

 

[walter faria]

Boa tarde, Sergio
Obrigado pelo retorno , fora o codigo de retorno 6000, quais as outras possibilidades que eu poderia tratar ? aonde poderia verificar estes códigos ?

Obrigado

[Régys Silveira]

Boa tarde, Sergio
Obrigado pelo retorno , fora o codigo de retorno 6000, quais as outras possibilidades que eu poderia tratar ? aonde poderia verificar estes códigos ?

Obrigado

Qualquer coisa diferente de 6000 é erro.

[brsamn]

Bom dia.

Eu criei uma função booleana para alimentar o componente(function GerarCupom: Boolean) e depois do envio, dentro da função, faço o seguinte:

    if FDadosSAT.ACBrSAT.Resposta.codigoDeRetorno = 6000 then
      Result:= True
    else
      Result:= False;

Chamo a função da seguinte forma:

    if SAT.GerarCupom then
    begin
      // Aqui gravo as informações necessárias no BD
      DataHoraEmi:= FormatDateTime('mm/dd/yyyy', ACBrSAT.CFe.ide.dEmi) + ' ' + FormatDateTime('hh:nn:ss', ACBrSAT.CFe.ide.hEmi);
      GravaInfoSAT(ACBrSAT.CFe.ide.nCFe, ACBrSAT.CFe.infCFe.ID, DataHoraEmi, cdsVendasID_VENDA.AsInteger);
      SAT.ImprimirCupom(False);
    end
    else
      Mensagem('Aviso', 'Erro na Emissão do CFe: ' + MensagemCodigoRetorno(ACBrSAT.Resposta.codigoDeRetorno), mtError, ['Ok']);

Obrigado.

[walter faria]

Boa tarde, a todos pelo retorno, só mais uma coisa , mesmo com retorno diferente de 6000, é gerado um de sessão ? este numero é importante guardar ele pra efeito de consulta posterior ?

Obrigado

[Sérgio Assunção]

Boa tarde, a todos pelo retorno, só mais uma coisa , mesmo com retorno diferente de 6000, é gerado um de sessão ? este numero é importante guardar ele pra efeito de consulta posterior ?

Obrigado

Eu só gravo as sessões das vendas e cancelamentos.