Davi

Estou tendo problemas para envio para SC SAT para enviar sempre me retorna este erro: XML inválido: Versão da Especificação de Requisitos do PAF-ECF não informada, mas precisa ser 02.03 ou superior. REDUCAOZ0323031010111000887008022018.xml 0323031010111000887031012018.xml

Opa era isso mesmo ja fiz o teste estão ok... Muito obrigado.

Estou usando Uma Bematech MP-4200 FI II ESCECF V2.0.02 e uma daruma FS700! Passos para reproduzir no ECF Teste: Ativar - + - + - + - + - + - + - + - + - + - + - + - AbreCupom - + - + - + - + - + - + - + - + - + - + - + - Vende Item: Cod:111222333 DescTESTE DE PRODUTO Aliq:NN Qtd:1 Preço:999999,99 Desc:0 Un:UN Tipo:% Desc:D - + - + - + - + - + - + - + - + - + - + - + - Subtotaliza Cupom: 0 - + - + - + - + - + - + - + - + - + - + - + - Efetua Pagamento: 1 Valor: 999999,99 Obs: Vinc: N - + - + - + - + - + - + - + - + - + - + - + - Fecha Cupom: Componentes ACBr http://acbr.sourceforge.net - + - + - + - + - + - + - + - + - + - + - + - Qual é exatamente a mensagem de Erro ? Não esta necessariamente informando uma mensagem de erro pois quando vendo Preço:999999,99 no ecf vende como Preço:999999,98 perde 1 centavo, porem se mandar pagar Preço:999999,99 pelo tef ele diz que esta limitado ao saldo em aberto então não consigo finalizar sem alterar o TEF1.TEF.TrocoMaximo para aceitar um valor!

Boa tarde, fiz atualização dos fontes agora estou tendo problema de diferença de 1 centavo ate mesmo no ecfteste, para simular processo mais simples abri o cupom vendi um item com quantidade 1 e valor unitário 999999,99 o mesmo registra no ecf como 999999,98 por causa da função trunkfix em versões anteriores o mesmo não ocorria.

Bom dia Segue fonte do exemplo e unit do componente alterada pois acabei de homologar no Santander e estou em faze esperando retorno do Sicred mas alterações já contempla o layout. ACBrCNAB.rar Demo_ACBrCNAB.rar

sim ja esta compatível com truck2 e homologado em 2 bancos HSBC e ITAU assim o pessoal poderia pegar e ajudar nas novas implementações

sim foi utilizado o código que está no Branches homologado no itau e hsbc estou terminando o sicred e logo vou fazer caixa quando sobrar tempo também pretendia fazer uma limpeza e seguir nova padronização que foi adotada no truck2

