Page 1 of 1

Menu Problem with Windows XP (SOLVED)

Posted: Wed May 18, 2016 8:38 pm
by tiaofw
Good afternoon.

Someone has gone through this problem in Windows XP? see the screen below.

Image

The menu is all maladjusted, as highlighted in red on the screen.

Does anyone have a solution, as occurred in two machines with Windows XP.

Thank you.

Re: Menu Problem with Windows XP

Posted: Wed May 18, 2016 10:03 pm
by cnavarro
Your version of Fwh is 15.12 ?
It's run in TS? or VM?

Re: Menu Problem with Windows XP

Posted: Wed May 18, 2016 10:19 pm
by tiaofw
I use FWH 15:12.

Remotely accessing the customer with ShowMyPC.

Thank you.

Re: Menu Problem with Windows XP

Posted: Wed May 18, 2016 10:22 pm
by cnavarro
tiaofw wrote:I use FWH 15:12.

Remotely accessing the customer with ShowMyPC.

Thank you.

Please, execute at init of application or in a test program

? IsWinXP(), cWinVersion()

Added

and test also

? Os_IsWtsClient()

Re: Menu Problem with Windows XP

Posted: Thu May 19, 2016 2:37 pm
by tiaofw
Good Morning.

I put the command that you suggested the primary source and appeared these values:


Image


Follow the source of the stretch to analyze:

Code: Select all

menu oMenu

menuitem " &Arquivo "
menu
   menuitem " &Icms     "           action ecf_0001() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
   menuitem " &Unidades de Medida " action ecf_0008() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
   menuitem " &Produtos "           action ecf_0002() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
   menuitem " &Formas de Pagamento " action ecf_0003() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
   menuitem " &Clientes "           action ecf_0004() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
   menuitem " Us&uários "           action ecf_0005() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
   menuitem " &Bancos "           action ecf_0006() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
   menuitem " &Municípios "       action ecf_0007() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
   menuitem " &Recebimento Não Fiscal "  action ecf_0009() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
endmenu

menuitem " &Vendas " action (if(VerZpendente(.f.), (sysrefresh(), pro_a(oecf1), ljanabre := .f.), (desabECF := .t.))) when !desabECF .and. !ljanabre

menuitem " &Troca de Usuário " action TrocaUsu() //when !desabECF

menuitem " Relatórios Ope&racionais "
menu
   menuitem "Tabela de &Tributos "                    action rel_0001()
   menuitem "Tabela de &Unidades de Medida "          action rel_0013()
   menuitem "Tabela de &Produtos "                    action rel_0002()
   menuitem "Tabela de &Formas de Pagamento "         action rel_0003()
   menuitem "Tabela de &Clientes "                    action rel_0004()
   menuitem "Tabela de Funcio&nários "                action rel_0005()
   menuitem "Tabela de &Bancos "                      action rel_0009()
   menuitem "Tabela de &Municípios "                  action rel_0012()
   menuitem "Tabela &IBPT "                           action rel_0014()
   if !v_NFCE .or. (v_NFCE .and. !v_NFCE_ECF)
      menuitem
      menuitem "Apuração de &Vendas por Período "        action rel_0006()
      menuitem "Apuração de Vendas no Período por Pr&oduto" action rel_0010()
      menuitem "&Apuração de Vendas por Funcionário no Período " action rel_0008()
   endif
endmenu

//   menuitem "Visualizar CUPO&M por Número(CCF)"  action rel_0007()
//   menuitem "Visualizar CUPO&M por Número(COO)"  action rel_0007b()
//   menuitem "Visuali&zar CUPOM por Período" action rel_0011()

