AlguÃ©m desvenda este mistÃ©rio ?

Manoel Marinho · October 23, 2007

NÃ£o aparece o cabeÃ§alho dos listbox.

FHW 7.10 + xHarbour 99.70 + Workshop

Manoel Marinho · October 23, 2007

NÃ£o aparece o cabeÃ§alho dos listbox.

FHW 7.10 + xHarbour 99.70 + Workshop

Luiz Arruda (ICO) · October 23, 2007

Mostre o cÃ³digo..

Luiz Arruda - CorumbÃ¡/MS

FiveWin 2.4 - WS - [x]Harbour 0.99.50 (Simplex) - xDev 0.65

ico.corumba@gmail.com

Vamos Aderir:"Retorne avisando se a dica funcionou"id=blue>

Manoel Marinho · October 23, 2007

// 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

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

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

kapiaba · October 23, 2007

citaÃ§Ã£o:

NÃ£o aparece o cabeÃ§alho dos listbox.

FHW 7.10 + xHarbour 99.70 + Workshop

id=quote>id=quote>

MANOEL, VOCE JÃ TESTOU NO \SAMPLES\TESTLBX?.PRG? O QUE ACONTECE??

REPORTE, PERGUNTEI DA OUTRA VEZ E VOCE NÃƒO RESPONDEU: VOCE RECOMPILOU A FIVEHX.LIB COM O HARB2LIB.EXE OU COM A BAT DE COMPILAÃ‡ÃƒO QUE EU TE DEI NO OUTRO TÃ“PICO?

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Skype: fw_kapiaba

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

ronaldo · October 23, 2007

verifique como vocÃª informou no Resource...

Ronaldo Minacapelli

(11) 6950 3069

Manoel Marinho · October 23, 2007

JoÃ£o, nÃ£o precisa recompilar a FIVEHX.LIB, na atualizaÃ§Ã£o do five o Gilmer jÃ¡ manda o xharbour compatÃvel com as libs. Vou testar o TESTLBX.PRG do samples.

Manoel Marinho · October 23, 2007

Ronaldo, segue o diÃ¡logo:

BrowseMedio DIALOG 9, 33, 301, 260

STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME

FONT 8, "MS Sans Serif"

{

}

kapiaba · October 23, 2007

citaÃ§Ã£o:
JoÃ£o, nÃ£o precisa recompilar a FIVEHX.LIB, na atualizaÃ§Ã£o do five o Gilmer jÃ¡ manda o xharbour compatÃvel com as libs. Vou testar o TESTLBX.PRG do samples.

id=quote>id=quote>

DISCORDO, QUEM GARANTE, QUE ELE ENVIOU A FIVEHX.LIB REDONDA, OU CORRETA?? SALVE UMA COPIA DA QUE ELE ENVIOU, RECOMPILE E TESTE... ORAS, NÃƒO CUSTA NADA.

OUTRA COISA, ENVIE O PROGRAMA PARA ELE COMPILAR LÃ NA VIRTUAL COM O FIVEWIN QUE ELE ENVIOU PARA VOCE, DE REPENTE, SUA FIVEHC.LIB ESTÃ DANIFICADA, AI, ELE TEM DE TROCAR.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Skype: fw_kapiaba

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Manoel Marinho · October 23, 2007

Ok JoÃ£o, vou mandar o fonte para Gilmer.

kapiaba · October 23, 2007

Teste agora:

BROWSEMEDIO DIALOG 45, 22, 373, 271

CAPTION "Browse MÃ©dio... Novo dialogo para teste."

FONT 8, "MS Sans Serif"

{

}

id=code>id=code>

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Skype: fw_kapiaba

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Manoel Marinho · October 23, 2007

JoÃ£o, infelizmente nÃ£o funcionou:

jbinfo · October 23, 2007

Tive um problema parecido, resolvi colocando os SIZES dos HEADERS.

JB InformÃ¡tica

Campinas-SP

xHarbour 0.99.7/Bcc55/FWh2.8 (Setembro)/Workshop

Adelson (ADS e TI) · October 23, 2007

