digitosistemas

RESOLVIDO.

Enviei sem ter finalizado o assunto: Ao tentar enviar email aparece a mensagem Smtp Error: Unable to login, 10091-Network subsystem unusable. Como corrigir? Enviei por outro componente e o email esta sendo enviado. Só que gostaria de usar somente o acbr. Var Dir, ArqXML: string; MS: TMemoryStream; //P, N: Integer; begin ACBrMail1.From := edemailRemetente.text; ACBrMail1.FromName := EdnomeRemetente.text; ACBrMail1.Host := edtHost.text; // servidor smtp -> smtp.outlook.com ACBrMail1.Username := edtUser.text; ACBrMail1.Password := edtPassword.text; ACBrMail1.Port := edtPort.text; // porta do servidor smtp 587 ACBrMail1.SetTLS := chkTLS.Checked; //False ACBrMail1.SetSSL := chkSSL.Checked; //True servidor necessita SSL //ACBrMail1.DefaultCharset := TMailCharset(cbbDefaultCharset.ItemIndex); //ACBrMail1.IDECharset := TMailCharset(cbbIdeCharSet.ItemIndex); ACBrMail1.AddAddress(edEmailDestinatario.Text, edtAddressName.text); ACBrMail1.UseThread := False; if edEmailBCC.Text <> '' then ACBrMail1.AddCC(edEmailBCC.Text); // opcional //ACBrMail1.AddReplyTo('um_email'); // opcional //ACBrMail1.AddBCC('um_email'); // opcional //case rgPrioridade.ItemIndex of //0 : ACBrMail1.Priority := MP_high; //1 : ACBrMail1.Priority := MP_high; //end; //ACBrMail1.ReadingConfirmation := True; // solicita confirmação de leitura mLog.Lines.Clear; ProgressBar1.Position := 1; Dir := FormPrincipal.Caminho; //P := pos(' - ', edSubject.Text); //if P > 0 then //begin // N := StrToIntDef(copy(edSubject.Text, P + 3, 5), 0) + 1; // edSubject.Text := copy(edSubject.Text, 1, P + 2) + IntToStr(N); //end; ACBrMail1.Clear; ACBrMail1.IsHTML := cbUsarHTML.Checked; ACBrMail1.Subject := edSubject.Text; // mensagem principal do e-mail. pode ser html ou texto puro if cbUsarTXT.Checked then ACBrMail1.AltBody.Assign(edMensagem.Lines); if cbUsarHTML.Checked then ACBrMail1.Body.Assign(mBody.Lines); {NÃO INCLUIR if cbUsarHTML.Checked and cbAddImgHTML.Checked then begin // Depende de: "<img src='cid:LogoACBr'>" em ACBrMail1.Body; if Pos('cid:LogoACBr', ACBrMail1.Body.Text) > 0 then ACBrMail1.AddAttachment(Dir + 'acbr_logo2.png', 'LogoACBr', adInline); end; } { if cbAddImgAtt.Checked then ACBrMail1.AddAttachment(Dir + 'acbr_logo.jpg', '', adAttachment); } { if cbAddXML.Checked then begin MS := TMemoryStream.Create; try ArqXML := '52240821962645000185550010000111291000111298-nfe.xml'; MS.LoadFromFile(Dir + ArqXML); ACBrMail1.AddAttachment(MS, ArqXML, adAttachment); finally MS.Free; end; end; } ACBrMail1.Send(cbUsarThread.Checked); If Fechar Then Close; end;

Ao tentar enviar email aparece a mensagem Smtp10091-Network subsystem unusable. Como corrigir?

Mudei o provedor para: cwsCNPJWS e deu certo.

