Fabrício Melo

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]

Fiz o Teste no DEMO em produção na versão 4.00 pra ver no que dava:

Fiz o teste no DEMO Na versão 3.10 e 4.00 com a mesma configuração. "Status do Serviço" e "Carregar XML e Enviar" 3.10 tudo ok para os 2 eventos 4.00 os erros abaixo

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 278-env-lot.xml 278-pro-lot.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 ACBrBancoCaixa.pas

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; begin try //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ônico http://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.

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!

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: 52170426041720000199650010000117001000117007 NF-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 ---------------------------

ACBrNFeDANFeESCPOS.pas

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: ' &lt;tc:OutrasInformacoes&gt;&amp;lt;br&amp;gt;&lt;/tc:OutrasInformacoes&gt;' 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;

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... http://www2.goiania.go.gov.br/sistemas/snfse/asp/snfse00200w0.asp?inscricao=3974375&nota=7052&verificador=M369-J1NM 5216112202940200058556000000000007065-rps.xml