camargu

Faz apenas a parte do DNS, o restante volta pro normal. O meu ja fiz funcionar em alguns clientes assim. DNS Preferencial: 208.67.222.222 DNS Alternativo: 8.8.8.8 Outra coisa, eu estou utilizando a capicom que vem junto no ACBr nos meus clientes, ela esta na versao 2.1.0.2. Verifiquem isso tambem. Registrar ela novamente pode ser que ajude tambem. Att, Wilson Camargo Mac Sistemas capicom.rar msxml5.rar

pessoal achei um post aqui mesmo no forum com a resolução desse problema, nossa amiga Darlana fez um checklist. Eu particularmente so fiz a parte do DNS e funcionou. Checklist Versão 2.pdf

Duvido muito que seja isso, pois foi em cliente meu que aconteceu, ele estava fazendo emissao de nota e simplesmente parou e começou a dar esse erro... e o engraçado que esse erro so tem manifestado nos meus clientes de minas gerais... mas agora tenho 100% que desligar e ligar novamente a internet resolve

Lendo mais no forum aqui eu vi um post com o mesmo erro e falaram pra desligar completamente a internet no cliente e ligar novamente que resolveria. E não é que resolveu mesmo o problema... Agora so por curiosidade por que diabos reiniciar a internet resolve esse erro? Fica a Dica ae, desligar a internet realmente resolve esse erro .

da uma olhada nesse site, ajuda bem http://www.truquesemacetes.com/html/sm/ ... tp_p01.htm espero ter ajudado. Wilson Camargo Mac Sistemas

Pessoal, estou com um problema muito complicado aqui na emissão da NFe, tenho um cliente aqui de Minas que começou hoje a dar um problema, quando vai validar a NFe o sistema me retorna um erro vazio (em branco somente com um X vermelho). O cliente usa Win XP SP3, ja atualizei a Capicom, as cadeias de certificado, os Schemas e ate instalei o hotfix da microsoft e nada resolve o problema. O mais estranho e que ate hoje cedo ele estava emitindo nota normalmente e agora começou com isso. O que mais poderia fazer sem ser formatar o computador é claro. So uma duvida eu estou com a Versão: 0.4.0a do ACBrNFe, essa seria a ultima versao mesmo? Obrigado Wilson Camargo Mac Sistemas

muito obrigado... resolveu meu problema.

Depois que atualizei o ACBrBoleto parou de sair o comprovante de entrega, tem uns clientes meus exigindo isso, e apenas configuração ou tem previsao de voltar com o comprovante? Att Wilson Camargo

bom, nas minhas maquinas com WinXP service pack 3, vista e windows 7 esta funcionando normal,

grande sacanagem do SEFAZ, to com cliente com caminhao parado, ae como falo com ele pra atualizar o windows pra funcionar o certificado... pqp... fora que deve ter um monte de cliente com windows pirata

Tambem estou com mesmo problema Pra mim apresenta o seguinte erro WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. - A assinatura do certificado não pode ser verificada. - URL:https://nfe.fazenda.mg.gov.br/nfe2/services/NfeStatus2 - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2. Ja instalei essa cadeia de certificado do Sefaz e tentei tambem pela cadeia disponibilizada no site http://www.certisign.com.br/

