Ir para conteúdo
  • Cadastre-se

AllyRafhiyy E N Nunes

Membros
  • Total de ítens

    118
  • Registro em

  • Última visita

Posts postados por AllyRafhiyy E N Nunes

  1. 6 horas atrás, BigWings disse:

    Porque o 'logomarca.bmp'?

    então coloquei das duas forma, debuguei e mostra o caminho correto no pathzip e tbm no pathpdf

    5 horas atrás, Daniel Simoes disse:

    o Erro indica que o nome de arquivo informado, não existe...

    o incrivel e que estava funcionando normal!!!

    5 horas atrás, Daniel Simoes disse:

    o Erro indica que o nome de arquivo informado, não existe...

    tava normal, tou usando o sparkpost tudo certinho, depois que formatei o pc e reinstalei os componentes, parou de funcionar 

  2. boa noite, pessoal, estou tentando enviar email com acbrEmail mas da erro de: AddAttachment:file not exists

    segue meu codigo

    //---------

    Dir := edtArquivo.Text;

      Assunto := 'XML E DANFE NF-e REF.' + FormatDateTime('yyyymm',
        qryVendaDATA_EMISSAO.Value);

      ACBrMail1.Clear;
      ACBrMail1.IsHTML := false;
      ACBrMail1.Subject := Assunto;
      ACBrMail1.FromName := Dados.qryEmpresaFANTASIA.AsString;

      ACBrMail1.Host := FEmail.servidor;
      ACBrMail1.Port := FEmail.porta;
      ACBrMail1.AddAddress(LowerCase(edtEmail.EditText), '');
      ACBrMail1.Username := LowerCase(FEmail.usuario);
      ACBrMail1.From := LowerCase(FEmail.Email_de);
      ACBrMail1.Password := FEmail.Senha;

      ACBrMail1.IsHTML := false;

      ACBrMail1.DefaultCharset := TMailCharset(27);
      ACBrMail1.IDECharset := TMailCharset(15);

      ACBrMail1.SetSSL := false;
      ACBrMail1.SetTLS := false;

      if FEmail.SSL then
        ACBrMail1.SetSSL := true;

      if FEmail.TLS then
        ACBrMail1.SetTLS := true;

      ACBrMail1.ReadingConfirmation := false;
      ACBrMail1.UseThread := false;
      //para := LowerCase(edtEmail.Text);
      ACBrMail1.AltBody.Text := 'SEGUE EM ANEXO ARQUIVOS DE NF-e';
      //------------------------------------------------
      PathZip := edtArquivo.Text;
      PathPDF := edtRelatorio.Text + '\'+frxPDF.FileName;
      //------------------------------------------------
      ACBrMail1.AddAttachment(PathZip + 'logomarca.bmp', '', adAttachment);
      ACBrMail1.AddAttachment(PathPDF + 'logomarca.bmp', '', adAttachment);

     

    ///-ja tentei assim e da o mesmo erro tbm

      ACBrMail1.AddAttachment(PathZip);
      ACBrMail1.AddAttachment(PathPDF);
      //------------------------------------------------
      ACBrMail1.Send(false);

     

  3. Em um cliente acontece esse caso, 

    <protNFe versao="4.00">
    <infProt Id="ID328220184212402">
    <tpAmb>1</tpAmb>
    <verAplic>SVRSnfce202212071459</verAplic>
    <chNFe>28221205469607000139650010000004911519236530</chNFe>
    <dhRecbto>2022-12-27T11:50:44-03:00</dhRecbto>
    <nProt>328220184212402</nProt>
    <digVal>ofYkWJvn+NL0AbwAr5fdQZKmrjg=</digVal>
    <cStat>100</cStat>
    <xMotivo>Autorizado o uso da NF-e</xMotivo>
    </infProt>
    </protNFe>
    </nfeProc>
    mas na sefaz diz que nao consta NNFCe
    alguem ja passou por isso, ou sabe me informar o que aconteceu, o cliente enviou duas notas no mesmo dia, quando consulto a chave nfce
    diz que notas nao constam na base de dados
  4. boa tarde, pessoal estou com um duvida, o contador passou pra mim que esse calculo da redução de base esta incorreto, eu estava fazendo assim no meu sistema

     pRedBC := 0;
        vBC := 0;
        pICMS := 0;
        vICMS := 0;
        pRedBC_Total:=0;
        vBase:=0;


        pRedBC      := qryItemPREDBC.AsFloat;


        if qryVendaCONSUMIDOR_FINAL.Value = 'S' then
          vBC := (qryItemTOTAL.AsFloat + qryItemVALOR_IPI.AsFloat +
            qryItemSEGURO.AsFloat + qryItemFRETE.AsFloat + qryItemOUTROS.AsFloat -
            qryItemDESCONTO.AsFloat) * (pRedBC / 100)
        else
          vBC := (qryItemTOTAL.AsFloat + qryItemSEGURO.AsFloat +
            qryItemFRETE.AsFloat + qryItemOUTROS.AsFloat - qryItemDESCONTO.AsFloat)
            * (pRedBC / 100);

     


        pICMS := qryItemALIQ_ICMS.AsFloat;

        vICMS := (vBC * pICMS) / 100;

        qryItemBASE_ICMS.AsFloat := vbc;
        qryItemVALOR_ICMS.AsFloat := vICMS;

     

    por exemplo num produto que o valor e R$ 1243,00 com redução de Base de 60%, a base passaria a ser BC=R$ 745,80, nao meu ve seria assim, so que ele falou para mim que e para ficar assim

    esse valor nesse produto = BC R$ 497,20 ou seja, Valor do produto menos a BC, procede isso?

  5. pessoal desculpe o incomodo outra vez, mas o emu xml esta saindo dessa forma no percentual de reducao de base e para sair assim mesmo?
    <ICMS>
        <ICMS20>
            <orig>0</orig>
            <CST>20</CST>
            <modBC>3</modBC>
            <pRedBC>0.00</pRedBC>
            <vBC>1233.27</vBC>
            <pICMS>12.00</pICMS>
            <vICMS>147.99</vICMS>
        </ICMS20>
    </ICMS>
×
×
  • 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.

The popup will be closed in 10 segundos...