daniel_mirassol

Boa Noite, Necessitei fazer uma correção nos fontes do banco do Brasil devido alguns clientes possuir carteira 11 com convênio de 6 posições onde o nosso numero tem 11 caracteres. Lembro que neste fonte também está alterado a variável tamanho da conta (fpTamanhoConta := 8;). Código Anterior: if (Length(trim(NossoNumero)) > 10) and (wTamConvenio = 6) and ((wCarteira = '16') or (wCarteira = '18')) then Result:= 17 else if (wTamConvenio <= 4) then Result := 7 else if (wTamConvenio > 4) and (wTamConvenio <= 6) then Result := 5 else if (wTamConvenio = 7) then Result := 10; Código Atualizado (em negrito): if (Length(trim(NossoNumero)) > 10) and (wTamConvenio = 6) and ((wCarteira = '16') or (wCarteira = '18')) then Result:= 17 else if (wTamConvenio <= 4) then Result := 7 else if (wTamConvenio > 4) and (wTamConvenio < 6) then Result := 5 else if (wTamConvenio = 7) then Result := 10 else if (wTamConvenio = 6) and (wCarteira = '11')then Result := 11; ACBrBancoBrasil.pas

Boa tarde ! Fiz correção nos fontes da NFS-e para a Cidade de Cedral-SP , devido a mesma ter trocado de provedor. Anexo as units alteradas para serem atualizada junto ao projeto. Para facilitar a correção a cada ponto de alteração coloquei a o meu nome (Daniel Jr). As alterações estão validadas e em pleno funcionamento. Abraços. Daniel Jr Cedral_SP.rar

Bom dia ! Anexo a unit e o lay-out zipados. Qualquer duvida estou a disposição. Acbr_Boleto_BBrasil.rar

Boa Tarde ! Analisando o fonte do banco do brasil (ACBrBancoBrasil) encontrei o problema na variavel TamanhodaConta. Código Original constructor TACBrBancoBrasil.create(AOwner: TACBrBanco); begin inherited create(AOwner); fpDigito := 9; fpNome := 'Banco do Brasil'; fpNumero := 001; fpTamanhoMaximoNossoNum := 0; fpTamanhoConta := 12; fpTamanhoAgencia := 4; fpTamanhoCarteira:= 2; end; O Tamanho Correto é 8 Conforme LayOut Cobrança fpTamanhoConta := 8; Quem pode proceder esta correção nos fontes, pois está gerando remessa com o numero da conta corrente faltando digito , pois o Banco do Brasil só utiliza 8 digito. Anexo Imagem do LayOut Atualizado. Grato.

Bom dia ! em alguns casos quando o sistema envia o xml do Nf-e por e-mail ele não está de acordo com o xml de retorno, por exemplo: - envia a NF-e com a descrição sem validade fiscal sendo que o impresso no sistema está correto; Tem como fazermos algum tratamento para que isso não ocorra ? No aguardo. Daniel Jr.

Bom dia ! em alguns casos quando o sistema envia o xml do Ct-e por e-mail ele não está de acordo com o xml de retorno, por exemplo: - envia o CT-e com a descrição sem validade fiscal sendo que o impresso no sistema está correto; Tem como fazermos algum tratamento para que isso não ocorra ? No aguardo. Daniel Jr.

Bom dia ! Devido a lentidão do provedor Ginfes São José do Rio Preto, existem casos que enviamos as nfse e a mesma não apresenta retorno se foi emitida ou não com sucesso. No momento que usuário tenta de novo ele pula a numeração emitindo a mesma nota com o numero seguinte, diante disso temos a seguinte pergunta : - Existe alguma forma de validar se a emissão teve sucesso ou esta em processamento para que possamos travar o usuário não clicar novamente até que conclua a emissão ? - Existe alguma forma que validar a numeração da NFse existente na base do provedor antes de emitir ? Estamos aberto a sugestões ... Obrigado. Daniel Jr - Mirassol-SP

Resolvi o problema não mais mostrando o conteúdo do Aba XML resposta , mas passando os dados via tela , ou seja, quando o usuário visualiza os dados mostro em tela modal do delphi ....

Até o momento não conseguir resolver este problema , fontes atualizados em 12/03/2015 .... Se alguém saber uma solução para o caso agradeço.

Erro também sendo apresentando no exemplo :

Boa Tarde Italo, A opção retira acento já estava como setada como TRUE, mas a mensagem continua ... O que mais pode ser ?

Boa Tarde , Italo

