Vitor Reis Posted October 25, 2018 Report Share Posted October 25, 2018 galera.. eu uso o xbrowse() assim tabela->(xbrowse()) ou xbrowse(array) ele faz direitinho.. porem o botao excel nao traz valores como valor.. e sim como texto para o excel alguem saberia como resolver.. Vitor skype: wfinan zap: (11) 9-7414-4341 email: vitor.reis@terra.com.br Quote Link to comment Share on other sites More sharing options...
evandro Posted October 25, 2018 Report Share Posted October 25, 2018 Olá, Qual a origem dos dados do array? Query da SqlLib? Quote Link to comment Share on other sites More sharing options...
Vitor Reis Posted October 26, 2018 Author Report Share Posted October 26, 2018 array mesmo.. usando da forma que falei.. eu nao uso sqllib.. ainda to no dbf.. mas já tentei com dbf ou array.. ele traz certinho pro browse.. mas quando clico no botao excel.. ele traz texto e nao valor.. eu mexi nas mascaras.. até trouxe valor.. mas sem os centavos após a virgula Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 26, 2018 Report Share Posted October 26, 2018 Algo assim? #include "fivewin.ch" #include "xbrowse.ch" function Main() local oWnd, oBrw, oDbf use customer database odbf define window ownd @ 0,0 xbrowse oBrw of oWnd ; object odbf ; rows { 10, 5, 30, 50, 100 } // Array of record numbers oBrw:nRowHeight := 55 oBrw:CreateFromCode() oWnd:oClient := oBrw activate window oWnd return nil ou, FUNCTION utest() LOCAL oWnd, oBrw LOCAL aArray := { {Space(200), Space(200)} } DEFINE window oWnd @ 0,0 xbrowse oBrw of oWnd ; headers '1', '2'; columns 1,2; Array aArray WITH OBJECT oBrw :nDataLines := 4 :nMarqueeStyle := MARQSTYLE_HIGHLROWRC :aCols[1]:nDataLines := 4 :aCols[1]:nEditType := EDIT_GET :aCols[1]:lAutoSave := .T. :aCols[1]:nWidth := 200 :aCols[1]:lAllowSizing := .F. :aCols[1]:cEditPicture := '@!' //COMMENT THIS AND YOU CAN CTRL+ENTER FOR ANOTHER LINE... :aCols[2]:nDataLines := 4 :aCols[2]:nEditType := EDIT_GET :aCols[2]:lAutoSave := .T. :aCols[2]:nWidth := 200 :aCols[2]:lAllowSizing := .F. :aCols[2]:cEditPicture := '@!' //is this odd because I need all text entered by end user all upper case END WITH oBrw:CreateFromCode() oWnd:oClient := oBrw activate window oWnd RETURN Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 26, 2018 Report Share Posted October 26, 2018 Exemplos para estudar: http://forums.fivetechsupport.com/viewtopic.php?f=3&t=32063&start=0 http://www.fivetechsupport.com/forums/viewtopic.php?f=3&t=16461&start=0 http://fivetechsupport.com/forums/viewtopic.php?f=3&t=24362 http://www.forums.fivetechsupport.com/viewtopic.php?f=3&t=18278 http://fivetechsupport.com/forums/viewtopic.php?f=3&t=18053 Quote Link to comment Share on other sites More sharing options...
Vitor Reis Posted October 26, 2018 Author Report Share Posted October 26, 2018 usei seus exemplo.. faz a mesma coisa.. o valor vem como texto no excel.. kapiaba 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 26, 2018 Report Share Posted October 26, 2018 Poste como você está fazendi bindindo. Quote Link to comment Share on other sites More sharing options...
aferra Posted October 26, 2018 Report Share Posted October 26, 2018 ACho que tem que colocar isso no inicio do programa xbrNumFormat("A",.T.) "A" formato americano .T. usar o separador Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 26, 2018 Report Share Posted October 26, 2018 Ou, xbrNumFormat( "E", .t. ) OU, oBrw:lExcelCellWise := .t. Quote Link to comment Share on other sites More sharing options...
Vitor Reis Posted November 1, 2018 Author Report Share Posted November 1, 2018 eu uso apenas assim pra mostrar o conteudo da tabela ou do array tabela->(xbrowse()) ou quando é array xbrowse(array) Onde colocaria esses parametros ??? Quote Link to comment Share on other sites More sharing options...
aferra Posted November 1, 2018 Report Share Posted November 1, 2018 ACho que tem que colocar isso no inicio do programaxbrNumFormat("A",.T.)"A" formato americano.T. usar o separador Quote Link to comment Share on other sites More sharing options...
Vitor Reis Posted November 2, 2018 Author Report Share Posted November 2, 2018 até deu certo.. está trazendo valor.. porem quando clico no botao excel, o valor que no browse esta 32,63 ele traz no excel 3263.00, nao respeita a virgula no lugar certo.. + alguma dica ? Quote Link to comment Share on other sites More sharing options...
Theotokos Posted November 5, 2018 Report Share Posted November 5, 2018 Não sei como vc esta atrbuindo o valor no vetor, mas tente assim... (mantem sempre o valor numerico, e só transforma para exbir) oLbx:aCols[3]:bStrData := {|| Transform(aDados[oLbx:nArrayAt,7],"@E 9,999.99") } oLbx:aCols[3]:cHeader := "Total" oLbx:aCols[3]:nWidth := 80 oLbx:aCols[3]:oDataFont := oFnt4 Quote Link to comment Share on other sites More sharing options...
giovanyvecchi Posted November 6, 2018 Report Share Posted November 6, 2018 Ta faltando apenas uma propriedade ai bEditValue oLbx:aCols[3]:bStrData := {|| Transform(aDados[oLbx:nArrayAt,7],"@E 9,999.99") } oLbx:aCols[3]:bEditValue := {|| aDados[oLbx:nArrayAt,7]} Quote Link to comment Share on other sites More sharing options...
Vitor Reis Posted November 6, 2018 Author Report Share Posted November 6, 2018 preciso de alguem que saiba mexer no xbrowse.prg eu nao estou usando nada do que vcs responderam acima.. MEU CODIGO: (tenho uma tabela simples em DBF) use teste alias teste new shared xbrNumFormat("A",.f.) teste->(xbrowse()) veja a imagem abaixo o que ele traz errado para o excel eu anexei um arquivo jpg mas acho que ninguem vê neh.. nao sei como anexar arquivo aqui.. mas enfim.. vou tentar explicar.. ele abre um browse correto.. valor certinho igual está no dbf, exemplo: 1,5000 (valor correto igual dbf) 2,3010 (valor correto igual dbf) mas quando clico no botao excel. ele abre o excel assim exemplo: 15000.00 23010,00 teria que mexer no xbrowse.prg em algum lugar lá teria que dividir o valor por 10000 antes de jogar para o excel, pois está com a formatacao errada.. já tentei mexer no xbrowse.prg mas nao consegui Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 6, 2018 Report Share Posted November 6, 2018 Vitor, você precisa criar uma FUNCTION para controlar os dados que você precisa. Escrever BROWSE() ou XBROWSE(), Somente edita o Banco de dados. Quote Link to comment Share on other sites More sharing options...
Vitor Reis Posted November 6, 2018 Author Report Share Posted November 6, 2018 Vitor, você precisa criar uma FUNCTION para controlar os dados que você precisa. Escrever BROWSE() ou XBROWSE(), Somente edita o Banco de dados. eu nao faço nada. apenas uso o que já existe.. xbrowse().. ele funciona muito bem.. o methodo que gera o excel é que tá errado a formatacao.. testa pra vc ver.. kapiaba 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 6, 2018 Report Share Posted November 6, 2018 Sorry, não tenho excel instalado em minha máquina. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 6, 2018 Report Share Posted November 6, 2018 Vitor, você precisa criar algo assim, mudar a classe xBrowse.prg, seria incoerente, pois se você mudar de versão do five, se AFERRA todo. Veja: http://forums.fivetechsupport.com/viewtopic.php?f=6&t=25665&start=0&hilit=nArrayAt%2C7]%2C+%40E+9%2C999.99 Abs. Quote Link to comment Share on other sites More sharing options...
Vitor Reis Posted November 6, 2018 Author Report Share Posted November 6, 2018 descobri a solucao xbrNumFormat( "E", .t. ) // "E" for European, "A" for American and others aVet:={} aadd(aVet,{"NOME","ENDER",2.256}) xbrowse(aVet) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 6, 2018 Report Share Posted November 6, 2018 Vitor, 2.25, significa o que? Vitor, Local para postar imagens, muito bom. http://imgur.com mais imagens, novo: -> Criar senha. https://uploaddeimagens.com.br Mostre a imagem de como ficou isso, pois não entendi bulhufas. Quote Link to comment Share on other sites More sharing options...
alex2002 Posted November 7, 2018 Report Share Posted November 7, 2018 Jão, Ele montou o array com um registro apenas para testar o campo numérico. Daí usou xbrowse() pra ver se quando abre o excel, ele exporta legal. Foi isso. Boa solução Vitor. Um abraço, Alexandre Pereira 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.