EasySoft Sistemas

???

function TfrmEnvioEmail.ExecutarEnvioEmail(const sSmtpHost, sSmtpPort, sSmtpUser, sSmtpPasswd, sFrom, sTo, sAssunto: String; sMensagem : TStrings; SSL : Boolean; sCC: TStrings=nil; Anexos:TStringList=nil; PedeConfirma: Boolean = False; AguardarEnvio: Boolean = False; NomeRemetente: String = '' ) : Boolean; var ThreadSMTP : TSendMailThread; m:TMimemess; p: TMimepart; StreamNFe : TStringStream; NomeArq : String; i: Integer; mmCopia : TStringList; vTimeOut : Shortint; begin Result := False; mmCopia := TStringList.Create; mmCopia.Clear; m := TMimemess.create; ThreadSMTP := TSendMailThread.Create(Self) ; // Não Libera, pois usa FreeOnTerminate := True ; StreamNFe := TStringStream.Create(''); try TratarsCC(sCC, mmCopia); TratarsTO(sTO, mmCopia); AnexarRodape(sMensagem, mmCopia, sFrom, sAssunto); ADDBody(m, sMensagem, p); ADDAnexos(Anexos, m, p); ADDDestino(m, p, NomeRemetente, sFrom, sAssunto, PedeConfirma); ThreadSMTP.FreeOnTerminate := True; ThreadSMTP.sFrom := sFrom; ThreadSMTP.sTo := fDestino; if (mmCopia.Count > 0) then ThreadSMTP.sCC := mmCopia; ThreadSMTP.slmsg_Lines.AddStrings(m.Lines); ThreadSMTP.smtp.UserName := sSmtpUser; ThreadSMTP.smtp.Password := sSmtpPasswd; ThreadSMTP.smtp.TargetHost := sSmtpHost; if Trim(sSmtpPort)<>'' then ThreadSMTP.smtp.TargetPort := sSmtpPort; ThreadSMTP.smtp.FullSSL := SSL; ThreadSMTP.smtp.AutoTLS := IIF(Configurar_Integer(731) IN [2,3], True, False); // TLS ThreadSMTP.Resume; // inicia a thread if AguardarEnvio then begin vTimeOut := 0; repeat Sleep(500); Application.ProcessMessages; inc(vTimeOut); if vTimeOut >= 6 then break; until ThreadSMTP.Terminado; Result := not ThreadSMTP.OcorreramErros; end; finally m.free; StreamNFe.Free; mmCopia.Free; end; end; procedure TfrmEnvioEmail.ADDAnexos(Anexos:TStringList; m:TMimemess; p: TMimepart); var i : Integer; begin if not assigned(Anexos) then exit; // for i := 0 to Anexos.Count - 1 do for i := Anexos.Count - 1 downto 0 do begin if Anexos <> nil then m.AddPartBinaryFromFile(Anexos[i], p); end; end; Lembrando que o e-mail é enviado, mas, mesmo passando os anexos para a função, somente o último arquivo é enviado em anexo.

Boa tarde amigos. Atualizai recentemente o ACBR e estou com problemas no envio de e-mail com mais de um anexo. Apenas o ultimo anexo adicionado ao e-mail é encaminhado. Vocês podem me ajudar? Obrigado.

Deu certo. Muito obrigado.

Boa tarde. Estou implementando o CRT 4 (Simples Nacional - Microempreendedor Individual - MEI) na Emissão de NF-e de acordo com a NT 2024.001. E na emissão me retorna o seguinte erro. Falha na validação dos dados da nota: 100 '4' violates enumeration constraint of '1 2 3'. The element '{http://www.portalfiscal.inf.br/nfe}CRT' with value '4' failed to parse. Alguém pode me ajudar? Atenciosamente. Rony

Deu certo dessa forma. Obrigado pela ajuda.

Boa Tarde Pessoal. Estou com um problema na Distribuição de DFE com Certificado A3. (Segue anexo com imagem do erro). Com o certificado A1 está funcionando normalmente. Alguém consegue me ajudar? Atenciosamente.

Resolvido. Creio que a Sefaz tenha alterado alguma coisa, pois agora fui testar e funcionou em Ambiente de Produção.

