rodrigo_sanmac

Boa noite! Estamos com um caso que o SiTef precisa ser colocado uma porta de conexão, porém no componente só vi a porta do PinPad. Tentei passar para o EnderecoIP assim: ip_servidor_web:porta mas não conecta de jeito algum. Alguém já conseguiu algo? Lembrando que é SiTef Web.

Só que por esse link, as notas de Pernambuco dá que não existe. Já consultando pelo portal nacional mostra a nota normalmente. Alguém já pegou isso?

Boa noite. Tem experiência em desenvolvimento mobile com Delphi?

Se estiver todo pronto e funcional tanto faz.

Bom dia pessoal! Alguém com sistema de help desk com fontes pra vender? Skype: rodrigo_sanmac

Declare na uses do seu form a isso: JPEG{$IFDEF SUPPORT_PNG}, pngimage{$ENDIF} aqui resolvi assim.

Alguma dica de como colocar essa configuração? Alguém?

Tentei isso: Frmmodulo.ACBrNFeDANFEFR1.dmDanfe.frxReport.PreviewForm.BorderIcons := Frmmodulo.ACBrNFeDANFEFR1.dmDanfe.frxReport.PreviewForm.BorderIcons - [biMinimize] - [biMaximize]; mas dá erro de Access Violation... Em qlq outro lugar do sistema q eu faça esse codigo funciona para qualquer outro relatório pq já tem o componente criado. Pelo que vi nos fontes ele cria apenas no Imprimir...

Boa tarde! Teria algum meio de mudar o PreviewForm do Danfe sem ser alterado direto nos fontes do componente? Estou precisando remover o botão de minimizar e maximizar dos arquivos FR3 antes do preview deles.

Boa tarde! Algum programador lazarus interessado em migrar um projeto de suporte remoto do D7, sem componentes? skype: rodrigo_sanmac

Arnaldo Cruz, bom dia! Qual o comando que voce usou para efetuar o compartilhamento da pasta? Seria esse: net share SERVER=C:\teste /GRANT:Todos,Full /UNLIMITED /REMARK:"? Pois aqui em alguns pcs ele não funciona...

Boa tarde! Alguém já conseguiu deixar o usuário escolher a impressora na emissão da NFe em Fast Report? Já tentei descarmar as opções de Dafault de todas as partes de print, mas sem sucesso. Grato por qlq ajuda.

Alguém interessado em fazer a migração de um sistema que usa as DLLs das ECFs para o ACBr?

Ele mora aqui vizinho da minha cidade... tenho o CPF e o endereço dele, se ajudar posso te mandar... Esse cabra é um babaca que ganha a vida enrolando os outros. Ah, e tenho fotos atualizadas tbm que consegui com amigos que conhecem ele. Precisando estão na mão!

Que bom que vc conseguiu ai Anron

Pessoal bom dia! Depois de muito sofrimento e dor de cabeça consegui, com a ajuda de um amigo, solucionar o problema. Apenas precisa dar permissão ao Usuário Todos, com Controle Total na pasta C:\Windows\System32\spool\PRINTERS onde a impressora está instalada fisicamente e o erro de File Access denied está resolvido. Simples assim...

olá marcelo_sp... adicionei esse danado, mas mesmo assim nada... no cliente tive que instalar o windows XP mesmo pra funcionar e ele sair do meu pé. O pior é que aqui comigo eu não posso colocar o XP na maquina que tem a impressora não-fiscal... Mas muito obrigado pelas dicas e se alguém tiver mais alguma ficamos agradecidos

arimaria nãmmm... isso mata um cabra... mas vou ver esse usuário Rede que você me falou porque eu desconhecia esse usuário.... vlw pela dica. O engraçado é que o sistema cria em rede arquivos e diretórios, menos a impressão na matricial. Mas vou ver e posto aqui depois. Obrigdo pela dica marcelo_sp.

Alguém conseguiu resolver esse problema? Tbm estou com o File access denied com windows 7 32bits + UAC destivado + firewall desativado + antivirus desativado. Uso o delphi 7. Pelo windows a impressora imprime normalmente via rede, o problema é dentro do sistema. Executei ele como administrador tbm e nada feito :S