Bom dia Senhores, Um cliente me relatou um "erro 404 - not in cache" ao consultar o CNPJ, o que pode ser? provedor = CWSRECEITAWS Meu código: If not ValidarCNPJ(MeCPFCli.Text) Then Begin If not ValidarCPF(MeCPFCli.Text) Then KDialog('O CNPJ inválido.'#13'Favor fazer a correção e tentar novamente','Alerta','INFO') else KDialog('Esta pesquisa é somente para CNPJ.'#13'Ação cancelada','Alerta','INFO'); MeCPFCli.SetFocus; exit; end; Try // MANDA COMANDO E FICA AGARRADO EM ONSOLICITA CAPTCHA If Not ACBrConsultaCNPJ1.Consulta(MeCPFCli.Text, '', False) Then Begin Consultar_cnpj(); Exit; End; if ACBrConsultaCNPJ1.Situacao <> '' then Begin //EditTipo.Text := ACBrConsultaCNPJ1.EmpresaTipo; EditRazaoCli.Text := Copy(ACBrConsultaCNPJ1.RazaoSocial,1,50); EditFantCli.Text := Copy(ACBrConsultaCNPJ1.Fantasia,1,40); if (EditFantCli.Text = '') or (Copy(EditFantCli.Text,1,4) = '****') then EditFantCli.Text := Copy(EditRazaoCli.Text,1,40); if ACBrConsultaCNPJ1.Situacao = 'ATIVA' then Begin RDGAtivo.ItemIndex := 0; deDataCadastro.Text := DateToStr( ACBrConsultaCNPJ1.Abertura); MECepCli.Text := FormataCEP(ACBrConsultaCNPJ1.CEP); LocalizaCidade(MECepCli.Text, True); EditEndCli.Text := Copy(Trim(ACBrConsultaCNPJ1.Endereco)+' '+ Trim(ACBrConsultaCNPJ1.Complemento),1,50); txtNum.Text := ACBrConsultaCNPJ1.Numero; cbUF.ItemIndex := cbUF.Items.IndexOf(ACBrConsultaCNPJ1.UF); EditBairroCli.Text := Copy(RemoveEspacos(ACBrConsultaCNPJ1.Bairro),1,30); carrega_cid(cbUF.Text); txtCidade.ItemIndex := txtCidade.Items.IndexOf(Trim(ACBrConsultaCNPJ1.Cidade)); If Loc_Cidade(cbUF.Text,txtCidade.Text) Then edIBGE.Text := AchaCid[0]; EditEMailCli.text := LowerCase(ACBrConsultaCNPJ1.EndEletronico); EditFoneCli.text := ACBrConsultaCNPJ1.Telefone; EditInscEstCli.SetFocus; End else Begin RDGAtivo.ItemIndex := 1; KDialog('O Cadastro deste cliente esta inativo na Receita Federal','Informação','erro'); End; End; Except on e : Exception do KDialog('Não consegui fazer a pesquisa'#13#13'Motivo: '+e.Message,'Alerta','erro'); End;

Agora eu pirei Será que estou instalando o Fastreport corretamente? Pq tenho o Delphi Alexandria em outra maquina (instalei recentemente o Delphi) e instalei o Fastreport e acabei de criar a pasta Acbr e baixar arquivos. Vou instalar o Acbr e deu o mesmo erro de compilação. Da outra maquina desinstalei todos os componentes, desinstalei o XE6 e agora estou instalando novamente. Vamos se persisti o erro. Não sei posso postar isso!!! Mas tem alguém no forum que tenha interresse em conectar em minha máquina e fazer a instalação para mim? Será gratificado por isso! Se não puder postar, peço desculpas aos moderadores (é o desespero) e pode apagar o post, ou redireciona-lo. Passo meu zap para combinarmos.

Tentei fazer a instalação marcando a opção "Remover arquivos antigos do disco (pode demorar bastante)" porém o erro persisti. Pensei em fazer isso, mas vou tentar a outra solução do @Juliomar Marchetti primeiro. @Juliomar Marchetti você pode me explicar direito como fazer isso? esta me batendo um desespero

O FortReport também não consegue instalar. Removi toda pasta do ACbr e fiz o Update novamente no trunk2, e tentei novamente não dá certo. Instalando sem marcar nada do FastReport e nada do FortReport dá certo.

Foi assim: *Tive problemas no delphi, então desinstalei e instalei novamente. *Instalei e abri e fechei o delphi *Instalei o Fastreport, abri o delphi e fechei. *Instalei outros componentes (com delphi fechado, e com delphi aberto) *Tentei instalar o ACBr deu erro, recompilei o Fast. *Continuou com erro. *Desinstalei o Delphi novamente. *Instalei o Fastreport, abri e testei o fast e deu certo. *Fechei o Delphi e *Fui instalar o ACbr e deu erro.

Obrigado amigo, mas já fiz isso e não resolveu. Pode ser pq talvez eu tenha escolhido opções erradas na hora de compilar o Fastreport.? Estou com dúvidas na escolha das opções: 1) Select the Fastreport Version? (Escolhi Enterprise - Já tentei com Professional) 2) Select the Teechart version? (Não sei qual escolher, já tentei Teechart6) 3) Path to teechart DCU files? (Deixei o padrão. Não é onde o local onde esta o componente!) 4) Compilei Change language, já Recompilei todos (Recompile all packages) 5) Select path FIB e Indy10 deixei em branco. (não sei se preenche alguma coisa) Estou precisando muito, meus projetos estão parados (Precisando fazer manutenção) Pago pela instalação.