menuitem " &Outros "
menu
   if !v_NFCE
      menuitem " Abre Gaveta de &Dinheiro " action aciona_gaveta() when !desabECF
      menuitem " Espelho &MFD " action mfiscESP() when !desabECF
      menuitem " &Arq. TDM " action if(!grvcmdfis(if(_epson,  ;
               113, 10)), erro('ECF Desligado ou Desconectado!'), ArqTDM()) when !desabECF
      menuitem " Redução &Z " action reducao_z() when !desabECF
      menuitem " &Suprimento "                     ACTION SUPRIM() when !desabECF
      menuitem " S&angria "                        ACTION SANGRIA() when !desabECF
      menuitem " Entra em Horário de &Verão     "  ACTION ENTRA_VERAO() when !desabECF
      menuitem " Sai do &Horário de Verão       "  ACTION SAI_VERAO() when !desabECF
      menuitem " &Cancelar Último Cupom Fiscal Emitido "   ACTION EXC_ULTIMO() when !desabECF
      menuitem " Cancelar Último Cupom &Não Fiscal Emitido "   ACTION EXC_OPNF(, .t.) when !desabECF
   elseif v_nfce .and. v_NFCE_ECF
      menuitem
      menuitem " &Cancelar Último Cupom Fiscal Emitido "   ACTION EXC_ULTIMO() when !desabECF
   endif
   menuitem
   menuitem " Gerar Arquivo &Sintegra "         action sin_0001() // when !desabECF
   menuitem " Gerar Arquivo SPED &FISCAL "         action SPEDF() // when !desabECF
   menuitem
   menuitem " Administrativo &TEF "  ACTION ADM_TEF()
   if !_tefdedic
      menuitem " Administrativo TEF Tec&Ban    "   ACTION ADM_TecBan()
      menuitem " Administrativo TEF &HIPERCARD  "  ACTION ADM_Hiper()
      menuitem " Cancelamento TEF (CNC) " ACTION ecf_CNC()
   endif
   if v_hotel
      menuitem " PRE &AUTORIZAÇÃO TEF " ACTION ADM_TEF_PRE()
   endif
   if v_NFCE
      menuitem
      menuitem " NFC-E Envio Contingências &Pendentes "  ACTION Contingencia()
      menuitem " NFC-E Verifica STATUS Servidor SEFA&Z "  ACTION if(veStatus(), ok("Servidor Ativo!"), ok("Servidor Inativo!"))
      menuitem " NFC-&E Cancelamento "  ACTION Cancela_NFC()
      menuitem " NFC-&E Inutilização de Numeração "  ACTION INUTILIZA()
      menuitem " NFC-&E Reimpressão "  ACTION Reimprime_NFC()
   endif

endmenu
menuitem " &Utilitários "
menu
   menuitem " &Backup dos Dados "                    action backup()
   menuitem " &Restauração dos Dados "               action restore()
   menuitem " Recriar índ&ices dos Arquivos" action if(continua('Deseja Recriar os Índices?'),(cria_indices(),abre_arquivos()),Nil)
   if !v_NFCE .and. !v_NFManual
      menuitem " &Documentos Fiscais Manuais " action ecf_nfd() // when _ligaNFD // desabECF
   endif
   menuitem " &Configuração " action (pede_configuracao(),abre_arquivos(),sysrefresh())
*   menuitem " C&alculadora " action winexec('calc')
   menuitem " Transmitir Cupons ao S&ervidor " action reenvia() when v_retaguar == 1 // .and. v_retaguar <= 2
   menuitem " Ler Arquivos do &Servidor " action (status_serv := .t., desat_time(0), ;
            if(ver_servidor(.f.,.t.), ok('Servidor Ligado. Processo concluído com êxito!'), ;
            erro('Servidor não encontrado ou desligado em '+v_dirserver)), desat_time(1)) ;
            when v_retaguar == 1 // v_retaguar >= 1 .and. v_retaguar <= 2
   if !v_NFCE
      menuitem " &Ato Cotepe 35/05 (DF/PE) "  action ATO3505(.t.)
   endif
endmenu

menuitem " &Sair " ACTION sai_ecf()
endmenu

return omenu
 
Thank you.

Re: Menu Problem with Windows XP

Posted: Thu May 19, 2016 4:53 pm
by cnavarro
Problem is with Os_IsWtsClient(), non detect ShowMyPc

Please try

Code: Select all

// define font ofont or use font defined before ( for example oWnd:oFont -> window initial of aplication if is visible )

menu oMenu FONT oFont

 
I'll see if I can find a solution for ShowMyPc

Re: Menu Problem with Windows XP

Posted: Fri May 20, 2016 6:38 pm
by tiaofw
Good afternoon.

Thanks for the answer.

I contacted the user and he informed me that the menu this misfit, even though I was not accessing his computer by ShowMyPC.

I think it is some other problem related to WINDOWS XP.

You can verify?

Thank you

Re: Menu Problem with Windows XP

Posted: Fri May 27, 2016 9:42 pm
by tiaofw
cnavarro wrote:Problem is with Os_IsWtsClient(), non detect ShowMyPc

Please try

Code: Select all

// define font ofont or use font defined before ( for example oWnd:oFont -> window initial of aplication if is visible )

menu oMenu FONT oFont

 
I'll see if I can find a solution for ShowMyPc

Good afternoon Canavarro.

I implemented their suggestion and also includes the clause 2010 MENU TO command as follows:

Code: Select all


