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.
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:
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:
Have any suggestions?
Thank you.
Re: Menu Problem with Windows XP
Posted: Fri May 27, 2016 11:48 pm
by cnavarro
Re: Menu Problem with Windows XP (SOLVED)
Posted: Mon May 30, 2016 2:06 pm
by tiaofw
Solved!
Thanks!