Manoel Marinho

// Cadastro de Bancos #include "FiveWin.ch" #include "Report.ch" static oBrw static oLbx static oEdt static oCODIGO static oNOME static oNUMAGE static oNOMAGE function CadBan() close databases private mCODIGO := space( 3 ) private mNOME := space( 20 ) private mNUMAGE := space( 5 ) private mNOMAGE := space( 20 ) SelectDbf( "CadBan", .f., 5, curdir() ) CadBan->( dbsetorder( 2 ) ) CadBan->( dbgotop() ) DEFINE DIALOG oBrw RESOURCE "BrowseMedio" oBrw:lHelpIcon := .f. oBrw:cCaption := "Cadastro de Bancos" oBrw:bKeyDown := { | nKey | if( nKey == 13, Editar( .f. ), .t. ) } REDEFINE LISTBOX oLbx ; FIELDS CadBan->CODIGO, ; CadBan->NOME, ; CadBan->NUMAGE, ; CadBan->NOMAGE ; HEADERS "Código", ; "Banco", ; "Agência", ; "Nome Agência" ; on DBLCLICK Editar( .F. ) ; ID 101 OF oBrw ACTIVATE DIALOG oBrw RESIZE16 CENTER on init Barra() close databases return NIL static function Barra() local oBar local oCur local oBtnInc local oBtnAlt local oBtnExc local oBtnFim local oBtnImp DEFINE CURSOR oCur HAND DEFINE BUTTONBAR oBar 3D SIZE 51, 31 OF oBrw CURSOR oCur DEFINE BUTTON oBtnInc OF oBar RESOURCE "INCLUIR" TOOLTIP "Incluir novo banco" ACTION Editar( .T. ) DEFINE BUTTON oBtnAlt OF oBar RESOURCE "ALTERAR" TOOLTIP "Alterar banco selecionado" ACTION Editar( .F. ) DEFINE BUTTON oBtnExc OF oBar RESOURCE "EXCLUIR" TOOLTIP "Excluir banco selecionado" ACTION Excluir() DEFINE BUTTON oBtnImp OF oBar RESOURCE "IMPRIMIR" TOOLTIP "Imprimir cadastro de bancos" ACTION Imprimir() DEFINE BUTTON oBtnFim OF oBar RESOURCE "SAIR" TOOLTIP "Fecha cadastro de bancos" ACTION oBrw:End() GROUP return NIL static function Editar( lInclusao ) local oBtnGra local oBtnCan local nREG := CadBan->( recno() ) if lInclusao if !AcessoOK( USU_BANINC ) MsgStop( "Sua senha não permite incluir.", "Atenção" ) return NIL endif else if !AcessoOK( USU_BANALT ) MsgStop( "Sua senha não permite alterar.", "Atenção" ) return NIL endif endif DEFINE DIALOG oEdt RESOURCE "CadBanEdit" oEdt:lHelpIcon := .f. if lInclusao oEdt:cCaption := "Inclusão de Banco" VarMem() //CadBan->( dbclearfil() ) //CadBan->( dbsetorder( 1 ) ) //CadBan->( dbgobottom() ) //mCODIGO := strzero( val( CadBan->CODIGO ) + 1, len( CadBan->CODIGO ), 0 ) //CadBan->( dbsetorder( 2 ) ) //CadBan->( dbgoto( nREG ) ) else oEdt:cCaption := "Alteração de Banco" if CadBan->CODIGO == "000" MsgStop( ac("NÆo ‚ permitido alterar."), "Atenção" ) return NIL endif GetRec() endif REDEFINE get oCODIGO var mCODIGO picture "999" ID 110 OF oEdt //when .F. REDEFINE get oNOME var mNOME picture "@S30" ID 120 OF oEdt valid !empty( mNOME ) REDEFINE get oNUMAGE var mNUMAGE picture "99999" ID 130 OF oEdt REDEFINE get oNOMAGE var mNOMAGE picture "@!" ID 140 OF oEdt REDEFINE BTNBMP oBtnGra PROMPT "" ID 210 OF oEdt RESOURCE "CONFIRMAR" oBtnGra:bAction := { || PutRec( lInclusao ), oEdt:End() } REDEFINE BTNBMP oBtnCan PROMPT "" ID 220 OF oEdt RESOURCE "CANCELAR" CANCEL oBtnCan:bAction := { || oEdt:End() } ACTIVATE DIALOG oEdt RESIZE16 CENTER on init oNOME:SetFocus() oLbx:UpStable() oLbx:Refresh() oLbx:SetFocus() return NIL static function Excluir() if !AcessoOK( USU_BANEXC ) MsgStop( "Sua senha não permite excluir.", "Atenção" ) return NIL endif if CadBan->CODIGO == "000" MsgStop( ac("NÆo ‚ permitido excluir."), "Atenção" ) return NIL endif if MsgNoYes( alltrim( CadBan->NOME ) + " - Confirma Exclusão ?", "Confirmação" ) if CadBan->( dbrlock() ) CadBan->( dbdelete() ) CadBan->( dbunlock() ) CadBan->( dbgotop() ) oLbx:UpStable() oLbx:Refresh() oLbx:SetFocus() else MsgStop( "Não foi possível excluir.", "Atenção" ) endif endif return NIL static function Imprimir() local oRpt local oFnt if !AcessoOK( USU_BANIMP ) MsgStop( "Sua senha não permite imprimir.", "Atenção" ) return NIL endif CadBan->( dbsetorder( 2 ) ) CadBan->( dbgotop() ) DEFINE FONT oFnt NAME "VERDANA" SIZE 0, -12 REPORT oRpt ; CAPTION "Visualização de Relatório" ; TITLE Centra3( dtoc( dDataProc ), "CADASTRO DE BANCOS", "Folha: " + strzero( oRpt:nPage, 3 ), 54 ), ; alltrim( cNomeEmpresa ) ; FONT oFnt ; PREVIEW COLUMN TITLE "Código" DATA CadBan->CODIGO COLUMN TITLE "Banco" DATA CadBan->NOME COLUMN TITLE "Agência" DATA CadBan->NUMAGE COLUMN TITLE "Nome Agência" DATA CadBan->NOMAGE end REPORT if MsgNoYes( "Relatório em formato de Grade ?", "Confirmação" ) oRpt:CellView() endif if MsgNoYes( "Selecionar Impressora ?", "Confirmação" ) PrinterSetup() endif ACTIVATE REPORT oRpt CadBan->( dbgotop() ) return NIL static function VarMem() mCODIGO := space( 3 ) mNOME := space( 20 ) mNUMAGE := space( 5 ) mNOMAGE := space( 20 ) return NIL static function GetRec() mCODIGO := CadBan->CODIGO mNOME := CadBan->NOME mNUMAGE := CadBan->NUMAGE mNOMAGE := CadBan->NOMAGE return NIL static function PutRec( lNovo ) if lNovo CadBan->( dbappend() ) elseif !( CadBan->( dbrlock() ) ) MsgStop( "Não foi possível gravar.", "Atenção" ) return NIL endif CadBan->CODIGO := mCODIGO CadBan->NOME := mNOME CadBan->NUMAGE := mNUMAGE CadBan->NOMAGE := mNOMAGE CadBan->( dbunlock() ) return NIL