Titulo := ACBrBoleto1.CriarTituloNaLista; with Titulo do begin Vencimento := StrToDate(edtVencimento.Text); DataDocumento := StrToDate(edtDataDoc.Text); NumeroDocumento := edtNumeroDoc.Text; EspecieDoc := edtEspecieDoc.Text; if cbxAceite.ItemIndex = 0 then Aceite := atSim else Aceite := atNao; DataProcessamento := Now; NossoNumero := edtNossoNro.Text; Carteira := edtCarteira.Text; ValorDocumento := StrToCurr(edtValorDoc.Text); Sacado.NomeSacado := edtNome.Text; Sacado.CNPJCPF := OnlyNumber(edtCPFCNPJ.Text); Sacado.Logradouro := edtEndereco.Text; Sacado.Numero := edtNumero.Text; Sacado.Bairro := edtBairro.Text; Sacado.Cidade := edtCidade.Text; Sacado.UF := edtUF.Text; Sacado.CEP := OnlyNumber(edtCEP.Text); ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text,0); LocalPagamento := edtLocalPag.Text; ValorMoraJuros := StrToCurrDef(edtMoraJuros.Text,0); ValorDesconto := StrToCurrDef(edtValorDesconto.Text,0); ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text,0); DataMoraJuros := StrToDateDef(edtDataMora.Text, 0); DataDesconto := StrToDateDef(edtDataDesconto.Text, 0); DataAbatimento := StrToDateDef(edtDataAbatimento.Text, 0); DataProtesto := StrToDateDef(edtDataProtesto.Text, 0); PercentualMulta := StrToCurrDef(edtMulta.Text,0); Mensagem.Text := memMensagem.Text; **(Aqui)** OcorrenciaOriginal.Tipo := toRemessaBaixar; Instrucao1 := padL(trim(edtInstrucoes1.Text),2,'0'); Instrucao2 := padL(trim(edtInstrucoes2.Text),2,'0'); // ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem); end; Ja resolvi, vou deixar a duvida pois mais gente pode ter o mesmo problema. E na geração do boleto que eu seto a ocorrencia original. Muito obrigado.

with ACBrTitulo do begin DigitoNossoNumero := CalcularDigitoVerificador(ACBrTitulo); aAgencia := IntToStrZero(StrToIntDef(trim(ACBrBoleto.Cedente.Agencia),0),5); aConta := IntToStrZero(StrToIntDef(trim(ACBrBoleto.Cedente.Conta),0),7); aCarteira:= IntToStrZero(StrToIntDef(trim(Carteira),0), 3); {Pegando Código da Ocorrencia} case OcorrenciaOriginal.Tipo of toRemessaBaixar : Ocorrencia := '02'; {Pedido de Baixa} toRemessaConcederAbatimento : Ocorrencia := '04'; {Concessão de Abatimento} toRemessaCancelarAbatimento : Ocorrencia := '05'; {Cancelamento de Abatimento concedido} toRemessaAlterarVencimento : Ocorrencia := '06'; {Alteração de vencimento} toRemessaAlterarNumeroControle : Ocorrencia := '08'; {Alteração de seu número} toRemessaProtestar : Ocorrencia := '09'; {Pedido de protesto} toRemessaCancelarInstrucaoProtestoBaixa : Ocorrencia := '18'; {Sustar protesto e baixar} toRemessaCancelarInstrucaoProtesto : Ocorrencia := '19'; {Sustar protesto e manter na carteira} toRemessaOutrasOcorrencias : Ocorrencia := '31'; {Alteração de Outros Dados} else Ocorrencia := '01'; {Remessa} end; Como faço pra indicar que a ocorrencia original que estou gerando e 01, não sei porque as minhas remessas estao saindo com Ocorrencia = 02 (Baixa), e o certo seria 01 (Remessa)... Mas ja olhei aqui e nao vi onde setar para Ocorrencia = 01; Att, Wilson Camargo

The operation timed out - URL:https://nfe.fazenda.sp.gov.br/nfeweb/services/nferecepcao2.asmx - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeRecepcao2. Desde ontem tem 1 cliente meu de São Paulo com este erro, consulto o status no serviço em http://www.nfe.fazenda.gov.br/portal/di ... euqr8PQBY= e parece que está tudo OK... O certificado do meu cliente vence em 2014 e ele usa windows XP.... o que pode ser???

Grato a todos pela atenção acho que para resolver o problema vai ser a compra da Licença do TeamViewer mesmo...

