Painel de líderes

Salvou meu dia , alterei o fonte e compilei resolveu. Obrigado!

Bom dia, estive passando pelo mesmo erro mas resolvi atualizando TODAS as DLLs do diretório do Integrador em %APPDATA% e utilizando o Integrador 1.6.86. Veja se isso não irá resolver pra você caso ainda não tenha resolvido. Lembrando que pode ser necessário desbloquear a dll para correto funcionamento.

O CT-e OS tem carta correção? como fazeR? e identica a do Ct-e ? mudando apenas o parâmetro da chave? Página 111 do manual , achei Obrigado! desculpa o tópico

Ok Daniel, Obrigado pelo retorno.

Ainda não temos prazo oficial para a conclusão da ACBrLibNFe... eu estimo uns 2 meses...

Bom dia, @Italo Jurisato Junior o problema que o Adelio se refere é que ao chamar o executar da consulta, existe um método inicializar InicializarServico na classe pai TDFeWebService que chama o método Clear. Por isso as informações estão vazias.

Olá @Italo Jurisato Junior, vi que no dia 06.03 você voltou a verificação que era feita antes (if nfe.Dest.indIEDest <> inIsento then), obrigado. Creio estar encerrado este assunto, então pode encerrar este tópico. Obrigado novamente. Alessandro Couto

Bom dia Adelio, Primeiramente muito obrigado por apontar um erro no código, já fiz a correção e ainda hoje estarei enviando para o repositório. Segundo, quanto ao CNPJ, no programa exemplo - aba Geral você informou o CNPJ do Empregador no respectivo campo que se encontra no quadro Dados Empresa?

