el.lauro

GLÓRIA! Valida, Recebe os dados NFs no componente após validar, Consultar, Cancelar. Gostaria de compartilhar uma Informação! Apos Gerar para receber os dados da NFS se informar ACBrNFSe1.NotasFiscais.Items[0].NomeArq com ZERO [0] não retorno os dados da NFS precisa informar um [1]. Mas quando carrega um xml ex. para impressão posterior tem colocar ZERO [0] Obrigado a Todos, Italo, awendisch...

Bom Italo! Enviar Erro... SoapAction não definido para: TNFSeEnviarLoteRPS EnviarSincrono Erro.. SoapAction não definido para: TNFSeEnviarSincrono Eu uso Gerar... (Sem erro apenas não recebo os dados no componente, mas cria o XML na pasta de NFS) ACBrNFSe1.Gerar(vNumRPS); DUVIDA!! Pq preciso informar : // Identificação Única para cada Nota InfID.ID := FormatFloat('#########0', StrToInt(NumNFSe)); .... e tbm IdentificacaoRps.Numero := FormatFloat('#########0', StrToInt(NumNFSe)); ...os 2 com o mesmo numero da RPS. No demo do ACBR não tem InfID.ID mas para a SystemPro se eu não passar da Erro: "Informe o Id da tag InfDeclaracaoPrestacaoServico, com uma identificação única." Fico a disposição se não ficou clara minha duvida! Obrigado!

Italo Obrigado pela contribuição! Funcionou perfeitamente como vc sugeriu! Sem querer abusar do seu tempo, saberia me dizer pq não recebo o retorno do componente retorno em branco! NomeArquivo:= ACBrNFSe .NotasFiscais.Items[0].NomeArq; No componente esta setado : ConsutaLoteAposEnvio=True; Obrigado pela atenção!

awendisch Deu Certo Funcionou! Apenas acredito que tenha mudado a sequencia dos parâmetros mudou no trunk2 ficou desta forma.... ACBrNFSe1.ConsultarNFSe(dData_Emissao, dData_Emissao, sNum_NFSe, 1, edtEmitCNPJ.Text, edtEmitIM.Text, ); MUITO OBRIGADO PELA AJUDA! Só tenho mais 1 problema ! quando mando uma RPS recebo o XML da NFS, mas o componente não me traz os dados da nota validada, como Numero NFS-e nome do arquivo... ACBrNFSe1.NotasFiscais.Items[0].NomeArq; Mas por enquanto vou me virando Gero e Consulto para imprimir. Mais uma Vez Muito Obrigado!

Desculpa pela insistência! Já Atualizei os Fontes e não consigo receber o numero das NFS. Consigo Enviar RPS e receber o XML da Nota. Mas não recebo através do componente o Numero da NFS. Não consigo consultar NFS através de Consulta NFS por RPS após caregar o arquivo 80UNICA-rps.xml recebo: list index out of bounds (0) Estou usando o Demo ACBR_NFSe O único teste que não fiz foi desinstalar o ACBR e instalar novamente já que consigo validar e cancelar NFSe acho q não precisaria! Obrigado pela atenção!

Boa tarde AWendisch! Vc esta conseguindo receber o numero da nfs após validar no SYSTEMPRO ? E consultar a NFS em homologação vc consegue ? Obrigado pela Atenção!

DOCFABIO, vc tem validado NFS-e em provedor da SystemPro de qual município ? Preciso validar para Erechim! Eu consigo validar em homologação mas não recebo o nome do arquivo ou numero da nota. Tenho esta opção de consulta após validar. ConsultaLoteAposEnvio = True; E coloquei as configurações iguas as que vc me passou tbm não obtive sucesso !

Ok Italo! Obrigado!

DocFabio Obrigado pela Ajuda mas Não Funciono! > Não entendo pq ao Enviar o RPS e receber o XML da NFS não recebo o numero da nota valida no componente se a opção ConsultaLoteAposEnvio = True; Desta forma teria que carregar o XML da NFS para poder imprimir. > Tbm Não consigo Consulta notas válidas. NFSe.ConsultarNFSeporRps(NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo) ); Desde já Agradeço a Ajuda!

Estou homologando SystemPro em TRUNK2 e ao validar a NFS recebo os XML validados XX-NFSe, mas no componente não recebo as informações como: NomeArquivo := NFSe.NotasFiscais.Items[0].NFSe.NomeArq; Configurações do componente: ConsultaLoteAposEnvio = True; Tbm Não consigo CONSULTA NFS através: NFSe.NotasFiscais.Clear; NFSe.NotasFiscais.LoadFromFile(OpenDialog1.FileName); NFSe.ConsultarNFSeporRps(NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo) ); Estou com os fontes todos atualizados!

