AVInfo Sistemas

então galera .... ainda to a procura de uma solução, alguém pode me ajudar ?? Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

Amigo, utlilize o POO, orientação a Objetos. Crie uma classe prototipada de acordo com os atributos do seu DBF e guarda cada objeto dentro do Array, um exemplo : CLASS NFeItem DATA CodMat, Desmat, Unimat, Marmat, NumLot, ValLote, SttMat INIT "" DATA QtdMat, ValMat, ValDes, PerDes, NumIte, QtdMov INIT 0 METHOD NEW() CONSTRUCTOR ENDCLASS //----------------------------------------------------------------------------// METHOD NEW () CLASS NFeItem RETURN Self ......... //Setando o Array oNFIte:=NFeItem():NEW() oNFIte:CodMat:= clCpro oNFIte:DesMat:= clNpro oNFIte:UniMat:= clUni oNFIte:MarMat:= clMar oNFIte:QtdMat:= nlQtd oNFIte:ValMat:= nlVal oNFIte:PerDes:= nlPdes oNFIte:ValDes:= nlVal1 oNFIte:NumLot:= clLote oNFIte:NumIte:= clIte oNFIte:SttMat:= " " //Insere no Array cada Objeto AAdd(aNFEItens, oNFIte) .................................. //VARRENDO O ARRAY nPos := 1 While nPos<=LEN(aNFEItens) oItem := aNFEItens[nPos] MSGInfo(cDesMat := oItem:DesMat) ENDDO id=code>id=code>Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com Editado por - sdinfo on 27/01/2011 10:46:46 Editado por - sdinfo on 27/01/2011 10:47:11

Alguém ??? Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

Alguma outra sugestão ?? Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

Segue o Código da Função: STATIC FUNCTION MarcaPedItemXBR(oCol,aItens) Local oBRW := oCol:oBRW Local nRowSel := oBRW:nRowSel Local nPos := oCol:nCreationOrder Local lShare := .F. IF(nRowSel >0 .AND. LEN(oBRW:aArrayData) > 0) IF(Ascan(aItens,nRowSel)==0) IF (nPos > nRowSel-1 .and. nPos <=nRowSel*9) lShare := .T. ELSE lShare := .F. ENDIF AADD(aItens, nRowSel) ELSE lShare := .F. Adel(aItens,Ascan(aItens,nRowSel)) ASIZE(aItens,LEN(aItens)-1) ENDIF ENDIF RETURN lShare id=code>id=code>------------------------------------------------------------ Função para Colorir ------------------------------------------------------------ static function SetClrBlock( oCol,aItens ) Local oBRW := oCol:oBRW oCol:bClrStd := { || If( MarcaPedItemXBR( oCol,aItens ), { CLR_WHITE, CLR_HRED }, { CLR_HRED, CLR_WHITE } ) } return nil id=code>id=code>------------------------------------------------------------ Chamada da Função ao apertar o F9 ------------------------------------------------------------ oFol:aDialogs[1]:bKeyDown := {|nKey|IF(nKey == VK_F9,; Aeval(oBRWITEPED:aCols,{|o|SetClrBlock(o,aPedItensSel)}),),oBRWITEPED:Refresh(),oBRWITEPED:SetFocus()} id=code>id=code>Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com Editado por - sdinfo on 25/01/2011 12:56:19

Então S.A. Oliveira, esse trecho de código q vc me passou, vc executa ele logo após a declaração ? Pq eu uso algo parecido pra zebrar as linhas da minha Browse, funciona, depois quando chamo uma função pra pintar as linhas selecionadas, usando o F9, não funciona. Então tentei: Aeval(oBRW:aCols,{|o| MarcaPedItemXBR(o)}) Consegui printar algumas colunas mas não om precisão a linha q eu queria. Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

Gente eu tava precisando colorir uma linha específica da minha Xbrowse quando o usuário apertar a tc F9 por exemplo, alinha selecionada ficaria com a fonte Branca e o Background Vermelho, alguém teria algum exemplo q tá osso achar ... Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

