-
Total de ítens
224 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Fabrício Melo
-
-
-
-
Atualizei ontem para a Versão 13692
A minha configuração é a seguinte:
SSLLib := libWinCrypt;
SSLCryptLib := cryWinCrypt;
SSLHttpLib := httpWinHttp;
SSLXmlSignLib := xsMsXml;Pasta Schemas atualizada
Rejeição: Cabeçalho - Falha no Schema XML -
Alguma novidade? atualizei mas mesmo assim ainda não funciona na 4.0
-
Sobre o SEGMENTO R:
Campo inválido na linha 5. Tipo de registro [Detalhe - Segmento R]. O campo [Valor/Percentual a ser aplicado], posição 75 a 89, deve ser informado. Campo deve ser numérico e maior que zero. Valor atual [000000000000000].
Meu cliente não tem MULTA nem JUROS mas o registro é gerado mesmo assim, o banco rejeitou com a critica acima.
-
Realmente, abrir a ocorrência com a correção pro banco errado, foi mal pessoal.
-
Validação do Arquivo de remessa da CAIXA:
Campo inválido na linha 3. Tipo de registro [Detalhe - Segmento P]. O campo [Tipo de cobrança], posição 58 a 58, deve ser [5. Definido em Cadastros > Empresas]. Valor atual [1].
Fiz a alteração baseado no do Santander, na empolgação arrumei uns alinhamentos também .
Grato.
Versão: 13474
-
Em 2017-4-18 at 22:38, sergiom disse:
Você resolve este erro instalando no computador as DLL´s msxml5.dll e msxml5r.dll (system32 se for 32 bits). Não precisa atualizar o windows.
Estas DLL´s você encontra na pasta do ACBr, DLL.Resolvi hoje este problema.
Alguns clientes passaram a dar o erro mesmo depois de atualizar a cadeia de certificado e atualizar as Dll's, a dica acima resolveu todos!
-
Compartilhando essa classe que achei no site do Marcos Salles, pra quem gosta de usar campos aggregate no DataSet, essa função é uma mão na roda pois não precisamos mais cria-los, só chamar a função e passar o campo que queremos totalizar.
--
unit UTypeAggregate;
//https://marcosalles.wordpress.com/2011/01/30/criacao-de-campos-aggregates-rumtime-clientdataset/
interface
uses DBClient, SysUtils;
Type
TypeAggregateERROR = class(Exception);TAggregateRetorne = (ftSomar,ftMaxima,ftContar,FtMedia);
TOperacoes =class
class function Retornar(ClientDataSet:TClientDataSet; Const cField:String; Tipo:TAggregateRetorne):String;
end;implementation
{ TOperacoes }
class function TOperacoes.Retornar(ClientDataSet: TClientDataSet; const cField: String; Tipo: TAggregateRetorne): String;
begintry
//ATENÇÃO: NÃO DEIXE O CAMPO TRAZER VALORES NULO NA PESQUISA DO SQL, ERRO NO CALCULO
with ClientDataSet do
begin
case Tipo of
ftSomar:
begin
AggregatesActive := False;if Aggregates.Find('SOMAR_'+ cField) = nil then
with Aggregates.Add do
begin
Expression := 'Sum('+cField+')';
AggregateName := 'SOMAR_'+ cField;
Active := True;
end;
AggregatesActive := True;
Result := Aggregates.Find('SOMAR_'+ cField).Value;
end;
ftMaxima:
begin
AggregatesActive := False;
if Aggregates.Find('MAXIMA_'+ cField) = nil then
with Aggregates.Add do
begin
Expression := 'Max('+cField+')';
AggregateName := 'MAXIMA_'+ cField;
Active := True;
end;
AggregatesActive := True;
Result := Aggregates.Find('MAXIMA_'+ cField).Value;
end;
ftContar:
begin
AggregatesActive := False;
if Aggregates.Find('CONTAR_'+ cField) = nil then
with Aggregates.Add do
begin
Expression := 'Count('+cField+')';
AggregateName := 'CONTAR_'+ cField;
Active := True;
end;
AggregatesActive := True;
Result := Aggregates.Find('CONTAR_'+ cField).Value;
end;
ftMedia:
begin
AggregatesActive := False;
if Aggregates.Find('MEDIA_'+ cField) = nil then
with Aggregates.Add do
begin
Expression := 'Avg('+cField+')';
AggregateName := 'MEDIA_'+ cField;
Active := True;
end;
AggregatesActive := True;
Result := Aggregates.Find('MEDIA_'+ cField).Value;
end;
end;
end;except
on e:Exception do
raise TypeAggregateERROR.Create('Erro na Totalização.'+sLineBreak+
'Verifique se o campo contém valores NULO ou se o DataSet esta inativo'+ sLineBreak+
E.Message);
end;
end;end.
Ex:
FSUB_TOTAL_A := StrToFloatDef(TOperacoes.Retornar(cdsItensRateio, cdsItensRateioVALOR_TOTAL_A.FieldName, ftSomar), 0);
FSUB_TOTAL_B := StrToFloatDef(TOperacoes.Retornar(cdsItensRateio, cdsItensRateioVALOR_TOTAL_B.FieldName, ftSomar), 0);
-
Testei hoje, deu certo.
<ICMSUFDest>
<vBCUFDest>0.00</vBCUFDest>
<pFCPUFDest>0.0000</pFCPUFDest>
<pICMSUFDest>0.0000</pICMSUFDest>
<pICMSInter>12.00</pICMSInter>
<pICMSInterPart>60.0000</pICMSInterPart>
<vFCPUFDest>0.00</vFCPUFDest>
<vICMSUFDest>0.00</vICMSUFDest>
<vICMSUFRemet>0.00</vICMSUFRemet>
</ICMSUFDest><total>
<ICMSTot>
<vBC>1928.00</vBC>
<vICMS>327.76</vICMS>
<vICMSDeson>0.00</vICMSDeson>
<vFCPUFDest>0.00</vFCPUFDest>
<vBCST>0.00</vBCST>
<vST>0.00</vST>
<vProd>1928.00</vProd>
<vFrete>0.00</vFrete>
<vSeg>0.00</vSeg>
<vDesc>0.00</vDesc>
<vII>0.00</vII>
<vIPI>0.00</vIPI>
<vPIS>0.00</vPIS>
<vCOFINS>0.00</vCOFINS>
<vOutro>0.00</vOutro>
<vNF>1928.00</vNF>
</ICMSTot>
</total> -
Boa tarde.
Um cliente entrou em contato solicitando a retirada da TAG que monta o DIFAL, alegando que não é obrigado a informa-la e que esta pagando multa por conta disso...
Solicitei do contador dele a Norma Técnica, e ele me mandou o link abaixo:
Notícias STF
Quarta-feira, 17 de fevereiro de 2016
Liminar suspende cláusula de convênio do Confaz sobre ICMS em comércio eletrônicohttp://www.stf.jus.br/portal/cms/verNoticiaDetalhe.asp?idConteudo=310143
Como proceder nesse caso, ainda não mexi no meu sistema pra ver se passa mesmo...
Desculpem, já existe um fórum sobre isso, pesquisei errado.
-
Em 19/11/2011 at 20:30, felipeiw disse:
Resolvido galera, copiar a dll libeay32.dll para a pasta \windows\syswow64.
Obrigado a todos
O meu Delphi começou a dar esse erro também "%1 não é uma aplicativo win32 valido.", copiei as DLL's que vem na pasta do ACBR e joguei na pasta System32, depois de ver esse post troquei elas pra syswow64 e resolveu também...
-
Atualizei e reinstalei e voltou a funcionar, vai entender!
-
Em 24/03/2017 at 11:07, Marcelo45 disse:
Paulo resolvi aqui,
Atualizei os fontes do ACBr hoje depois copie as DLLs da pasta ACBr\trunk2\DLLs\XMLSec\MinGW\32 para o system32
Registrei as DLLs novamente e atualizei a cadeia de certificados digitais.
Após realizar o envio voltou a funcionar normalmente.
Fiz isso mas não tive resultado.
Testei na versão DEMO:NFC-e esta retornando esse erro:
Acbrnfe_demo
Versão Layout: 3.10
Ambiente: 2
Versão Aplicativo: GO3.0
Status Código: 202
Status Descrição: Rejeição: Falha no reconhecimento da autoria ou integridade do arquivo digital
UF: GO
dhRecbto: 05/04/2017 13:23:19
chNFe: 52170426041720000199650010000117001000117007NF-e esta dando esse erro na hora de Validar o XML:
---------------------------
Acbrnfe_demo
---------------------------
Falha na validação dos dados da nota: 11700
O atributo 'Algorithm' tem valor 'http://www.w3.org/2001/04/xmldsig-more#rsa-sha256' que não corresponde ao valor fixo 'http://www.w3.org/2000/09/xmldsig#rsa-sha1' no DTD ou no esquema.Já verifiquei os xml's e nenhum continha caracteres inválidos...
-
Migrei para ACBrNFe.Configuracoes.Geral.SSLLib := libWinCrypt;
Agora estou tendo os seguinte erros nos teste:NF-e na Validação:
Falha na validação dos dados da nota: 74 O atributo 'Algorithm' tem valor 'http://www.w3.org/2001/04/xmldsig-more#rsa-sha256' que não corresponde ao valor fixo 'http://www.w3.org/2000/09/xmldsig#rsa-sha1' no DTD ou no esquema
NFC-e no envio:
---------------------------
Sinapse
---------------------------
Versão Layout: 3.10
Ambiente: 2
Versão Aplicativo: GO3.0
Status Código: 202
Status Descrição: Rejeição: Falha no reconhecimento da autoria ou integridade do arquivo digital
UF: GO
dhRecbto: 05/04/2017 11:43:21
chNFe: 52170420201777000121650010000000011000000010---------------------------
OK
---------------------------
-
-
Fiz uma alteração no procedimento "GerarCabecalho" na unit ACBrNFeDANFeESCPOS, diminui os espaços + ' ' + de 2 caracteres para o espaço de + ' ' + 1 caracter, pois na minha impressora DARUMA DR700 acaba ocorrendo uma quebra de linha vazia no meio do endereço do Emitente por conta desses espaçamentos.
procedure TACBrNFeDANFeESCPOS.GerarCabecalho;
begin
FPosPrinter.Buffer.Add('</zera></ce></logo>');if (Trim(FpNFe.Emit.xFant) <> '') then
FPosPrinter.Buffer.Add('</ce><c><n>' + FpNFe.Emit.xFant + '</n>');FPosPrinter.Buffer.Add('</ce><c>'+ FormatarCNPJ(FpNFe.Emit.CNPJCPF) + ' <n>' + FpNFe.Emit.xNome + '</n>');
FPosPrinter.Buffer.Add('<c>' + QuebraLinhas(Trim(FpNFe.Emit.EnderEmit.xLgr) + ', ' +
Trim(FpNFe.Emit.EnderEmit.nro) + ' ' +
Trim(FpNFe.Emit.EnderEmit.xCpl) + ' ' +
Trim(FpNFe.Emit.EnderEmit.xBairro) + ' ' +
Trim(FpNFe.Emit.EnderEmit.xMun) + '/' + Trim(FpNFe.Emit.EnderEmit.UF)
, FPosPrinter.ColunasFonteCondensada)
);
end;Agora eu não consegui resolver foi no procedimento "GerarTotalTributos", no meu cupom esta tendo uma quebra de linha no texto "Tributos Incidentes Lei Federal 12.741/12 - Total R$ %s Federal R$ %s Estadual R$ %s Municipal R$ %s"
ficando assim no cupom:Tributos Incidentes Lei Federal 12.741/12 - Total R$ 3,65
"Linha vazia"
Federal R$ 3,65 Estadual R$ 0,00 Municipal R$ 0,00
Meus Clientes estão reclamando muito do tamanho do cupom impresso, reclamam que é muito grande, mesmo pra 1 item, então estou tentando reduzir espaço tirando essas falhas no arquivo...
-
Em Anápolis - Go também estou com esse problema, tendo reclamação dos contadores que recebem o XML e não conseguem abrir, a solução é dar um "Replace" no XML ou já descobriram uma forma melhor?
-
Pelo que estou lendo nos foruns é um problema no XML recebido, seria o certo então fazer um "Replace" retirando a TAG ou a outra solução?
-
Sobre o erro acima, qual a solução? meus XML's da prefeitura de Anápolis - Go estão sendo extraídos com a Tag <br> o que inviabiliza a abertura pelo internet explorer e me traz reclamações dos contadores que tem sistemas que importam os XML's...
O retornoWS recebe: ' <tc:OutrasInformacoes>&lt;br&gt;</tc:OutrasInformacoes>'
depois de ExtrairRetorno fica: <tc:OutrasInformacoes><br></tc:OutrasInformacoes>
O <br> vem errada do webservice ou é erro na conversão?
-
Foi colocada uma nova validação, mas ela esta barrando os e-mail's terminados com [email protected], sem o br.
// O último ponto tem que estar depois do @
if (PosEx('.', Documento, Pos('.', Documento) + 1) < Pos('@', Documento)) then
exit;
corrigido:
// O último ponto tem que estar depois do @
if (PosEx('.', Documento, Pos('@', Documento) + 1) < Pos('@', Documento)) then
exit;- 1
-
Todos os problemas de impressão que tive com meus clientes estavam relacionados a impressora deles, pois não ocorria aqui na empresa com nossas impressoras, geralmente a reinstalação do driver resolveu...
-
Gostaria de um resumo sobre as principais versões de DANFe, eu uso o DANFe.fr3 por conta do canhoto completo e acho o leiaute dele mais agradável, mas ai perco o campo valor total dos tributos e os endereços entrega/retirada, minha duvida é qual a versão oficial na legislação atual e ou qual a diferença entre eles no uso para ficar registrado aqui no fórum.
DANFE:
DANFERetrato:
DANFERetratoNovo:
DANFEBasic:
DANFESimplificado:
Grato. -
Pequei de um cliente meu aqui que gera muita quebra de linha na descrição dele, não vi problema nas notas.
Segue o link para impressão e o XMl pra vc ver como esta...
Emissão NFe 4.0 Goiás
em ACBrNFe
Postado
Já abri um protocolo, assim que me responderem posto aqui, mais, se alguém mais quiser entrar na fila.
Contato
4000-1230 - Abrir chamado
[email protected]
Departamento de TI.
[email protected]