Caro Amigos, Após a atualização dos fontes realizada em 02/02/2015 o sistema começou apresentar a seguinte mensagem quando consulto status do Serviço da NF-e : A página XML não pode ser exibida Não é possível exibir a entrada XML usando a folha de estilos XSL. Corrija o erro e clique no botão Atualizar ou tente novamente mais tarde. -------------------------------------------------------------------------------- Caractere inválido encontrado no texto. Erro ao processar o recurso 'file:///C:/Adm/AdmLojatemp.xml'. Linha 1, posição 158 <retConsStatServ versao="3.10" xmlns="http://www.portalfiscal.inf.br/nfe"><tpAmb>2</tpAmb><verAplic>... No aplicativo ACBR Exemplo da NFe também está dando a mesma mensagem. Debuguei o path do Schemas estão passando todos corretos. Procurei no fórum, mas não encontrei nada que possa me ajudar , alguém já teve ou esta tendo este problema ?

Para resolver este problema basta entrar no fonte ACBrNFSeDANFSeFRDM.pas no componte cdsServicos editar o campo cdsServicosDiscriminacao e alterar o tamanho size para 4000.

Caros amigos, Estou com problema de tamanho no campo Servicos."Discriminacao".da nota fiscal de serviço em Fast Report Já tentei mudar as propriedades Memo.StretchMode para smActualHeigth , MasterData.Stretched e MasterData.AllowSplit para true, mas mesmo assim o campo corta o tamanho da string que vem no retorno do XML. Alguém sabe como corrigir este problema para que não corte as informações , ou seja, imprima tudo que retorno na tag do xml. Abraços.

Resolvido, abri o fonte ACBrNFSeDANFSeFRDM alterei a linha DFeUtil.FormatarNumeroDocumentoFiscal( FieldByName('NumeroNFSe').AsString := DFeUtil.FormatarNumeroDocumentoFiscal(Numero); para FieldByName('NumeroNFSe').AsString := Numero; Deu certo para o GovBR

Caros amigos, Estou migrando minha NFSE de QR para Fast Report, no entanto, me deparei com um problema no exibição do numero da Nota , no caso , o numero gerado pelo provedor GOvBr é por exemplo 201309536 , mas a impressão está saindo 2014.000.000 . Alguém sabe como resolver isso, pois pesquisei no fórum e não achei nada sobre isso. Obrigado

Italo, boa tarde |! consegui resolver comentando a linha 338 do fonte ACBrCTeDACTeQR onde estava do um Free antes da hora. Tem como você corrigir este problema nos fontes, para evitar erros para demais colega . Abraços

Italo, bom dia ! Existe sim, inclusive os pdf de teste estão criados dentro dela. Para maiores informações estou Utilizando Delphi XE2 com QuickReport 5.05 pro. O incrível é que os componentes instalaram normalmente sem apresentar qualquer erro e copilado em Build com sucesso. Anexo imagem da pasta c:\erp\dfe e o arquivo acbr.inc renomeado para txt ACBr.txt

Italo, boa tarde, Analisei sua sugestão, mas está tudo correto, a imagem já está sendo passada, tanto que a mesma é impressa no Ct-e. analisando descobri que o problema esta na rotina de gerar PDF, inclusive testei no exemplo do componente acbrcte e apresentou o mesmo erro. Atualizei os fontes hoje novamente (03/03/2014) re-instalei os componente mas mesmo assim o erro persiste. Anexo imagem do erro do programa de exemplo bem como o xml de teste. Sinceridade não sei o que pode ser ..... Tela do Exemplo Acbr Acess Violation.pdf 35140305988286000189570020000042361330873570-cte.xml

Juliomar, obrigado pelo retorno, a linha que apresenta o erro é a seguinte: try qriLogo.Picture.Bitmap.LoadFromStream(vStringStream); except end;

Caro amigos, apos atualizar os fontes no dia 20/02/214, começou apresentar erro ao executar a rotina de envio de e-mail. A impressão são normalmente. Anexo pdf com os detalhes do possível erro . Se alguém poder me ajudar agradeço. Analisando o ACBR Cte.pdf

Amigos, Estou com o seguinte problema na impressão do NFSe de São José do Rio Preto provedor GINFES: - transmito várias notas e as mesma são impressa normalmente, quando saio da tela (utilizo a de exemplo no meu sistema) vou fazer uma outra operação (cadastro de cliente, baixa de boleto, etc), quando volto para enviar outra nota, desconfigura todo o layout da nota fiscal, daí tenho que dar log off e sair do sistema, quando entro novamente a nota fiscal volta sair normalmente dentro layout. Utilizo delphi xe2 com o layout da NFSE QReport. Alguém sabe o que pode ser este problema ?

Estou com o mesmo problema para a Cidade de Mirassol - SP (GOV br)

Achei a solução, para isso, basta comentar a linha BREAK do fonte ACBRNFe que dai sairá todas a NFe com quantidade de vias mencionadas if DANFE <> nil then begin for i:= 0 to NotasFiscais.Count-1 do begin if NotasFiscais.Items.Confirmada and Imprimir then begin NotasFiscais.Items.Imprimir; if (DANFE.ClassName='TACBrNFeDANFERaveCB') then // Break; end; end; end;