Jump to content
Fivewin Brasil

Marca

Membros
  • Posts

    1,425
  • Joined

  • Last visited

  • Days Won

    27

Marca last won the day on January 31 2022

Marca had the most liked content!

Profile Information

  • Gender
    Not Telling

Recent Profile Visitors

1,466 profile views
  1. Boa tarde a todos Alguém ai usando HarbourBoleto para emissão de boleto bancário da Caixa Econônica homologado que possa me dar uma luz ?
  2. Por acaso é exatamente o BUTTONBMP
  3. Da o erro ela sendo .T. na lógica se quer poderia ter saido do while Ai esta o problema.
  4. Opa Bom dia JmSilva Eu já uso esta função em outros casos irei aplicar ela na rotina de saida da tela pra ver se me mostra de onde vem O mais estranho ainda é que isso acontece de chamar a rotina de saida estando dentro de um DO WHILE é mole não poderia sair em hipotese alguma sem os condicionais e se saisse o log pegaria o que mostra q. isso esta sendo executado em segundo plano. DO WHILE nInc < nFinal .AND. lContinue ENDDO E caso tivesse saido seira pego nInc := 1 GravaLogDia("Saiu do WHILE GERAL geral :" + oLbx:cAlias + " COM lBrowseVdEmProcesso : " + RetornaValorVar( lBrowseVdEmProcesso ) , "SVE") SetaArea(cArqTemp)
  5. Puts. O fonte onde acontece isso é gigante João. Mais uma vez q. saiu do valid da dialog concorda q. não poderia mais executar a rotina por já ter saido dela ?
  6. Pra variar vc não leu o fonte né !!!! coisas de curintiano O On Init nada mais faz do que as configurações de fontes , menus e outras coisas relativas a tela ON INIT ( Ini_Dialogs(oDlgVd,,cFonteTela) ,; BarraTelVd(oDlgVd,oBrVd,oGrupo[7]),; SetsVendas( cFonteTela ) ) Já o VALID SairTelaVenda( oDlgVd ) Faz o fechamento da mesma Grave ao entrar antes do DEFINE DIALOG Isso já e feito. Ete log q. tem ai é somente a parte q. interessa ser vista nada anterior a isso irá fazer diferenteça no problema que esta acontecendo E a saida do ACTIVATE DIALOG É exatamente o que esta sendo mostrado ali no log
  7. Bom dia a todos Pessoal. Estou tendo um problema com uma tela onde a função de saida de tela SairTelaVenda() esta sendo executada por mais de uma vez E só existe uma chamada desta tela que é lo valid da dialog. Uma vez confirmada a saida ela em algum momento é chamada novamente Observem a linha 3 08:20:14-BALCAO22-MONICA-393610-Confirmou a saida da tela de vendas com o texto Deseja realmente sair da venda ? e a linha 14 08:20:23-BALCAO22-MONICA-393610-Confirmou a saida da tela de vendas com o texto Deseja realmente sair da venda ? De alguma maneira se repetem Esta linha 14 não poderia existir devido a todo o processo ter sido finalizado na linha 13 mais de alguma maneira isso acontece Algúem já passou por algo semalhante ? 1 08:20:13-BALCAO22-MONICA-393610-Voltou o foco 2 08:20:13-BALCAO22-MONICA-393610-Retornando de TeclaVenda TEVD02901834080338 3 08:20:14-BALCAO22-MONICA-393610-Confirmou a saida da tela de vendas com o texto Deseja realmente sair da venda ? 4 08:20:14-BALCAO22-MONICA-393610-Retornou de SairTelaVenda como VERDADEIRO 5 08:20:14-BALCAO22-MONICA-393610-FINALIZANDO TELA DE VENDAS em temporário TEVD02901834080338 6 08:20:14-BALCAO22-MONICA-393610-Fechamento padrão do temporario : TEVD02901834080338 7 08:20:14-BALCAO22-MONICA-393610-Executando exclusão do temporário : TEVD02901834080338 : C:\sven\TE\TEVD02901834080338.DBF 8 08:20:14-BALCAO22-MONICA-393610-Executando exclusão do temporário : TEVD02901834080338 : C:\sven\TE\TEVD02901834080338.fpt 9 08:20:14-BALCAO22-MONICA-393610-NAO FOI ENCONTRADO NENHUM ARQUIVO : K:\sven\TEVD02901834080338.prn PARA EXCLUSÃO 10 08:20:14-BALCAO22-MONICA-393610-Finalizando venda em temporário TEVD02901834080338 11 08:20:14-BALCAO22-MONICA-393610-Nome atual do temporário de venda TEVD02901834080338 12 08:20:14-BALCAO22-MONICA-393610-Novo nome do temporário de venda FIMVD 13 08:20:14-BALCAO22-MONICA-393610-Trocou o nome e saiu FIMVD 14 08:20:23-BALCAO22-MONICA-393610-Confirmou a saida da tela de vendas com o texto Deseja realmente sair da venda ? 15 08:20:23-BALCAO22-MONICA-393610-Retornou de SairTelaVenda como VERDADEIRO ACTIVATE DIALOG oDlgVd CENTERED ON INIT ( Ini_Dialogs(oDlgVd,,cFonteTela) ,; BarraTelVd(oDlgVd,oBrVd,oGrupo[7]),; SetsVendas( cFonteTela ) ) ; VALID SairTelaVenda( oDlgVd ) *************************************//*************************************** STATIC FUNCTION SairTelaVenda( oDialogVd ) **************************************//*************************************** LOCAL lFinalizarTelaVd := .F. IF lBrowseVdEmProcesso GravaLogDia("Tentou sair sendo que o lBrowseVdEmProcesso estava como VERDADEIRO", "SVE") ELSE IF MSG( "Deseja realmente sair da venda" ,"ATENÇÃO","YESNO") IF p_Arg1 = "O" .AND. p_nPedido > 0 cQueryDav := "UPDATE orcamto SET coo_dav = " + ANY2SQL( 0 ) + " WHERE pedido = " + ANY2SQL(p_nPedido) p_nPedido := 0 MyMsgRun("Aguarde... Liberando a utilização do Dav ","AGUARDE...", {|| GravaBase(cQueryDav,"Orcamto") }) ENDIF GravaLogDia("Confirmou a saida da tela de vendas com o texto " + "Deseja realmente sair da venda", "SVE") lFinalizarTelaVd := .T. ENDIF ENDIF GravaLogDia("Retornou de SairTelaVenda como " + IF(lFinalizarTelaVd,"VERDADEIRO","FALSO") , "SVE") IF lFinalizarTelaVd MyMsgRun("Finalizando operação ........","AGUARDE", {|| TerminaProcessoVenda( oDialogVd ) }, "Engrena.gif" ) ENDIF RETURN lFinalizarTelaVd ************************************************************************ STATIC FUNCTION TerminaProcessoVenda( oDialogVd ) ************************************************************************ GravaLogDia( "FINALIZANDO TELA DE VENDAS em temporário " + cArqVendas , "SVE" ) IF File(oPub:wPathTemp + cArqParc + ".DBF") // Caso seja um orcamento com cond. de pgto MyMsgRun("Finalizando arquivo de parcelas ........","AGUARDE", {|| Fecha_Temp(cArqVendas,.T.) }, "Engrena.gif" ) GravaLogDia( "Finalizando Temporario das parcelas no final da venda em vd_00 " + cArqVendas , "SVE" ) ENDIF IF !oPub:lControleErr GravaLogDia( "Nome atual do temporário de venda " + cArqVendas , "SVE" ) cArqVendas := "FIMVD" GravaLogDia( "Novo nome do temporário de venda " + cArqVendas , "SVE") ENDIF WaitSeconds( 0.5 ) *HB_GCAll(.T.) GravaLogDia( "Trocou o nome e saiu " + cArqTemp , "SVE") RETURN .T.
  8. Tbem preciso disso e até então não consegui
  9. Eduardo. Eu entendo que este seja o procedimento correto. O Contador não tem do que reclamar. São dois processos completamente diferente Um de emissão e outro do cancelamento.
  10. A ideia e bem interessante Alguém teria um exemplo que funcione ? Tentei com vários outros códigos aqui e nenhum deles funcionou Este do exemplo do João foi o único q. consegui fazer rodar http://www.eanpictures.com.br:9000/api/gtin/78986793 NÃO ACHA http://www.eanpictures.com.br:9000/api/gtin/78986793 NÃO ACHA http://www.eanpictures.com.br:9000/api/gtin/78938583 NÃO ACHA http://www.eanpictures.com.br:9000/api/gtin/78940610 NÃO ACHA http://www.eanpictures.com.br:9000/api/gtin/78989293 NÃO ACHA http://www.eanpictures.com.br:9000/api/gtin/78938583 NÃO ACHA
  11. Marcio. Vc já fez exatamente esta mesma pergunta a um tempo atrás. Este controle não existe no Pelles a única mandeira de fazer isso é com bitmaps conforme o Kapiaba falou
  12. Muito boa a explicação parabéns
  13. Emotta Não sou o Jon!!!!! e perdão por responder pq. vc direcionou a pergunta a ele. Sendo q. utilizo o xBrowse bastante e com ele nunca tive este problema Já no TwBrowse do Herman isso acontece direto comigo tive q. fazer um ajuste na classe pra melhorar. Não consegui sanar o problema tbem.
×
×
  • Create New...