tenho exemplo separado da minha aplicação sim vou verificar e logo posto. mas a principio seria procedure TFCPG.ConfiguraComponente; var ok: boolean; begin ACBrCNAB1.Configuracoes.Geral.Banco := StrToBanco(ok, QyPortadorCOD_BANCO.AsString); ACBrCNAB1.Configuracoes.Geral.SubstitutaBanco := pagNenhum; ACBrCNAB1.Configuracoes.Arquivos.Salvar := False; ACBrCNAB1.Configuracoes.Arquivos.SepararPorCNPJ := True; ACBrCNAB1.Configuracoes.Arquivos.SepararPorMes := True; ACBrCNAB1.Configuracoes.Arquivos.AdicionarLiteral := True; // ACBrCNAB1.Configuracoes.Arquivos.PathSalvar := QyPortadorDIR_ARQUIVO_REMESSA.AsString; end; procedure TFCPG.AlimentarComponente; var ok: boolean; TotalLote: Double; begin ACBrCNAB1.Arquivos.Clear; with ACBrCNAB1 do begin with Arquivos.Add.CNAB do begin ////////////////////////////////////////////////////////////////////////// // Geral ////////////////////////////////////////////////////////////////////////// (* TTipoServico = (tsCobranca, tsBloquetoEletronico, tsConciliacaoBancaria, tsDebitos, tsCustodiaCheques, tsGestaoCaixa, tsConsultaMargem, tsAverbacaoConsignacao, tsPagamentoDividendos, tsManutencaoConsignacao, tsConsignacaoParcelas, tsGlosaConsignacao, tsConsultaTributosaPagar, tsPagamentoFornecedor, tsPagamentoContas, tsCompror, tsComprorRotativo, tsAlegacaoSacado, tsPagamentoSalarios, tsPagamentoHonorarios, tsPagamentoBolsaAuxilio, tsPagamentoPrebenda, tsVendor, tsVendoraTermo, tsPagamentoSinistrosSegurado, tsPagamentoDespesaViagem, tsPagamentoAutorizado, tsPagamentoCredenciados, tsPagamentoRemuneracao, tsPagamentoRepresentantes, tsPagamentoBeneficios, tsPagamentosDiversos); *) // Geral.Banco := 001; // Banco do Brasil // Geral.TipoServico := tsPagamentoFornecedor; // Pagamento através de crédito em conta ou titulos // Geral.SubstitutaBanco := 0; // Utilizado Somente quando houver o segmento C ////////////////////////////////////////////////////////////////////////// // Registro 0 ////////////////////////////////////////////////////////////////////////// Registro0.Empresa.Inscricao.Tipo := tiCNPJ; Registro0.Empresa.Inscricao.Numero := ExtrairNumeros(QyPortadorCGC_EMPRESA.AsString); Registro0.Empresa.Convenio := FormatFloat('000000', StrToFloatDef(ExtrairNumeros(QyPortadorNUM_CONVENIO.AsString),0))+ Space(14);//930172 Registro0.Empresa.ContaCorrente.Agencia.Codigo := StrToInt(ExtrairSeparador(QyPortadorCOD_AGENCIA.AsString,1)); Registro0.Empresa.ContaCorrente.Agencia.DV := ExtrairSeparador(QyPortadorCOD_AGENCIA.AsString,2); Registro0.Empresa.ContaCorrente.Conta.Numero := StrToInt(ExtrairSeparador(QyPortadorNUM_CONTA_BANCO.AsString,1)); Registro0.Empresa.ContaCorrente.Conta.DV := ExtrairSeparador(QyPortadorNUM_CONTA_BANCO.AsString,2); Registro0.Empresa.ContaCorrente.DV := ' '; Registro0.Empresa.ContaCorrente.Conta.TipoConta := 1; Registro0.Empresa.Nome := QyPortadorNOM_EMPRESA.AsString; Registro0.NomeBanco := UpperCase(QyPortadorDES_BANCO.AsString); Registro0.Arquivo.Codigo := taRemessa; Registro0.Arquivo.DataGeracao := Date; Registro0.Arquivo.HoraGeracao := Time; Registro0.Arquivo.Sequencia := 1; case ACBrCNAB1.Configuracoes.Geral.Banco of pagHSBC : Registro0.Arquivo.Densidade := 01600; pagItau : Registro0.Arquivo.Densidade := 0; else Registro0.Arquivo.Densidade := 0; end; Registro0.ReservadoBanco := ''; Registro0.ReservadoEmpresa := ''; CDSPagar.First; while not CDSPagar.Eof do begin ValidaTipoPagamento; with Lote.Add do begin TotalLote := 0.0; Registro1.Servico.Operacao := toCredito; Registro1.Servico.TipoServico := StrToTpServico(ok,Copy(CDSPagarTIP_SERVICO.AsString,1,2)); Registro1.Servico.FormaLancamento := StrToFmLancamento(ok,Copy(CDSPagarTIP_LANCAMENTO.AsString,1,2)); if not ok then HsErro('Forma de Lancamento não implementado para geração de contas a pagar'); Registro1.Empresa.Inscricao.Tipo := tiCNPJ; Registro1.Empresa.Inscricao.Numero := ExtrairNumeros(QyPortadorCGC_EMPRESA.AsString); Registro1.Empresa.Convenio := FormatFloat('000000', StrToFloatDef(ExtrairSeparador(QyPortadorNUM_CONVENIO.AsString,2,'/'),0))+ Space(14);//930172 Registro1.Empresa.ContaCorrente.Agencia.Codigo := StrToInt(ExtrairSeparador(QyPortadorCOD_AGENCIA.AsString,1)); Registro1.Empresa.ContaCorrente.Agencia.DV := ExtrairSeparador(QyPortadorCOD_AGENCIA.AsString,2); Registro1.Empresa.ContaCorrente.Conta.Numero := StrToInt(ExtrairSeparador(QyPortadorNUM_CONTA_BANCO.AsString,1)); Registro1.Empresa.ContaCorrente.Conta.DV := ExtrairSeparador(QyPortadorNUM_CONTA_BANCO.AsString,2); Registro1.Empresa.ContaCorrente.DV := ' '; Registro1.Empresa.ContaCorrente.Conta.TipoConta := 1; Registro1.Empresa.Nome := QyPortadorNOM_EMPRESA.AsString; Registro1.Informacao1 := ''; Registro1.Endereco.Logradouro := DMG1.TBEmpresas.FieldByName('END_EMPRESA').AsString; Registro1.Endereco.Numero := strToIntDef(DMG1.TBEmpresas.FieldByName('NUM_END_EMPRESA').AsString, 0); Registro1.Endereco.Complemento := ''; Registro1.Endereco.Bairro := DMG1.TBEmpresas.FieldByName('BAI_EMPRESA').AsString; Registro1.Endereco.Cidade := Procura('CIDADES', 'NOM_CIDADE', 'COD_CIDADE=' + DMG1.TBEmpresas.FieldByName('COD_CIDADE').AsString); Registro1.Endereco.CEP := StrToIntDef(ExtrairNumeros(DMG1.TBEmpresas.FieldByName('SIG_ESTADO').AsString), 0); Registro1.Endereco.Estado := DMG1.TBEmpresas.FieldByName('SIG_ESTADO').AsString; case Registro1.Servico.FormaLancamento of flCreditoContaCorrente, flCreditoContaCorrenteMesmaTitularidade, flCreditoContaPoupanca, flDocTed, flDocMesmaTitularidade, flTEDOutraTitularidade, flTEDMesmaTitularidade, flTEDTransferencia, flOPDisposicao : begin with SegmentoA.Add do begin CodMovimento := imInclusaoRegistroDetalheLiberado; TipoMovimento:= tmInclusao; with Favorecido do begin Camara := StrtoInt(Copy(CDSPagarCOD_CAMARA.AsString,1,3));// “018” para “TED” (Valor igual ou superior a R$ 0,01); “700” para “DOC Eletrônico” (Valor inferior a R$ 5.000,00); ou Banco := StrToBanco(ok, CDSPagarCOD_BANCO.AsString); // “888” para “TED” (Qualquer valor) quando for necessário o envio de TED utilizando o código ISPB. if not ok then HsErro('Para a Forma de Lancamento selecionada é nescessario informar o Cód. banco!'); if IsBlank(CDSPagarAGENCIA_COD.AsString) then HsErro('Para a Forma de Lancamento selecionada é nescessario informar o Numero da Agencia!'); ContaCorrente.Agencia.Codigo := CDSPagarAGENCIA_COD.AsInteger; ContaCorrente.Agencia.DV := CDSPagarAGENCIA_DV.AsString; ContaCorrente.Conta.TipoConta := 1; if IsBlank(CDSPagarCONTA_NUM.AsString) then HsErro('Para a Forma de Lancamento selecionada é nescessario informar o Numero da Conta!'); ContaCorrente.Conta.Numero := CDSPagarCONTA_NUM.AsInteger; ContaCorrente.Conta.DV := CDSPagarCONTA_DV.AsString; Nome := CDSPagarRAZ_CLI_FOR.AsString; end; with Credito do begin SeuNumero := CDSPagarNUM_SEU_NUMERO.AsString; DataPagamento := CDSPagarDAT_PROVAVEL_PAGAMENTO.AsDateTime; Moeda.Tipo := tmReal; Moeda.Qtde := 0.0; ValorPagamento := CDSPagarVLR_ABERTO.AsFloat; NossoNumero := CDSPagarNUM_NOSSO_NUMERO.AsString; DataReal := CDSPagarDAT_PROVAVEL_PAGAMENTO.AsDateTime; ValorReal := CDSPagarVLR_ABERTO.AsFloat; end; Informacao2 := ''; CodigoDOC := ''; CodigoTED := ''; CodigoComp := ''; Aviso := 0; TotalLote := TotalLote + Credito.ValorPagamento; end; with SegmentoB.Add do begin with Inscricao do begin if (Length(ExtrairNumeros(CDSPagarCGC_CPF.AsString)) > 14) then Tipo := tiCNPJ else Tipo := tiCPF; Numero := ExtrairNumeros(CDSPagarCGC_CPF.AsString); end; with Endereco do begin Logradouro := CDSPagarLOGRADOURO.AsString; Numero := CDSPagarNUM_END_CLI_FOR.AsInteger; Complemento := CDSPagarCOM_ENDERECO.AsString; Bairro := CDSPagarBAI_CLI_FOR.AsString; Cidade := CDSPagarNOM_CIDADE.AsString; CEP := StrToIntDef(ExtrairNumeros(CDSPagarCEP_CLI_FOR.AsString),0); Estado := CDSPagarSIG_ESTADO.AsString;; end; DataVencimento:= CDSPagarVCT_ORIGINAL.AsDateTime; Valor := CDSPagarVLR_ABERTO.AsFloat; Abatimento := 0.00; Desconto := 0.00; Mora := 0.00; Multa := 0.00; CodigoDoc := ''; Aviso := 0; CodigoUG := 0; end; end; flLiquidacaoTitulosProprioBanco, flLiquidacaoTitulosOutrosBancos : begin with SegmentoJ.Add do begin CodMovimento := imInclusaoRegistroDetalheLiberado; CodigoBarras := CDSPagarNUM_LINHA_DIGITAVEL.AsString; NomeCedente := CDSPagarRAZ_CLI_FOR.AsString; DataVencimento := CDSPagarVCT_ORIGINAL.AsDateTime; ValorTitulo := CDSPagarVLR_ABERTO.AsFloat; Desconto := 0.0; Acrescimo := 0.0; DataPagamento := CDSPagarDAT_PROVAVEL_PAGAMENTO.AsDateTime; ValorPagamento := CDSPagarVLR_ABERTO.AsFloat; QtdeMoeda := 0.0; ReferenciaSacado := CDSPagarNUM_SEU_NUMERO.AsString;//FormatFloat('00000000000000000000', 1); CodigoMoeda := 09; TotalLote := TotalLote + ValorPagamento; end; end; flPagamentoConcessionarias, flPagamentoContas, flTributoDARFNormal, flTributoGSP, flTributoDARFSimples, flTributoIPTU, flTributoDARJ, flTributoGARESPICMS, flTributoGARESPDR, flTributoGARESPITCMD, flTributoIPVA, flTributoLicenciamento, flTributoDPVAT, flTributoGNRe : begin with SegmentoO.Add do begin CodMovimento := imInclusaoRegistroDetalheLiberado; CodigoBarras := CDSPagarNUM_LINHA_DIGITAVEL.AsString; NomeConcessionaria:= CDSPagarRAZ_CLI_FOR.AsString; DataVencimento := CDSPagarVCT_ORIGINAL.AsDateTime; DataPagamento := CDSPagarDAT_PROVAVEL_PAGAMENTO.AsDateTime; ValorPagamento := CDSPagarVLR_ABERTO.AsFloat; SeuNumero := CDSPagarNUM_SEU_NUMERO.AsString; NossoNumero := CDSPagarNUM_NOSSO_NUMERO.AsString; TotalLote := TotalLote + ValorPagamento; end; end; else HsErro('Tipo Serviço não implementado para geração de contas a pagar'); end; Registro5.Valor := TotalLote; Registro5.QtdeMoeda := 0.0; Registro5.NumAvisoDebito := 0; end; CDSPagar.Next; end; end; end; end;