Gente eu tava precisando colorir uma linha específica da minha Xbrowse quando o usuário apertar a tc F9 por exemplo, alinha selecionada ficaria com a fonte Branca e o Background Vermelho, alguém teria algum exemplo q tá osso achar ... Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

Então Luiz. Fiz com via "MYSQL" sem via "MYSQL". Sempre dá o mesmo problema. o RDD Padrão é o DBFCDX já q tem várias tabelas em DBF que ainda preciso migrar pra SQL, mas enquanto isso preciso mantê-las funcionando msm em DBF. Em relação ao order by, usei em outras tabelas e funcionou normalmente, por isso estou estranhando dar problema somente nesta tabela. To perdido aqui, já tentei d tdo .... Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

Amigão ... eu já tentei sem esse identificador, com já tentei d tdo e o problema persiste. Com Array funciona perfeitamente. Será q é algum pau na SQLLib ? Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

Bom galera, estou tendo um problema aqui, crio uma Xbrowse, através de uma setença SQL. Quando Crio ela usando order by no sentença, além de não ordenar corretamente a Xbrowse ainda ao clicar sobre uma linha qualquer dessa Xbrowse, a tabela troca os dados, o cursos vai pra cima e pra baixo ... fica completamente maluco. Se tiro o Order by funciona, mas foge do propósito que é ordenar a minha tabela da minha maneira. Testei aqui usando SQLArray e funcionou corretamente, mas eu queria que funciona-se usando uma Area pois o código fica mais enxuto. Eu fiz a mesma rotina que agora apresenta problemas em várias outras tabelas e somente nesta deu esse problema. Alguma Luz ??? Segue o Código: IF(SELECT("PREVE51i")!=0) PREVE51i->(DbCloseArea()) ENDIF cSql := "SELECT * FROM preve51i as p order by p.dtapre51 desc" USE SQL cSql ALIAS "PREVE51i" SHARED NEW Preve51i->(DBGOTOP()) ... REDEFINE XBROWSE oBRWPED; HEADERS "Data",; "Número",; "St.",; "Cliente",; "Total",; "Vendedor" ; FIELDS RIGHT(Preve51i->DtaPre51,2)+"/"+SUBSTR(Preve51i->DtaPre51,5,2)+"/"+LEFT(Preve51i->DtaPre51,4),; Preve51i->NumPre51,; Status(Preve51i->SttPre51),; ProcCli(Preve51i->CodCli51),; TRANS(Preve51i->TotPed51,"@E 99,999,999.99"),; ProcVend(Preve51i->CodVen51); COLSIZES 75,75,30,350,90,150 ; AUTOCOLS; ID 103 ; UPDATE ; OF oDlg ; ON DBLCLICK ( AltePed(oDlg,oLbx,nlInd) ) oBRWPED:nColDividerStyle := LINESTYLE_BLACK oBRWPED:nRowDividerStyle := LINESTYLE_BLACK oBRWPED:nMarqueeStyle := 4 oBRWPED:bClrStd := {|| { CLR_BLACK, IIF((oBRWPED:cAlias)->(OrdKeyNo())%2==0, CLR_LGREEN,CLR_LGRAY ) } } oBRWPED:l2007 := .F. oBRWPED:bClrHeader := {|| {CLR_WHITE,CLR_LBLUE}} Aeval(oBRWPED:aCols,{ |o| o:oHeaderFont := Arial12}) //Reinicia Fonte Cabeçalho oBRWPED:aCols[5]:nHeadStrAlign := AL_RIGHT //Alinha Cabeçalho a Direita oBRWPED:aCols[5]:nDataStrAlign := AL_RIGHT //Alinha Coluna a Direita oBRWPED:aCols[1]:cOrder := "D" oBRWPED:aCols[1]:oHeaderFont := fBold oBRWPED:aCols[1]:bClrHeader := {||{CLR_BLACK,CLR_CREME}} id=code>id=code>Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com Editado por - sdinfo on 16/01/2011 22:08:24