Segue abaixo resposta do SEFAZ. Prezado Rony, Inicialmente, esclarecemos que a sistemática oficial de consultas está descrita nos Artigos 510 a 526 do Regulamento do ICMS (RICMS) e que a consulta em questão, não preenchendo os requisitos lá exigidos, não se reveste de caráter formal. Deste modo, a resposta abaixo, não sendo de lavra da Consultoria Tributária (órgão com competência legal para responder às consultas), não tem valor jurídico, e visa apenas nortear o contribuinte quanto ao estudo da legislação, pois a ele cabe a responsabilidade pela sua aplicação. Favor consultar a versão 1.40 da Nota Técnica 2023.001, disponível no Portal Nacional da NFe. Se produto (tag: cProdANP) não está presente na Tabela de Combustíveis Sujeitos à Tributação Monofásica (coluna cProdANP): - Proibido o preenchimento de CST de tributação monofásica sobre combustíveis (CST= 02, 15, 53, 61) Observação 1: Tabela de Combustíveis Sujeitos à Tributação Monofásica publicada na aba “Documentos”, opção “Diversos” do Portal Nacional da Nota Fiscal Eletrônica Observação 2: Regra implantada até 25/09/2023 em homologação e em 30/10/2023 em produção. Agradecemos seu contato no "Fale Conosco" da Secretaria da Fazenda. Sua opinião é muito importante para nós. Por gentileza, clique no link abaixo e opine sobre este e-mail: Pesquisa de Satisfação Atenciosamente, Secretaria da Fazenda do Estado de São Paulo

O XML está OK. Fiz a abertura do chamado junto à SEFAZ. Vou aguardar uma posição.

Bom dia, Estou tentando emitir uma NF-e de Combustível passando o codigo ANP 620505001. Esse código não consta na tabela de Combustíveis Sujeitos a Tributação Monofásica que esta disponível no Portal da NF-e. Porém está ocorrendo o erro abaixo. Rejeição 959 Rejeição: NF-e não pode ter preenchimento de Grupo de Tributação do ICMS monofásica sobre combustíveis. De acordo com a NT 2023.001, pelo que entendi, se o codigo de ANP não estiver na tabela informada pelo Portal, é proibido o preenchimento do CST. Eu não estou informando o CST, e sim o CSOSN 500 - <comb> <cProdANP>620505001</cProdANP> <descANP>OUTROS OLEOS LUBRIFICANTES AUTOMOTIVOS</descANP> <UFCons>SP</UFCons> </comb> </prod> - <imposto> <vTotTrib>16.15</vTotTrib> - <ICMS> - <ICMSSN500> <orig>0</orig> <CSOSN>500</CSOSN> <vBCSTRet>0.00</vBCSTRet> <pST>0.0000</pST> <vICMSSubstituto>0.00</vICMSSubstituto> <vICMSSTRet>0.00</vICMSSTRet> </ICMSSN500> </ICMS> Se puderem me dar uma luz aqui pra poder resolver essa questão, eu agradeço. Obrigado.

Boa Tarde pessoal, Um cliente me questionou sobre esse bloco de Faturas na Nota Fiscal de Serviço. Hoje o ACBR atende esses campos para o servidor Fiorili? Tentei verificar no código do exemplo no ACBR e ele possui os campos de Condição de Pagamento. Seria a mesma coisa? Se sim, pelo site que o cliente me enviou existem outras formas de pagamento diferentes do ACBR. Enfim, poderia me tirar essa dúvida?

Boa tarde amigos. Vocês sabem me dizer se o ACBrBAL é compatível com o Android?

Alguém conhece alguma melhor forma de entrar em contato com a 4R além do telefone e email que se encontra no site deles?

Bom dia, Fiz as alterações e o erro foi esse abaixo. Vou anexar os arquivos de envelope. Requisição Ambiente: 2 Cidade : Cajati/SP Provedor: Sistemas4R Versão: 2.00 Método Executado: Enviar Lote Síncrono Parâmetros de Envio Numero do Lote: 1 Parâmetros de Retorno Data de Envio : 30/12/1899 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : False Erro(s): Código : X999 Mensagem: Erro de Conexão: SOAP-ENV:Client - No SOAP request found. Call https://cajati.cidadeonline.inf.br/Abrasf/ahrecepcionarloterpssincrono.aspx?wsdl to get the WSDL. Correção: --------- NFS-e Numero....: 1 Cod. Verificacao: Prestador.......: DIESEL TEC - MANUTENCAO E SERVICOS LTDA Tomador.........: INSCRICAO DE TESTE E TESTE 1-env-lot-sinc-soap.xml 1-lista-nfse-sinc-soap.xml 1-env-lot-sinc.xml