Boa tarde as dlls foram para o repositorio do truck2? pois estou usando o método da DLL está derrubando a aplicação...

Segue fontes tem que fazer uma revisão pois estava usando truck1 e fiz umas modificações pra compilar com truck2 tem umas função duplicadas não tive tempo de fazer a limpeza. ACBrCNAB.rar

Boa tarde eu tenho em uso em 2 banco posso fornecer os fontes com todas as correções

Como esta o AcbrCNAB deram continuidade? estou interessado em dar continuidade ao projeto!

Justamente isso que fiz, conforme validador e na verdade o pessoal da homologação me passou manual diferente do site que bate com o da validação creio que em breve sera atualizado no site, pois o validador segue mesmo manual que ele disponibilizou!

pode notar erro no arquivo de exemplo pelo campo <Codigo Tipo="GTIN">47827346382541</CodigoInterno> onde começa com uma tag e encerra com outra

Porem se você verificar no próprio site a uma divergência no meu ponto de vista, ou posso estar equivocado olhe no layout redução z campo 30 Identificacao - Identificação de cada Totalizador Parcial relativo à respectiva Redução Z porem se verificar logo mais abaixo no arquivo de exemplo o mesmo ja esta com nomenclatura alterada para "Nome" a mesma que é requerida no site https://sathomologa.sef.sc.gov.br/tax.NET/sat.siv.web/validacao.aspx <GT>12345678901</GT> <TotalizadoresParciais> <TotalizadorParcial> <Nome>F</Nome> Na versão Atual esta como "Identificacao" Outra alteração seria referente a casas decimais Indica a quantidade de casas decimais do campo. O valor do campo será interpretado de acordo com o número de casas decimais, dando preferência a estas. Exemplos: Tamanho Exemplo Tipo=N Dec = 2 Tamanho=x x=1,2,3,4 1 = 0,01 12 = 0,12 123 = 1,23 1234 = 12,34 Tipo=N Dec = 3 Tamanho=x x=1,2,3,4 1 = 0,001 12 = 0,012 123 = 0,123 1234 = 1,234 26 VendaBrutaDiaria E 21 N 1 1-14 2 Valor acumulado no totalizador Venda Bruta Diária relativo à respectiva Redução Z 27 GT E 21 N 1 1-18 2 Valor acumulado no Totalizador Geral 28 TotalizadoresParciais E 21 1 Elemento que agrupa os Totalizadores Parciais presentes na RZ quando tenho numero inteiro não valida <GT>12345678901</GT> correto <GT>12345678901,00</GT> ai o mesmo valida tem outros detalhes como 2.5. Coluna ‘Tipo’ B Booleano true, false 29 IndicadorArredondamento E 19 B 1 1 1 = houve arredondamento 0 = não houve arredondamento Porem se gerar no arquivo <IndicadorArredondamento>0</IndicadorArredondamento> não validou sendo necessário mudar para <IndicadorArredondamento>false</IndicadorArredondamento>

