Cleiver

Gostaria de saber se alguém esta conseguindo imprimir imagem.

Try Try ACBrMDFe1.Manifestos.Clear; ACBrMDFe1.Manifestos.LoadFromString( Dm.cdsPesquisa.FieldByName('XML').AsString ); except begin MsgErro('Erro ao carregar o XML!'); FreeAndNil( RetornoSefaz ); Exit; end; End; ACBrMDFe1.EventoMDFe.Evento.Clear; with ACBrMDFe1.EventoMDFe.Evento.Add do begin infEvento.chMDFe := Copy(ACBrMDFe1.Manifestos.Items[0].MDFe.infMDFe.ID, 5, 44); infEvento.CNPJ := TiraString('.', '-', '/', '', '', Empresa.CNPJ); infEvento.dhEvento := now; infEvento.tpEvento := teEncerramento; infEvento.nSeqEvento := 1; infEvento.detEvento.nProt := ACBrMDFe1.Manifestos.Items[0].MDFe.procMDFe.nProt; infEvento.detEvento.dtEnc := Date; infEvento.detEvento.cUF := StrToInt(Copy(IntToStr(ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga),1,2)); infEvento.detEvento.cMun := ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga; end; Try if ACBrMDFe1.EnviarEvento( Dm.cdsPesquisa.FieldByName('NUMERO').AsInteger ) then // 1 = Numero do Lote begin if ACBrMDFe1.WebServices.EnvEvento.cStat > 0 then begin if ACBrMDFe1.WebServices.EnvEvento.cStat = 135 then ACBrMDFe1.Manifestos.Imprimir; end; end; except on E: Exception do begin if ACBrMDFe1.WebServices.EnvEvento.cStat > 0 then begin if ACBrMDFe1.WebServices.EnvEvento.cStat = 631 then begin ACBrMDFe1.Consultar; RetornoSefaz.Situacao := 'N'; RetornoSefaz.Codigo := ACBrMDFe1.WebServices.Consulta.cStat; RetornoSefaz.Protocolo := ACBrMDFe1.WebServices.Consulta.Protocolo; RetornoSefaz.Mensagem := ACBrMDFe1.WebServices.Consulta.XMotivo; end else begin RetornoSefaz.Codigo := ACBrMDFe1.WebServices.EnvEvento.cStat; RetornoSefaz.Mensagem := ACBrMDFe1.WebServices.EnvEvento.xMotivo; end; end else begin RetornoSefaz.Codigo := 999; RetornoSefaz.Mensagem := TratarErroMDFe(E.Message); end; end; end; if (RetornoSefaz.Codigo = 132) or (RetornoSefaz.Codigo = 135) then GravaRetorno( RetornoSefaz ); mmoMeRetornoSefaz.Lines.Add( IntToStr(RetornoSefaz.Codigo) + sLineBreak + RetornoSefaz.Mensagem); Finally FreeAndNil( RetornoSefaz ); End; meu código de encerramento.

Emisael, a sua pasta Schemas esta atualizada? porque estou fazendo testes aqui com a atualização de hoje e esta funcionando. testei emissão, cancelamento e enceramento.

Bom dia, Atualizei e fiz os teste e funcionou, obrigado.

Fernando, estou enviando normalmente. segue em anexo xml 5217060388026700010956000000000005357-rps.xml

Goiais

Boa tarde, fiz um MDFe hoje em modo homologação e no momento de realizar o encerramento estou recebendo o seguinte erro. Falha na validação dos dados do Evento: 1845 - Element 'evEncMDFe': No matching global declaration available for the validation root. já não sei mais o que verificar.

rickoped, eu trabalho com a opção LT_all e não tenho problema.

Delphi 2010

Fiz a atualização e esta apresentando erro na pnfsConversao.pas(553) Error: E2056 String literals may have at most 255 elements. // Descrição do Serviço ******************************************************** function CodigoToDesc(const s: String): ansiString; var i: Integer; r: ansiString; begin i := StrToIntDef(s, 0); r := ''; case i of 0101: r := 'Analise e desenvolvimento de sistemas.'; 0102: r := 'Programacao.'; 0103: r := 'Processamento, armazenamento ou hospedagem de dados, textos, imagens, videos, paginas eletronicas, aplicativos e sistemas de informacao, entre outros formatos, e congeneres.'; 0104: r := 'Elaboracao de programas de computadores, inclusive de jogos eletronicos, independentemente da arquitetura construtiva da maquina em que o programa sera executado, incluindo tablets, smartphones e congeneres.'; 0105: r := 'Licenciamento ou cessao de direito de uso de programas de computacao.'; 0106: r := 'Assessoria e consultoria em informatica.'; 0107: r := 'Suporte tecnico em informatica, inclusive instalacao, configuracao e manutencao de programas de computacao e bancos de dados.'; 0108: r := 'Planejamento, confeccao, manutencao e atualizacao de paginas eletronicas.'; 0109: r := 'Disponibilizacao, sem cessao definitiva, de conteudos de audio, video, imagem e texto por meio da internet, respeitada a imunidade de livros, jornais e periodicos (exceto a distribuicao de conteudos pelas prestadoras de Servico de Acesso Condicionado, de que trata a Lei no 12.485, de 12 de setembro de 2011, sujeita ao ICMS).';

em outras impressora funciona normal, mas a epson estou tendo problema de não imprimir todo quando passa de 60 itens vc tem esse problema também?

mbbortolini, vc utiliza qual marca de impressora?

para imprimir corretamente na epson tenho que mudar as configurações conforme imagem.

estou com o mesmo problema

gostaria de saber se o acbr + firemonkey compila para android (Delphi Berlin 10.1).