datilas

aqui logo depois do evento se o Cstat for diferente de 501 eu consunto o xml original se o retorno for 101 eu atualizo as tabelas

Aqui logo depois do evento eu faço uma consulta no xml original ai o retorno vem 101 cancelamento homologado, e faz todos os processos como antes

Muito obrigado vou testar

boa tarde eu sei que este forum é sobre o ACBR mas não sei mais onde procurar onde eu trabalho em uma empresa onde meu computador é totalmente bloqueado, não tem rede, e tem um cadeado nele para não poder ser aberto, tudo isso por segurança dos fontes , mas eu preciso Trabalhar com a NFe que precisa de internet, minha pergunta é. vcs tem alguma ideia de como eu poderia trabalhar com internet, sem que eu tenha a possibilidade de copiar os fontes do programa, algum serviço, ou aplicativo?

Você já viu se a imagem esta no formato .bmp isso aconteceu comigo apenas uma vez porque a imagem estava no formato .jpg eu tentei alterar a extensão mas o erro continuou então eu abri a imagem com o paint fui no salvar como e salvei como .bmp ai funcionou.

Vou tentar obrigado

Mas eu atualizei pelo svn Como faço para ter essa unit atualizada?

Estou tentando instalar a ultima versão do acbr que até o momento pelo svn é a revisão 4133 sempre instalei o acbr manualmente toda vez que tem atualização eu atualizo no meu projeto tambem mas dessa vez não esta funcionando tambem ja tentei pelo acbr install e ao intalar o acbr serial mostra esse erro [Error] ACBrECFBematech.pas(1530): Undeclared identifier: 'RoundABNT' [Fatal Error] ACBrECF.pas(1006): Could not compile used unit '..\..\Fontes\ACBrSerial\ACBrECFBematech.pas' e ao intalar o acbr tcp mostra esse erro [Error] ACBrSocket.pas(640): Too many actual parameters [Error] ACBrSocket.pas(647): Undeclared identifier: 'DecodeToSys' [Error] ACBrSocket.pas(697): Too many actual parameters [Error] ACBrSocket.pas(701): Undeclared identifier: 'DecodeToSys' [Fatal Error] ACBrTCP.dpk(48): Could not compile used unit '..\..\Fontes\ACBrTCP\ACBrSocket.pas' alguem pode me ajudar?

obrigado pela atenção fico no aguardo.

e quanto ao nivel de sinal? eu gostaria de saber qual o nivel de sinal maximo pois eu gostaria de usar um progressbar para mostrar o nivel de sinal eu ja testei varias operadoras com este mesmo modem o nivel de sinal fica entre 13,99 e 15,99 dependendo da operadora

Estou usando o huawei E303 mas no acbr sms eu configuro como generico

ACBrSMS.pasSegue a unit alterada Gostaria de compartilhar uma função que fiz pois quando eu usava a função ACBrSMS1.Operadora ela me retornava 72405 pesquisando na internet eu achei uma tabela onde estão os codigo MMC MNC das operadoras http://www.my-cool-sms.com/pt/mensagens-preco-mensagens-pre-pago-mensagens-porta/brasil-sms-apps-mcc-mnc-networks então eu vi que 72405 é igual a Claro e assim por diante então eu alterei a unit ACBrSMS e adicionei a função ACBrSMS1.OperadoraNome function TACBrSMS.OperadoraNome: String; Const MMC = '724'; begin if (Operadora = MMC+'02') Or (Operadora = MMC+'03') Or (Operadora = MMC+'04') Or (Operadora = MMC+'08')then Result := 'TIM' else if Operadora = MMC+'05' then Result := 'CLARO' else if (Operadora = MMC+'06') Or (Operadora = MMC+'10') Or (Operadora = MMC+'11') Or (Operadora = MMC+'23')then Result := 'VIVO' else if Operadora = MMC+'07' then Result := 'SERCOMTEL' else if Operadora = MMC+'15' then Result := 'CTBC CELULAR' else if (Operadora = MMC+'16') Or (Operadora = MMC+'24') Or (Operadora = MMC+'31')then Result := 'OI' else if Operadora = MMC+'37' then Result := 'AEIOU' else Result := ''; end;

Eu gostaria de saber qual o nivel de sinal maximo pois gostaria de usar um progressbar para mostrar o nivel de sinal

Aqui onde ue trabalho só aconteceu com o A1

Aqui a gente grava o N° de serie do certificado no banco e quando o cliente vai emitir a nota nos apontamos para o N° de serie referente a cada empresa Ex: Quando vai emitir da EMPRESA1 ACBrNFe1.Configuracoes.Certificados.NumeroSerie := Query1.FieldByName('NS_CERTEMP1').AsString; Quando vai emitir da EMPRESA2 ACBrNFe1.Configuracoes.Certificados.NumeroSerie := Query1.FieldByName('NS_CERTEMP2').AsString;

