Pesquisar na Comunidade
Showing results for tags 'verificação'.
Encontrado 1 registro
-
Boa tarde! O Cancelamento do SAT no próprio exemplo do ACBR no trunk2 antes de eu Atualiza-lo funcionava corretamente. Agora está com um erro, porém cancela normalmente. Fiz uma alteração para poder cancelar sem problemas. Segue exemplo alterado: PageControl1.ActivePage := tsLog; if mCancelamentoEnviar.Lines.Count < 1 then begin ACBrSAT1.CancelarUltimaVenda; mCancelamentoEnviar.Lines.Text := ACBrSAT1.CFeCanc.GerarXML(True); end else begin if edChaveCancelamento.Text = '' then begin ACBrSAT1.CFeCanc.AsXMLString := mCancelamentoEnviar.Lines.Text; edChaveCancelamento.Text := ACBrSAT1.CFeCanc.infCFe.chCanc; end; aqui coloquei um try com finally para poder obter a resposta, pois ao dar o erro na função "cancelaultimavenda" ele nao passa nem pelo except do try nao passando pela função try ACBrSAT1.CancelarUltimaVenda( edChaveCancelamento.Text, mCancelamentoEnviar.Lines.Text ); finally showmessage(inttostr(ACBrSAT1.Resposta.codigoDeRetorno)); if ACBrSAT1.Resposta.codigoDeRetorno = 7000 then begin LoadXML( ACBrSAT1.CFeCanc.AsXMLString, mRecebido ); PageControl1.ActivePage := tsRecebido; end; end; end ; if ACBrSAT1.Resposta.codigoDeRetorno = 7000 then begin LoadXML( ACBrSAT1.CFeCanc.AsXMLString, mRecebido ); PageControl1.ActivePage := tsRecebido; end; Att., Alexandre.