Colegas, Precisei reinstalar meu Delphi, e ao instalar o ACBr me deparei com este erro. Desinstalei o Delphi novamente e instalei de novo e continua com o mesmo problema. Como resolver este problema? ... ... C:\ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fast\ACBrNFeDANFEFRDM.pas(45) Fatal: E2225 Never-build package 'frx20' must be recompiled Compilation failure Erro ao compilar o pacote "ACBr_NFeDanfeFR.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Desde já agradeço.

A pista é de recompilar o programa, reinstalar o programa na máquina do cliente.

Não consegui identificar o que ocorreu inicialmente. Curiosamente, ao reinstalar o programa, ele passou a funcionar normalmente. Parece que a versão anterior do programa estava utilizando uma versão desatualizada do ACBr. Pode ser uma pista importante a ser considerada!

Caros colegas, Estou com o problema ao assinar NFCe. Ao tentar transmitir as notas me aparece o Erro ao Enviar Nota: The Cryptographic Service Provider type '24' is not supported. Depois que o certificado digital foi renovado não consegui mais emitir NFCe (Certificado da Serasa). Coisas que já fiz: * Já desinstalei o certificado, instalei novamente. * O Windows não é pirata. * Já pesquisei na Internet e não encontrei a solução. * Baixei o Valid para ver se resolvia. * Instalei a cadeia de certificados novamente * Atualizei o Capicom * Atualizei o Openssl * Na SSLib usei como libwincript, OpenSLL, Capicom e nada. O que mais me resta? Att;

Já havia testado dessa forma, mas não aparece a chave de acesso na página, igual acontece na consulta da NFe Linkto('https://www.cte.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConsulta=resumo&tipoConteudo=cktLvUUKqh0='+ cdsManifestoCHAVENFE.AsString + '&') Fica desse jeito:

Colegas, Estou querendo passar como parâmetro a chave de acesso para consulta do CTE e não estou achando como montar o link. Para consultar a NFe eu uso assim: Linkto('www.nfe.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConsulta=7PhJ%20gAVw2g=&tipoConsulta=completa&nfe='+ cdsManifestoCHAVENFE.AsString + '&') O resultado é esse: Ou seja o usuário só precisa marcar a opção de "Sou humano" e consegue fazer a consulta da nota. Alguém sabe como montar o link para o CTe?

RESOLVIDO. Era isso mesmo como eu tinha suspeitado. O ITAU não esta aceitando colocar caracter especial - Os parenteses () - no arquivo remessa. Obrigado.

