Alain da Silva

May 18, 2016

A sim, estou perguntando porque as vezes crio um botão e ele tem uma função que aparece um botão sei lá. Acho que ja tenho todas as opções que vou usar.

Obrigado.

May 18, 2016

Funcionou sim Alessandro, ficou show de bola.

//--------------------------------------------
olbx:aCols[2]:bBmpData := {|| 1 }
olbx:aCols[2]:AddBmpFile("d:\wfatura\image\Email.bmp" )
olbx:aCols[2]:addbmpfile("" )
olbx:aCols[2]:bBmpData := {|| IF( arqnfe->sendMAIL == "S", 1,2 ) }
olbx:aCols[2]:nDataBmpAlign := AL_CENTER
olbx:aCols[2]:nHeadBmpNo := 1
olbx:aCols[2]:nDataBmpAlign := AL_CENTER

Valeu!!!

Teria alguma comando no browse para dar ir no início e no fim da tabela (gotop(),botom()). ou a gente teria que adaptar um botão pra isso?

May 17, 2016

não fica:

//---------------------------------------------------------------- não fica
olbx:aCols[2]:bBmpData := {|| 1 }
olbx:aCols[2]:addbmpfile("e:\wfatura\image\EMAIL2.bmp" )
olbx:aCols[2]:bBmpData := {|| IF( arqnfe->sendMAIL == "S", 1, 2 ) }
olbx:aCols[2]:nDataBmpAlign := AL_CENTER
//------------------------------------------------------------------ fica
olbx:aCols[3]:nEditType := EDIT_BUTTON
olbx:aCols[3]:bEditBlock := {|nRow, nCol, oCol| oCol:Value := cGetFile( "*.*", "Select a file" ) }
olbx:aCols[3]:AddBmpFile( "e:\wfatura\image\pdf.bmp" )
olbx:aCols[3]:nHeadBmpNo := 1
olbx:aCols[3]:nDataBmpAlign := AL_CENTER
//-------------------------------------------

May 17, 2016

Legal Alessandro.

May 17, 2016

Valeu Alessandro, funcionou sim. Ja coloquei rodapé. Agora imagens... Eu fiz alguns testes com imagens porém sem sucesso.

//--------------------------------------------
// ok fucionando porém a imagem que aparece dentro do browse é um quadrado *****

* olbx:aCols[ 2 ]:nEditType := EDIT_BUTTON

* olbx:aCols[ 2 ]:bEditBlock := {|nRow, nCol, oCol| oCol:Value := cGetFile( "*.*", "Select a file" ) }

* olbx:aCols[ 2 ]:AddBmpFile( "d:\wfatura\image\EMAIL.bmp" )

* olbx:aCols[ 2 ]:nHeadBmpNo := 1

//-------------------------------------------
** esse do menu é interessante porém não aparece imagem

* olbx:aCols[2]:nEditType := TYPE_IMAGE

* OLBX:aCols[2]:lBmpStretch := .t.

* OLBX:aCols[ 2 ]:lBmpTransparent := .t.

* OLBX:aCols[2]:bStrImage := {|oCol, OLBX| OLBX:aRow[ 2 ] }

* OLBX:aCols[2]:nDataBmpAlign := AL_CENTER

* OLBX:aCols[2]:bPopUp := { | o | ColMenu( o ) }

* OLBX:aCols[2]:bAlphaLevel := { | o | o:OLBX:aRow[ 3 ] }

//-------------------------------------------
*** não acontece nada

* olbx:aCols[ 2 ]:nEditType := 1

* olbx:aCols[ 2 ]:bOnPostEdit := {|oCol, xVal, nKey| oCol:Value( xVal ) }

* olbx:aCols[ 2 ]:AddBmpFile("d:\wfatura\image\EMAIL.bmp" )

* olbx:aCols[ 2 ]:nFootBmpNo := 1

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

*** não acontece nada

* olbx:aCols[ 2 ]:addbmpfile("d:\wfatura\image\EMAIL.bmp" )

* olbx:aCols[ 2 ]:lBtnTransparent := .t.

* olbx:aCols[ 2 ]:nBtnBmp := 1

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

minha idéia inicial era testar o campo email, se "S" imagem se "N" sem imagem.

May 16, 2016

Alessandro se eu coloco sa linhas

oLbx:bLDblClick := { || MSGINFO("DUPLI CLICK")}

