Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

systronic

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    54

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por systronic

    Desconto do Funrural na NF-e

    em ACBrNFe

    Postado

    Olá boa tarde, mas é exatamente isso, o Funrural depois de calculado vai diminuir no total da nfe. Então se por ventura a NFe de Entrada for de Venda de Bovino para um Frigorífico no valor de R$1000 e o funrural for 1.5%, calcula-se o funrural que será R$15.00. o Total da nota será os 1000 - 15 =  985,00.

    Espero ter ajudado!

    • Curtir 1

    Homologação (Passo 51)

    em Dúvidas sobre TEF

    Postado

    Em 14/11/2023 at 09:22, Daniel Simoes disse:

    Esse método sempre existiu no ACBrTEFAPI

    Para o 51 passar é fundamental que a configuração do componente esteja exatamente como descrito nesse tópico

     

    Daniel bom dia, infelizmente na configuração que voce sugeriu ai nao mostra o menu, somente se escolher a opção - Perguntar - Processar Pendentes, por favor veja se é isso mesmo, porque tentei e não para no menu, so se mudar as opções!

    image.png.700fec6887abad36673e0bc54feacacb.png

    Homologação (Passo 51)

    em Dúvidas sobre TEF

    Postado · Editado por systronic

    Em 29/09/2023 at 17:52, Daniel Simoes disse:

    Após a reunião com a Setis, apliquei um novo ajuste nos Demos do ACBrTEFAPI, para que não seja necessário, derrubar a aplicação nos testes 35 e 37...

    Nesses testes temos que Confirmar ou Estornar uma transação manualmente... Agora isso pode ser reproduzido no Demo, desmarcando a opção "Confirmar Transação Automaticamente"

    image.png 

      ACBrTEFAPI1.ConfirmarTransacaoAutomaticamente := False;

     

    Quando ela estiver desmarcada, no termino da transação, a aplicação perguntará se o Operador deseja Confirmar ou Estornar a transação...

    Isso é feito através desse trecho de código, do Demo: 

    procedure TFormPrincipal.FinalizarVenda;
var
  MR: TModalResult;