sicoob vc trabalha com o numero do cedente, nao da conta. nessa property: Cedente.CodigoCedente := Trim(ADataSetConfigServicoBanco.FieldByName('CODIGO_CEDENTE_SER').AsString) + Trim(ADataSetConfigServicoBanco.FieldByName('DV_CEDENTE_SER').AsString); No meu caso, eu tenho os possiveis campos no cadastro da conta corrente, de acordo com o que o banco pede eu preencho. Para evitar de ter que ficar inventando de trocar dentro do codigo fonte. Assim: Cedente.Conta := ADataSetConfigServicoBanco.FieldByName('CONTA_CCR').AsString; << sicoob usa so para imprimir o boleto Cedente.ContaDigito := ADataSetConfigServicoBanco.FieldByName('DV_CONTA_CCR').AsString; Cedente.Agencia := ADataSetConfigServicoBanco.FieldByName('AGENCIA_CCR').AsString; Cedente.AgenciaDigito := ADataSetConfigServicoBanco.FieldByName('DV_AGENCIA_CCR').AsString; Cedente.Modalidade := Trim(ADataSetConfigServicoBanco.FieldByName('MODALIDADE_SER').AsString); <<<<<sicoob usa Cedente.DigitoVerificadorAgenciaConta := ADataSetConfigServicoBanco.FieldByName('DV_AGENCIA_CONTA_CCR').AsString; << sicoob, apareceu tem pouco tempo if ADataSetConfigServicoBanco.FieldByName('LEIAUTE_SER').AsInteger = 1 then LayoutRemessa := c240 else LayoutRemessa := c400; Cedente.CodigoCedente := Trim(ADataSetConfigServicoBanco.FieldByName('CODIGO_CEDENTE_SER').AsString) + Trim(ADataSetConfigServicoBanco.FieldByName('DV_CEDENTE_SER').AsString); <<<< sicoob usa Cedente.CodigoTransmissao := ADataSetConfigServicoBanco.FieldByName('CODIGO_TRANSMISSAO_SER').AsString; Cedente.Convenio := ADataSetConfigServicoBanco.FieldByName('NUM_CONTRATO_SER').AsString; na unit Acbrbancobancoob, tem essa funcao: function TACBrBancoob.CalcularDigitoVerificador(const ACBrTitulo: TACBrTitulo ? String; a resposta está nela.

Boa tarde. Para que seja possível que a comunidade lhe responda, você deve criar postagens fornecendo o máximo de informação possível, do contrário dificilmente alguém poderá lhe auxiliar. Att.

Boa tarde. Procure sempre fornecer informações detalhadas... Qual a cidade? Qual o provedor? Anexe também seu xml. Att.

Não... apenas SP adotou o SAT

A sua logica está de acordo com o PAF-ECF onde o cupom é gerado concomitante a inclusão do primeiro item e obrigatoriamente deve estar gravado no banco de dados. Como o NFC "ainda" não tem um PAF isso não é necessário e o número da NFC/Chave podem ser gerados apenas no momento de enviar para a SEFAZ.

oi Italo, obrigado pelo retorno. vou dar uma olhada nessas units de evento que vc disse e tentar criar uma rotina para alimentar essas tags.

Bom dia. Seu contador lhe deu alguma sugestão quanto a isto? Att.

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Boa tarde. Por favor anexe a unit com as alterações sugeridas. att.

Bom dia. Por favor evite copiar o conteúdo dos arquivos em seus posts. Att.

Bom dia, Recomendo que verifique nos fontes se as ocorrências que precisa estão sendo tratadas, caso contrário você adicioná-las e após testar anexar aqui. Att.

Experimente informar o parâmetro: aDisposition ACBrMail1.AddAttachment(var_Path_XML, '', adAttachment);

Cara... Tu está dando "a volta ao mundo a toa"... Porque você não gera essa numeração SÓ e somente SÓ quando finalizar a venda e for fazer o envio do XML pra autorização??? Muito mais simples

ok, obrigado pelo auxilio.

Maikon, No caso do prestador, as únicas informações são o CNPJ e a inscrição Municipal, já o tomador que tem todos os dados. É preciso verificar se na impressão o componente do DANFSE tenta converter a IM em um numero inteiro, se sim, esta ai o problema do erro.

Bom dia @Italo Jurisato Junior, sim o problema está na impressão e também no cancelamento da NFSe, o xml que eu anexei foi o gerado para o envio da nota, é possível ver que ele gera sem as tags referentes ao prestador. Verifiquei no método de gerar o prestador na unit pnfsNFSeW_ABRASFv2 e realmente não alimenta no XML, há algo que eu possa fazer referente a isso? Referente a inscrição municipal ela tem uma letra, consultei no provedor e lá consta com a letra conforme está no XML, sem a letra ou sem a pontuação ocorre a rejeição de inscrição municipal inválida. Alguma dica de como eu possa estar resolvendo isso?

Bom dia, Ítalo! Consigo sim, inclusive fiz vários testes de: Envio de lote de RPS Consulta de lote Consulta situação do lote Consulta NFSe por RPS Cancelamento Uso o componente com a propriedade "ConsultarAposEnvio" = True e não tive nenhum problema. O único "problema" não é com o ACBr e sim com o WebService; A demora para a nota aparecer no site e consequentemente consultar após o envio.

Bom dia. Não sei ao certo o que mudaram na validação do Sicoob, mas tive que alterar novamente o ACBrBancoBancoob.pas. O código (linha 896) estava assim, enviando a DataDesconto vazia caso não houvesse informação de desconto: {Descontos} if (ValorDesconto > 0) then begin if(DataDesconto > 0) then ADataDesconto := FormatDateTime('ddmmyyyy', DataDesconto) else ADataDesconto := PadLeft('', 8, '0'); end else ADataDesconto := PadLeft('', 8, '0'); Dessa forma, estava rejeitando, então apenas alterei pra gerar zeros caso não haja desconto: {Descontos} if (ValorDesconto > 0) then begin if(DataDesconto > 0) then ADataDesconto := FormatDateTime('ddmmyyyy', DataDesconto) else ADataDesconto := PadLeft('0', 8, '0'); // aqui end else ADataDesconto := PadLeft('0', 8, '0'); //aqui Segue o novo arquivo em anexo. Abraços ACBrBancoBancoob.pas

Bom dia, Favor anexar o arquivo *-env-lot-soap.xml para que eu possa analisar.

Bom dia ALA, Observando melhor o XML ele não esta em conformidade com o layout da ABRASF que a principio o provedor NFSeBrasil segue. Esse XML é baixado pelo site, ou é retornado pelo Webservice como resultado do processamento do RPS?

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Bom dia Gabriel, Com essa URL de homologação você esta conseguindo enviar o Lote de RPS para o WebService?

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Bom dia a todos, Maikon, o seu problema não é a impressão do DANFSE? Se sim, não entendi porque você anexou o XML de envio do lote. Para imprimir o DANFSE é utilizado o XML da NFS-e, você tem esse XML? Outra coisa, notei que a Inscrição Municipal contem uma letra, esta correto isso? Se o componente responsável pela impressão do DANFSE pega a Inscrição Municipal e converte para um numero inteiro com certeza vai ocorrer o erro que você apresentou na primeira postagem.

Bom dia Leonardo! Adicionei a tag xnome e funcionou. Muito obrigado. um grande abraço!

Bom dia Giovanni, Primeiramente peço que não poste o conteúdo de arquivos como parte da postagem, procure sempre anexar o mesmo. Com o programa exemplo também ocorre o mesmo problema?

Bom dia, thiago da rocha correa. Geralmente esse erro indica que a inscrição estadual está em uma das situações listadas abaixo: I.E. Suspensa; I.E. Cancelada; I.E. Baixada; I.E. Em Processo de Baixa. Já tentou realizar a consulta da situação cadastral através do site do SINTEGRA ou no Cadastro Centralizado de Contribuinte?

Bom dia a todos, Donizete, rejeição 999 significa que o problema é a SEFAZ, sendo assim favor entrar em contato com eles e relata o problema. Cesar, o cancelamento por substituição só esta liberado para a NFC-e. No arquivo ACBrNFeServicos.ini temos seções que só são usadas pela NF-e e outras só pela NFC-e. No seu caso a mensagem de erro se refere a SVC-RS, não existe nenhuma seção de SVC para NFC-e somente para NFe. Isso me leva a crer que o componente esta configurado para NF-e e não para NFC-e. Favor checar se todos os fontes de todas as pastas estão atualizados (ícone com uma bolinha verde), reinstale a suíte ACBr usando o ACBrInstall_Trunk2 deixando marcado a opção para apagar os arquivos antigos.

Bom dia. Nesse caso de inutilizar e não receber o protocolo, vc pode consultar a nota, se mesmo assim não retornar o protocolo, eu oriento o cliente a entrar no site da SEFAZ e pegar o protocolo, ai permito ele colocar o protocolo manualmente na nota. Utilizo essa regra para NFe, não sei se para NFC-e vai funcionar...

No demo do ACBRETQ há um exemplo de impressão de 3 etiquetas na sequência... O problema ocorre no Demo?

Pessoal a function ConsultaIdentificadoresEventosEmpregador ainda não funciona pra mim, alguém conseguiu utilizar? O Mesmo para ConsultaIdentificadoresEventosTabela e ConsultaIdentificadoresEventosTrabalhador, notei que quando chega na linha 667 de ACBReSocialWebServices em procedure TConsultaIdentEventos.DefinirDadosMsg, o campo FCnpj, está vazio, nenhuma propriedade do objeto foi preenchida, ocasionando erro na validação do XML; Aproveitando na Classe ACBReSocialWebServices, linhas 743 e 744, falta ".xsd" no caminho dos Schemas, ocasionando erro de que o arquivo de Schemas não foi localizado.

3.1 - Não faça flooding - Inundar o fórum com posts repetidos, com a mesma dúvida ou as mesmas palavras é chamado de flooding. Isso é proibido. Apenas um post feito no lugar certo é suficiente. Pesquise antes de postar, talvez sua dúvida já está respondida em outro post. Favor leia as regras do fórum. Boa tarde. Suas dúvidas poderão ser respondidas com certeza por seu contador de confiança. Att.

Boa tarde igmaster2000, Você desenvolve em Delphi, Lazarus, VB, .... ? Para quem desenvolve em Delphi ou Lazarus, já temos o componente ACBreSocial que faz tudo o que o Elvis escreveu acima. Para quem desenvolve em outras linguagens que não é o Objeto Pascal, temos o ACBrMonitor, neste caso a sua aplicação pode gerar um arquivo TXT segundo um layout predefinido ou até mesmo gerar o XML, pois o Monitor possui um comando para carregar esse XML.

@Italo Jurisato Junior, isso não parece ser o correto a ser feito... os usuários do ACBr não deveriam ser obrigados a trabalhar com fontes diferente do SVN... e os usuários do ACBrMonitorPLUS não tem essa possibilidade...

Italo, a configuração gera a possibilidade de deixar uma aplicação já preparada para o caro tratando a ativação por um configuração no arquivo INI por exemplo assim como foi feito com a obrigatoriedade dos dados da fatura, a intenção da configuração é deixar essa abertura para os desenvolvedores.

Bom dia https://acbr.sourceforge.io/ACBrMonitor/NFEConsultaCadastro.html Use esse link , informe o cnpj que vem todos os ados inclusive inscrição estadual Ent.txt NFe.ConsultaCadastro( "RS", 28740763000198 ) sai.txt (Retorno) OK: Consulta cadastro com uma ocorrencia [ConsultaCadastro] CNPJ=28740763000198 CPF= CStat=111 CUF=43 DhRecbto=30/12/1899 IE=860511847 sai_cnpj.txt ent_cnpjf.txt

Boa tarde. Que bom que você conseguiu resolver seu problema, para auxiliar a comunidade seria importante relatar como. Att.

Olá pessoal! Estava tentando importar um arquivo retorno CNAB 400 do banco SICREDI, porém ocorria o retorno de erro: [2] 'A6' is not a valid integer value. Analisei o arquivo de remessa e o arquivo ACBrBancoSicredi.pas. No retorno a posição 109 a 110 se encontrava como 03, entrada rejeitada. E a posição 319 A6. Na unit a parte referente ao código do registro recusado: toRetornoRegistroRecusado: //03, não tem o código A6, implementei este código e funcionou. Gostaria de saber se é o correto a ser feito? Desde já agradeço e anexo também a unit com a alteração. ACBrBancoSicredi.pas

Boa tarde, Sua alteração parece correta, obrigada por contribuir, em breve no svn. Att.

Aparentemente pelo log está recebendo retorno da SEFAZ, talvez o problema pode ser outro... Se consultar Status pelo comando ocorre o mesmo? outros comandos funcionam?

Para te facilitar procedure TfrlDANFeRLRetrato.DefinirEntrega; begin with fpNFe.Entrega do begin rlbEntrega.Visible := NaoEstaVazio(xNome); if rlbEntrega.Visible then begin RLLquadroEntregaNome.Caption := xNome; RLLquadroEntregaDocumento.Caption := FormatarCNPJouCPF(CNPJCPF); RLLquadroEntregaIE.Caption := IE; RLLquadroEntregaEndereco.Caption := XLgr + IfThen(Nro = '0', '', ', ' + Nro) + IfThen(EstaVazio(xCpl), '', ' - ' + xCpl); RLLquadroEntregaBairro.Caption := xBairro; RLLquadroEntregaCep.Caption := FormatarCEP(CEP); RLLquadroEntregaMunicipio.Caption := xMun; RLLquadroEntregaUF.Caption := UF; RLLquadroEntregaTelefone.Caption := FormatarFone(Fone); end; end; end; rlbEntrega.Visible := NaoEstaVazio(xNome); Seu xml , não possui a Tag xNome.

Boa tarde a todos, Um detalhe muito importante, o componente ACBrNFe permite que cancelemos uma nota usando o método Cancelamento: ACBrNFe1.Cancelamento(AJustificativa: String; ALote: integer = 0): Boolean; ou montando uma rotina para alimentar o componente com as informações referente ao evento de cancelamento. Essa rotina que me refiro é genérica, portanto podemos utiliza-la para enviar para SEFAZ qualquer tipo de evento. Abaixo a rotina genérica para enviar o evento de Cancelamento Por Substituição: ACBrNFe1.EventoNFe.Evento.Clear; with ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teCancSubst; infEvento.detEvento.xJust := Justificativa; infEvento.detEvento.nProt := Protocolo; infEvento.detEvento.cOrgaoAutor := 35; infEvento.detEvento.verAplic := '1.0'; infEvento.detEvento.chNFeRef := ' chave de acesso da NFC-e substituta'; end; ACBrNFe1.EnviarEvento(StrToInt(idLote)); No programa exemplo do componente ACBrNFe você encontra essa mesma rotina, mas para enviar o evento de cancelamento. Observe o que esta em negrito.