Jump to content
Fivewin Brasil

Alain da Silva

Membros
 View Profile  See their activity

  • Posts

    535

  • Joined

  • Last visited

  • Days Won

    10

 Content Type 

Everything posted by Alain da Silva

  1. Alain da Silva
    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.
  2. Alain da Silva
    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? ​
  3. Alain da Silva
    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 //-------------------------------------------
  4. Alain da Silva
    Legal Alessandro.
  5. Alain da Silva
    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.
  6. Alain da Silva
    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.
  7. Alain da Silva
    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
  8. Alain da Silva
    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.
  9. Alain da Silva
    valeu obrigado
  10. Alain da Silva
    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"
  11. Alain da Silva
    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
  12. Alain da Silva
    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
  13. Alain da Silva
    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 ........
  14. Alain da Silva
    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
  15. Alain da Silva
    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,
  16. Alain da Silva
    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()
  17. Alain da Silva
    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?
  18. Alain da Silva
    @ 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
  19. Alain da Silva
    Ajuda com Xbrowse. código acima
  20. Alain da Silva
    obrigado joão, vou testar
  21. Alain da Silva
    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
  22. Alain da Silva
    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
  23. Alain da Silva
    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?
  24. Alain da Silva
    valeu obrigado kapiaba
  25. Alain da Silva
    Será que alguem poderia me enviar um xml para me servir de base. Sem assinatura. alain.rancharia@terra.com.br obrigado
×
×
  • Create New...