Cleiver

Membros
  • Total de ítens

    109
  • Registro em

  • Última visita

Reputação

3 Neutro

Sobre Cleiver

  • Rank
    Membro

Contact Methods

  • Skype
    cleiver.macsistem

Profile Information

  • Sexo
    Masculino
  • Localização
    Goiânia - GO.
  1. Problemas no encerramento do MDFe

    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.
  2. Problemas no encerramento do MDFe

    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.
  3. Erro no encerramento do MDFe

    Bom dia, Atualizei e fiz os teste e funcionou, obrigado.
  4. E160 - ws Goiania

    Fernando, estou enviando normalmente. segue em anexo xml 5217060388026700010956000000000005357-rps.xml
  5. Erro no encerramento do MDFe

    Goiais
  6. Erro no encerramento do MDFe

    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.
  7. Problemas WinCrypt

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

    Delphi 2010
  9. Error na pnfsConversao

    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).';
  10. 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?
  11. mbbortolini, vc utiliza qual marca de impressora?
  12. para imprimir corretamente na epson tenho que mudar as configurações conforme imagem.
  13. estou com o mesmo problema
  14. gostaria de saber se o acbr + firemonkey compila para android (Delphi Berlin 10.1).
  15. Bloco X

    ok, obrigado