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

André Gonçalves

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    70

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por André Gonçalves

    trabalho off-line banco dados nuvens

    em Banco de Dados

    Postado · Editado por André Gonçalves

    olhei alguns artigos sobre o assunto mas não entendi como seria na pratica para um banco de dados nas nuvens com vários acessos, tenho uma cliente que tem 3 lojas e acesso o mesmo banco, e acompanha as vendas e estoques, se colocar o servidor local em cada loja e depois replicar o banco para a nuvem, vai subscrever os dados das demais lojas ou gerar redundância.

    Qual seria a melhor forma?

     

     

    Criar xml

    em MFE - Módulo Fiscal Eletrônico

    Postado

    Está retornando conteúdo inválido, quando fui ver o xml tinha tag que eu não declarava

       <enderEmit>
                </enderEmit>
                <cRegTrib>1</cRegTrib>
                <vProd>0.00</vProd>
                <vItem>0.00</vItem>
                <vCFe>0.00</vCFe>

    Criar xml

    em MFE - Módulo Fiscal Eletrônico

    Postado

    Estou usando o Componente ACBrSAT1, cheguei a copiar exatamente como esta no exemplo

    Tem procedure de AjustaACBrSAT

    with ACBrSAT1 do
      begin
        Modelo  := TACBrSATModelo( cbxModelo.ItemIndex );
        ArqLOG  := edLog.Text;
        NomeDLL := edNomeDLL.Text;
        Config.ide_numeroCaixa := seNumeroCaixa.Value;
        Config.ide_tpAmb       := TpcnTipoAmbiente( cbxAmbiente.ItemIndex );
        Config.ide_CNPJ        := edtSwHCNPJ.Text;
        Config.emit_CNPJ       := edtEmitCNPJ.Text;
        Config.emit_IE         := edtEmitIE.Text;
        Config.emit_IM         := edtEmitIM.Text;
        Config.emit_cRegTrib      := TpcnRegTrib( cbxRegTributario.ItemIndex );
        Config.emit_cRegTribISSQN := TpcnRegTribISSQN( cbxRegTribISSQN.ItemIndex );
        Config.emit_indRatISSQN   := TpcnindRatISSQN( cbxIndRatISSQN.ItemIndex );
        Config.PaginaDeCodigo     := sePagCod.Value;
        Config.EhUTF8             := cbxUTF8.Checked;
        Config.infCFe_versaoDadosEnt := StringToFloatDef( sfeVersaoEnt.Text, cversaoDadosEnt);

        ConfigArquivos.SalvarCFe := cbxSalvarCFe.Checked;
        ConfigArquivos.SalvarCFeCanc := cbxSalvarCFeCanc.Checked;
        ConfigArquivos.SalvarEnvio := cbxSalvarEnvio.Checked;
        ConfigArquivos.SepararPorCNPJ := cbxSepararPorCNPJ.Checked;
        ConfigArquivos.SepararPorModelo := cbxSepararPorModelo.Checked;
        ConfigArquivos.SepararPorDia := cbxSepararPorDia.Checked;
        ConfigArquivos.SepararPorMes := cbxSepararPorMes.Checked;
        ConfigArquivos.SepararPorAno := cbxSepararPorAno.Checked;

        if Modelo = mfe_Integrador_XML then
        begin
          ACBrIntegrador1.PastaInput  := edMFEInput.Text;
          ACBrIntegrador1.PastaOutput := edMFEOutput.Text;
          ACBrIntegrador1.Timeout     := seMFETimeout.Value;

          Integrador := ACBrIntegrador1;
        end;
      end

    e GerarVenda

    procedure TForm1.mGerarVendaClick(Sender : TObject);
    var
      TotalItem, TotalGeral, Pagto1: Double;
      A: Integer;
      Loops: Integer;
    begin
      TotalGeral := 0;
      PageControl1.ActivePage := tsGerado;

      ACBrSAT1.CFe.IdentarXML := cbxFormatXML.Checked;
      ACBrSAT1.CFe.TamanhoIdentacao := 3;
      ACBrSAT1.CFe.RetirarAcentos := cbxRemoverAcentos.Checked;

      mVendaEnviar.Clear;

      // Trasnferindo Informações de Config para o CFe //
      AjustaACBrSAT;
      ACBrSAT1.InicializaCFe;

      // Montando uma Venda //
      with ACBrSAT1.CFe do
      begin
        ide.numeroCaixa := 1;
        ide.cNF := Random(999999);

        Dest.CNPJCPF := '5481336000137';
        Dest.xNome := 'D.J. SYSTEM ÁÉÍÓÚáéíóúÇç teste de nome Longo';

        Entrega.xLgr := 'logradouro';
        Entrega.nro := '112233';
        Entrega.xCpl := 'complemento';
        Entrega.xBairro := 'bairro';
        Entrega.xMun := 'municipio';
        Entrega.UF := 'RJ';

        Loops := max(Trunc(seItensVenda.Value / 3)-1, 0);

        for A := 0 to Loops do  // Ajuste aqui para vender mais itens
        begin
          with Det.Add do
          begin
            nItem := 1 + (A * 3);
            Prod.cProd := 'ACBR0001';
            Prod.cEAN := '6291041500213';
            Prod.xProd := 'Assinatura SAC';
            prod.NCM := '99';
            Prod.CFOP := '5120';
            Prod.uCom := 'UN';
            Prod.qCom := 1;
            Prod.vUnCom := 120.00;
            Prod.indRegra := irArredondamento;
            Prod.vDesc := 1;
            Prod.CEST := '1234567';


            TotalItem := RoundABNT((Prod.qCom * Prod.vUnCom) + Prod.vOutro - Prod.vDesc, -2);
            TotalGeral := TotalGeral + TotalItem;
            Imposto.vItem12741 := TotalItem * 0.12;

            Imposto.ICMS.orig := oeNacional;
            if Emit.cRegTrib = RTSimplesNacional then
              Imposto.ICMS.CSOSN := csosn102
            else
              Imposto.ICMS.CST := cst00;

            Imposto.ICMS.pICMS := 18;

            Imposto.PIS.CST := pis49;
            Imposto.PIS.vBC := TotalItem;
            Imposto.PIS.pPIS := 0.0065;

            Imposto.COFINS.CST := cof49;
            Imposto.COFINS.vBC := TotalItem;
            Imposto.COFINS.pCOFINS := 0.0065;
            //
            //Imposto.COFINSST.vBC := 87206.46;
            //Imposto.COFINSST.pCOFINS := 1.8457;

            infAdProd := 'Informacoes adicionais';
          end;

    End;

    Total.DescAcrEntr.vDescSubtot := 5;
        Total.vCFeLei12741 := 1.23;

        Pagto1 := RoundABNT(TotalGeral/2,-2);

        with Pagto.Add do
        begin
          cMP := mpCartaodeCredito;
          vMP := Pagto1;
        end;

        with Pagto.Add do
        begin
          cMP := mpDinheiro;
          vMP := TotalGeral - Pagto1 + 100;
        end;

    Criar xml

    em MFE - Módulo Fiscal Eletrônico

    Postado

    Estou tendo problema para Enviar xml para modulo MFE, utilizei o exemplo "SATTeste.exe", mas quando fui realizar o teste o meu xml esta criando diferente do SATteste.exe

    Exemplo 01: <infCFe versao="0.00" versaoDadosEnt="0.07" versaoSB="000000" Id="">

    Correto: <infCFe versaoDadosEnt="0.07">

    Exemplo 02: Esta trazendo algumas tag que não estou informando
                 <enderEmit>
                </enderEmit>
                <cRegTrib>1</cRegTrib>
                <vProd>0.00</vProd>
                <vItem>0.00</vItem>
                <vCFe>0.00</vCFe>

    Editei o xml retirando essas tag e conseguir enviar

    Alguém poderia me ajudar a solucionar o problema

    Rejeicao: Assinatura difere do calculado

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado

    Estou tendo problema para enviar XML, a mensagem de retorno é "Erro Interno",

    Validei o XML

    image.thumb.png.720fff22d5572bf67be3b73f29fe4d3e.png

    Pesquisei sobre o assunto, mão não encontrei caracteres especiais no xml

    Testei também no "ACBrNFe_Exemplo.exe ", mas o erro continua, 

    Rejeição

297 - Assinatura difere do calculado

 Causa

Quando for emitida uma NF-e com uso de caracteres especiais, espaços em branco no início e/ou fim das informações dos campos e quebras de linhas (com o uso de Enter), será retornado a rejeição "297 - Assinatura difere do calculado".

     

     

    alguém já teve esse problema que possa me ajudar

     

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