Menu Problem with Windows XP (SOLVED)

[tiaofw]

Good afternoon.

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



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.

[cnavarro]

Your version of Fwh is 15.12 ?
It's run in TS? or VM?

[tiaofw]

I use FWH 15:12.

Remotely accessing the customer with ShowMyPC.

Thank you.

[cnavarro]

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()

[tiaofw]

Good Morning.

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





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.

[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

[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

[tiaofw]

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:





Have any suggestions?

Thank you.

[cnavarro]

Try with

Code: Select all

MENU oMenu 2010 FONT fnt_menu
 

[tiaofw]

Solved!

Thanks!