datilas

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

Aproveitando o tópico, No meu caso ela não retorna nem a data do movimento, VendaBruta = 0, nem NumSerieMFD , mas eu preciso dessas informações. segue o arquivo INI...