DEFINE FONT fnt_menu NAME "Ms Sans Serif" SIZE 0, if(cResTela >= 1600, -16, if(cResTela <= 1024, -12, -14))

DEFINE WINDOW oecf1 TITLE _sistema+if(v_retaguar # 1, "", ;
       if(!status_serv,space(30)+'SEM COMUNICAÇÃO COM SERVIDOR',;
       ''))+' | F6 - MENU FISCAL | '+alltrim(upper(_empresa))+ ;
       ' CNPJ:'+alltrim(_cgc)+if(v_nfce, if(aecf->NFCPROD, ;
       ' | '+"NFC-E EM AMBIENTE DE PRODUÇÃO", ' | '+"NFC-E EM AMBIENTE DE HOMOLOGAÇÃO"), '');
       menu omenu ICON ICO_ecf //MDI ICON ICO_ecf

   ACTIVATE WINDOW oECF1 MAXIMIZED ON INIT (omenu:ofont := fnt_menu, ;
            oecf1:refresh(.t.), LOG_ECF()) VALID if(var_saida, ;
            .t.,sai_ecf())

   fnt_ecf:end()
   fnt_say:end()
   fnt_barstat:end()
   fnt_menu:end()

   if valtype(oImag) # 'U'
      oImag:end()
   end

   oECF1:end()

   set resources to

   resallfree()

   freelibrary(hLib)

   dbcloseall()

RETURN NIL

Function Cria_Menu(vnivel)
******************

local oMenu

default vnivel := 2

if vnivel == 1 .and. v_superM
   menu oMenu 2010
        menuitem " &Sair " ACTION sai_ecf()
   endmenu

   oecf1:SetMenu(oMenu)
   if !ljanabre
      if VerZpendente(.f.)

/*
         IF oTmMsg # Nil      // STOP IF RUNING
            oTmMsg:End()
            oTmMsg := Nil
         ENDIF

         Define Timer oTmMsg Interval 1000 Action ver_servidor() of oecf1

         ACTIVATE TIMER oTmMsg
*/

         desat_time(1)

         pro_a(oecf1)
         ljanabre := .f.

      else
         desabECF := .f.
      endif
   endif
   return
endif

menu oMenu 2010

menuitem "  &Arquivo        "
menu
   menuitem " &Icms     "           action ecf_0001() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
   menuitem " &Unidades de Medida " action ecf_0008() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
   menuitem " &Produtos "           action ecf_0002() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
   menuitem " &Formas de Pagamento " action ecf_0003() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
   menuitem " &Clientes "           action ecf_0004() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
   menuitem " Us&uários "           action ecf_0005() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
   menuitem " &Bancos "           action ecf_0006() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
   menuitem " &Municípios "       action ecf_0007() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
   menuitem " &Recebimento Não Fiscal "  action ecf_0009() when v_retaguar # 1 // v_retaguar = 0 .or. v_retaguar = 3
endmenu

menuitem "  &Vendas        " action (if(VerZpendente(.f.), (sysrefresh(), pro_a(oecf1), ljanabre := .f.), (desabECF := .t.))) when !desabECF .and. !ljanabre

menuitem "    &Troca de Usuário           " action TrocaUsu() //when !desabECF

menuitem "      Relatórios Ope&racionais           "
menu
   menuitem "Tabela de &Tributos "                    action rel_0001()
   menuitem "Tabela de &Unidades de Medida "          action rel_0013()
   menuitem "Tabela de &Produtos "                    action rel_0002()
   menuitem "Tabela de &Formas de Pagamento "         action rel_0003()
   menuitem "Tabela de &Clientes "                    action rel_0004()
   menuitem "Tabela de Funcio&nários "                action rel_0005()
   menuitem "Tabela de &Bancos "                      action rel_0009()
   menuitem "Tabela de &Municípios "                  action rel_0012()
   menuitem "Tabela &IBPT "                           action rel_0014()
   if !v_NFCE .or. (v_NFCE .and. !v_NFCE_ECF)
      menuitem
      menuitem "Apuração de &Vendas por Período "        action rel_0006()
      menuitem "Apuração de Vendas no Período por Pr&oduto" action rel_0010()
      menuitem "&Apuração de Vendas por Funcionário no Período " action rel_0008()
   endif
endmenu

//   menuitem "Visualizar CUPO&M por Número(CCF)"  action rel_0007()
//   menuitem "Visualizar CUPO&M por Número(COO)"  action rel_0007b()
//   menuitem "Visuali&zar CUPOM por Período" action rel_0011()

