magnosystem

Estou com um problema intermitente, ou seja, tem hora que vai tudo certo tem hora que o problema ocorre: Quando abro minha aplicação e deixo o gerenciador padrão desligado, a aplicação exibe um aviso que o GP não está ativo e irá ativá-lo. Nesse momento ocorre dois problemas: 1 - A aplicação exibe uma mensagem de erro dizendo que o gerenciador não está ativo, ao passo que posso notar que o mesmo está ativo. 2 - A mensagem de erro (Showmessage) perde o foco. Na realidade a aplicação inteira perde o foco. A princípio achei que era porque eu exibia as mensagens em outro form. Depois passei a exibir no mesmo form (conforme dicas deste post) mas o erro persiste. Já tentei diversas variações no ONRESTAURAFOCO. Coloquei igual ao DEMO, tratado = true, tratado = false, mas nada. O interessante é que eu só tenho problema de foco na abertura da aplicação. No mais durante as vendas, tudo OK.

Obrigado. Funcionou.

Eu também estou passando dificuldades devido a propriedade SAQUE estar zerada. Estou tentando fazer uma alteração e não estou tendo sucesso, visto que não entendo sobre criação de componentes, classes, etc... O que ocorre é o seguinte: Se você iniciar uma transação com 2,00 e for feito um saque de 3,00 será dado o retorno de 5,00, como se a operação tivesse sido feita com 5,00 quando na realidade é 2,00. O que eu estou tentando fazer é que dentro da função CRT a mesma guarde em uma variável pública a propriedade valor enviada para a CRT. O segundo passo é na função CONTEUDOTOPROPERTY quando vier o retorno do CAMPO 003 o valor do saque será o valortotal - o valor armazenado na CRT. Ex.: TRANSAÇÃO = 10,00 SAQUE = 5,00 TOTAL = 15,00 1 - Envia CRT(10,00) 2 - CRT armazena varíavel VALORSEMSAQUE = 10,00 3 - Cliente faz saque de 5,00. 4 - CONTEUDOTOPROPERTY faz a seguinte operação: Campo 003 >>> Valortotal = ValorRetornado ValorSaque = ValorRetornado - VALORSEMSAQUE Espero que tenha sido claro. Estou quebrando a cabeça e não consigo fazer este procedimento pois uma classe não enxerga a outra e assim vai.

Consegui resolver. No meu library path estava o caminho da NFE 2 em vez da NFE 1.

Eu instalei o da NFE 1.

OK, deu certo. Falta agora você fazer estas modificações no mesmo arquivo da pasta PCN, visto que só foi feito no arquivo da pasta PCN2

Atualizei o ACBR e estou tentando executar o DEMO da NFE. O demo começou a dar vários erros não reconhecendo por exemplo a propriedade VeicProd.CM3, VeicProd.CMKG entre outros tantos. Fui comentando algumas linhas até que executou. Entretanto não abre a janela na tela apesar do programa estar sendo executado. O que posso estar fazendo de errado ???

Ótimo. Mas só para constar. Depois que fiz esta atualização já fazem uns dois meses que não dá mais este erro. Esta atualização já está em umas quinze empresas.

Tenho somente um aqui. Mas clientes meus tiveram o mesmo problema com diversos fornecedores. Segue em anexo: stock.xml

Fiz uma modificação na rotina LERXML pois estava dando erro durante a importação da nota em alguns arquivos XML. A modificação é pequena e não altera em nada a lógica da aplicação. Segue abaixo o código: Try nItem := StrToInt(copy(ItensTemp,Pos('nItem=',ItensTemp) + 7,Pos('">',ItensTemp)-(Pos('nItem=',ItensTemp)+7))); Except nItem := StrToInt(StringReplace(copy(ItensTemp,Pos('nItem=',ItensTemp)+7,Pos('">',ItensTemp)-(Pos('nItem=',ItensTemp)+7)), '" xmlns="http://www.portalfiscal.inf.br/nfe', '', [rfReplaceAll, rfIgnoreCase])); end; // Coloquei esse try except Itens := StringReplace(Itens, ItensTemp, '',[]); ItensTemp := copy(Itens,Pos('',Itens)+6)-Pos('