begin
    //...trecho de código removido, para melhor  leitura... 
  
    StatusVenda := stsFinalizada;
    if not ACBrTEFAPI1.ConfirmarTransacaoAutomaticamente then
    begin
      MR := MessageDlg( 'Confirmação do TEF',
                        'Confirma a Transação ?', mtConfirmation,
                        [mbYes, mbNo], 0);
      if (MR = mrYes) then
        ACBrTEFAPI1.FinalizarTransacoesPendentes( tefstsSucessoManual )
      else
        ACBrTEFAPI1.FinalizarTransacoesPendentes( tefstsErroDiverso );

      AtualizarPagamentosVendaNaInterface;
    end;

    Ou seja, inserimos um Dialogo com Sim ou Não, e Finalizamos a transação, com o Status apropriado, conforme a resposta do usuário...

     

    Aqui não ficou muito claro pra mim, no teste 35 na observação diz o seguinte: "A automação não pode confirmar nem desfazer a transação neste momento", no caso quando aparece o SIM ou NÃO qual das opções escolher, seria o NÃO do tefstsErroDiverso ? e a mesma pergunta para o teste 36? Já agradeço qualquer ajuda!

    Integração ACBr API ifood

    em Dúvidas Gerais sobre o ACBr

    Postado · Editado por systronic

    Em 25/05/2022 at 13:00, premium.ac disse:

    Estou começando agora uma aplicação nova e já gostaria de integra-la ao iFood e ao Instagram. Se tivesse o componente do ACBr, ja o colocaria. Pra nao ter que colocar um outro ou mesmo desenvolver do zero....

    Se precisar tenho um pequeno projeto para ifood que pode te ajudar...

    Att,

    aCBRNFe, Cte, MDFe e SAT no delphi 7 - Fiz ajustes para funcionar, para quem envio?

    em ACBrNFe

    Postado

    Olá pessoal tudo bem, sei que o delphi 7 tá ficando pra trás se sei que o pessoal do acbr ja vem avisando ai para subtituir para outro delphi, contudo, tenho todos meus projetos migrados para o delphi 10x, porém ainda tenho um projeto no delphi 7, e fui atualizar para a ultima versão do ACBR hoje dia 06/01/22 e tive alguns problemas com ele, olhei mais a fundo e vi que apenas faltavam algumas linhas para aceitar corretamente meu fast report 6.9, fiz os ajustes que estavam na NFEDANFEFR e deu certinho, gostaria de saber para quem envio esses ajustes para comitar no SVN e assim quem sACBr_CTe.dpkDCLACBr_CTe.dpkabe evitar que outros passem pelo mesmo problema... seguem os arquivos ajustados em anexo.

    DCLACBr_MDFeDamdfeFR.dpk ACBr_MDFeDamdfeFR.dpk DCLACBr_SATExtratoFR.dpk ACBr_SATExtratoFR.dpk

    Novo Provedor NFSe para São Borja/RS

    em ACBrNFSe

    Postado

    12 minutos atrás, Italo Jurisato Junior disse:

    Boa tarde,

    A propriedade de configuração ConsultaLoteAposEnvio esta com o valor True ou você esta executando os métodos: Enviar, ConsultarSituacao e ConsultarLote ?

    Se esta executando os métodos o fragmento de código que você postou é executado depois do ConsultarLote, correto?

     

    Estou usando com false a propriedade. Sim estou usando Enviar, ConsultarSituacao e ConsultarLoteRPS, sim é o retorno do ConsultarLoteRPS.

     

    Att,

    Novo Provedor NFSe para São Borja/RS

    em ACBrNFSe

    Postado

    1 hora atrás, systronic disse:

    Olá Ítalo ok vou tentar entao novamente...qualquer resultado após o teste eu posto aqui, obrigado!

     

    Ítalo o retorno da situação ficou bom deu certo, contudo, os outros campos abaixo não estão sendo retornados junto com este retorno, com exceção do protocolo que vem certinho:

      

      if Situacao = '4' then
  begin

      dsPed.DataSet.Edit;                                  
      dsPed.DataSet.FieldByName('PROTOCOLO').asString   := NFSe.NotasFiscais.Items[0].NFSe.Protocolo; // RETORNA NORMAL
      dsPed.DataSet.FieldByName('CODVERIFIC').asString  := NFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao; // NÃO RETORNA
      dsPed.DataSet.FieldByName('NRO_NOTA').asString    := StrZero(StrToInt(Copy(NFSe.NotasFiscais.Items[0].NFSe.Numero,5,11)),6,0) // NÃO RETORNA
      dsPed.DataSet.FieldByName('DATA_NFS').AsDateTime  := date;
      dsPed.DataSet.FieldByName('CHAVE_NFS').AsString   := NFSe.NotasFiscais.Items[0].NomeArq; //NFSe.NotasFiscais.Items[0].NFSe.ChaveNFSe; // NÃO RETORNA
      dsPed.DataSet.Post;

      edChave.text := NFSe.NotasFiscais.Items[0].NomeArq; // NÃO RETORNA

      MessageDlg('Nota Fiscal de Serviço enviada com sucesso !', mtInformation, [mbOK],0);

  end;

     

    Novo Provedor NFSe para São Borja/RS

    em ACBrNFSe

    Postado

    Seguem as imagens, 1 é do retorno da Função "Enviar(lote)" com numero de lote diferente do meu, creio que deva ser do Servidor. Outra é do Retorno da "ConsultaLoteRps(lote, protocolo)", onde está minha duvida é se o lote ai nessa funcao é a que enviei ou a da figura que retornou? Nesta mesma imagem tem a o campo Situação=4, que é o OK, mas não consigo coletar com o seguinte comando:

     

    Citar

    NFSe.ConsultarLoteRps(sLoteProvedor,sProtocolo);

    if NFSe.NotasFiscais.Items[0].NFSe.Situacao = '4' then

     

     A terceira imagem é do DANFSE que preenche os campos mas de forma incorreta, faltam dados do Emitente e dados do serviço, depois do Retorno da ConsultaLoteRPS.

    NFSe-Apos-Retorno-Situacao-OK].PNG

    Retorno-ConsultaLoteRPS-WS-DBSeller.PNG

    Retorno-Enviar-WS-DBSeller.PNG

    Desde já agradeço a paciência, a ordem ficou inversa das imagens, estou tentando descobrir para ajudar a aperfeiçoar o componente que tanto me ajuda!

     

    Att,

    Ainda com relação ao Relatório aparece o número do RPS que é o enviado e não o número da NFSe que foi retornado!

    Novo Provedor NFSe para São Borja/RS

    em ACBrNFSe

    Postado

    Ítalo pois é muito estranho porque na consulta ele retorna sim na tela de mensagem um lote totalmente diferente do que eu enviei (vou enviar outra mensagem com essa tela), creio eu que o servidor deve gerar um novo para não dar conflitos com outros usuários...para a consulta preciso enviar o meu lote na consulta abaixo?

     

    Citar

    if lblProvedor.Caption = 'DBSeller' then
         NFSe.ConsultarLoteRps(sLoteProvedor,sProtocolo);  // Aqui o sLoteProvedor meu que usei para enviar nao busca a NFSe

     

    Tem esse outro detalhe também que retorna na mensagem a situação "4" mas no componente nao consigo ler da forma abaixo:

     

    Citar

    if NFSe.NotasFiscais.Items[0].NFSe.Situacao = '4' then

    begin

    ...comandos

    end;

     

    Att,

    Novo Provedor NFSe para São Borja/RS

    em ACBrNFSe

    Postado

    Ítalo estou tentando ler o retorno do comando Enviar(numlote) pelos campos abaixo e apesar de me retornar na mensagem o lote e o protocolo, so consigo pegar o protocolo, no campo NUMEROLOTE está zerado. 

     

    Lembrando que estou usando o DBSELLER para cidade de São Borja, onde foi mudado em janeiro.

     

    Falei com o rapaz do suporte da DBSELLER 

     

    Estou tentando assim:

     

    Citar

              NFSe.Enviar(vNumLote); 

     

              sProtocolo    := NFSe.NotasFiscais.Items[0].NFSe.Protocolo; // Só consigo ler este campo mas na mensagem vem o numero do lote
              sLoteProvedor := NFSe.NotasFiscais.Items[0].NFSE.NumeroLote; // Este campo aparece na mensagem mas nao consigo ler, aqui aparece vazio
     

     

    Novo Provedor NFSe para São Borja/RS

    em ACBrNFSe

    Postado

    ìtalo não é o que eles me enviaram, veja o email:

     

    Citar

    Deverá ser feita a requisição do RPS pelo sistema de NFSe na rotina RPS > Requisição, a liberação será feita pelo setor fiscal da prefeitura.
    Logo que liberado, deveremos homologar os serviços de webservice através do endereço
    Homologação
    http://hom.nfse.saoborja.rs.gov.br:81/webservice/index/producao?wsdl

    Estando tudo de acordo será liberada a rotina na base de produção da prefeitura
    Produção
    https://nfse.saoborja.rs.gov.br/webservice/index/producao?wsdl

    Segue em anexo manuais e leiaute do xml.

     

    Att,

×
×
  • 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.