Se estiver usando o Pelles, crie um Recurso Custon Control e de o nome de TWBrowse...........nÃ£o use o recurso listbox...pois ele Ã© pobre em funÃ§Ãµes.......o resto deixe como estÃ¡. Outra coisa, se estiver usando o Pelles, evite o famoso Risize16 para acertar o tamanho do recurso, pois ele Ã© tÃpico de dar PAU........refaÃ§a suas telas, nÃ£o use o Resize.

Mandei para teu e-mail o Script atualizado do xBilder com todas as instruÃ§Ãµes para vc recompilar sua lib...

AtenÃ§Ã£o, se vc estiver usando classes modificadas de versÃµes anteriores, apague-as e as modifique novamente com sua versÃ£o nova, se estiver usando classes de terceiros, fique esperto, nem sempre elas acompanham as versÃµes do FWH e xHarbour Comercial.......

Se resolver, poste aqui dizendo que resolveu...

AbraÃ§os....

ADELSON (msn=programadorxhb@hotmail.com)

Pelles 4.50.90, FWH 7.07, xHarbour Comercial 0.99.71, RDDSQL, MySQL, TWBrowse(), C5Menu()

Manoel Marinho · October 23, 2007

Se estiver usando o Pelles, crie um Recurso Custon Control e de o nome de TWBrowse...........nÃ£o use o recurso listbox...pois ele Ã© pobre em funÃ§Ãµes.......o resto deixe como estÃ¡. Outra coisa, se estiver usando o Pelles, evite o famoso Risize16 para acertar o tamanho do recurso, pois ele Ã© tÃpico de dar PAU........refaÃ§a suas telas, nÃ£o use o Resize.

Mandei para teu e-mail o Script atualizado do xBilder com todas as instruÃ§Ãµes para vc recompilar sua lib...

AtenÃ§Ã£o, se vc estiver usando classes modificadas de versÃµes anteriores, apague-as e as modifique novamente com sua versÃ£o nova, se estiver usando classes de terceiros, fique esperto, nem sempre elas acompanham as versÃµes do FWH e xHarbour Comercial.......

Adelson,

1. nÃ£o uso recurso listbox, uso o twbrowse mesmo

2. tirei o resize16 e tb nÃ£o funcionou

3. nÃ£o uso classe modificadas nem de terceiros

Resumo da Ã³pera: gastei uma grana prÃ¡ atualizar o five e o xhb comercial e sou obrigado a usar as versÃµes de 2005 que funcionam redondo !!!

Manoel.

Adelson (ADS e TI) · October 23, 2007

Mandei no teu e-mail o script para recompilar sua lib, faÃ§a isso e veja se resolve....muitos problemas que tive a respeito de coisas parecidas com a tuaÂ´era sempre lib errada. Com o script vc consegue compilar correto.

ADELSON (msn=programadorxhb@hotmail.com)

Pelles 4.50.90, FWH 7.07, xHarbour Comercial 0.99.71, RDDSQL, MySQL, TWBrowse(), C5Menu()

Adelson (ADS e TI) · October 23, 2007

Amigo, segue o modelo de Tabela que uso e nunca tive problemas, veja o cÃ³digo.........

FUNCTION man_pac() //--> ManutenÃ§Ãµes e Pesquisas de Pacientes

LOCAL oWnddd

PRIVATE oLbx, oDlg, oDlg2, nKey, vTOT_REG:=0

PRIVATE o_Msay, o_Msay2, v_Nome, n_Pac

use_arq("paciente","pac001",.t.)

Set Index to pacient1

dbsetorder(2)

vTOT_REG:=lastrec()

IF vTOT_REG=0

dbcloseall()

a_lerta("AtenÃ§Ã£o UsuÃ¡rio!!!","","NÃ£o Existem Pacientes Cadastrados atÃ© o Momento.")

RETURN NIL

endif

go top

v_nome:=alltrim(pac001->nome1)

DEFINE FONT o__Font4 NAME "Times New Roman" bold size 15, 40