Lbx:aCols[1]:SetCheck(,{ || GRAVAMARCA(OLBX)})

ele só entra no duplo click e não entra no check

se deixo somente a linha do setcheck ele funciona. Funciona igual ao duplo click. Desde que eu de dois cliques, ai ele entra na função e grava .t. na marca.

May 16, 2016

Alessandro obrigado pela ajuda, dessa forma com ADD COLUMN acho que ficou até mais fácil, agora... no click não funciona.

mas esta mostrando quando o campo esta verdadeiro, ai coloquei a função aqui

oLbx:bLDblClick := { || GRAVAMARCA(OLBX)} refresco o browse e funciona.

Esta funcionando também os índices.

Então mais uma vez obrigado, vou pesquisar agora como colocar imagem e um rodapé no browse.

vlz

May 16, 2016

Alessando deve ter alguma coisa errada no código. Ainda não funciona.

  DEFINE ICON oIco FILE "FENIX.ICO"
  DEFINE DIALOG oDlg STYLE WS_OVERLAPPEDWINDOW ICON oIco
         oDlg:lHelpIcon:=.f.
         oDlg:setfont( oFontes )
         oDlg:cCaption:='Fenix Sistem@s - Emissor NF-e'

        @ 3,1 GROUP oGrp PROMPT "Emitente"                      OF odlg SIZE  500, 25 PIXEL
         @ 12,5   say "Razão Social: VALPANEMA FLORESTAL LTDA"  OF ODLG SIZE  200, 13 PIXEL FONT FNORMALSAY
         @ 12,200 say "CNPJ: 43.198.696/0004-68"                OF ODLG SIZE  100, 13 PIXEL FONT FNORMALSAY
         @ 12,350 SAY "IE: 570.006.243.110"                     of odlg SIZE   60, 13 pixel FONT FNORMALSAY

         @ 30,1 GROUP oGrp PROMPT "Filtro de Pesquisa Dinâmica" OF odlg SIZE  500,100 PIXEL
         @ 45,5   say "Período"                                 OF ODLG SIZE  200, 13 PIXEL FONT FNORMALSAY
         @ 65,5   say "Série"                                   OF ODLG SIZE  200, 13 PIXEL FONT FNORMALSAY