eu gostaria de saber se o projeto ACBR ja tem ou vai ter suporte ao firemonkey

tambem estou com o mesmo problema. alguem pode me ajudar?

Você conseguiu baixar o componente? EmbeddedWB? procedure TFrmPesquisaDanFe.EmbeddedWB1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); var k, i: Integer; Source, dest, texto: string; textoNFe : IHTMLDocument2; begin if WebBrowser1.LocationURL = 'http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=' then begin for k := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do begin Source := WebBrowser1.OleObject.Document.Images.Item(k).Src; if (Source = 'http://www.nfe.fazenda.gov.br/scripts/srf/intercepta/captcha.aspx?opt=image') then begin dest := ExtractFilePath(ParamStr(0)) + 'captcha.gif'; DownloadFile(Source, dest); end; end; Image1.Picture.LoadFromFile(dest); BrnConsultar.Enabled :=True; BtnCertificado.Enabled:=True; //BtnCertificadoClick(Self); end; texto:=''; texto:=GetPlainTextOnBrowser(WebBrowser1); if Pos('Requer certificado digital',TEXTO) <> 0 then begin BtnCertificadoClick(Self); edtCaptcha.Clear; end; if WebBrowser1.LocationURL = 'https://www.nfe.fazenda.gov.br/portal/inexistente_completa.aspx' then begin MessageDlg('NF-e INEXISTENTE na base nacional, favor consultar esta NF-e no site da SEFAZ de origem.',mtError,[mbok],0); BtnNovaConsultaClick(Self); edtCaptcha.Clear; end; texto:=''; texto:=GetPlainTextOnBrowser(WebBrowser1); if Pos('não está autorizado a fazer o download do documento.',TEXTO) <> 0 then begin MessageDlg('O CNPJ ou CPF do certificado não está autorizado a fazer o download do documento.',mtError,[mbok],0); BtnNovaConsultaClick(Self); edtCaptcha.Clear; end; Status.Panels[0].Text:=''; end; Aqui que passo o Parâmetro no WebBrowser que vem junto ao Delphi não é possível: procedure TFrmPesquisaDanFe.WebBrowser1FileDownload(Sender: TCustomEmbeddedWB; pmk: IMoniker; pbc: IBindCtx; dwBindVerb, grfBINDF: Cardinal; pBindInfo: PBindInfo; pszHeaders, pszRedir: PWideChar; uiCP: Cardinal; var Rezult: HRESULT); begin DownloadFile1.DownloadNow(pszRedir,DIR_XML+'\'+CHAVE_TMP+'.xml'); // Aqui é um componente para fazer download, mas existe vários meios de fazer o download. Onde (pszRedir é arquivo xml , Diretório + nome do arquivo Rezult := S_FALSE; /// A grande sacada esta aqui: S_FALSE significa que não pedir para a caixinha de onde salvar. end; Se você tiver dúvida volte a chamar. T+ Cara Muito Obrigado Ajudou Muito! Valeu!

cara como vc faz a recuperação do xml com o certificado? ate agora não tive progresso nenhum

Obrigado! Desculpa

Eu Percebi que agora no site da consulta completa da Nfe (http://www.nfe.fazenda.gov.br/portal/co ... SeqxE8pl8=). Logo depois que faz a consulta pode fazer o download do xml eu ja consegui simular o Click do Botão download. ai aparece a menssagem que necessita o certificado Digital. Pelo Browser abre uma janela para seleção do Certificado instalado na minha maquina. mas pela minha aplicação em Delphi 7 não abre a janela de seleção do certificado. alguem pode me ajudar?

Eu Percebi que agora no site da consulta completa da Nfe (http://www.nfe.fazenda.gov.br/portal/co ... SeqxE8pl8=). Logo depois que faz a consulta pode fazer o download do xml eu ja consegui simular o Click do Botão download. ai aparece a menssagem que necessita o certificado Digital. Pelo Browser abre uma janela para seleção do Certificado instalado na minha maquina. mas pela minha aplicação em Delphi 7 não abre a janela de seleção do certificado. alguem pode me ajudar?

muito obrigado! mas existem alguns campos referente a veiculos que não sei como preencher. EX: CMT, Dist, VIN, cCORDETRAN, Iota, CMod , TpResp voce pode me ajudar?

Eu gotaria de saber como faço para colocar uma observação no corpo da NFE, logo abaixo dos itens. Eu vi a propriedade INFADPROD mas o acbrnfe esta adiciona essa informação junto com a descrição do produto, eu gostaria que fosse logo abaixo do produto, segue um arquivo de como seria desde ja agradeço!

como eu faço pra falar com ele