gss200610

se coloca um showmessage antes do showmessage( fatam xxxx) nao mostra esse showmessage , mais o que quero mostra, é coisa de louco. posso colocar o codigo tanto no oncreate, onshow do form, dar na mesma, ate voltei pra testar no xe5 ta acontecendo mesma coisa. ate agora nao to entendento o que , e ja to pra desistir. se alguem tiver alguma dica, ja troquei variavel, coloquei apenas showmessage debuguei 1 milhao de vezes, entra dentro da variavel, vai ate as units do delphi de showmessage executa, mais nao mostra nada.

sAuxString := IntToStr(iAuxData); ShowMessage('data ' ); -> NAO MOSTRA if sAuxString <= '15' then begin ShowMessage('Faltam '+ IntToStr(iAuxData) + ' dia(s) para vencer sua linceça.'); ->AGORA MOSTRA A MSG end; so pra constar, recriei o form principal, datamodule e continua

nem abre , nem mostra msg, simplesmente passa pelo bloco, entra no showmessage mais vc nao ver mensagem nenhuma.

testei ate com class helper var iAuxiCod : integer; begin if iAuxiCod <= 15 then begin sowmessage( 'voce tem ' +iAuxiCod.ToString() + ' Dias '); end; end; de todas as formas que testei entra no bloco mais nao mostra a msg, ate mesmo se colocar um raize exception. sinceramente nunca vi isso. porque se a variavel tem valor era pra mostrar.

ola a todos, venho mais uma vez recorrer ao forum, estou com um problema que nunca vi. var iAuxiCod : integer; begin iAuxiCod := DaysBetween(tblData_Pag.Date, Now ) -> debugando iAuxCod = 15 if iAuxiCod <= 15 then begin sowmessage( 'voce tem ' + inttostr(iAuxiCod) + ' Dias '); -> aqui entra no bloco e nao mostra a mensagem end showmessage('apenas teste ') -> fora do bloco IF funciona e mostra a mensagem end; estou usando isso em um oncreate do Datamodule, mesmo colocando em onshow de form, oncreate acontece mesma coisa.

fiz como sugerido pelos colega Daniel , só me resta aguardar , mais acho que vai funcionar, pq uso 2 connection um pra local e outro pra Rede com servidor, e verifiquei que quando faço o Set_Context uma vez se verificar no outro conection esta gravado no firebird, pq antes usar uma procedure chamada set_contexto onde passava os parametros, mudei pra forma que nosso amigo Daniel sugeriu, e estou testando, agradeço a todos pela ajuda.