Pessoal, boa tarde! Depois que eu atualizei o componente não consigo mais pegar o NomeArq dos eventos... Alguém teria como informar isso? Grato!

Pessoal, boa noite! Aproveitando o tópico, alguém já teve problemas no VL_COFINS_ST e no VL_PIS_ST por ele não estar totalizando no C100? Já revisei o while dele, confirmei que o C170 está dentro dele, mas mesmo assim os valores desses 2 campos são levados apenas o ultimo valor dos itens que eu dei entrada/saida. Se precisarem, posso postar o código para analise. Grato.

Sérgio, a forma de imprirmir os eventos tem no demo do ACBrNFe2. Juliomar, eu tentei fazer como tem no link do Régys mas não consegui. Se eu puder ajudar em algo mais é só falar. Atcs.

Bom dia gigainfo... Pode ser feito a impressão, bem como o envio do email com o xml da mesma. Segue um trecho do código de como eu faço aqui... Cancelamento: begin if qrnotafiscal.recordcount = 0 then exit; sXML := qrnotafiscal.fieldbyname('nfe_xml').asstring; if sxml = '' then exit; if FileExists(sxml) then begin ACBrNFe1.Configuracoes.Geral.Salvar:=True; bMensagem := true; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(sXML); Application.ProcessMessages; NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW)); if not(InputQuery('NFe Cancelamento', 'Informe a justificativa', vAux)) then exit; ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.idLote := NumeroLote; with ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := vAux; end; ACBrNFe1.EnviarEventoNFe(NumeroLote); MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetornoWS); //LoadXML(MemoResp, WBResposta); Application.ProcessMessages; qrnotafiscal.edit; qrnotafiscal.FieldByName('nfe_xml').asstring := sXML; qrnotafiscal.FieldByName('nfe_situacao').asinteger := 8; qrnotafiscal.FieldByName('cancelamento_nfe_xml').asstring := frmnotafiscal_menu.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.NomeArq; qrnotafiscal.post; end else begin application.messagebox('Arquivo XML não encontrado!','Atenção',mb_ok+mb_iconerror); end; end; Envio de Email: begin sXML := qrnotafiscal.fieldbyname('cancelamento_nfe_xml').asstring; if sxml = '' then exit; if FileExists(sXML) then begin para := qrcliente.fieldbyname('email').asstring; if para = '' then para := InputBox('Cancelamento de NFe','Email do Cliente',''); if para <> '' then begin Evento := TStringList.Create; Evento.Clear; Evento.Add(sXML); ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.LerXML(sXML); Assunto := 'Cancelamento Referente ao XML ' + Copy(sXML,33,44) + ' - ' + qrempresa.fieldbyname('FANTASIA').asstring; CC:=TstringList.Create; ACBrNFe1.EnviarEmailEvento(edtSmtpHost.Text , edtSmtpPort.Text , edtSmtpUser.Text , edtSmtpPass.Text , edtSmtpUser.Text , Para , Assunto , mmEmailMsg.Lines , cbEmailSSL.Checked , True //Enviar PDF junto , CC //Lista com emails que serão enviado cópias - TStrings , Evento // Lista de anexos - TStrings , False //Pede confirmação de leitura do email , False //Aguarda Envio do Email(não usa thread) , qrempresa.fieldbyname('FANTASIA').asstring); // Nome do Rementente CC.Free; Evento.Free; Application.ProcessMessages; end; end else begin Application.MessageBox('Arquivo XML do Cancelamento não encontrado!','Atenção',mb_ok+mb_iconerror); exit; end; end; Qualquer esclarecimento estou a disposição. Abcs.

Markapollo, conforme solicitado, segue arquivo para analise. Abcs. ACBrNFeWebServices.pas

Rapaz, nem me fale q o Sped Pis/Cofins tá arrancando os meus cabelos Qual seria o outro tópico? Manda o link q posto lá... Abcs.