Harbour + Visual LIB

[asimoes]

Olá Antonio,

Comenta as linhas que tem case: Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) deixa só o wvt_setfont que está para resolução >= 1024 e nos informa o que acontece.

[]´s

[sygecom]

Nosssssaaaaa foi longe esse topico, espero que o colega tenha resolvido, qualquer coisa prende o grito.

[Antonio]

Ola Leonardo,

Como eu disse, o que consegui foi chegar ao ponto em que voce chega, tanto com Harbour quanto com xHarbour.

O lance da fonte.fnt eu desisti, não tem como... pelo mesmo aqui.

[sygecom]

Menos mal que resolveu, o negocio da fonte é interresante mas eu nem cheguei a testar, no momento estou dedicando somente com Hwgui e 100% envolvido com Sped Contabil,Sped Fiscal, NFe, NFP e etc...

[Antonio]

Blz,

Eu passei o final de semana montando a Mingui Extend com o Turbo Explorer 2006 e o Harbour SVN (20/06/2009).

Agora vou partir para a definição.

Com relação a NFP, parece que o necessario esta na Partaria CAT 98/07 / CAT 85/07 (modelo 2 - consumidor), não é isso?

[sygecom]

Tche, é tanta coisa que nem sei, isso que nem uso ECF, mas tenho varios clientes que começa agora em Julho na NFP, da portaria CAT 102/07 Modelo 01 e 01-A.

[Antonio]

É isso mesmo...

Modelo 1 e 1A portaria CAT 102/07
Modelo 2 Partaria CAT 98/07 / CAT 85/07

o ECF deve estar na mesma CAT 102/07, vou dar uma olhada e tantar implementar.


Abs

[microvolution]

Prezado Antônio, usei seu código acima, mas deu um montão de erro de "undefined". veja-os:
====
linker main.o:main.prg: undefined reference to "WTV_SETCODEPAGE"
linker main.o:main.prg: undefined reference to "VLSETMODE"
linker main.o:main.prg: undefined reference to "WTV_SETFONT"
linker main.o:main.prg: undefined reference to "WTV_SETALTF4CLOSE"
linker main.o:main.prg: undefined reference to "WTV_SETITLE"
... e por aí vai...

Agradeço se puder informar-me o que está acontecendo.
Lembrando que o seu código é esse que está aqui abaixo:
====

Código: Selecionar todos

#include "inkey.ch" 
#include "visual2.ch" 
#include "wvtwin.ch"   // em razão do FW_MEDIUM 
#include "hbgtinfo.ch"  // HB_GTI_DESKTOPWIDTH 

INIT FUNCTION MOLDER() 
	REQUEST HB_LANG_PT 
	REQUEST HB_CODEPAGE_PT850 
	HB_LANGSELECT("PT") 
	HB_SetCODEPAGE( "PT850" ) 
	REQUEST WVT_SETCODEPAGE 
	WVT_SETCODEPAGE(255) //850 

	SETMODE(25,80) 
	   
	 AddFont() 
	   
	 SET TYPEAHEAD TO 0 
	 SET INTENSITY ON 
	 SET SCOREBOARD OFF 
	SET DELETED ON 
	 SET SAFETY OFF 
	 SET DATE BRITISH 
	 SET ESCAPE ON 
	 SET CENTURY ON 
	 SET DELIMITERS TO 
	SET CURSOR OFF 
	 SET EXCLUSIVE OFF 
	 SET WRAP ON 
	 SET EPOCH TO 1990 
	
	  Do Case 
		Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) >= 1024 
               Wvt_SetFont('VisualLib',28,11,FW_MEDIUM,2) //28,10,0  FW_NORMAL, FW_BOLD, FW_BLACK 
          Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) >= 800 
	Wvt_SetFont('VisualLib',21,11,FW_MEDIUM,2) //28,10,0  FW_NORMAL, FW_BOLD, FW_BLACK 
	  OtherWise 
	          Wvt_SetFont('VisualLib',15,7,FW_MEDIUM,2) //28,10,0  FW_NORMAL, FW_BOLD, FW_BLACK 
	  EndCase 
	
	WvT_SetAltF4Close( .F. ) 
	*WvT_SetPointer( 0, 100 ) // AQUI DA PAU ACREDITO QUE SEJA ALGO RELACIONADO COM O PONTEIRO DO MOUSE, NÃO VOU USAR 
	WvT_SetTITLE('Sistema X - Vs.1.0') 
	RETURN Nil 
	
	FUNCTION MAIN() 
	
	 	MENSAGEM    :="Agendament System Protocol & Service" 

          DESKTOP( MENSAGEM , WT_VERM1CINZA , WD_VERM1CINZA ) 
   
     * Menu do Sistema 
    mBar  := NewBarMenu() 
   
    mARQ  := NewDownMenu() 
    mARQ1 := NewDownMenu() 

    AddDownItem( mARQ  , "&1 - Clientes"               , Hb_AnsiToOem("Sistema Cadastro de Clientes"),) 
    AddDownSep ( mARQ ) 
    AddDownItem( mARQ  , "&2 - Protocolos"             , Hb_AnsiToOem("Sistema Cadastro de Protocolos de Remessa e Recebimento"),mARQ1 ) 
    AddDownItem( mARQ1 , "&A - Protocolos Remessa "    , Hb_AnsiToOem("Cadastro de Protocolos de Remessa")    , {|| Msgbox("oi")    , WaitState(), RstEnv( aEnv ) }) 
    AddDownItem( mARQ1 , "&B - Protocolos Recebimento" , Hb_AnsiToOem("Cadastro de Protocolos de Recebimento"), {|| MsgBox1("E ai?"), WaitState(), RstEnv( aEnv ) }) 
   
         AddBarItem( mBar, "&Arquivos"     ,  "Sistema Controle de Clientes"  , mARQ ) 
   
    Private aENV := SavEnv(0,0,24,79) 
    while .t. 
          BarMenu( mBar )                                              
          set key K_F10 to                                          
          SetKeyMouse( K_F10, {} )                                    
          VLExit()                                                    
          set key K_F10 to saida()                                    
          SetKeyMouse( K_F10, { 24, 24, 72, 79 } )                    
    End 
   
 * End of Function Main() 
 RETURN nil 
   
 FUNCTION Saida() 
    aKM := SetKeyMouse( K_F10, {} ) 
    set key K_F10 to    
    VLExit() 
    set key K_F10 to saida() 
    SetKeyMouse( K_F10, aKM )              
 RETURN nil 
   
 STATIC FUNCTION AddFont() 
	Local nRet := AddFontResource("VISUALLIB.TTF") 
	If nRet == 0 
	    MsgBox("A fonte VISUALLIB.TTF não foi adicionada ao sistema.") 
	 Else 
	     MsgBox("A fonte VISUALLIB.TTF foi adicionada ao sistema.") 
	EndIf 
 RETURN Nil 

 STATIC FUNCTION RemoveFont() 
	Local lRet := RemoveFontResource("VISUALLIB.TTF") 
	 If lRet == .f. 
	       MsgBox("Houve um erro na remoção da fonte VISUALLIB.TTF.","Aviso") 
	Else 
	      MsgBox("A fonte VISUALLIB.TTF foi removida com sucesso.","Aviso") 
	    EndIf 
 RETURN Nil 

===


Vlw pessoal!