//gets-----------------------------------------------
  @45,45 get oGet1 var oDat bitmap ".\image\calen.bmp" action "" of oDlg pixel size 50,12

  @ 10,0 XBROWSE  oLbx    FIELDS;
                                 arqnfe->marca,;
                                 str(arqnfe->serie,3),;
                                 arqnfe->nota,;
                                 arqnfe->dtemissao,;
                                 subs(arqnfe->destinata,1,60),;
                                 Transf(ARQNFE->VALORTOTAL,"@E 999,999.99"),;
                                 ALLTRIM(ARQNFE->PLACA)+"-"+ARQNFE->NOMET;
                        HEADERS;
                                ' ',;
                                'Serie',;
                                'Nota Fiscal',;
                                'Dt.Emissão',;
                                'Destinatário',;
                                'Valor NFe',;
                                'Placa/Motorista';
                        JUSTIFY .T.,.T.,.T.,.T.,.F.,.T.,.F.;
                        FONT oFontes ALIAS "ARQNFE" OF ODLG LINES CELL   Size  500,180

                        oLbx:aCols[1]:SetCheck()
                        oLbx:lFastEdit := .T.
                        oLbx:bClrSel             := {|| {CLR_WHITE,nRGB(000,120,180)}}
                        oLbx:bClrSelFocus        := {|| {CLR_WHITE,XPAZUL}}
                        oLbx:nMarqueeStyle       := MARQSTYLE_HIGHLROW
                        oLbx:nColDividerStyle    := LINESTYLE_BLACK
                        oLbx:nRowDividerStyle    := LINESTYLE_BLACK
                        oLbx:lColDividerComplete := .t.
                        oLbx:lFooter             := .t.
                        oLbx:nFreeze             := 0
                        oLbx:bLDblClick          := { || MSGINFO("DUPLI CLICK")}
                        oLbx:bClrStd             := {|| { PRETO, If((ARQNFE->(ORDKEYNO()))%2==0, CINZACL, CINZATL) } }
                        oLbx:bKeyDown            := {|nKey| MSGINFO("TECLA")}
                        oLbx:bRClicked           := { | nRow, nCol | MSGINFO("UM CLICK")}
                        oLbx:SetGroupHeader( "GERENCIAMENTO DE NOTAS", 1, 7, BOOK18 )
 //----------------------------------------------------------------------------------------------
  oCol:=oLbx:aCols[3]
  oCol:cSortOrder := 'PED1'
  ocol:cToolTip:="Clique para ordenar por Nota Fiscal"

  oCol:=oLbx:aCols[ 4 ]
  oCol:cSortOrder := 'PED8'
  ocol:cToolTip:="Clique para ordenar por Data"

  oCol:=oLbx:aCols[ 5 ]
  oCol:cSortOrder := 'PED2'
  ocol:cToolTip:="Clique para ordenar por Destinatário"

  oLbx:SetRDD()
  oLbx:CreateFromCode()



  @18,0  BUTTON oBTN1 PROMPT "Validar"    of oDLG SIZE 40, 13 ;
         ACTION( oDLG:END() )
  @18,7  BUTTON oBTN2 PROMPT "Assinar"    of oDLG SIZE 40, 13 ;
         ACTION( oDLG:END() )
  @18,14 BUTTON oBTN1 PROMPT "Transmitir" of oDLG SIZE 40, 13 ;
         ACTION( oDLG:END() )

  @18,23 BUTTON oBTN3 PROMPT "Pré-Visualizar DANFE" of oDLG SIZE 60, 13 ;
         ACTION( oDLG:END() )
  @18,33.4 BUTTON oBTN4 PROMPT "Imprimir DANFE" of oDLG SIZE 60, 13 ;
         ACTION( oDLG:END() )
  @18,43.8 BUTTON oBTN5 PROMPT "Consultar na SEFAZ" of oDLG SIZE 60, 13 ;
         ACTION ""

  @18,55 BUTTON oBTN6 PROMPT "Cancelar NF-e" of oDLG SIZE 60, 13 ;
         ACTION( oDLG:END() )
  @18,65.4 BUTTON oBTN7 PROMPT "Carta de Correção" of oDLG SIZE 60, 13 ;
         ACTION( oDLG:END() )

  @18,94 BUTTON oBTN8 PROMPT "Finalizar" of oDLG SIZE 60, 13 ;
         ACTION( oDLG:END() )

  Activate Dialog oDlg Centered  on init (ShowWindow( oDlg:hWnd, 3 ),buildcontrolmenu(odlg))

não funciona o order, clico na coluna e não acontece nada.

não funciona o check, clico e não fica marcado.

May 16, 2016

valeu obrigado

May 16, 2016

Alessandro era só pra ver se funcionava. Mudei ainda não funciona. E o indice é cdx. ele só aparece no taquele "^" na coluna Nota fiscal, na emissão não aparece e também não acontece nada ao clicar na coluna, antes ele muda o índice. acho que coloquei alguma coisa que parou.

  @ 10,0 XBROWSE  oLbx    FIELDS;
                                 arqnfe->marca,;
                                 str(arqnfe->serie,3),;
                                 arqnfe->nota,;
                                 arqnfe->dtemissao,;
                                 subs(arqnfe->destinata,1,60),;
                                 Transf(ARQNFE->VALORTOTAL,"@E 999,999.99"),;
                                 ALLTRIM(ARQNFE->PLACA)+"-"+ARQNFE->NOMET;
                        HEADERS;
                                '',;
                                'Serie',;
                                'Nota Fiscal',;
                                'Dt.Emissão',;
                                'Destinatário',;
                                'Valor NFe',;
                                'Placa/Motorista';
                        JUSTIFY .t.,.T., .T., .T., .f.,.T.,.f.;
                        FONT oFontes ALIAS "ARQNFE" OF ODLG LINES CELL   Size  650,180

                        oLbx:aCols[1]:SetCheck()