As informações de qual impressora está sendo utilizada no momento vc passa por onde? o certo e criar um arquivo .INI e colocar ali as informações como porta e modelo...

Bom, sei que aqui o forum e do ACBr, mas como todos ou a maioria do pessoal que aqui frequenta e programador eu resolvi perguntar pra ver se tem como me ajudarem. Não estou conseguindo fazer o meu funcionar, se alguem tiver experiencia ou souber como configurar esse VNC Single Click para ele funcionar com rede WAN e tiver como me ajudar favor add no msn ae ou skype... suporte3.mac@hotmail.com suporte3.mac Grato a todos e desculpe postar aqui, pois os tutoriais que vejo por ae a maioria e para funcionar em rede LAN, e os da WAN que vi nenhum resolveu meu problema.

Resolvido, depois que descobri que era no LimparRegistros eu pesquisei e achei alguem que teve o mesmo problema que o meu, pode fechar o topico http://www.forumweb.com.br/foruns/topic ... ntry343325

Debugando um pouco mais eu cheguei a outro ponto. As informações esta sendo passadas corretamente (nao estou deixando de passar nenhum campo) tenho que passar os campos ja formatados ou o ACBr vai formatar eles pra mim, pois tem registros que ja vem formatado, quando ele faz isso aqui Result := inherited GetItem(Index) as TRegistro50 ; ele chama o finally CloseFile(Arquivo); LimparRegistros; end; do ACBrSintegra.GeraArquivo; quando ele entra no LimparRegistros da erro de cara no FRegistros50.Clear; Obrigado pela atenção...

o mais estranho e que estava funcionando e agora da erro na hora de executar isso Result := inherited GetItem(Index) as TRegistro50 ; bom vou debugar um pouco mais e ver se passo mais informações.. e muito obrigado ate agora...

Faço da seguinte maneira. wregistro50 := TRegistro50.Create; dentro de um loop eu faço with ACBrSintegra do begin wregistro50.CPFCNPJ := CNPJ; wregistro50.Inscricao := INSC; wregistro50.DataDocumento := Qyvenda.Fields.FieldByName('DATA').AsDateTime; wregistro50.UF := UF; wregistro50.Modelo := Qyvenda.Fields.FieldByName('MODELO').AsString; wregistro50.Serie := Qyvenda.Fields.FieldByName('SERIE').AsString; wregistro50.Numero := num_nf; wregistro50.Cfop := QyItens.Fields.FieldByName('CFOP').AsString; wregistro50.EmissorDocumento := EMITENTE; wregistro50.ValorContabil := QyItens.Fields.FieldByName('TTOTAL').AsFloat + QyItens.Fields.FieldByName('TIPI').AsFloat - QyItens.Fields.FieldByName('TDESC').AsFloat; wregistro50.BasedeCalculo := QyItensTBCICMS.Value; wregistro50.Icms := QyItensTVLICMS.Value; wregistro50.Isentas := QyItens.Fields.FieldByName('TISENTONT').AsFloat; wregistro50.Outras := OUTRAS; wregistro50.Aliquota := QyItens.Fields.FieldByName('ICMS').AsFloat; wregistro50.Situacao := SITUACAO; ACBrSintegra.Registros50.Add(wregistro50); end;

Não sei o que está acontecendo, começou essa semana acontecer o erro de Access violation at address 00403A84 in module 'Sintegra.exe'. Read of address FFFFFFFC. debugando eu chequei na seguinte linha de comando dentro do ACBrSintegra, vou postar as chamadas que foi sendo feita. ACBrSintegra.GeraArquivo > GerarRegistros50 > with Registros50 do > Result := inherited GetItem(Index) as TRegistro50 ; neste exato momento acontece o AV... se alguem ae souber o que pode estar acontecendo agradeço. Att, Wilson Camargo MAC Sistemas LTDA ME.

Mais uma vez muito obrigado pela ajuda....

Vou testar aqui com ele, valeu a ajuda....

Delphi 7