[3.5 Grupo N. Grupo de Repasse do ICMS ST]

Boa tarde Mauricio Elias, isso é na hora de dar entrada no estoque ou na venda do produto?

[3.5 Grupo N. Grupo de Repasse do ICMS ST]

Boa tarde, também estou perdido pra fazer esses cálculos de icms efetivo.

[Impressora Argox OS-214 Plus que não Imprime]

Em 26/07/2016 at 18:44, Sérgio Assunção disse:

Instala o driver dessa impressora e compartilhe ela, depois use o caminho e o nome do compartilhamento na porta do  ACBrEtq.

Oi Sérgio Assunção, sei que é muito tempo desde essa dúvida mas fiz exatamente como você disse e funcionou perfeitamente, porém não precisei compartilhar a impressora. Abraço valeu.

[Coletânea de Vídeos sobre a NFe 4.0]

Simplesmente show.

[Erro remessa Santander]

Boa tarde finoue, já verifiquei que não esta saindo o código da carteira no código de barras e nem na linha digitável. Segue o código:

   with ACBrTitulo.ACBrBoleto do
     begin
        DigitoNossoNumero := CalcularDigitoVerificador(ACBrTitulo);
        FatorVencimento   := CalcularFatorVencimento(ACBrTitulo.Vencimento);

        CodigoBarras := '033'+//Identificação do Banco
                                   '9'+//Código da moeda padrão 9 REAL
                                   FatorVencimento +//Fator de vendicmento
                                   IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10)+//Valor nominal
                                   '9'+// Fixo 9
                                   PadLeft(trim(Cedente.CodigoCedente),7,'0')+//Código do cedente
                                   PadLeft(ACBrTitulo.NossoNumero + DigitoNossoNumero, 13,'0')+//Nosso numero com DV
                                   '0'+//IOF – Seguradoras (Se 7% informar 7. Limitado a 9%)
                                   PadLeft(trim(Cedente.Modalidade),3,'0');//Carteira 101

        DigitoCodBarras := CalcularDigitoCodigoBarras(CodigoBarras);
     end;

   Result:= '033' + '9'+ DigitoCodBarras + Copy(CodigoBarras,5,39);

Segue o manual de código de barras de Janeiro de 2015, se você olhar na página 6 vai ver que está faltando o DV do código de barras no código e já fazendo um teste.

20150121_Layout de Código de Barras Santander Janeiro 2015v 29.pdf

[Erro remessa Santander]

Boa tarde finoue, ele já é preenchido direto no meu código pra que o usuario não coloque nada errado. Mas obrigado.

ACBrBoleto.Cedente.Modalidade := '101'.

[Remessa Santander C400 número maior que 400]

Boa tarde Pessoal, estou homologando no Santander e deixo o novo manual de Março de 2017 Layout CNAB400.

H7800 Layout CNAB 400 com registro (padrão 353) março 2017 v 2.15.pdf

[Erro remessa Santander]

Bom dia pessoal, eu sempre tenho que verificar essas linhas 738 e 752 do ACBrBancoSantander.pas toda vez que atualizo, e sempre tenho que trocar pelo seguinte:

Cedente.Complemento + Space(6)//Complemento

O Santander sempre nos passa o complemento da seguinte forma "I31", na minha tela de configuração neste campo eu coloco exatamente o que o banco me passa.

Estou fazendo mais 4 homologações no Santander e tenho 10 lojas que estão rodando sem problema, mas na última atualização a linha digitável não esta indo o código da carteira que sempre uso o 101 na minha tela de configuração do sistema. Segue a resposta do banco.

Linha Digitável
Enviado	0339939936 22100000508 03385900000 9 71870000017918
Esperado	0339939936 22100000508 03385901016 3 71870000017918.

[Requisição Não Enviada 12029-A]

Em 13/12/2016 at 11:07, Ricardo Miquinioty disse:

Bom dia, todos meus Clientes são de SP, toda vez que dá erro de requisição não enviada, verifico no Cliente se tem Internet e as opções avançadas do IE como figura anexa.

Sds,

Ricardo.

Me ajudou muito, obrigado, abraço.

[Nota autorizada mesmo sem conexão de rede]

Bom dia Pessoal, fiz os testes criando o componente e instanciando ele quando eu entro na rotina para enviar a nota. Obrigado a todos pela ajuda.

No CarregaComponente

  NFE := TACBrNFe.Create(Self);

  DF := TACBrNFeDANFEFR.Create(Self);

  NFE.DANFE := DF;

No DestroiComponente

  if Assigned(NFE) then
    NFE.Destroy;
  if Assigned(DF) then
    DF.Destroy;

Rotina de Envio da Nota

  if(ValidaNfe = False) then
    Exit
  else
    begin
      dm_principal.CarregaComponente; //Aqui crio o componente
      dm_principal.DF.FastFile := TConfig.instancia.Danfe.FastFile;
      dm_principal.NFE.NotasFiscais.Clear;
      //Alimenta o componente
      if(dm_principal.GeraNfe)then //passo 1
        begin
          dm_principal.NFE.NotasFiscais.Items[0].GravarXML();
          arquivo := dm_principal.NFE.NotasFiscais.Items[0].NomeArq;
          //Enviar
          if(dm_principal.NFE.Enviar(1,False))then
            begin
              dm_principal.NFE.NotasFiscais.Clear;
              dm_principal.NFE.NotasFiscais.LoadFromFile(arquivo);
              dm_principal.NFE.Consultar;
              if(RespostaEnviar)then //Aqui gravo no banco e faço a impressão se cStat = 100
                begin
                  if(dm_principal.NFE.WebServices.Retorno.xMotivo = 'Autorizado o uso da NF-e')then
                     FinalizaNota
                  else if(Copy(dm_principal.NFE.WebServices.Retorno.xMotivo,0,29) = 'Rejeicao: Duplicidade de NF-e')then
                    MessageDlg('Tente novamente',mtWarning, [mbOK],0)
                  else
                    dm_principal.VoltaNumeroNfe;
                end
              else
                dm_principal.VoltaNumeroNfe;
            end
          else
            dm_principal.VoltaNumeroNfe; 
        end
      else
        ac_cancelar.Execute;
    end;
  dm_principal.DestroiComponente; Aqui destruo o componente

