Ir para conteúdo
  • Cadastre-se

Davi

Membros
  • Total de ítens

    83
  • Registro em

  • Última visita

Posts postados por Davi

  1. 2 horas atrás, Juliomar Marchetti disse:

    Posso estar subindo o mesmo no branches substituindo o código existente?

    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

    • Curtir 1
  2. 13 horas atrás, Juliomar Marchetti disse:

    é baseado no código que está no Branches?

    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

  3. 1 hora atrás, Eptus disse:

    Boa tarde,

    Muito obrigado pela ajuda. 

    Abri o arquivo e identifiquei o componente, você teria algum exemplo de como utilizá-lo?

    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;

     

  4. Em 20/01/2016 at 19:08, Daniel Simoes disse:

    Obrigado pelas DLLs...

    Observe que se o bemafi32.ini e as DLLs estiverem na mesma pasta da sua aplicação, então o próprio ACBr irá ajustar a porta no .INI

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

  5. 1 minuto atrás, Régys Silveira disse:

    Esse é o problema, a documentação está diferente do que está sendo realmente adotado, talvez seja o caso de fazermos conforme deve ser validado e esquecer a documentação, se alguém questionar mostrar estes problemas que achamos.

    Dias atrás eu consultei alguns homologadores e eles disseram para seguir a documentação, inclusive homologuei dois Paf-ECF com o componente como está no repositório, mas esse está sendo o problema, se seguir não passa no que outros homologadores pedem para validar, como ainda não há fiscalização desse arquivo, não dá para ter certeza do que o Fiscal vai pedir em uma possível fiscalização.

    Talvez o negócio seja seguir o validador que eles passaram e deixar o barco navegar e ver onde dá. :)

     

    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!

    • Curtir 1
  6. Em 19/03/2016 at 17:23, Régys Silveira disse:

     

    Está documentação é a que o componente está baseado, se conferir verá que está tudo conforme ela, o que ocorre é que os homologadores estão pedindo alterações de uma documentação ainda não publicada, ai vem o problema, porque alguns seguem a risca e outros não, os que seguem a risca seguem a documentação antiga, o que não, estão pedindo essa nova documentação que não foi publicada, ai vem outro problema, os fiscais, eles se baseiam na documentação publicada e não na vontade dos homologadores.

     

    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> 

  7. 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!

  8. 24 minutos atrás, Juliomar Marchetti disse:

    NãoSim mas procurei nas publicações legais sobre essas alterações e tudo mais e não achei!

    eles mesmo colocaram isso em uma das especificações que só valem as alterações se forem publicadas no diário oficial da união!!

    e ai!?

    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

  9. 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!

  10. 22 horas atrás, Davi disse:

    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

    • valid.pngParser XML: Nenhum erro encontrado
    • valid.pngTipo de Mensagem: Documento de NF-e
    • valid.pngSchema XML: Nenhum erro encontrado
    • ico_menos.giferro.pngNF-e 42160181865537000116550010000176321000000075
      • valid.pngCertificado Digital do Titular: CN=FOBIA CRIACOES LTDA ME:81865537000116 - CNPJ: 81.865.537/0001-16 [Visualizar]
      • valid.png Assinatura Digital: Válida
      • erro.pngRegras de Negócio [Ambiente de Homologação (Testes)] 1 erro de validação      ( XML em anexo da mesma nota em produção mesmo erro)
        • bullet_black.png699 - [Simulacao]

    42160181865537000116550010000176551000000428-nfe.xml

    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%) 

  11. 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

    • valid.pngParser XML: Nenhum erro encontrado
    • valid.pngTipo de Mensagem: Documento de NF-e
    • valid.pngSchema XML: Nenhum erro encontrado
    • ico_menos.giferro.pngNF-e 42160181865537000116550010000176331000000056
      • valid.pngCertificado Digital do Titular: CN=FOBIA CRIACOES LTDA ME:81865537000116 - CNPJ: 81.865.537/0001-16 [Visualizar]
      • valid.png Assinatura Digital: Válida
      • erro.pngRegras de Negócio [Ambiente de Homologação (Testes)] 1 erro de validação     
        • bullet_black.png699 - [Simulacao]

    42160181865537000116550010000176331000000056-nfe.xml

  12. 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

    • valid.pngParser XML: Nenhum erro encontrado
    • valid.pngTipo de Mensagem: Documento de NF-e
    • valid.pngSchema XML: Nenhum erro encontrado
    • ico_menos.giferro.pngNF-e 42160181865537000116550010000176321000000075
      • valid.pngCertificado Digital do Titular: CN=FOBIA CRIACOES LTDA ME:81865537000116 - CNPJ: 81.865.537/0001-16 [Visualizar]
      • valid.png Assinatura Digital: Válida
      • erro.pngRegras de Negócio [Ambiente de Homologação (Testes)] 1 erro de validação      ( XML em anexo da mesma nota em produção mesmo erro)
        • bullet_black.png699 - [Simulacao]

    42160181865537000116550010000176551000000428-nfe.xml

  13. Consegui o Log, lembrando que

    - Removi os Drivers usando o BemaGhost;

    - Instalei os novos drivers via BemaDrivers

    - Atualizei o ACBR para versãp do dia 3/10/2015

     

     

    ECF.log

    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! 

  14. Consegui o Log, lembrando que

    - Removi os Drivers usando o BemaGhost;

    - Instalei os novos drivers via BemaDrivers

    - Atualizei o ACBR para versãp do dia 3/10/2015

     

     

    ECF.log

    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!

  15. 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.

  16. 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.

  17. 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

  18. Bom Dia Davi,

     

    Sabe aquela solução que fica para sempre, heheh, ainda não consegui parar para resolver, estou com este problema ainda.

    Mas com este código acima funcionando.

     

    Abraços,

    Rodrigo

     

    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!

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.