DEFINE DIALOG oDlg RESOURCE "PACIENTE_2" OF oWnddd TITLE "ManutenÃ§Ãµes e Pesquisas: "+STRZERO(vtot_reg,5) color rgb(230,242,255), rgb(230,242,255) transparent

oDlg:lHelpIcon:=.f.

//---------------------------

REDEFINE LISTBOX oLbx ;

FIELDS pac001->nome1,pac001->cod1,pac001->uplano1,dtoc(pac001->datav1) SIZES 522,68,237,1 ;

HEADERS " (Nome do Paciente)","(CÃ³digo)"," Plano da Unimed","Validade" ID 4001 OF oDlg ;

ON CHANGE pac_zoom() ON LEFT DBLCLICK pac_alt()

oLbx:aJustify := { 0, 2, 0, 2 } //--> Justifica Coluna

REDEFINE SAY o_Msay prompt v_nome ID 5020 OF oDlg font o__Font4 color rgb(0,0,0), rgb(230,242,255) TRANSPARENT CENTER update

oLbx:bKeyDown = { | nKey, nFlags | pac_tecla(nKey) } // Tecla

REDEFINE BUTTON ID 4003 OF oDlg ACTION pac_alt()

REDEFINE BUTTON ID 4004 OF oDlg ACTION pac_exc()

ACTIVATE DIALOG oDlg CENTERED

dbcloseall()

oDlg:end()

o__Font4:end()

RETURN NIL

siga este modelo......espero que vc resolva....T+

ADELSON (msn=programadorxhb@hotmail.com)

Pelles 4.50.90, FWH 7.07, xHarbour Comercial 0.99.71, RDDSQL, MySQL, TWBrowse(), C5Menu()

Manoel Marinho · October 23, 2007

NÃ£o tem jeito, jÃ¡ recompilei as libs do xhb comercial e do free e os cabeÃ§alhos do listbox nÃ£o aparecem !!!

kapiaba · October 23, 2007

citaÃ§Ã£o:
NÃ£o tem jeito, jÃ¡ recompilei as libs do xhb comercial e do free e os cabeÃ§alhos do listbox nÃ£o aparecem !!!

id=quote>id=quote>

ENTÃƒO, AGORA Ã‰ COM O GILMER TAVARES - VIRTUAL OBJECTS INFORMATICA. CHEGUE JUNTO. AbraÃ§os.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Skype: fw_kapiaba

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Manoel Marinho · October 23, 2007

JoÃ£o, jÃ¡ mandei os fontes para Gilmer e estou aguardando.

Luiz Arruda (ICO) · October 23, 2007

citaÃ§Ã£o:
JoÃ£o, jÃ¡ mandei os fontes para Gilmer e estou aguardando.

id=quote>id=quote>

Ã¨ tem "tuba no gato" colei seu cÃ³digo aqui e veja como ficou

Luiz Arruda - CorumbÃ¡/MS

FiveWin 2.4 - WS - [x]Harbour 0.99.50 (Simplex) - xDev 0.65

ico.corumba@gmail.com

Vamos Aderir:"Retorne avisando se a dica funcionou"id=blue>

kapiaba · October 23, 2007

Luiz, teste este:

// Cadastro de Bancos -> Nome: WCADBAN.PRG

#include "FiveWin.ch"

#include "Report.ch"

#Define CLR_LGRAY RGB(230,230,230)

#Define CLR_LGREEN RGB(190,215,190)

#Define CLR_CHOCOLATE nRGB( 238, 118, 33 )

#Define CLR_VERMELHO nRGB( 255, 000, 000 ) //--> Vermelho Para a Letra

#Define CLR_AMARELO nRGB( 255, 255, 000 ) //--> Amarelo Para o Fundo

#Define CLR_BOMBOM nRGB( 165, 42, 42 ) //--> Marrom BomBom

#Define CLR_MARROM nRGB( 235, 202, 171 ) //--> Marrom Normal

Request OrdKeyNo

Request OrdKeyCount

static oBrw

static oLbx

static oEdt

static oCODIGO

static oNOME

static oNUMAGE

static oNOMAGE

function CadBan()

LOCAL cAlias

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

*/

USE CADBAN ALIAS CADBAN EXCLUSIVE NEW