Fiz isso agora e enviei. Vou esperar o retorno. Assim que chegar eu posto o resultado. Obrigado,

Ainda não consegui resolver. Se tiver alguma novidade eu posto aqui.

Galera, Estou com problemas na remessa bancaria, ao buscar o retorno estou recebendo a mensagem de rejeição com o motivo: 08 - NOME DO PAGADOR NÃO INFORMADO OU DESLOCADO O que quer dizer isso? *Ainda estou usando o envio remessa e retorno de arquivos. kkk *O banco em questão é o 341-ITAU *Tem algum programa validador ou validação online? *Abaixo a Linha do arquivo remessa 10218488358000170020800741140 000000000000040/1 000006730000000000000109 I0140 12012400000000805483410000001N090124000000000000000270000000000000000000000000000000000000000000000100069912009134RUBEN DAVI GOMES GLEBA 17 (1) RUA DR ZICO FARIA,QD.31,LT.30,CASA 02 FILOSTRO MAC75091060ANAPOLIS GO 00000000 000002 *Abaixo a llinha do arquivo retorno 10218488358000170020800741140 00000000040/1 00000673 109000006730 I0310012440 00000673 12012400000000805483410000001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000RUBEN DAVI GOMES GLEBA 17 (1) 08000000 000004

Sim, eu consigo faze-las normalmente pela ACBrNFSe na versão 1.0. As vezes, por algum motivo, a empresa emiti a nota pelo Site, então o usuário consulta as notas emitidas no dia e atualiza no nosso Software.

Boa explicação @Italo Giurizzato Junior obrigado. Só não entendi o seguinte, quer dizer que o metodo ConsultarNFSeporPeriodo não existe para o ISSnet? Ruim para o Usuário pq ele vai ter que saber pela numeração, caso não consiga consultar por periodo. Outra coisa, o NFSeX não consulta a versão 1.0?

Amigos, algum tempo atrás tentei migrar para o ACBrNFsex e encontrei alguns probleminhas que me fez desistir. Agora quero retomar a migração. No post que fiz anterior me esbarei neste problema: Pois bem, ainda continua empacado nele. Hoje, fui ver o xml de envio, e observei que ele usa o Método Executado: ConsultarNFSePorFaixa acho que o erro é devido a isso. Estou pedindo consulta por pedido e esta sendo executado consulta por faixa, conforme pode ser visto no log acima. Estou fazendo a chamada assim: ACBrNFSe1.ConsultarNFSeporPeriodo(StrToDateDef(DataIni, 0), StrToDateDef(DataFin, 0),StrToIntDef(NumPagina, 1)); Será um problema do provedor? Na função? ou Será que estou chamando errado. Outra coisa, quando utilizei o método ConsultarNFSePorFaixa olha só: * Me parece que só retorna as notas feitas na versão 2.04 - Digo isso, porque fiz tem uma nota de número 147635 pelo site (na versão 2.04) e buscou normalmente, já as com numeração anteriores e posteriores a ela que enviei pelo meu Software, a função não buscou (não encontrou nada), conforme pode ser visto logo abaixo no log. erro(s): Código : E212 Mensagem: NFS-e não encontrada. Correção: Não existe NFS-e emitida com o número do documento ou do RPS ou período pesquisado. --------- Código : X202 Mensagem: Lista de NFSe não encontrada! (ListaNfse) Correção: --------- A saber, o PROVEDOR É ISSNET. Em tempo: Não entendi este campo "numpagina" que a é passado por parâmetro. Desde já agradeço.

Desculpe a minha ignorância, fiz a download do arquivo e não sei o que fazer depois de baixar. Tentei instalar na maquina com o Windows 7 não consegui, ou tenho que instalar é na minha máquina?

Essa opção não funcionou no Windows 7. No Windows 10 deu certo. Tem alguma solução para o windows 7?