*                        oLbx:aCols[1]:SetCheck(, {|obrw,v| msginfo("teste") } )
                        oLbx:bClrSel             := {|| {CLR_WHITE,nRGB(145,145,255)}}
                        oLbx:bClrSelFocus        := {|| {CLR_WHITE,nRGB(000,120,180)}}
                        oLbx:nMarqueeStyle       := MARQSTYLE_HIGHLROW
                        oLbx:nColDividerStyle    := LINESTYLE_BLACK
                        oLbx:nRowDividerStyle    := LINESTYLE_BLACK
                        oLbx:lColDividerComplete := .t.
                        oLbx:lFooter             := .t.
                        oLbx:nFreeze             := 0
                        oLbx:bLDblClick          := { || MSGINFO("DUPLI CLICK")}
                        oLbx:bClrStd             := {|| { PRETO, If((ARQNFE->(ORDKEYNO()))%2==0, CINZACL, CINZATL) } }
                        oLbx:bKeyDown            := {|nKey| MSGINFO("TECLA")}
                        oLbx:bRClicked           := { | nRow, nCol | MSGINFO("UM CLICK")}
                        oLbx:SetGroupHeader( "GERENCIAMENTO DE NOTAS", 1, 7, BOOK18 )
 //----------------------------------------------------------------------------------------------
  oCol:=oLbx:aCols[ 3 ]
  oCol:cSortOrder := 'PED1'
  ocol:cToolTip:="Clique para ordenar por Nota Fiscal"

May 16, 2016

boa noite, estou atualizando o five e esta dando alguns erros:

1) como é feito o btnget, me parece que foi incorporado ao five

2) erro no bpostkey.. Como é feita a pesquisa agora

REDEFINE BTNGET OGNC VAR CNOM ID 2 PICTURE "@!" OF DLGVEN RESOURCE "pesquisa" action ""
oGNC:bPostKey :={|| PESQUIVEN(oGNC,2) }
OGNC:bGotfocus:={||(NORDEM:=3,ORDBUTT:REFRESH(),ARQNFE->(DBSETORDER(2)),ARQNFE->(OrdDescend(,,.F.)),ARQNFE->(DBGOTOP()),OBRWVEN:REFRESH()) }

fwhx 14.12 >> xharbour 1.2.3 intl. (simplex) (build 20141106)

obrigado

May 15, 2016

Valeu Alessandro, estou abusando do seu conhecimento. Agora apareceu o check [ ]. não sei se é assim quando eu clico em cima não acontece nada. quando dou dois cliques entra na função msginfo("teste") mas a caixa não fica marcada. é assim mesmo?

Como eu coloco imagem?

Outra assunto, estou testando as opções porque pretendo usar esse browse no sistema todo. Como eu coloco o rodapé?

Na TWBrowse que eu usava era assim:

       			*------------------------//RODAPE TOTAL
			OBRWVEN6:lDrawFooters    := .T. // Ativa o footer
			OBRWVEN6:nClrFFore       :={|| VERMELHO}
			OBRWVEN6:nClrFBack       :={|| GetSyscolor(15)}
       			OBRWVEN6:nFooterHeight   :=21
       			OBRWVEN6:nFooterStyle    :=2
       			OBRWVEN6:nFooterHeight 	 :=20
			OBRWVEN6:aFJustify       :={1,1,0,1,2,2,1,1,1,1,1,1,1,2,0,0,0}
                        OBRWVEN6:aFooters        :={||{"","","","","","",Transf(WQUANT,"@E 999,999.9999"),"",Transf(WUNIT,"@E 999,999.99"),Transf(WDESC,"@E 999,999.99"),Transf(WBASE,"@E 999,999.99"),"",Transf(WICMS,"@E 999,999.99"),"",Transf(WIPI,"@E 999,999.99")}}
                        OBRWVEN6:SetSize(50,6,.t.)

e agora essa opção não esta funcionando, será que coloquei alguma coisa a mais que parou?

//----------------------------------------------------------------------------------------------
oCol:=oLbx:aCols[3]
oCol:cSortOrder := 'PED1'
ocol:cToolTip:="Clique para ordenar por Nota Fiscal"

oCol:=oLbx:aCols[4]
oCol:cSortOrder := 'PED8'
ocol:cToolTip:="Clique para ordenar por Data"

Obrigado

May 15, 2016

o arquivo a copiar é o mesmo que ta na pasta do BCC582\include?

Eu copiei, mas ai foi pedindo outro e outro até não pedir mais nenhum .h mas ai da vário erros (mas cria o exe).

_stddef.h(38p) Error e0030syntax expression at ´INT´

_STDEF.H(56) ERROR IN #IF EXPRESSION ........

May 15, 2016

Valeu Toya obrigado passou. Somente o erro agora:

D:\NOVO\XHARBOUR\INCLUDE\HBVMPUB.H(65) Error F0029 can´t open #include file: 'assert.h'

obrigado

May 15, 2016

Boa noite, estou atualizando o five e estou tendo problemas na compilação:

fwhx 14.12 >> xharbour 1.2.3 intl. (simplex) (build 20141106)

Error: Unresolved exrternal '_HB_FUN_HB_EOL' referenced from D:\NOVO\FENIXNFE\FUNCOES_ENVIO.OBJ

Aproveitando também ele dá esses erros mas gera o EXE:

Error F0029 open #include file: 'assert.h'

Deixei com todas as libs do BUILDX.BAT com a diferença da destacada que no arquivo aparece assim: echo %hdirl%\%GT%.lib + >> b32.bc

d:\NOVO\FIVE14\lib\FiveHX.lib +
d:\NOVO\FIVE14\lib\FiveHC.lib +
d:\novo\XHARBOUR\lib\rtl.lib +
d:\novo\XHARBOUR\lib\vm.lib +
D:\NOVO\XHARBOUR\LIB\GTGUI.lib +
d:\novo\XHARBOUR\lib\lang.lib +
d:\novo\XHARBOUR\lib\macro.lib +
d:\novo\XHARBOUR\lib\rdd.lib +
d:\novo\XHARBOUR\lib\dbfntx.lib +
d:\novo\XHARBOUR\lib\dbfcdx.lib +
d:\novo\XHARBOUR\lib\dbffpt.lib +
d:\novo\XHARBOUR\lib\hbsix.lib +
d:\novo\XHARBOUR\lib\debug.lib +
d:\novo\XHARBOUR\lib\common.lib +
d:\novo\XHARBOUR\lib\pp.lib +
d:\novo\XHARBOUR\lib\pcrepos.lib +
d:\novo\XHARBOUR\lib\ct.lib +
d:\novo\XHARBOUR\lib\zlib.lib +
d:\novo\XHARBOUR\lib\hbzip.lib +
d:\novo\XHARBOUR\lib\libmisc.lib +
d:\novo\XHARBOUR\lib\tip.lib +
d:\novo\XHARBOUR\lib\png.lib +
d:\NOVO\BCC582\lib\cw32.lib +
d:\NOVO\BCC582\lib\import32.lib +
d:\NOVO\BCC582\lib\uuid.lib +
d:\NOVO\BCC582\lib\ws2_32.lib +
d:\NOVO\BCC582\lib\psdk\odbc32.lib +
d:\NOVO\BCC582\lib\psdk\rasapi32.lib +
d:\NOVO\BCC582\lib\psdk\nddeapi.lib +
d:\NOVO\BCC582\lib\psdk\msimg32.lib +
d:\NOVO\BCC582\lib\psdk\psapi.lib +
d:\NOVO\BCC582\lib\psdk\gdiplus.lib +
d:\NOVO\BCC582\lib\psdk\iphlpapi.lib +
d:\NOVO\BCC582\lib\psdk\shell32.lib,

May 15, 2016

Valeu pela ajuda Alessandro, ainda não funcionou o check e nem o tamanho.

@ 10,0 XBROWSE oLbx FIELDS;
str(arqnfe->serie,3),;
arqnfe->nota,;
arqnfe->dtemissao,;
subs(arqnfe->destinata,1,60),;
Transf(ARQNFE->VALORTOTAL,"@E 999,999.99"),;
ALLTRIM(ARQNFE->PLACA)+"-"+ARQNFE->NOMET;
HEADERS;
'Serie',;
'Nota Fiscal',;
'Dt.Emissão',;
'Destinatário',;
'Valor NFe',;
'Placa/Motorista';
JUSTIFY .T.,.t., .T., .T., .f.,.T.,.f.;
FONT oFontes ALIAS "ARQNFE" OF ODLG LINES CELL Size oDlg:nWidth,180

oLbx:aCols[1 ]:SetCheck(, {|obrw,v| msginfo("teste") } )
oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROW
oLbx:nColDividerStyle := LINESTYLE_BLACK
oLbx:nRowDividerStyle := LINESTYLE_BLACK
oLbx:lColDividerComplete := .t.
oLbx:lFooter := .t.
oLbx:nFreeze := 0
oLbx:bLDblClick := { || MSGINFO("DUPLI CLICK")}
oLbx:bClrSelFocus := {|| { CLR_BLACK, AZULXP } }
oLbx:bClrStd := {|| { PRETO, If((ARQNFE->(ORDKEYNO()))%2==0, CINZACL, CINZATL) } }
oLbx:bKeyDown := {|nKey| MSGINFO("TECLA")}
oLbx:bRClicked := { | nRow, nCol | MSGINFO("UM CLICK")}
oLbx:SetGroupHeader( "GERENCIAMENTO DE NOTAS", 1, 6, BOOK18 )