INDEX ON NOME TAG CADBAN TO CADBAN

DBCLOSEALL()

USE CADBAN INDEX CADBAN ALIAS CADBAN SHARED NEW

GO TOP

cAlias := ALIAS()

DEFINE DIALOG oBrw RESOURCE "BrowseMedio"

REDEFINE LISTBOX oLbx ;

FIELDS CadBan->CODIGO, ;

CadBan->NOME, ;

CadBan->NUMAGE, ;

CadBan->NOMAGE ;

HEADERS "CÃ³digo", ;

"Banco", ;

"AgÃªncia", ;

"Nome AgÃªncia" ;

FIELDSIZES 090, 120, 100, 100 ;

COLOR CLR_BLACK, CLR_LGREEN ;

ON DBLCLICK Editar( .F. ) ;

ID 101 OF oBrw

oBrw:lHelpIcon := .f.

oBrw:cCaption := "Cadastro de Bancos"

oBrw:bKeyDown := { | nKey | if( nKey == 13, Editar( .f. ), .t. ) }

//---------------------------------------------------------------------

oLbx:nClrBackHead := CLR_LGREEN // Cor do Fundo do Cabeâ€¡alho

oLbx:nClrBackFocus := CLR_HBLUE // Cor do Cursor Em Cima do Ã–tem

oLbx:nClrForeFocus := CLR_AMARELO // cor da letra da barra ativa

oLbx:nClrForeHead := CLR_HRED // Cor nos Headers - Cabeâ€¡alhos

oLbx:nClrPane := { || IIF( ( oLbx:cAlias )->( OrdKeyNo() ) %2 == 0, ;

CLR_LGREEN, CLR_LGRAY ) }

oLbx:nColAct := 2 // Onde o Cursor Vai Iniciar qual coluna?

oLbx:nLineStyle := 3 // Estilo das linhas nos dados da Browse

oLbx:lCellStyle := .T. // SÂ¢ Pinta a celula que o cursor estÂ

oLbx:aJustify := { .F., .F., .F., .F. } // Justifica os Cabeâ€¡alhos Esq. .T. =Centro

oLbx:lMChange := .F. // Desabilita Mousemove

oLbx:SetFocus() // Refocus on The Browse

oLbx:Refresh() // Estabiliza o Browse/Listbox

ACTIVATE DIALOG oBrw RESIZE16 CENTER on init Barra()

close databases

Release All

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

*/

/*

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 ID 210 OF oEdt RESOURCE "CONFIRMAR"

REDEFINE BTNBMP oBtnGra ID 210 OF oEdt FILE "CONFIRMAR.BMP"

//REDEFINE BTNBMP oBtnGra PROMPT "" 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() }

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

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

id=code>id=code>

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Skype: fw_kapiaba

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Manoel Marinho · October 23, 2007

Luiz, qual versÃ£o de five e xhb vc usa ?

Quando compilo com minhas versÃµes de 2005 fica tudo OK.

Luiz Arruda (ICO) · October 23, 2007

citaÃ§Ã£o:
Luiz, qual versÃ£o de five e xhb vc usa ?

Quando compilo com minhas versÃµes de 2005 fica tudo OK.

O problema sÃ³ Ã© com o five e xhb atualizados.

id=quote>id=quote>

Seu Problema deve estar nas libs do xharbour

uso a versÃ£o 0.99.50 maiores detalhes veja meu perfil..

aconselho a fazer o mesmo com o seu perfil. ficaria mas fÃ¡cil de ajudar..

AbraÃ§os..

Luiz Arruda - CorumbÃ¡/MS

FiveWin 2.4 - WS - [x]Harbour 0.99.50 (Simplex) - xDev 0.65

ico.corumba@gmail.com

Vamos Aderir:"Retorne avisando se a dica funcionou"id=blue>

Manoel Marinho · October 23, 2007

Quanto a meu perfil, jÃ¡ atualizei N vezes e nunca apareceu nas mensagens, atualizei novamente agora, vamos ver se aparece.

AlguÃ©m desvenda este mistÃ©rio ?

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation