Ir para conteúdo
  • Cadastre-se

cueiogordo

Membros
  • Total de ítens

    295
  • Registro em

  • Última visita

Tudo que cueiogordo postou

  1. Italo, boa tarde estou tentando importar um XML de SP e a impressão sai sem informações, conforme os anexos. O mesmo acontece fazendo com o programa exemplo. DM.ACBrNFSe.NotasFiscais.Clear; DM.ACBrNFSe.NotasFiscais.LoadFromString(DM.qControleNFSeXMLNFSE.Value); DM.ACBrNFSe.NotasFiscais.Imprimir; Falta alguma coisa? Complementando, eu abri o Exemplo, setei a cidade de SP ai sim trouxe os dados. plstemp.xml NFSeZerada.pdf
  2. Boa tarde Ítalo Realizei uma nova instalação do ACBR, com todos os fontes atualizado e agora consegui imprimir, mas sai totalmente zerado. Notei que o Demo está faltando muitas cidades, como por Exemplo Limeira/SP. Conferi no arquivo .INI as cidades com PadraoNacional e nenhuma contem no Demo. At.
  3. cueiogordo

    Abrir XML NFS-e Nacional

    Boa tarde Estou tentando abrir um XML NFS-e Nacional e está apresentando erro, conforme imagem. Segue XML em Anexo. XML NFSE Eduardo.xml
  4. Boa tarde Corrigi o Código. Eu estava passando a imagem no Componente do relatorio. Passei ele no NFe.DANFE e funcionou. Qual seria a diferenca? var Logo := TStringStream.Create(TBlobField(DM.qAuxADO.FieldByName('IMAGEM')).AsString); try DM.ACBrNFe.DANFE := DM.ACBrNFeDANFeRL; DM.ACBrNFe.DANFE.Logo := Logo.DataString; finally freeandnil(Logo); end; end;
  5. Juliomar, boa tarde Como eu demonstrei acima a foto do componente, colocando a imagem direto ali, .JPG ele carrega Mesmo sendo BMP, nao está carregando.
  6. Bom dia pessoal. tudo bem? Estou tentando inserir um LOGO vindo de um banco de dados SQL Server. Carrego a imagem do banco, e ate salvo para verificar se está carregando e está OK. Ao inserir na DANFE, ele nao traz a imagem. Colocando Fixo no componente a imagem, traz normalmente. var Logo := TStringStream.Create(TBlobField(DM.qAuxADO.FieldByName('IMAGEM')).AsString); try Logo.SaveToFile('d:\teste.jpg'); DM.ACBrNFSeDANFSeRL.Logo := Logo.DataString; finally freeandnil(Logo); end; end;
  7. Italo, bom dia Legal nao sabia. Obriagdo pelo Retorno.
  8. cueiogordo

    NFS-e Cajamar

    Bom dia Foi ajustado o arquivo ini para a cidade de Cajamar. incluindo o webservice de Homologacao. Segue anexo o manual de como proceder para teste e homologacao, bem como a nota e o XML do RPS. Manual WebService atualizado 31-01-2022.pdf NFSeHomologacao.pdf 000007-env-lot-sinc.xml ACBrNFSeXServicos.ini
  9. cueiogordo

    Modernização Publica

    Bom dia Precisei realizar uma alteracao na funcao procedure TNFSeW_ModernizacaoPublica202.Configuracao; do provedor Modernização Publica, para ele levar o item do Servico Formatado e sem 0 a esquerda. procedure TNFSeW_ModernizacaoPublica202.Configuracao; begin inherited Configuracao; // a linha abaixo foi comentada para atender a cidade de Belford Roxo/RJ // se outra cidade atendida pelo mesmo provedor exigir a presença da tag // vai ser necessário mudar a forma de configurar. // NrOcorrAliquota := 1; FormatoItemListaServico := filsComFormatacaoSemZeroEsquerda; GerarIDRps := True; end;
  10. cueiogordo

    Magé / RJ

    Bom dia Italo Executei o Compula_RES e pegou as alteracoes. Estou validando os WS e assim que finalizar, libero o INI. Grato
  11. Bom dia [3301702] ; Atualizado em 28/03/2023 Nome=Duque de Caxias UF=RJ Provedor=ISSNet Versao=2.04 ProRecepcionar=https://nfse.issnetonline.com.br/abrasf204/duquedecaxias/nfse.asmx HomRecepcionar=https://www.issnetonline.com.br/homologaabrasf/webservicenfse204/nfse.asmx
  12. cueiogordo

    Magé / RJ

    Ítalo, boa tarde Realizei as alteracoes no INI aqui, agora somente recompilo a aplicação ou recompilo os componentes?
  13. Boa tarde Duque de Caxias mudou para 2.04. inclusive já validei a emissão. At.
  14. cueiogordo

    Magé / RJ

    Boa tarde pessoal Antigamente, a cidade de Mage/RJ utilizava o servidor Betha que funcionava perfeitamente. Conforme Manual anexo, eles mudaram o servidor e nenhum link que está no manual funciona. Alguem ja viu esse servidor? Mage.pdf
  15. Boa tarde Duque de Caxias passou pela mesma alteração, migrei o componente para o TACBrNFSeX, ajustei algumas propriedades que a versao 2.04 pede e tudo voltou a funcionar.
  16. Boa tarde Analisando o LOG de eventos, verifiquei o erro na DLL libeay32.dll, com versão 32bits, sendo que a compilação é 64Bits. Obriagdo.
  17. Boa tarde pessoal Estou com um problema estranho em algumas máquinas. Quando tento consultar o status da NF-e, o sistema fecha sozinho. Já atualizei todas as DLLs e não consigo pegar o erro. Já desliguei o firewall da máquina, mas mesmo assim o erro continua. Pensei em alguma coisa no Firewall da Internet mas o problema acontece em algumas máquinas específicas, mas nos servidores o erro não acontece.
  18. Bom dia @SADM Obrigado pela Resposta, vou informar meu cliente. At.
  19. cueiogordo

    Erro SEFAZ de MT

    Bom dia Alguém já se deparou com o erro em anexo? Sefaz de MT. Segue XML da Nota para analise. Grato. 64084-env-lot.xml
  20. Boa tarde Estou com o mesmo problema em meus clientes. O problema é no Sefaz mesmo.
  21. Juliomar, bom dia Era isso mesmo, tem que realizar o processo de LerCidade e isso passou batido no exemplo. Deu certo. Obrigado. Pode encerrar o Ticket.
  22. Bom dia a todos. Estou migrando o componente NFSe para o Novo NFSeX e ao setar o CodigoMunicipio, a mensagem abaixo aparece. Estou seguindo como orientacao o exemplo, mas mesmo assim o erro acontece. É necessário retirar o outro componente do projeto, mesmo estando em outro form? Segue Código de configuração do Componente ACBrNFSeX.Configuracoes.Certificados.ArquivoPFX := DM.qParametro.FieldByName('CERTIFICADOSSL').asString; ACBrNFSeX.Configuracoes.Certificados.Senha := DM.qParametro.FieldByName('SENHACERTIFICADOSSL').asString; ACBrNFSeX.Configuracoes.Certificados.VerificarValidade :=True; s_PathMensal := ExtractFilePath(Application.ExeName) + '\Log\' + fMain.eCodMun.Text; s_PathProc := ExtractFilePath(Application.ExeName) + '\Proc\' + fMain.eCodMun.Text; with ACBrNFSeX.Configuracoes.WebServices do begin Ambiente := StrToTpAmb(b_Ok, DM.qParametro.FieldByName('AMBIENTE').asString); Salvar := true; Ambiente := StrToTpAmb(b_Ok, IntToStr(2)); Visualizar := true; UF := fmain.eCodEtd.Text; TimeOut := 15000; AguardarConsultaRet := 6000; IntervaloTentativas := 5000; Tentativas := 10; AjustaAguardaConsultaRet := True; end; with ACBrNFSeX.Configuracoes.Arquivos do begin NomeLongoNFSe := true; PathCan := s_PathMensal; PathSalvar := s_PathMensal; PathRPS := s_PathProc; PathNFSe := s_PathProc; Salvar := True; AdicionarLiteral := True; EmissaoPathNFSe := True; SepararPorMes := True; SepararPorCNPJ := False; PathGer := ExtractFilePath(Application.ExeName) + '\log\'; PathSchemas := ExtractFilePath(Application.ExeName) + '\Schemas\'; // + DM.ACBrNFSe.Configuracoes.Geral.xProvedor; end; with ACBrNFSeX.Configuracoes.Geral do begin Salvar := true; FormaEmissao := teNormal; Emitente.CNPJ := RetiraCaracter(DM.qAux.FieldByName('CGC').asString); Emitente.InscMun := RetiraCaracter(DM.qAux.FieldByName('INSCMUN').asString); Emitente.RazSocial := DM.qAux.FieldByName('NOME').asString; SSLLib := libOpenSSL; SSLCryptLib := cryOpenSSL; SSLHttpLib := httpOpenSSL; SSLXmlSignLib := xsXmlSec; ACBrNFSeX.SSL.SSLType := LT_all; if ( (DM.qParametro.FieldByName('USUARIOWEB').asString <> '') and (DM.qParametro.FieldByName('SENHAWEB').asString <> '')) then begin Emitente.WSSenha := Cript('D', DM.qParametro.FieldByName('SENHAWEB').asString); Emitente.WSUser := DM.qParametro.FieldByName('USUARIOWEB').asString; end else begin Emitente.WSSenha := ''; Emitente.WSUser := ''; end; end; if ACBrNFSeX.DANFSe <> nil then begin // TTipoDANFSE = ( tpPadrao, tpIssDSF, tpFiorilli ); ACBrNFSeX.DANFSe.TipoDANFSE := tpPadrao; ACBrNFSeX.DANFSe.Prefeitura := 'SÃO PAULO'; //ACBrNFSeX.DANFSe.PathPDF := edtPathPDF.Text; ACBrNFSeXDANFSeRL.Prefeitura := 'PREFEITURA DO MUNICÍPIO DE SÃO PAULO' + #13 + 'NOTA FISCAL DE SERVIÇO ELETRÔNICA - NFS-e'; ACBrNFSeXDANFSeRL.Prefeitura := 'PREFEITURA DO MUNICÍPIO DE SÃO PAULO' + #13 + 'NOTA FISCAL DE SERVIÇO ELETRÔNICA - NFS-e'; ACBrNFSeXDANFSeRL.Logo := ExtractFilePath(Application.ExeName) + '\Report\' + fMain.eCodMun.Text + '.jpg'; ACBrNFSeX.DANFSe.Prestador.Logo := ExtractFilePath(Application.ExeName) + '\Report\' + FmAIN.s_CNPJFilial + '.jpg'; ACBrNFSeX.DANFSe.MargemDireita := 5; ACBrNFSeX.DANFSe.MargemEsquerda := 5; ACBrNFSeX.DANFSe.MargemSuperior := 5; ACBrNFSeX.DANFSe.MargemInferior := 5; end; ACBrNFSeX.Configuracoes.Geral.CodigoMunicipio := StrToIntDef(fMain.eCodMun.Text, 0); Grato pela ajuda.
  23. Bom dia Desativei essas 2 opcoes marcadas na imagem e funcionou. Obrigado pelo Apoio. At.
  24. Nao tem Logo vinculado ao Componente. Tem mais alguma coisa que pode ser? At.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.