oCol:= oLbx:aCols[ 2 ]
oCol:cSortOrder := 'PED1'
ocol:cToolTip:="Clique para ordenar por código"

oCol:= oLbx:aCols[ 3 ]
oCol:cSortOrder := 'PED8'
ocol:cToolTip:="Clique para ordenar por descrição"

oCol:= oLbx:aCols[ 4 ]
oCol:cSortOrder := 'PED2'
ocol:cToolTip:="Clique para ordenar por descrição"

oLbx:CreateFromCode()

May 14, 2016

Obrigado pela ajuda Alessandro, eu nunca utilizei o xbrowse.

Quanto ao tamanho do browse ok, funcionou.

Tem como colocar o tamanho da largura do tamanho do vídeo?

of odlg lines cell size 700,250

Ainda não consegui fazer funcionar o check.

olbx:acols[1]:setcheck( , { | olbx,v | msginfo("teste") } ) (não acontece nada!!!) é assim?

May 13, 2016

         @ 0,0 XBROWSE  oLbxAgen FIELDS;
                                 arqnfe->serie,;
                                 arqnfe->nota,;
                                 arqnfe->dtemissao,;
                                 arqnfe->destinata,;
                                 Transf(ARQNFE->VALORTOTAL,"@E 999,999.99");
                        HEADERS;
                                'Série',;
                                'Nota Fiscal',;
                                'Dt.Emissão',;
                                'Destinatário',;
                                'Valor NFe';
                        JUSTIFY .f., .T., .T., .f.,.T.;
                        FONT oFontes ALIAS "ARQNFE" OF ODLG AUTOSORT LINES CELL

  oLbxAgen:nMarqueeStyle       := MARQSTYLE_HIGHLROW
  oLbxAgen:nColDividerStyle    := LINESTYLE_BLACK
  oLbxAgen:nRowDividerStyle    := LINESTYLE_BLACK
  oLbxAgen:lColDividerComplete := .t.
  oLbxAgen:lFooter             := .t.
  oLbxAgen:nFreeze             := 0
  oLbxAgen:bLDblClick          := { || MSGINFO("DUPLI CLICK")}
  oLbxAgen:bClrSelFocus        := {|| { CLR_BLACK, AZULXP } }
  oLbxAgen:bClrStd             := {|| { PRETO, If((ARQNFE->(ORDKEYNO()))%2==0, CINZACL, CINZATL) } }
  oLbxAgen:bKeyDown            := {|nKey| MSGINFO("TECLA")}
  oLbxAgen:bRClicked           := { | nRow, nCol | MSGINFO("UM CLICK")}
  oLbxAgen:SetGroupHeader( "GERENCIAMENTO DE NOTAS", 1, 5, BOOK18 )

  oCol  := oLbxAgen:aCols[ 1 ]
  oCol:cSortOrder := 'PED1'
  ocol:cToolTip:="Clique para ordenar por código"

  oCol  := oLbxAgen:aCols[ 2 ]
  oCol:cSortOrder := 'PED8'
  ocol:cToolTip:="Clique para ordenar por descrição"

  oCol  := oLbxAgen:aCols[ 4 ]
  oCol:cSortOrder := 'PED2'
  ocol:cToolTip:="Clique para ordenar por descrição"

  oLbxAgen:SetRDD()
  oLbxAgen:CreateFromCode()
  odlg:oClient := oLbxAgen

*  oLbxAgen:aCols[1 ]:SetCheck( {"sim","nao"}, {|o,u| o:Value( u ) } )

Atualizando o código, Ele coloca um browse na tela toda.

Como eu delimito o tamanho do browse?

Como eu coloco um checkbox?

Como eu faço pra ja entrar com oCol := oLbxAgen:aCols[ 2 ] ativo?

obrigado

May 13, 2016

Ajuda com Xbrowse. código acima

May 12, 2016

obrigado joão, vou testar

Ronaldbuch · May 12, 2016

Bom dia, estou testando esse pequeno exemplo com o xbrowse e não aparece o browse.

#INCLUDE "FIVEWIN.CH"
#INCLUDE "XBROWSE.CH"

