Alain da Silva Posted May 17, 2016 Author Report Share Posted May 17, 2016 Legal Alessandro. Quote Link to comment Share on other sites More sharing options...
aferra Posted May 17, 2016 Report Share Posted May 17, 2016 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... Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted May 17, 2016 Author Report Share Posted 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//------------------------------------------- Quote Link to comment Share on other sites More sharing options...
aferra Posted May 17, 2016 Report Share Posted May 17, 2016 assim dá certo? olbx:aCols[3]:AddBmpFile( "e:\wfatura\image\Email2.bmp" ) olbx:aCols[3]:nHeadBmpNo := 1 olbx:aCols[3]:nDataBmpAlign := AL_CENTER Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted May 18, 2016 Author Report Share Posted 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? Quote Link to comment Share on other sites More sharing options...
aferra Posted May 18, 2016 Report Share Posted May 18, 2016 bem, control + home = inicio control + end = fim elegante criar os botões Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted May 18, 2016 Author Report Share Posted 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. Quote Link to comment Share on other sites More sharing options...
aferra Posted May 18, 2016 Report Share Posted May 18, 2016 ok, de nada, agora chega, vc já gastou sua cota de perguntas no mês, kkkkkkkkkkkkkkkkkkkkkkkkkk kapiaba 1 Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted May 18, 2016 Author Report Share Posted May 18, 2016 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 aferra 1 Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted May 28, 2016 Author Report Share Posted May 28, 2016 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" centerADD 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.) Quote Link to comment Share on other sites More sharing options...
aferra Posted May 28, 2016 Report Share Posted May 28, 2016 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. Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted May 28, 2016 Author Report Share Posted May 28, 2016 Valeu Alessandro, agora estou entendo melhor esse negócio de colocar imagem. Obrigado aferra 1 Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted May 29, 2016 Author Report Share Posted May 29, 2016 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. Quote Link to comment Share on other sites More sharing options...
aferra Posted May 29, 2016 Report Share Posted May 29, 2016 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. kapiaba 1 Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted May 29, 2016 Author Report Share Posted May 29, 2016 É isso mesmo, obrigado Alessandro. Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted June 8, 2016 Author Report Share Posted June 8, 2016 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 Quote Link to comment Share on other sites More sharing options...
aferra Posted June 8, 2016 Report Share Posted June 8, 2016 tarde.... oBrw:bChange := {|| IF( <condicao>, oBtn:Enable(), oBtn:Disable() ) } Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted June 9, 2016 Author Report Share Posted June 9, 2016 opa, obrigado. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.