-------------------------------------------------------------------------------- ATIVAR - 01/12/14 10:33:51:656 - Modelo: FiscNET - Porta: COM4 - TimeOut: 12 Device: BAUD=115200 DATA=8 PARITY=E STOP=1 HANDSHAKE=RTS/CTS HARDFLOW MAXBANDWIDTH=0 -------------------------------------------------------------------------------- -- 10:33:51:670 TX -> {1;LeTexto;NomeTexto="VersaoSW";31} 10:33:51:702 RX <- {1;0;ValorTexto="01.00.25";26} -- 10:33:51:702 TX -> {2;LeTexto;NomeTexto="TextoLivre";33} 10:33:51:716 RX <- {2;0;ValorTexto="";18} -- 10:33:51:716 TX -> {3;LeTexto;NomeTexto="Marca";28} 10:33:51:735 RX <- {3;0;ValorTexto="DATAREGIS";27} -- 10:33:51:735 TX -> {4;LeTexto;NomeTexto="Modelo";29} 10:33:51:754 RX <- {4;0;ValorTexto="3202DT";24} -- 10:33:51:754 Estado TX -> {5;LeInteiro;NomeInteiro="EstadoFiscal";39} 10:33:51:766 RX <- {5;0;ValorInteiro=1;19} -- 10:33:51:766 TX -> {6;LeInteiro;NomeInteiro="Indicadores";38} 10:33:51:779 RX <- {6;0;ValorInteiro=6144;22} -- 10:33:51:780 IdentificaOperador() TX -> {7;LeTexto;NomeTexto="NumeroSerieECF";37} 10:33:51:800 RX <- {7;0;ValorTexto="DT030900000000105208";38} -- 10:33:51:801 UsuarioAtual TX -> {8;LeInteiro;NomeInteiro="ContadorProprietarios";48} 10:33:51:816 RX <- {8;0;ValorInteiro=1;19} -- 10:33:51:816 Estado TX -> {9;LeInteiro;NomeInteiro="EstadoFiscal";39} 10:33:51:828 RX <- {9;0;ValorInteiro=1;19} -- 10:33:51:829 TX -> {10;LeInteiro;NomeInteiro="Indicadores";39} 10:33:51:842 RX <- {10;0;ValorInteiro=6144;23} -- 10:33:51:842 Estado TX -> {11;LeInteiro;NomeInteiro="EstadoFiscal";40} 10:33:51:854 RX <- {11;0;ValorInteiro=1;20} -- 10:33:51:855 TX -> {12;LeInteiro;NomeInteiro="Indicadores";39} 10:33:51:866 RX <- {12;0;ValorInteiro=6144;23} -- 10:33:51:877 NumSerie TX -> {13;LeTexto;NomeTexto="NumeroSerieECF";38} 10:33:51:903 RX <- {13;0;ValorTexto="DT030900000000105208";39} -- 10:33:51:904 NumECF TX -> {14;LeInteiro;NomeInteiro="ECF";31} 10:33:51:916 RX <- {14;0;ValorInteiro=1;20} -- 10:33:51:920 DataHora TX -> {15;LeData;NomeData="Data";26} 10:33:51:934 RX <- {15;0;ValorData=#01/12/2014#;28} -- 10:33:51:934 TX -> {16;LeHora;NomeHora="Hora";26} 10:33:51:949 RX <- {16;0;ValorHora=#11:43:59#;26} -- 10:33:51:949 DataHora TX -> {17;LeData;NomeData="Data";26} 10:33:51:963 RX <- {17;0;ValorData=#01/12/2014#;28} -- 10:33:51:963 TX -> {18;LeHora;NomeHora="Hora";26} 10:33:51:977 RX <- {18;0;ValorHora=#11:43:59#;26} -- 10:33:54:681 Subtotal TX -> {19;LeMoeda;NomeDadoMonetario="TotalDocLiquido";47} 10:33:54:700 RX <- {19;0;ValorMoeda=0,7000;23} -- 10:34:02:180 Estado TX -> {20;LeInteiro;NomeInteiro="EstadoFiscal";40} 10:34:02:193 RX <- {20;0;ValorInteiro=1;20} -- 10:34:02:193 TX -> {21;LeInteiro;NomeInteiro="Indicadores";39} 10:34:02:206 RX <- {21;0;ValorInteiro=6144;23}

tive a curiosidade de fazer o seguinte teste, emitir um cupom e cancelar, e apos isso ler o valor da variavel SubTotal, e apos isso retorno correto, agora o pq nao sei dizer. será que tem de fazer algo como ABERTURA DIA FISCAL?

quando mando o comando ECF.SubTotal com o ecf em estado livre mesmo no demo retorna 0,7 como na imagem em anexo. ecf dataregis 3202DT na daruma retorna correto. fazendo testes com o demolog notei que ate mesmo ele, retorna 0,7 sem ter nada vendido no ecf. é muito estranho isso. ou seja nao tem nada errado com o acbr nao, só pode ser a ecf.

OK, vou testar e retorno se funcionou, obrigado mais uma vez pela atenção

perdao, mais ja li todas, inclusive respondir acima, falando como faço o procedimento aqui, usando fdcommand e nao fdquery ou fdstoredproc, alguem de voces usam o firebird 2.5.2 , será bug de versao ou de codigo?

alguem tem alguma sujestao?

eu executo depois de conectar o database no datamodule, e na hora de gerar alguns arquivos que precisa eu executo ela novamente pra garantir que seja passado a variavel, será esse o problema, ou o firebird 2.5( versao ) ou talvez porque nao estou executando usando objeto FDSTOREDPROC e sim um FDCOMMAND?

estou usando Firedac TFDCOMMAND será esse o problema ou algo com o firebird 2.5.2, sempre executo o set context apos conectar o banco de dados, sera isso? try CONTEXTO.Close; CONTEXTO.ParamByName('USU').AsString := sNomeUsuario; CONTEXTO.ParamByName('EMP').AsInteger := iEmp; CONTEXTO.ParamByName('APP').AsString := 'teste'; CONTEXTO.Execute(); except on E: Exception do begin ShowMessage('Erro ao executar comando ' + E.Message ); end; end;

ola a todos, uso a procedure set_context no firebird e em alguns clientes, acontece erro. V_APLICATIVO = RDB$GET_CONTEXT('USER_SESSION', 'APLICATIVO'); IF ( NOT( V_APLICATIVO = 'teste' ) OR ( V_APLICATIVO IS NULL ) ) THEN BEGIN EXCEPTION ACESSONEGADO; EXIT; END e sempre quando inicio o programa passo o valor correto para variavel V_APLICATIVO e em alguns clientes, cai na EXCEPTION, ou seja é como se o firebird nao tivesse recebendo a variavel passada, uso firebird 2.5.2 Delphi Xe6, se alguem tiver uma dica , agradeço.

Resolvido, atualizei os fontes como mensionado e funcionou normal.

ola a todos, ontem atualizei meu acbr, e antes disso como sempre faço ao gerar uma chave sempre consulto a mesma antes de transmitir, pra casos de erros de duplicidades, e apos a atualizacao do acbr sempre retorna o erro de Disgest Value invalido, e antes nao acontecia. Percebi o seguinte TNFeConsulta.Executar que era o metodo que funcionava na unit AcbrNFeWebServices.pas foi removido, e agora toda consulta retorna esse erro. gostaria de saber se tem algum solucao, atualizacao pra esse problema?

passos para instalar o rave no xe6: 1 - instalar usando o acbrinstall e nao marcar os pacotes para rave( recomendando rodar o bat pra limpar acbr do pc que vem junto no acbr ) 2 - abrir o delphi , abrir os dpk ele vai reclamar de FORMS.DCU, GRAPHICS.DCU -> Vcl.forms, Vcl.Graphics onde acusar falta é so renomear pro correspondente no xe6. 3 - compilar e instalar. testado e funcionando normal sem erros de DataSnap nem conflitos de pacotes. fica ai a dica

RESOLVIDO!!! o problema estava aqui // Alterado por Italo em 27/08/2014 if (FConfiguracoes.Geral.ModeloDF = moNFe) and (FConfiguracoes.Geral.VersaoDF = ve310) and (FConfiguracoes.WebServices.UFCodigo = 29) then begin Servico := '"http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico"'; SoapAction := 'http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico/NfeStatusServicoNF'; end else begin Servico := '"http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2"'; SoapAction := 'http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2'; end; estava comentado nos fontes do acbr, descomentei e voltou a funcionar. outra coisa q observei q meus metodos de consulta webservices.consulta.executar estava do mesmo modo e foi só descomentar. agora o porque nao sei, sempre mantenho meus fontes atualizados. APAGUEI MINHA PASTA DO ACBR E VOU MANDAR O CHECKOUT NOVAMENTE PARA TIRAR A PROVA

debugando no xe6 : Fversao := NFeRetorno.versao; FtpAmb := NFeRetorno.tpAmb; FverAplic := NFeRetorno.verAplic; FcStat := NFeRetorno.cStat; FxMotivo := NFeRetorno.xMotivo; FcUF := NFeRetorno.cUF; FdhRecbto := NFeRetorno.dhRecbto; FTMed := NFeRetorno.TMed; FdhRetorno:= NFeRetorno.dhRetorno; FxObs := NFeRetorno.xObs; todos retornam vazios, com exececao do tpamb que passo homologacao e retorna producao( não entendi esse ) e as datas que retorna 30/12/1989. nao entendi pq estou utilizando modo de homologacao e retorna no debug producao. e se manda emitir nfe emite normal como homologacao. se algem tiver mais uma dica o arquivo 20141112093108-sta.xml de pedido de status estao retornando com 0 kbytes sem nada dentro. FRetWS := SeparaDados( FRetornoWS,'nfeStatusServicoNF2Result'); if FRetWS = '' then // SEMPRE CAI NESSA LINHA FRetWS := SeparaDados( FRetornoWS,'NfeStatusServicoNFResult'); NFeRetorno := TRetConsStatServ.Create; NFeRetorno.Leitor.Arquivo := FRetWS; Retorna Vazio NFeRetorno.LerXml; xml cabecalho FRetornoWS <?xml version="1.0" encoding="utf-8"?><soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope"><soap12:Header><nfeCabecMsg xmlns=><cUF>17</cUF><versaoDados>3.10</versaoDados></nfeCabecMsg></soap12:Header><soap12:Body><nfeDadosMsg xmlns=><consStatServ xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10"><tpAmb>2</tpAmb><cUF>17</cUF><xServ>STATUS</xServ></consStatServ></nfeDadosMsg></soap12:Body></soap12:Envelope>

segue anexo abaixo imagem da consulta, ja testei em windows 7, windows 8.1 e todos retornam vazio. se enviar nfe , vai de boa, agora a consulta do status do servico nao funciona. estou usando ultima versao do svn e com delphi XE6+fast report

segue anexo abaixo imagem da consulta, ja testei em windows 7, windows 8.1 e todos retornam vazio. se enviar nfe , vai de boa, agora a consulta do status do servico nao funciona

ok, obrigado pelo dica.

entao vamos supor que pedir o periodo 01/11 a 09/11 e o dia corrente é 10/11=HOJE entao me baseio no estoque total /parcial nessa data de hoje, sendo q tenho uma tabela onde guarda o primeiro ecf que atualizou e a data do mesmo? e nao 01/11 que a data inicial de geracao do arquivo?

ola a todos , gostaria de saber em relacao ao estoque total e parcial, supomos que eu peça um periodo de 01/11/2014 a 10/11/2014 la deve constar o estoque inicial, esse estoque é referente a 01/11/2014 ou a data que estou gerando o arquivo?