Conforme solicitado fontes com alterações ACBrBlocoX.rar Vale lembrar que no BlocoX_ReducaoZ o campo refente a 'Identificacao' apenas mudou nome na tag xml para 'Nome' na unit que disponibilizei mudei somente na tag para manter nome original da propriedade para não mexer nos fontes dos programas já implementados, talvez para manter padrão deva alterar na class TACBrBlocoX_Totalizador a variável para a nomenclatura correta!

Não seria isso? DESPACHO DO SECRETÁRIO-EXECUTIVO Em 22 de outubro de 2015 Publicado no DOU em 26.10.15 Publica o leiaute das informações, recibos e mensagens, exceções e detalhamentos do Bloco X do Ato COTEPE ICMS 09/2013. Nº 209 - O Secretário-Executivo do Conselho Nacional de Política Fazendária – CONFAZ, no uso das atribuições que lhe são conferidas pelo inciso IX, do art. 5º do Regimento desse Conselho, e em cumprimento ao disposto na alínea “b” do § 1º do art. 1º do Ato COTEPE ICMS 09/2013, de 13 de março de 2013, publica o leiaute das informações, recibos e mensagens, bem como exceções e detalhamentos do Bloco X previstos naquele Ato, conforme o Anexo I que segue. MANUEL DOS ANJOS MARQUES TEIXEIRA Continuação https://www.confaz.fazenda.gov.br/legislacao/despacho/2015/despacho-209-15

