Filippe Maymone

Italo .. Localizei o problema. Para digitar a carta de correção eu tenho um Memo, onde o usuário pode digitar a carta de correção. O problema é quando o usuário da um <enter> no meno que traz o carácter #13. Não fiz nenhuma alteração, fiz um teste so digitando sem <enter> e funcionou certinho ... Será que esta com algum problema ou é assim mesmo ??? se for assim, vou tratar para o usuário não digitar mais <enter> Obrigado pela Luz .. kkkk

No texto não .. que era so de teste ... e esta so assim: "asd asdasdasdsad sad asdasd asd as dasdasdas dasd asd as dasd" Vou verificar nos demais campo se tem alguma sujeira ...

bom dia galera. Migrei para o Trunk2. Tava com alguns problemas, consegui resolver todos. Porem agora na carta de correção estou com o seguinte problema, ao tentar enviar apresenta a seguinte rejeição. "Rejeição: Valor da assinatura (SignatureValue) difere do valor calculado", utilizo mais ou menos a mesma rotina para o cancelamento e o cancelamento esta funcionando corretamente. Estou anexando o xml com problema. Estou usando a seguinte rotina para enviar a carta correção: with NFE.eventoNFe do begin ConfiguraNFe(dsetEmpresaDIRNFEEMPRESA.AsString + '\' +subdiretorio, dsetEmpresaLOGONFEMPRESA.AsString, dsetEmpresaCERTEMPRESA.AsString, tpcCartacorrecao); // Carrega a nota fiscal. if (dSetNFCabecalho.RecordCount = 1) and (dSetNFCabecalhoNFE_STATUS.AsString = 'R') and (dSetNFCabecalhoNFE_PROTOCOLO.AsString <> EmptyStr) then begin xCaminho := dsetEmpresaDIRNFEEMPRESA.AsString + '\' + FormatDateTime('DD-MM-YYYY', dSetNFCabecalhoDATAEMI.AsDateTime)+ '\' + dSetNFCabecalhoNFE_CHAVE.AsString; NFE.NotasFiscais.LoadFromFile(xCaminho + '-NFe.xml'); if (FileExists(xCaminho + '.pdf') = false) and (FileExists(xCaminho+'-nfe.PDF') = false) then NFE.NotasFiscais.ImprimirPDF; end; // Fecha Carregamento a nota fiscal. Evento.Clear; if dsetNFCCECCE_CHAVE.AsString <> EmptyStr Then begin codOrgao := Copy(dsetNFCCECCE_CHAVE.AsString, 1, 2); idLote := 1; with Evento.Add do begin infEvento.tpAmb := NFE.Configuracoes.WebServices.Ambiente; infEvento.chNFe := dsetNFCCECCE_CHAVE.AsString; // infEvento.cOrgao := strToint(codOrgao); infEvento.CNPJ := dsetEmpresaCNPJEMPRESA.AsString; infEvento.dhEvento := Now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := dsetNFCCESEQEVENTO.AsInteger; // infEvento.versaoEvento := '1.00'; // infEvento.detEvento.descEvento := dsetNFCCEDESCEVENTO.AsString; infEvento.detEvento.xCorrecao := dsetNFCCECORRECAO.AsString; // infEvento.detEvento.xCondUso := ''; // Texto fixo conforme NT 2011.003 - http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=tsiloeZ6vBw= end; if NFE.EnviarEvento(idLote) = true Then begin if length(NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt) > 0 Then begin dsetNFCCE.Edit; dsetNFCCECCE_PROTOCOLO.AsString := NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; dsetNFCCECCE_RECIBO.AsString := NFE.WebServices.Retorno.Recibo; dsetNFCCECCE_STATUS.AsString := 'R'; frDm.SalvaDataSet(dsetNFCCE); end else begin abort; end; end; Muito Obrigado. 1101103515080303790900010255001000005968100005968601-procEventoNFe.xml

Agora foi ... Obrigado Juliomar Marchetti

Bom dia. Tive problema na minha maquina e tive que desinstalar o ACBR. Apaguei a pasta e fiz download da nova versão para instalar apartir do zero. Ao instalar o PCN2.dpk esta apresentando erro na função PadLeft dentro da UNIT pcnGerador.pas Alguém consegue me ajudar, olhei na pasta que eu tinha do acbr que era do mes passado, não tinha essa função (linha 893); Help.... Abraços,

ahh blz .. Obrigado .. abraços,

Juliomar. Gerei alguns arquivos novamente e esta tudo OK. Notei que você tirou os créditos que eu tinha colocado.(o meu nome e data de alteração). Isso não é mais permitido ? Abraços,

???

Juliana... Tem algum retorno ??? Obrigado

Cara eu tive tanto problema com o 240 para a caixa que acabei criando a UNIT para o 400.. Se quiser coloquei no Topico ... Ainda não esta SVN.. mais ja Homologuei . .esta funcionando certinho ...

Bom dia Juliana... Se puder analisar e subir os arquivo ... obrigado, CaixaSISCOB.rar

Galera. Alterei aqui a unit da CAIXA para gerar CNAB 400. Como faço para subir no servidor, esta funcionando certinho, homologado pela caixa, abraços,

Juliomar bom dia. O Grande problema é que no código não tem problema algum ... Por que pegando o mesmo exe compilado em minha maquina (win8.1) e rodando em uma maquina Win7 ou Win 8.0 funciona normalmente. Peguei esse exe e rodei em outras win 8.1 e todas apresenta o mesmo problema...

Ele continua salvando tudo vazio... Parece que ele não esta conseguindo acessar o web service da receita. O mesmo sistema (exe) eu abro em maquinas windows 7 funciona normalmente, Todas windows 8.1 que eu teste deu o mesmo erro... Em windows 8.0 funcionava certinho também...

Italo, A mensagem esta em branco. arquivo 0kb. Agora debugei e coloquei todas as mensagem que apresenta no debug. Se puder me dar um help. Abraços,

Galera. Tenho projeto de NFe usando o ACBR no Delphi 2010; Estava com windows 8.0 Tudo funcionando perfeitamente. Semana passada atualizei para o Windows 8.1, Não envia mais nota fiscal ambiente de homologação. Peguei o mesmo sistema(exe), e rodei em uma maquina windows 8.0 e esta funcionando., Ja desativei windows defender, desativei firewall.. e nada. qual sabe o que pode ser ??? o que o windows esta fazendo .... So aparecer a uma mensagem em branco com um "X" Muito Obrigado.

Olá. Estou com uma duvida no tratamento do retorno do banco. Eu tinha 2 banco homologados no sistema, quando fazia o retorno fazia da seguinte forma: Case xOcorrencia of 6,24,8 : begin {Rotina de baixo no banco} end; 3,16,15,17,21,22 : begin // rejeições {Gravação do status do retorno} end; end; So que agora estou com um monte de banco, que tem diferentes Tipo de ocorrencia.. por exemplo no Itau liquidado em cartório é 08 no santander é 15 Tem alguam rotina pra ver tipo .. if liquidado = True Then {Rotina de baixa dentro do sistema}