Bom galera, estou tendo um problema aqui, crio uma Xbrowse, através de uma setença SQL. Quando Crio ela usando order by no sentença, além de não ordenar corretamente a Xbrowse ainda ao clicar sobre uma linha qualquer dessa Xbrowse, a tabela troca os dados, o cursos vai pra cima e pra baixo ... fica completamente maluco. Se tiro o Order by funciona, mas foge do propósito que é ordenar a minha tabela da minha maneira. Testei aqui usando SQLArray e funcionou corretamente, mas eu queria que funciona-se usando uma Area pois o código fica mais enxuto. Eu fiz a mesma rotina que agora apresenta problemas em várias outras tabelas e somente nesta deu esse problema. Alguma Luz ??? Segue o Código: IF(SELECT("PREVE51i")!=0) PREVE51i->(DbCloseArea()) ENDIF cSql := "SELECT * FROM preve51i as p order by p.dtapre51 desc" USE SQL cSql ALIAS "PREVE51i" SHARED NEW Preve51i->(DBGOTOP()) ... REDEFINE XBROWSE oBRWPED; HEADERS "Data",; "Número",; "St.",; "Cliente",; "Total",; "Vendedor" ; FIELDS RIGHT(Preve51i->DtaPre51,2)+"/"+SUBSTR(Preve51i->DtaPre51,5,2)+"/"+LEFT(Preve51i->DtaPre51,4),; Preve51i->NumPre51,; Status(Preve51i->SttPre51),; ProcCli(Preve51i->CodCli51),; TRANS(Preve51i->TotPed51,"@E 99,999,999.99"),; ProcVend(Preve51i->CodVen51); COLSIZES 75,75,30,350,90,150 ; AUTOCOLS; ID 103 ; UPDATE ; OF oDlg ; ON DBLCLICK ( AltePed(oDlg,oLbx,nlInd) ) oBRWPED:nColDividerStyle := LINESTYLE_BLACK oBRWPED:nRowDividerStyle := LINESTYLE_BLACK oBRWPED:nMarqueeStyle := 4 oBRWPED:bClrStd := {|| { CLR_BLACK, IIF((oBRWPED:cAlias)->(OrdKeyNo())%2==0, CLR_LGREEN,CLR_LGRAY ) } } oBRWPED:l2007 := .F. oBRWPED:bClrHeader := {|| {CLR_WHITE,CLR_LBLUE}} Aeval(oBRWPED:aCols,{ |o| o:oHeaderFont := Arial12}) //Reinicia Fonte Cabeçalho oBRWPED:aCols[5]:nHeadStrAlign := AL_RIGHT //Alinha Cabeçalho a Direita oBRWPED:aCols[5]:nDataStrAlign := AL_RIGHT //Alinha Coluna a Direita oBRWPED:aCols[1]:cOrder := "D" oBRWPED:aCols[1]:oHeaderFont := fBold oBRWPED:aCols[1]:bClrHeader := {||{CLR_BLACK,CLR_CREME}} id=code>id=code>Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com Editado por - sdinfo on 16/01/2011 22:08:24

Amigo, isso provavelmente é um problema de permissão de usuário. Passei por problema semelhante no Win 7, e ao alterar o privilégio da conta de usuário corrente para acesso total, resolveu o problema. Outra coisa, antivirus como AVG, Avast reconfiguram a tdo momento os privilégios das contas para o padrão com acesso restrito, então precisam ser configurados manualmente esses antivirus para não alterarem os privilégios. Fica ae a Dica. Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

isso mesmo ... funcionou perfeitamente. Obrigadíssimo .... Show d Bola msm ... Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