Este link é para Consulta, Envio, Validação http://webservices.sathomologa.sef.sc.gov.br/wsDfeSiv/Recepcao.asmx Pode usar este para validar xml https://sathomologa.sef.sc.gov.br/tax.NET/sat.siv.web/validacao.aspx Como pode verificar Todos os links são do próprio SAT oficial da Secretaria de Estado da Fazenda. Segue anexo PDF da documentação. Requisito LVIII (Redução Z) e LIX (Estoque).pdf

Bom dia estou rehomologando o PAF-ECF em SC, Referente ao bloco x na geração do arquivo obtive varios erros de formatação e um de fechamento de bloco onde no unit ACBrBlocoX_ReducaoZ a tag FGerador.wGrupo('Ecf'); agora deve ser fechada apos a tag FGerador.wGrupo('/DadosReducaoZ'); enão antes dela conforme manual que o órgão homologador me passou,No site http://aplicacoes.unisul.br/PAF/?q=links estão disponíveis todas as documentações e programas utilizados para teste juntamente com link do WebService para onde o arquivo deve ser enviado pois aqui não é somente a geração e sim transmissão e validação! Gostaria de saber se já tem algo implementado referente envio, em questão das alterações ja fiz elas caso queira posso anexar a unit para vocês analisarem!

Descobri erro estava acontecendo na tag pICMSInterPart eu estava colocando a porcentagem da diferença (17% - 12%) e não a que deve ir para estado (2016 40%)

