daniel_mirassol
-
Total de ítens
136 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por daniel_mirassol
-
-
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
-
1
-
-
Bom dia !
Anexo a unit e o lay-out zipados.
Qualquer duvida estou a disposição.
-
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
-
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 .....
-
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.
-
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;
Correção Fontes Banco Do Brasil Carteira 11 - Convênio 6 Posições
em Boleto
Postado
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