Davi

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!

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!

Efetuei teste com Sleep(200) não resolveu problema 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 Meu único problema que tenho é quando deixo mais de 10 minutos parado ela para de funcionar e o controle de portas esta ativo. Ainda não fiz teste em outra maquina pode ser por causa da USB mesmo pois tenho outro cliente que esta funcionando sem mexer em nada.

Teria alguma diferença nos fontes atualmente estou usando Trunk 1 ainda não migrei para 2. Notei na impressora que se deixa mais de 10minutos ela tb para de funcionar já ativei o controle de porta mas o erro persiste o pessoal da newtech que presta manutenção nas impressoras na região aqui fez os testes com sistemas dele que usam para testes pela dll do fabricante o mesmo não apresentou erro, fiz testes pelo ecfteste e o memso tb perde a conexão então creio que seja alguma configuração, teria algo com protocolo 'esc/pos' e 'esc/bema'? Este modelo de impressora não tinha pegado ainda não conheço muito sobre ela.

Olá pessoal, Estou com problemas de instabilidade na conexão com a MP 4200 FI II Travamentos aleatórios na abertura de cupom, venda de item, finalização, sendo necessário desligar e ligar novamente notei que em diversas vezes ela fica em loop, a maioria foi no fechamento do cupom vem comando para pegar grande total então entra loop pedindo 'Status' RX <- [ACK] Status TX -> [ENQ][NUL] Estou anexando Log de um dos clientes. acbrlog.txt

Fiz a alteração na "ACBrNFSeWebServices.pas" e esta normal para mim todas as funções! ja faz umas semanas porem perguntei porque queria reverter e deixar sem alterações no ACBr. Segue em anexo caso queira verificar lembrando que uso somente o Betha não tive tempo de fazer os testes em outros servidores!