-
Total de ítens
393 -
Registro em
-
Última visita
Tudo que joemil postou
-
Nfc-E - Nota Fiscal Do Consumidor Eletrônica
joemil replied to André Ferreira de Moraes's tópico in ACBrNFe
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 -
valeu
-
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?
-
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
-
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 );
-
ola italo, qdo vc abre o demo, tem o combo cbCidades. a cidade Nova Mutum nao constava na lista. dai adicionei ela
-
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
-
duvidas: usando Delphi HTML5 Builder, o acesso ao sqLite é local? e como estao as novidades para android no Rad Stuido Mobile?
-
Conexão Remota - Estilo Teamviewer , Ammy Porem Free
joemil replied to adilsonpazzini's tópico in Object Pascal - Delphi & Lazarus
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. -
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
-
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 (?????)
-
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
-
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
-
ja encontrei: Numero do protocolo := ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo; Data do protocolo := ACBrNFSe1.NotasFiscais.Items[0].NFSe.dhRecebimento;
-
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?
-
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?
-
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
-
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)
-
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
-
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
-
mudei esta linha no ACBrBancoItau.pas: agora ta correto a linha digitavel
-
mesmo erro de novo. acabei de atualizar
-
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
-
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