Boa dia estou tendo problema no envio, esta vindo mensagem "Nota(s) não confirmadas: 17632->[nItem:1]" não estou conseguindo identificar o erro passei xml no validador do sefaz retorno estado de emissão é SC destino SP Parser XML: Nenhum erro encontrado Tipo de Mensagem: Documento de NF-e Schema XML: Nenhum erro encontrado NF-e 42160181865537000116550010000176331000000056 Certificado Digital do Titular: CN=FOBIA CRIACOES LTDA ME:81865537000116 - CNPJ: 81.865.537/0001-16 [Visualizar] Assinatura Digital: Válida Regras de Negócio [Ambiente de Homologação (Testes)] 1 erro de validação 699 - [Simulacao] 42160181865537000116550010000176331000000056-nfe.xml

Boa tarde estou tendo problema no envio, esta vindo mensagem "Nota(s) não confirmadas: 17632->[nItem:1]" não estou conseguindo identificar o erro passei xml no validador do sefaz retorno Parser XML: Nenhum erro encontrado Tipo de Mensagem: Documento de NF-e Schema XML: Nenhum erro encontrado NF-e 42160181865537000116550010000176321000000075 Certificado Digital do Titular: CN=FOBIA CRIACOES LTDA ME:81865537000116 - CNPJ: 81.865.537/0001-16 [Visualizar] Assinatura Digital: Válida Regras de Negócio [Ambiente de Homologação (Testes)] 1 erro de validação ( XML em anexo da mesma nota em produção mesmo erro) 699 - [Simulacao] 42160181865537000116550010000176551000000428-nfe.xml

Sim mas para quem não migrou para trunk2 necessário fazer merge e ajustes para acompanhar, porem logo estarei mudando para novo servidor!

Atualmente deixei Sleep(50) e intervalo apos comando em 150 device: baud=115200 data=8 parity=n stop=1 handshake=rts/cts hardflow maxbandwidth=0 com estas configurações não tive mais problemas!

As correções foram liberadas para trunk2 vc esta utilizando o mesmo? atualmente ainda estou com o no antigo porem fiz as alterações e não tive mais problemas, somente em um cliente quando deixa parado por mais de 40min perde a conexão creio que seja alguma configuração da maquina ainda estou verificando! SIm, o trunk ja parou de ser atualizado em julho! Ja estou no trunk2, veja o log, ela simplesmente para do nada! Que alteração voce fez? a do sleep? E como esta suas configurações Sleep, intervalo apos comando ,baud rate, handshake? fiz as alterações indicadas pelo Rodrigo de Carvalho que esta na primeira pagina para fazer o acbr reenviar o comando!