REQUEST DBFCDX
REQUEST HB_CODEPAGE_PT850
REQUEST HB_LANG_PT
FUNCTION MAIN()
  Local oDlg,OBTN1
  HB_SETCODEPAGE("PT850")
  HB_LANGSELECT("PT")
  SETHANDLECOUNT(255)         // NUMERO MAXIMO DE ARQUIVOS ABERTOS
  RDDSETDEFAULT("DBFCDX")
  SET EXCL OFF
  SET CENT ON
  SET _3DLOOK ON
  SET DATE BRIT
  SET EPOCH TO 1980
  SET EXAC OFF
  SET EXCL OFF
  SET STAT OFF
  SET CONS OFF
  SET BELL OFF
  SET DATE FREN
  SET WRAP ON
  SET SCOR OFF
  SET DELE ON
  SET DECI TO 2
  SET ESCAPE ON
  SET MULTIPLE ON
  SETCANCEL(.F.)
  SET AUTOPEN ON
  SET EVENTMASK TO 128  && (INKEY_ALL)
  SET(_SET_EVENTMASK)
  IF ABRE17()=.F.
     RETURN(.F.)
  ENDIF
  DEFINE ICON oIco FILE "FENIX.ICO"
  DEFINE DIALOG oDlg STYLE WS_OVERLAPPEDWINDOW ICON oIco
         oDlg:lHelpIcon:=.f.
         oDlg:setfont( oFontes )
         oDlg:cCaption:='Fenix Sistem@s - Emissor NF-e'

  @0,10 XBROWSE oBrw OF oDlg;
        FIELDS 'arqnfe->serie','ARQNFE->NOTA' ;
        HEADERS 'Série','Nota Fiscal' ;
        ALIAS "ARQNFE" ;
        AUTOSORT FASTEDIT LINES CELL

  if ! Empty( oCol := oBrw:oCol( "Série" ) )
     oCol:SetCheck( { "ON", "OFF" } )
     oCol:cSortOrder  := nil
  endif


  @18,5 BUTTON oBTN1 PROMPT "Sair" of oDLG ;
         ACTION( oDLG:END() )

  Activate Dialog oDlg Centered  on init (ShowWindow( oDlg:hWnd, 3 ),buildcontrolmenu(odlg),oBrw:SetFocus())

  DBCLOSEALL()
  RELEASE ALL
  RETURN NIL
  Return Nil

**---------------------------------------------------------------

static FUNCTION ABRE17
  SELE 17
  USE e:\wfatura\DADOS\ARQNFE INDEX e:\wfatura\DADOS\ARQNFE
  IF BLOQUEIO()=.F.
     RETURN(.F.)
  ENDIF
  RETURN(.T.)
  
static FUNCTION BLOQUEIO(oArquivo)
  IF NETERR()
     MSGINFO("Arquivo Bloqueado p/ Manutenção | "+oArquivo)
     RETURN(.F.)
  ENDIF
RETURN(.T.)


static func buildcontrolmenu(odlg)
  MENU oMenu
    MENUITEM "Arquivo"
    MENUITEM "Versão" ACTION MsgAbout("FiveWin",FWVERSION+" >> "+VERSION())
    MENUITEM "Sair"
       MENU
         MENUITEM "Retorna ao Menu Principal" resource "SAIRm" action (SAIDLG:=.T.,odlg:END())
       endmenu
  ENDMENU
  odlg:setmenu(oMenu)

obrigado

May 12, 2016

bom dia, eu baixei uma versão do xharbour no site http://www.whosaway.com/, baixei a versão para o compilador BCC 5.5.1.

Ocorre o seguinte erro na compilação:

Error: unresolved external '_HB_PCREPOS_LIBRAY' referenced from e:\novo\xharbour\lib\rtl.lib |regex

Alguem pode ajudar

obrigado

April 29, 2016

na verdade kapiaba eu ja abro os arquivos antes.

  IF ABRE17()=.F..OR.ABRE18()=.F..OR.ABRE43()=.F..OR.ABRE1()=.F..OR.ABRE45()=.F..OR.ABRE19()=.F..OR.ABRE14()=.F..OR.ABRE16()=.F..OR.ABRE23()=.F..OR.ABRE20()=.F..OR.ABRE42()=.F..OR.ABRE200()=.F..OR.ABRE46()=.F..OR.ABRE180()=.F..OR.ABRE190()=.F..OR.ABRE170()=.F..OR.ABRE21()=.F..OR.ABRE201()=.F..OR.ABRE202()=.F..OR.ABRE160()=.F..OR.ABRE52()=.F..or.ABRE47()=.f.
     MSGALERT("Não Foi Possível Abrir os Arquivos, Tente Novamente...","Mensagem")
     RETURN(.F.)
  ENDIF