Eu acho que o Gradiente da Xbrowse sobrepoe as cores do Head, as cores do Head sobrepoe as cores do Head individual das COlunas. do Gradiente eu consegui me livrar mas da cor dos Headers padrão não. Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

não funcionou ... olha eu achu q a cor padrão do oBRW:bCLRHeader sobrepoe a cor dessa única célula ... Não sei c pode ajudar, mas eu estava sofrendo um problema semelhante com o gradiente, eu setava: oBRW:bClrHeader := {||{CLR_BLACK,CLR_CREME}} id=code>id=code> e não funcionava, só funcionou quando fiz oBRW:bCLRGrad := {||{}} id=code>id=code>Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com Editado por - sdinfo on 12/01/2011 11:29:42

Redefine Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

Amigão não funcionou, me parece q com essa função insiste em ficar com a cor padrão do oBRW:bClrHeader, eu tentei aki : oBRWPRO:aCols[1]:bLClickHeader := {|r,c,f,o| o:bClrHeader :=; {||CLR_BLACK,CLR_GREEN},oFor:Select(1),Mater03i->(DbGoTop()),oBRWPRO:Refresh() } id=code>id=code>sem sucesso Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com Editado por - sdinfo on 12/01/2011 11:12:50

Salve galera, to precisando colorir uma célula do cabeçalho de uma Xbrowse quando a mesma for clicada. Alguém tem algum exemplo de como eu possa fazer isso ? Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com Editado por - sdinfo on 12/01/2011 12:10:17

Salve galera, to precisando colorir uma célula do cabeçalho de uma Xbrowse quando a mesma for clicada. Alguém tem algum exemplo de como eu possa fazer isso ? Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com Editado por - sdinfo on 12/01/2011 12:10:17

Ae galera, vc sabem me dizer c existe algum recurso em DBF igual ao RollBack do SQL ? to Precisando usar Try Catch e verificar c ocorrem erros, c ocorrer cancela todas as transações com o banco assim como SQL. Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

Ae galera, vc sabem me dizer c existe algum recurso em DBF igual ao RollBack do SQL ? to Precisando usar Try Catch e verificar c ocorrem erros, c ocorrer cancela todas as transações com o banco assim como SQL. Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

Luiz como faço pra inserir esse ícones em cada registro de uma coluna ? Consegui fazer com 2 BMP somente usando o oCol:setCheck(). Como eu faria para mais BMP e dependendo da condição ele apresenta um ícone ? Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

Pessoal, to com um problema com a XBrowse. Eu tenho um array com dados e preciso carregar esse array na XBrowse. Bom quando insiro esse array aparece apenas uma coluna de nome A, completamente diferente da declaração do Headers, e só carrega os valores dessa coluna e das outras não. Segue o código REDEFINE XBROWSE oBRWITE ID 112 OF oFol:aDialogs[2]; HEADERS "Item", "Quant", "St.", "Uni", "Produto", "Vl. Unit", "Vl.Total",; "Código", "Labor.", "Lote"; COLSIZES 30,60,25,25,270,80,80,90,80,100 //FONT oFont1 OBRWITE:nDataType := 1 oBRWITE:SETARRAY(aNFEDisp) id=code>id=code>Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

Pessoal, to com um problema com a XBrowse. Eu tenho um array com dados e preciso carregar esse array na XBrowse. Bom quando insiro esse array aparece apenas uma coluna de nome A, completamente diferente da declaração do Headers, e só carrega os valores dessa coluna e das outras não. Segue o código REDEFINE XBROWSE oBRWITE ID 112 OF oFol:aDialogs[2]; HEADERS "Item", "Quant", "St.", "Uni", "Produto", "Vl. Unit", "Vl.Total",; "Código", "Labor.", "Lote"; COLSIZES 30,60,25,25,270,80,80,90,80,100 //FONT oFont1 OBRWITE:nDataType := 1 oBRWITE:SETARRAY(aNFEDisp) id=code>id=code>Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com