menuitem "   &Outros      "
menu
   if !v_NFCE
      menuitem " Abre Gaveta de &Dinheiro " action aciona_gaveta() when !desabECF
      menuitem " Espelho &MFD " action mfiscESP() when !desabECF
      menuitem " &Arq. TDM " action if(!grvcmdfis(if(_epson,  ;
               113, 10)), erro('ECF Desligado ou Desconectado!'), ArqTDM()) when !desabECF
      menuitem " Redução &Z " action reducao_z() when !desabECF
      menuitem " &Suprimento "                     ACTION SUPRIM() when !desabECF
      menuitem " S&angria "                        ACTION SANGRIA() when !desabECF
      menuitem " Entra em Horário de &Verão     "  ACTION ENTRA_VERAO() when !desabECF
      menuitem " Sai do &Horário de Verão       "  ACTION SAI_VERAO() when !desabECF
      menuitem " &Cancelar Último Cupom Fiscal Emitido "   ACTION EXC_ULTIMO() when !desabECF
      menuitem " Cancelar Último Cupom &Não Fiscal Emitido "   ACTION EXC_OPNF(, .t.) when !desabECF
   elseif v_nfce .and. v_NFCE_ECF
      menuitem
      menuitem " &Cancelar Último Cupom Fiscal Emitido "   ACTION EXC_ULTIMO() when !desabECF
   endif
   menuitem
   menuitem " Gerar Arquivo &Sintegra "         action sin_0001() // when !desabECF
   menuitem " Gerar Arquivo SPED &FISCAL "         action SPEDF() // when !desabECF
   menuitem
   menuitem " Administrativo &TEF "  ACTION ADM_TEF()
   if !_tefdedic
      menuitem " Administrativo TEF Tec&Ban    "   ACTION ADM_TecBan()
      menuitem " Administrativo TEF &HIPERCARD  "  ACTION ADM_Hiper()
      menuitem " Cancelamento TEF (CNC) " ACTION ecf_CNC()
   endif
   if v_hotel
      menuitem " PRE &AUTORIZAÇÃO TEF " ACTION ADM_TEF_PRE()
   endif
   if v_NFCE
      menuitem
      menuitem " NFC-E Envio Contingências &Pendentes "  ACTION Contingencia()
      menuitem " NFC-E Verifica STATUS Servidor SEFA&Z "  ACTION if(veStatus(), ok("Servidor Ativo!"), ok("Servidor Inativo!"))
      menuitem " NFC-&E Cancelamento "  ACTION Cancela_NFC()
      menuitem " NFC-&E Inutilização de Numeração "  ACTION INUTILIZA()
      menuitem " NFC-&E Reimpressão "  ACTION Reimprime_NFC()
   endif

endmenu
menuitem "   &Utilitários      "
menu
   menuitem " &Backup dos Dados "                    action backup()
   menuitem " &Restauração dos Dados "               action restore()
   menuitem " Recriar índ&ices dos Arquivos" action if(continua('Deseja Recriar os Índices?'),(cria_indices(),abre_arquivos()),Nil)
   if !v_NFCE .and. !v_NFManual
      menuitem " &Documentos Fiscais Manuais " action ecf_nfd() // when _ligaNFD // desabECF
   endif
   menuitem " &Configuração " action (pede_configuracao(),abre_arquivos(),sysrefresh())
*   menuitem " C&alculadora " action winexec('calc')
   menuitem " Transmitir Cupons ao S&ervidor " action reenvia() when v_retaguar == 1 // .and. v_retaguar <= 2
   menuitem " Ler Arquivos do &Servidor " action (status_serv := .t., desat_time(0), ;
            if(ver_servidor(.f.,.t.), ok('Servidor Ligado. Processo concluído com êxito!'), ;
            erro('Servidor não encontrado ou desligado em '+v_dirserver)), desat_time(1)) ;
            when v_retaguar == 1 // v_retaguar >= 1 .and. v_retaguar <= 2
   if !v_NFCE
      menuitem " &Ato Cotepe 35/05 (DF/PE) "  action ATO3505(.t.)
   endif
endmenu

menuitem "   &Sair      " ACTION sai_ecf()
endmenu

return omenu

 

After changes to the system screen looked like this:


Image


Have any suggestions?

Thank you.

Re: Menu Problem with Windows XP

Posted: Fri May 27, 2016 11:48 pm
by cnavarro
Try with

Code: Select all


MENU oMenu 2010 FONT fnt_menu
 

Re: Menu Problem with Windows XP (SOLVED)

Posted: Mon May 30, 2016 2:06 pm
by tiaofw
Solved!

Thanks!