*----------- DEFINE A TELA ----------------------------*
  DEFINE DIALOG DLGVEN2 RESOURCE "FOLDERNFE" COLOR PRETO,CINZACL;
          STYLE  nOr(WS_POPUP,              ;
                     WS_VISIBLE,            ;
                     WS_CAPTION) PIXEL
          DLGVEN2 : LHELPICON := .F.  // TIRA A ? DA JANELA
          DLGVEN2: bRClicked = { || MsgInfo("Sem Efeito","BOTÃO DIREITO DO MOUSE") }
*----------------------------------------------------------------------------------------*
  REDEFINE FOLDER FOLVEN id 30 of DLGVEN2;
             PROMPT " Dados da NF Eletrônica   "," Destinatario/Remetente   "," Produtos e Serviços da NF-e   "," Transporte/Volumes   "," Cobrança-Fatura/Duplicata   "," Informações Adicionais                     ";
             DIALOGS "MANUTNFE","MANUTNFE2","MANUTNFE3","MANUTNFE4","MANUTNFE6","MANUTNFE5";
             BITMAPS "NOVOM","CLIENTEM","PRODUTOM","MOTORISTAM","BAIXAM","CONTRATUAL";
             TABCOLOR   AZUL                                                   ;
             FOCUSCOLOR VERMELHO

*----NOTAS REFERENCIADAS---------------------------------------------------------------------------------
   REDEFINE LISTBOX OBRWVEN2 FIELDS ARQNFERF->CHAVE,ARQNFERF->UF,ARQNFERF->MESANO,ARQNFERF->CNPJ,STR(ARQNFERF->SERIERF,3),STR(ARQNFERF->NUMERO,11),STRZERO(ARQNFERF->MODELO,2) ID 21 Alias "ARQNFERF" ;
   ......
*-----------------------------------------------------------------------------------------------
  ACTIVATE DIALOG DLGVEN2 CENTERED VALID SAIDLG  ;
           ON INIT IIF( OPCAO<>"I", (BuildtaBVEN( DLGVEN2,OPCAO),DESABILITAOBJ(OBJVEN,68),OBOTAO[4]:DISABLE(),OBOTAO[5]:DISABLE(),OBOTAO[4]:REFRESH(),OBOTAO[5]:REFRESH(),OBTVEN4[1]:DISABLE(),OBTVEN6[1]:DISABLE(),OBTVEN8[1]:DISABLE(),OBTVEN10[1]:DISABLE()),;
                                    (BuildtaBVEN( DLGVEN2,OPCAO),ATIVAOBJ(OBJVEN,68),OBOTAO[4]:ENABLE(),OBOTAO[5]:ENABLE(),OBOTAO[4]:REFRESH(),OBOTAO[5]:REFRESH()) )

  


FUNCTION ABRE17
  DO MEM1
  SELE 17
  USE .\DADOS\ARQNFE INDEX .\DADOS\ARQNFE
  IF BLOQUEIO()=.F.
     RETURN(.F.)
  ENDIF
  RETURN(.T.)

mesmo tirando os selects antes do browse ainda fica dentro dos 6segundos. São muitos campos. São 6 folders com muitas informações em cada um, browse... Essa que é minha dúvida, é normal esse tempo ou não?

April 29, 2016

valeu obrigado kapiaba

April 27, 2016

Será que alguem poderia me enviar um xml para me servir de base. Sem assinatura.

alain.rancharia@terra.com.br

obrigado

Sign In

Alain da Silva

Posts

Joined

Last visited

Days Won

Content Type

Downloads

Profiles

Forums

Posts posted by Alain da Silva

browse

browse

browse

browse

browse

browse

browse

browse

btnget e pesquisa

browse

btnget e pesquisa

browse

COMPILAR XHARBOUR

COMPILAR XHARBOUR

COMPILAR XHARBOUR

browse

browse

browse

browse

browse

browse

xharbour

Demora para mostrar a Tela

Demora para mostrar a Tela

LAYOUT XML

Browse

Activity