Erro ao cancelar NFS-e SytemPro Homologação! Utilizando SSLIb = libCapicomDelphiSoap CNPJ/CPF do prestador do serviço invalido. Utilizando: SSLIb = libCapicom Erro: Requisição não Enviada. 12002 - O tempo limite da operação foi atingido. Erro em anexo!

Esta Setado a pasta do INI, Envio Recebo o XML mas não consigo pegar numero da nota e nem o nome do arquivo... NomeArquivo:=NFSe.NotasFiscais.Items[0].NomeArq; Segue a forma com estou fazendo : NFSe.Gerar(0); NomeArquivo:=NFSe.NotasFiscais.Items[0].NomeArq; // Não retorno o Nome do arquivo NFSe.NotasFiscais.Clear; NFSe.NotasFiscais.LoadFromFile(PathXML + PathDelim + NomeArquivo + '-nfse.xml'); NFSe.NotasFiscais.Imprimir;

awendisch! Estou conseguindo enviar para o SystemPro mas o retorno volta vazio saberia me dizer o que pode ser ? Consultei as notas e estão no servidor ! Obrigado!

bom dia awendisch! Acabei de atualiza e realmente voltou a funcionar ! Obrigado awendisch e a Todos !

Bom Dia! Alguma novidade sobre NFS-e SystemPro !! Obrigado!

Bom dia Juliana! Em nosso entendimento e seguindo os manuais até mesmo de outros bancos o Nosso Numero não é apenas o numero sequencial sim é composto pelo numero sequencial mais alguma outra informação como exemplo o banco do brasil usa a convenio, Sicredi Ano Atual + Tipo de impressão + Numero Sequencial. No nosso caso vamos alterar os fontes ACBRBoletos para se adaptar a forma com que achamos mais Correta cfe Manuais. Fico muito agradecido pela sua atenção Juliana! Obrigado !

Nos guardamos na base o nosso numero como do 64 a 80 para não ter conflito ! Nos armazenamos o nosso numero cfe manual como item II Nosso numero + sequencial pois o nosso numero para as carteiras 12, 15 e 17 pelo que da para entender é neste formato como era nas versões anterior do ACBR. Obrigado pela sua disponibilidade!

Boa tarde Juliano! Correto é o número do convenio só que segundo manual CNAB400 BB Remessa Pos7 Página 5. Posição 064 a 080 - Nosso Numero O número que ele esta retornando atualmente é o numero sequencial !! Obrigado pela atenção!

O erro esta na leitura do retorno do nosso numero ex: "25674900000000192" ele só lê "00000000192" e com as alterações do propostas pelo colegas esta funcionando. Att.

Alguém poderia conferir os fontes na Revisão 10839 não estão as alterações propostas pelos colegas: >Giovani Da Cruz Carteira := Copy(Linha,107,2);NossoNumero := Copy(Linha,64,17); >Jacinto Junior if (Length(Trim(NossoNumero)) > 10) and (wTamConvenio in [6, 7]) and ((wCarteira = '16') or (wCarteira = '17') or (wCarteira = '18')) then Obrigado!

Olá awendisch! Cfe alguns posts acima o Italo ficou de verificar mas ainda não recebi respostas. Assim que tiver alguma novidade compartilho, estou com o erro faz uns 30 dias e acredito q para este ano não teremos novidade!

Bom dia! Uso Delphi 7 e QuickReport 5.02 e tive o mesmo problema de Access Violation....! Resolvi excluindo tudo da Pasta ..\ACBRCTE e baixando novamente ai sim executando os passo descritos pelo Italo em... Obrigado Italo!

O Registro C491 e C495 estava dando erro ao validar. Não sei se ja foram corrigidas mas estou colaborando com a dica. Obrigado! TBloco_C.WriteRegistroC491 LFill( QUANT_BC_PIS ,0,3 ) virou isso ==> LFill( QUANT_BC_PIS ,0,3, True ) LFill( ALIQ_PIS_QUANT ,0,4 ) virou isso ==> LFill( ALIQ_PIS_QUANT ,0,4, True ) TBloco_C.WriteRegistroC495 LFill( QUANT_BC_COFINS ,0,3 ) virou isso ==> LFill( QUANT_BC_COFINS ,0,3, True ) LFill( ALIQ_COFINS_QUANT ,0,4 ) virou isso ==> LFill( ALIQ_COFINS_QUANT ,0,4, True )