[Nota autorizada mesmo sem conexão de rede]

Eu coloqueis os passos daquela forma mas eu não fazia assim eu simplesmente alimentava o componente e enviava e esperava pelo cStat = 100 para gravar e ja acontecia isso. Mas vou tentar o seguinte vou criar o componente ao invés de colocar no form e depois do envio da nota eu dou um componente.free talvez assim funcione.

[Nota autorizada mesmo sem conexão de rede]

Pois é fiz dessa forma que vc falou e ainda continua.

Primeira nota autoriza normal, depois desativo a rede e ela autoriza do mesmo jeito.

[Nota autorizada mesmo sem conexão de rede]

O Valida e Assina já esta dentro do Enviar. Mas vou tentar. Valeu

[Nota autorizada mesmo sem conexão de rede]

Mas é exatamente o que faço e continua o problema, hoje o cliente reclamou de novo e dessa vez ele emitiu uma nota e não ficou gravado no banco. No meu caso só salvo se o cstat = 100.

[Nota autorizada mesmo sem conexão de rede]

Pois é, mesmo dando acbr1.notasfiscais.clear hoje aconteceu de novo em produção.

[Nota autorizada mesmo sem conexão de rede]

Boa tarde, pesquisei nos tópicos algo relacionado ao meu problema e não achei, se caso existir outro tópico me perdoem. Uso o componente acbrnfe e capicom.

Estou com o seguinte problema:

Teste 1. Envio a primeira nota em homologação e tudo certo a nota é autorizada e feita a impressão e gravo no banco. Faço varias notas em sequencia e tudo certo.

Teste 2. Desativo a rede para simular problemas na internet na hora do envio e pra minha surpresa a nota é autorizada e quando debugo para ver que chave esta carregada no componente está carregada a chave da nota anterior e o xmotivo também da nota anterior que foi autorizada mesmo eu usando ACBrNFe1.NotasFiscais.Clear; antes de enviar a nota e no final da operação.

Meus passos são os seguintes:

1. ACBrNFe1.NotasFiscais.Clear;

2. Alimento o componente;

3. ACBrNFe1.NotasFiscais.Items[0].GravarXML();

4. arquivo := ACBrNFe1.NotasFiscais.Items[0].NomeArq;

5. ACBrNFe1.Enviar(1,False);

6. ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(arquivo);
    ACBrNFe1.Consultar;

7. Se nota autorizada faço a impressão e gravo no banco.

Se eu estiver fazendo algo errado então peço a ajuda dos colegas.

[Tef Auttar]

Na verdade só liberaram depois que assinamos o contrato mas claro que as senhas para acesso que são fornecidas pela Auttar não compartilhei e também não falaram nada a respeito de compartilhar esse material.

[Tef Auttar]

E ai vai os manuais que a Auttar me passou.

Manual de instalação CTFClient-Integração DLL.docx

ROTEIRO_FLUXOS.doc

Teste de Desligamento_Rev07.xls

[Tef Auttar]

Boa tarde pessoal, sei que é um post de 2014 mas para não abrir outro tópico quero compartilhar o exemplo de integração com TEF Auttar via DLL que me foi passado.

Exemplo delphi.zip

[Digito da Agencia Santander]

Bom dia, o digito da conta e agência é o ultimo número, por exemplo agência 3917 digito 7 e conta 130004444 digito 4.

[E182 Erro Na Autenticação Bhiss]

Olá pessoal tenho tido muitos problemas com esse servidor BHISS, pelo que disse a prefeitura de Porto Alegre eles ainda não tem o código fonte do sistema do webservice e assim não podem fazer nenhuma melhoria. Segue o forum para desenvolvedores da NFSe de porto alegre para mais informações.

 

https://groups.google.com/forum/#!forum/nota-legal-porto-alegre-desenvolvedores

 

Eduardo Brigoni

[email protected]

[E182 Erro Na Autenticação Bhiss]

Olá kzarlopes, verifique seu nome de usuário e senha para conexão com o site.

[Nfse Porto Alegre Só Fica Em Espera]

Ola pessoal estou homologando para 4 lojas em porto alegre.

[email protected]

[Mudança De Provedor Palhoça Para Ipm]

Ola pessoal aqui em Gravatai RS uso tambem a Ipm no site eles disponibilizaram um integrador semelhante ao monitor acbr por troca de arquivos, seu sistema gera o xml que tambem e bem simples na pasta indicada pelo integrador ipm e o integrador processa e te devolve um txt de resposta, mas outra dificuldade com a ipm e que nao existe ambiente de homologacao tive que fazer algumas notas com valores bem baixo pra teste e depois cancelar.

[E182 Erro Na Autenticação Bhiss]

Bom dia pessoal tambem tive este problema o que acontece e o seguinte a Procempa contratou uma empresa a ProData que esta tendo alguns problemas com fertificados feito na Safeweb como no meu caso mas desde ontem consigo fazer os testes em homologacao no meu sistema com o ACBrNFSe sem problemas.