[Erro Estranho Com Xe6 E Variavel]

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.

[Erro Estranho Com Xe6 E Variavel]

  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

[Erro Estranho Com Xe6 E Variavel]

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

[Erro Estranho Com Xe6 E Variavel]

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.

[Erro Estranho Com Xe6 E Variavel]

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.

[Problema Com Procedure Set_Context No Firebird]

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.

[Problema Com Funcao Subtotal Do Ecf]

--------------------------------------------------------------------------------

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}

[Problema Com Funcao Subtotal Do Ecf]

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?

[Problema Com Funcao Subtotal Do Ecf]

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.

[Problema Com Procedure Set_Context No Firebird]

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

[Problema Com Procedure Set_Context No Firebird]

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?

[Problema Com Procedure Set_Context No Firebird]

alguem tem alguma sujestao?

[Problema Com Procedure Set_Context No Firebird]

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?

[Problema Com Procedure Set_Context No Firebird]

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;

[Problema Com Procedure Set_Context No Firebird]

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.

[Erro Ao Consultar Chave Nfe Apos Atualizacao Acbr]

Resolvido, atualizei os fontes como mensionado e funcionou normal.

[Erro Ao Consultar Chave Nfe Apos Atualizacao Acbr]

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?

[Instalacao Rave Reports Xe6 100% Funcionando]

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

[Retorno De Consulta Status Serviço]

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

[Erro Ao Consultar Status Do Servico]

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>

[Erro Ao Consultar Status Do Servico]

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

[Erro Ao Consultar Status Do Servico]

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

[Registros Do Paf Estoque Total/parcial]

ok, obrigado pelo dica.

[Registros Do Paf Estoque Total/parcial]

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?

[Registros Do Paf Estoque Total/parcial]

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?