browse

[Alain da Silva]

Legal Alessandro.

[aferra]

o email é igual ao pdf que vc já colocou, o btn não sei e pela classe não achei nada para colocar bmp, e setgroup não muda, ele acompanha as cores padrão que vc colocou no browse...

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

[aferra]

assim dá certo?

olbx:aCols[3]:AddBmpFile( "e:\wfatura\image\Email2.bmp" )
olbx:aCols[3]:nHeadBmpNo := 1
olbx:aCols[3]:nDataBmpAlign := AL_CENTER

[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?

​

[aferra]

bem,

control + home = inicio

control + end = fim

elegante criar os botões

[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.

[aferra]

ok, de nada, agora chega, vc já gastou sua cota de perguntas no mês, kkkkkkkkkkkkkkkkkkkkkkkkkk

[Alain da Silva]

rapaz gastei mesmo, kkkkk quem manda ter o conhecimento.

Agora acabei nesse assunto, como estou atualizando o five esta pipocando um monte de coisas.

abs

[Alain da Silva]

Alessandro preciso de uma ajuda.

Eu queria testar esses três arquivos e colocar um img para cada uma mas não estou conseguindo.

cFile := ".\NFE_ASSINADO\"+SUBS(DTOC(DTEMISSAO),4,2)+SUBS(DTOC(DTEMISSAO),7,4)+"\ProtNFE"+ALLTRIM(CCHAVE)+".XML"
cFile2 := ".\NFE_ASSINADO\INUTILIZADA\"+SUBS(DTOC(DTEMISSAO),4,2)+SUBS(DTOC(DTEMISSAO),7,4)+"\InutilizaNFE-"+ALLTRIM(CCHAVE)+".XML"
cFile3 := ".\NFE_ASSINADO\CANCELADA\"+SUBS(DTOC(DTEMISSAO),4,2)+SUBS(DTOC(DTEMISSAO),7,4)+"\CancNFE-"+ALLTRIM(CCHAVE)+".XML"

ADD COLUMN TO XBROWSE oBrw DATA '' HEADER "Xml" center
ADD COLUMN TO XBROWSE oBrw DATA '' HEADER "Status" center

         oBrw:aCols[1]:bBmpData      := {|| 1 }
         oBrw:aCols[1]:AddBmpFile("image\XMLFOR.bmp" )
         oBrw:aCols[1]:addbmpfile("" )
         oBrw:aCols[1]:bBmpData      := {|| If(VERNAPASTA(ARQNFE->CHAVE,ARQNFE->DTEMISSAO), 1,2 ) }
         oBrw:aCols[1]:nDataBmpAlign := AL_CENTER
         oBrw:aCols[1]:nHeadBmpNo    := 2
         oBrw:aCols[1]:nDataBmpAlign := AL_CENTER
esse caso eu faço pra mostrar uma img quando enviado e funciona, agora queria fazer o mesmo na coluna status mas mostrando 
​3 img diferente.

Function Vernapasta(Cchave,DTEMISSAO)
  CCHAVE:=CHARIE(CCHAVE)
  cFile := ".\NFE_ASSINADO\"+SUBS(DTOC(DTEMISSAO),4,2)+SUBS(DTOC(DTEMISSAO),7,4)+"\ProtNFE"+ALLTRIM(CCHAVE)+".XML"
  If !File(cFile)
     RETURN(.F.)
  EndIf
RETURN(.T.)

​

[aferra]

opa, é desta maneira que eu faria.

oBrw:aCols[1]:AddBmpFile("image\XMLFOR.bmp" )
oBrw:aCols[1]:AddBmpFile("image\xmlinut.bmp" )
oBrw:aCols[1]:AddBmpFile("image\xmlcanc.bmp" )
oBrw:aCols[1]:addbmpfile("" )
oBrw:aCols[1]:bBmpData := {|| VERNAPASTA(ARQNFE->CHAVE,ARQNFE->DTEMISSAO) }
oBrw:aCols[1]:nDataBmpAlign := AL_CENTER
oBrw:aCols[1]:nHeadBmpNo := 2
 
**********************************************************
Function Vernapasta(Cchave,DTEMISSAO)
LOCAL nRetXml := 4

cFile := ".\NFE_ASSINADO\"+SUBS(DTOC(DTEMISSAO),4,2)+SUBS(DTOC(DTEMISSAO),7,4)+"\ProtNFE"+ALLTRIM(CCHAVE)+".XML"
cFile2 := ".\NFE_ASSINADO\INUTILIZADA\"+SUBS(DTOC(DTEMISSAO),4,2)+SUBS(DTOC(DTEMISSAO),7,4)+"\InutilizaNFE-"+ALLTRIM(CCHAVE)+".XML"
cFile3  := ".\NFE_ASSINADO\CANCELADA\"+SUBS(DTOC(DTEMISSAO),4,2)+SUBS(DTOC(DTEMISSAO),7,4)+"\CancNFE-"+ALLTRIM(CCHAVE)+".XML"
  If !File(cFile)
     nRetXml := 1
  EndIf
 
  If !File(cFile2)
     nRetXml := 2
  EndIf
 
  If !File(cFile3)
     nRetXml := 3
  EndIf
 
RETURN nRetXml
 

claro que eu estou interpretando o que vc postou, mas alinhei o raciocínio para a forma que vc trabalha...espero ter acertado.

[Alain da Silva]

Valeu Alessandro, agora estou entendo melhor esse negócio de colocar imagem. Obrigado

[Alain da Silva]

Alessandro, para usar com recursos, é da mesma forma?

REDEFINE XBROWSE oBrw ID 107 OF DLGVEN FASTEDIT AUTOSORT ///CELL

ADD COLUMN TO XBROWSE oBrw DATA '' HEADER "Xml" center

oBrw:CreateFromCode()

E se for, qual o recurso usar. TWBrowse, TCBRwose, TsBrowse. Estou Testando com todos mas esta dando erro.

[aferra]

bom, com recursos eu não trabalho, rsrsrsrsrs, detesto, ainda mais com workshop, horrível ( irão me matar, rsrsrsrs ), mas o que vc tem que fazer é criar um controle custom e colocar o nome de TXBROWSE só isso, ai em windows Styes vc usa esses comandos 0x40200000, 0x50800000, 0x50B00000, 0x40380000, kda uma faz uma coisa, tem scroll vertical, horizontal, ajusta linha, enfim, testa o que for melhor para vc. isso que te passei é para PellesC, mas acredito que deva ser a mesma coisa para workshop.

[Alain da Silva]

É isso mesmo, obrigado Alessandro.

[Alain da Silva]

Boa tarde Alessandro, preciso de uma ajuda. Como eu faço pra ir atualizando um obj conforme ou for navegando no browse.

Tipo tenho um botao que com when pra aparecer somente se for tal condição.

Valeu

[aferra]

tarde....

oBrw:bChange := {|| IF( <condicao>, oBtn:Enable(), oBtn:Disable() ) }

[Alain da Silva]

opa, obrigado.