Ir para conteúdo
  • Cadastre-se

joemil

Membros
  • Total de ítens

    393
  • Registro em

  • Última visita

Tudo que joemil postou

  1. pelo q estao falando aqui, as empresas novas q tiverem q usar cupom fiscal (ECF) ja devem ter NFC-e a partir de 01/10/2013, e quem tiver q trocar de ECF tb. mas ainda nao olhei no site da sefaz pra saber a obrigatoriedade disso. agora to precisando gerar o SHA-1 do QR Code. alg conhece alguma funcao q funcione? ja testei varias no delphi, mas sempre da diferente do exemplo do manual
  2. opa Sergio, tudo bem? eu tenho aqui uma Bematech nao fiscal, como faco pro fast imprimir nela? outra duvida: qual propriedade do acbr eu pego o texto pra ser inserido no qr Code?
  3. Ola pessoal, pesquisei mas nao encontrei. o ACBr ja tem a impressao da NFC-e?? sou do MT, e aqui ja vai ser obrigatorio essa modalidade
  4. joemil

    Envio Rps Webiss Em Php

    ola pessoal, tvz alg possa me ajudar to fazendo o envio do RPS em PHP, porem estou recebendo esta mensagem: Erro SOAP..: O servidor nao pode processar a solicitacao. ---> Valor nao pode ser nulo. Nome do parametro: s entao gostaria de saber se alg pode me passar como devo montar o header pra poder enviar, e quais sao os parametros exigidos pela funcao RecepcionarLoteRps outra coisa tb: nao estou conseguind consumir o WS. o rps q estou tentando enviar é um q foi gerado pelo proprio ACBrNFSe. a funcao q gero esta assim: $operation = "RecepcionarLoteRps"; $params = array( 'VersaoSchema' => 1, 'MensagemXML' => $xmlDoc->saveXML() ); $result = $this->connectionSoap->$operation( $params );
  5. ola italo, qdo vc abre o demo, tem o combo cbCidades. a cidade Nova Mutum nao constava na lista. dai adicionei ela
  6. joemil

    ACBRDownload

    eu uso ele e baixo por http, assim: http:www.control.com.br/pasta/arquivo.exe e funciona normal uso pra baixar as atualizacoes do sistema. o arquivo q baixo é um .rar convertido para .exe, assim, qdo termina de baixar, ja descompacta
  7. duvidas: usando Delphi HTML5 Builder, o acesso ao sqLite é local? e como estao as novidades para android no Rad Stuido Mobile?
  8. aqui to usando ammy admin, pra mim q sou somente eu q atende os clientes, ta funcionando blz. alguns atendo pelo TeamViewer tb, mas tem o limite dos 5 min (ainda nao tenho verba pra comprar uma licenca dele hehehe - mas é o melhor). comprei uma licenca do ammy e ta rodando legal. tb coloquei um atalho no sistema q o cliente clica e me passa o id pelo skype, depois adiciona na lista e pronto.
  9. fala pessoal, tudo na paz? to tentando enviar um RPS para Nova Mutum-MT (provedor agili), e esta dando o erro (to usando o demo): adicionei a cidade ao componente cbCidades: Nova Mutum/5106224/MT acabei de atualizar o componente e a cidade nao estava na lista
  10. o endereco para informacoes: http://portal.saude.gov.br/portal/saude/profissional/visualizar_texto.cfm?idtxt=38004 e nao adianta ligar no suporte, q eles nao dao suporte (?????)
  11. ola pessoal, nao sei se este é o local correto, se nao for, podem mudar, ok? to tentando conectar com o webservice da Horus, mas sempre ocorre os erros: Invalid User ou java.lang.NullPointerException o webService é no endereco: http://aplicacao-homologacao.saude.gov.br/horus-ws-basico/RecebeDadosWS?wsdl a funcao importada pelo WSDL Importer: function GetRecebeDadosWS(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): RecebeDadosWS; to usando este codigo: procedure TForm1.Button1Click(Sender: TObject); var xRecebeDados: RecebeDadosWS; myByteArray: TByteDynArray; memStream: TMemoryStream; retorno: horus_ws_resposta; uf, proto, data, user: wideString; begin memstream := TMemoryStream.Create; try xml.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'horus_entrada.xml'); xml.SaveToStream(memstream); setLength(myByteArray, memStream.Size); if memstream.size > 0 then move(PAnsiChar(memStream.Memory)^, myByteArray[0], memStream.size); xRecebeDados := GetRecebeDadosWS(false,'', HttpRio1); retorno := xRecebeDados.recebeDados(myByteArray); {uf := '510020'; proto := '962'; data := '24/07/2013'; user := 'programacaodatanorte@hotmail.com'; retorno := xRecebeDados.consultarInconsistenciasPorMunicipio(uf, proto, data, user);} ShowMessage('Mensagem de Retorno do WS' + #13 + #13 + retorno.horus_ws_mensagem.mensagem_global); finally memStream.Free; end; {myByteArray := FileToByteArray(ExtractFilePath(ParamStr(0)) + 'horus_entrada.xml'); xRecebeDados := GetRecebeDadosWS(false); //,'', HttpRio1); retorno := xRecebeDados.recebeDados(myByteArray);} end; a funcao recebeDados pede como parâmetro um TByteDynArray, q é o xml convertido tb ja tentei usar assim: xRecebeDados := GetRecebeDadosWS(false); qdo passo o HTTPRio como parâmetro, o evento RIOHTTPWebNode1BeforePost esta assim: procedure TForm1.RIOHTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer); var user, pass: widestring; begin user := 'programacaodatanorte@hotmail.com'; pass := 'dnshorus1234'; if not InternetSetOption(Data, INTERNET_OPTION_USERNAME, PChar(user {HTTPRIO1.HTTPWebNode.UserName}), Length(user {HTTPRIO1.HTTPWebNode.UserName})) then ShowMessage('Erro: ' + #13 + SysErrorMessage(GetLastError)); if not InternetSetOption(Data, INTERNET_OPTION_PASSWORD, PChar(pass {HTTPRIO1.HTTPWebNode.Password}), Length(pass {HTTPRIO1.HTTPWebNode.Password})) then ShowMessage('Erro: ' + #13 + SysErrorMessage(GetLastError)); end; os fontes, o xml e o wsdl estao nos anexos. se alg puder dar uma forca, assim q ficar ok, posto o resultado aqui. valew usando D7. ja fiz a atualizacao do WSDL Importer Horus.rar
  12. ola pessoal, tb estou com problemas na geracao da linha digitavel/codigo de barras do boleto Itau (por enqto so to usando ele) informo os dados: Conta: 01272 DigitoConta: 5 CodigoCedente: 01272 porem o numero da conta/cedente nao fica na posicao correta na linha digitavel/codigo de barras como devo informar o numero da conta/cedente para o componente? isso acontece toda vez q atualizo o ACBr. ja modifiquei o ACBRBoletoItau varias vezes, so q desta vez nao me lembro onde alterei, e a unit q havia alterado nao encontrei. e tb ta indo errado no arquivo remessa
  13. joemil

    Dados De Retorno

    ja encontrei: Numero do protocolo := ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo; Data do protocolo := ACBrNFSe1.NotasFiscais.Items[0].NFSe.dhRecebimento;
  14. joemil

    Dados De Retorno

    ola pessoal, to iniciando o uso do ACBrNFSe novamente e tenho as duvidas: 1. apos enviar o RPS, como faco pra pegar o nº do protocolo? direto do xml ou tem algum propriedade pra isso? 2. apos consultar, como pego o numero da nfse e o codigo de verificacao? tb do xml?
  15. joemil

    Preenchimento Vtotrib

    ola pessoal, nao consegui fazer a pesquisa pq minha ta uma m.... se tiver algum post com a resposta, por gentileza, me informe fiz o preenchimento do campo vTotTrib, tanto pelo item, como pelo total da nota. o meu danfe ta informando invalid na hora da impressao: fiz assim: ITENS: with Imposto do begin vTotTrib := sqlItensVendasNF_Total_Trib.Value; .... TOTAL Total.ICMSTot.vTotTrib := sqlVendasNF_Total_Trib.Value; essa é a forma correta de preencher esses campos?
  16. joemil

    Erro Ao Instalar Danfe Fr - D7

    ola pessoal, nao to conseguindo instalar a danfe FR, pelo instalador tb nao instala qdo abro o pacote, consigo compilar ou dar um build, mas na hora q instala, da o erro: o q pode causar esse erro? to usando D7, FR v.4.12 enterprise
  17. ola pessoal, estou tentando cancelar uma nota e tb to com problema. to usando este codigo (dica do regis: http://www.regys.com.br/como-enviar-um-evento-de-cancelamento-utilizando-o-acbrnfe/): NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW)); // Criar o cancelamento NFe.EventoNFe.Evento.Clear; //NFe.EventoNFe.idLote := NumeroLote; with NFe.EventoNFe.Evento.Add do begin infEvento.chNFe := sqlVendasNFE_Serie.AsString; infEvento.CNPJ := OnlyNumber(sqlEmpresaCNPJ.AsString); infEvento.dhEvento := NOW; infEvento.tpEvento := teCancelamento; infEvento.detEvento.nProt := sqlVendasNFE_Protoc.Asstring; infEvento.detEvento.xJust := vAux; end; // Enviar o evento de cancelamento if NFe.EnviarEventoNFe(NumeroLote) then begin with NFe.WebServices.EnvEvento do begin if EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 135 then begin raise Exception.CreateFmt( 'Ocorreu o seguinte erro ao cancelar a nota fiscal eletrônica:' + sLineBreak + 'Código: %d' + sLineBreak + 'Motivo: %s', [EventoRetorno.retEvento.Items[0].RetInfEvento.cStat, EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo]); end; // retornos {DataHoraEvento := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento; NumeroProtocolo := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; XMLCancelamento := EventoRetorno.retEvento.Items[0].RetInfEvento.XML; CodigoStatus := EventoRetorno.retEvento.Items[0].RetInfEvento.cStat; MotivoStatus := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo;} end; end else begin with NFe.WebServices.EnvEvento do begin raise Exception.Create( 'Ocorreram erros ao tentar efetuar o cancelamento:' + sLineBreak + 'Lote: ' + IntToStr(EventoRetorno.idLote) + sLineBreak + 'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak + 'Orgao: ' + IntToStr(EventoRetorno.cOrgao) + sLineBreak + sLineBreak + 'Status: ' + IntToStr(EventoRetorno.cStat) + sLineBreak + 'Motivo: ' + EventoRetorno.xMotivo); end; end; mas recebo a mensagem de erro: porem a nota foi enviada hj de manha (04/04/2013 às 09:42:00)
  18. ola pessoal, tenho aqui 2 projetos (principais) q usam o ACBr. Qdo dou um Build no primeiro, compila normal, mas no segundo da um monte de warnings (principalmente) no arquivo JwaWinBase.pas. e nao termina nunca de compilar. a diferenca principal de um pro outro é q o primeiro usa ZeosLib, dxRibbon (devexpress) e nao usa ACBrNFSe (este compila normal), e o outro nao tem dxRibbon, usa MyDAC e tem ACBrNFSe (este nao termina de compilar) o arquivo com as mensagens esta em anexo (é mto grande hehehe) algumas mensagens: To usando Delphi 7 JwaWinBase.txt
  19. ta aqui, mas acho q ele ta pegando o fpTamanhoConta do ACBrBoleto.pas (10 digitos) e nao do ACBrBoletoItau (5 digitos), por isso fiz essa POG ACBrBancoItau.pas
  20. mudei esta linha no ACBrBancoItau.pas: agora ta correto a linha digitavel
  21. mesmo erro de novo. acabei de atualizar
  22. ola pessoal, recebi o email informando o envio da primeira nota fiscal eletronica ao consumidor final - NFC-e. aqui ta o link do post: http://www.spedbrasil.net/forum/topics/nfc-e-emitida-a-1a-nota-fiscal-eletronica-para-consumidor-final
  23. tb to com problemas no WebISS de Sinop-MT envia a nota e recebe o protocolo, mas demora pra processar a nota (leva mais de 1 min, so depois desse tempo q devo consultar o processamento) preciso configurar alguma forma de nao consultar apos o envio, pq trava toda a aplicacao
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...