Não aparece o cabeçalho dos listbox. FHW 7.10 + xHarbour 99.70 + Workshop

Não aparece o cabeçalho dos listbox. FHW 7.10 + xHarbour 99.70 + Workshop

Adelson, mandei prá seu email. Obrigado.

Veja a imagem:

Com xharbour free versão atualizada também não funciona. Até o exemplo que vc me mandou quando compilo aqui também não funciona.

Não uso nenhuma classe modificada, conforme sua sugestão anexei os fontes da TWBrowse ao projeto, compilei e ficou da mesma forma, os cabeçalhos não aparecem. O interessante é que quando compilo com a versão anterior do xHarbour que eu tinha (2005) os cabeçalhos dos listbox aparecem normalmente.

Já consegui compilar a lib e minha aplicação, só está com um problema estranho, não está aparecendo os cabeçalhos dos listbox conforme anexo. Uso a classe TWBrowse do xHarbour e desenho as telas com Workshop e Pelles.

Gilmer, vc já tem as libs para o xHB comercial que não dá o erro de compilação _hb_stack ? Manoel Marinho. OBS: se precisar lhe envio meu serial do FWH.

Não, eu uso o xHarbour Comercial, acabei de atualizar para a última versão.

Apóa a atualização do xHarbour mostra esses erros na compilação, alguma dica ? xLINK: error: Unresolved external symbol '_HB_FUN_TACTIVEX'. xLINK: error: Unresolved external symbol '_hb_stack'.

Apóa a atualização do xHarbour mostra esses erros na compilação, alguma dica ? xLINK: error: Unresolved external symbol '_HB_FUN_TACTIVEX'. xLINK: error: Unresolved external symbol '_hb_stack'.

Kapiaba, mandei prá teu email. Obrigado.

Exato, o recurso é TWBROWSE, dentro de um arquivo .RC

Sim, o DBF está correto, tanto é que os dados aparecem no listbox.

O código é esse: DEFINE DIALOG oBrw RESOURCE "BrowseMedio" oBrw:lHelpIcon := .f. oBrw:cCaption := "Cadastro de Bancos" oBrw:bKeyDown := { | nKey | if( nKey == 13, Editar( .f. ), .t. ) } REDEFINE LISTBOX oLbx ; FIELDS CadBan->CODIGO, ; CadBan->NOME, ; CadBan->NUMAGE, ; CadBan->NOMAGE ; HEADERS "Código", ; "Banco", ; "Agência", ; "Nome Agência" ; on DBLCLICK Editar( .F. ) ; ID 101 OF oBrw ACTIVATE DIALOG oBrw RESIZE16 CENTER on init Barra()

Hélio, a facilidade de trabalhar com DBF nenhum outro padrão pode oferecer. Se a infra-estrutura de rede do cliente for boa, funciona com muita segurança. Tenho instalações funcionando a mais de 2 anos sem corrupção de arquivos. Agora se não for, pode colocar SQL que também dá pau.

Wagner. colocando PROMPT "" funcionou. Só tem mais um problema, não aparece o cabeçalho do LISTBOX.

É assim: REDEFINE BTNBMP oBtnGra ID 210 OF oEdt RESOURCE "CONFIRMAR" oBtnGra:bAction := { || PutRec( lInclusao ), oEdt:End() } REDEFINE BTNBMP oBtnCan ID 220 OF oEdt RESOURCE "CANCELAR" CANCEL oBtnCan:bAction := { || oEdt:End() }

Notei que o recurso só fica borrado com BTNBMP. Com BUTTON fica normal.

Não, o título do recurso só está no bitmap. Quando compilo com Five 2.5 + xHB comercial, apresenta o bitmap correto.

Não, o título do recurso só está no bitmap. Quando compilo com Five 2.5 + xHB comercial, apresenta o bitmap correto.

Imagem com os botões borrados.

Imagem com os botões borrados.

Não consigo colocar a imagem no post, alguma dica?