problema com Tsbrowse

[microfly]

Bom dia a todos

Estou com um problema coma Tsbrowse do mercado é o seguinte:

Tenho uma dialog com 2 browses o da esquerda ira mostrar o produto e o da direita os fornecedores

só que qdo gravo uma cotação de um produto ele atualiza o browse da esquerda e nao atualiza o browse da direita

mais qdo eu clico no browse da esquerda ele atualiza o browse da direita e ai segue normal, alguem poderia me ajudar a solucinar esse problema

Nota: pedi para o Sr. Manuel Mercado e nem ele me deu a solução.

Luiz Carlos Nogueira (Batata)

www.microfly.com.br

skype suporte.microfly

[Jmsilva]

Amigo disponibiliza a parte do código com os dois browse.

jmsilva

xHarbour/Harbour/Fivewin

[microfly]

Amigo disponibiliza a parte do código com os dois browse.

jmsilva

xHarbour/Harbour/Fivewin

* Fim ação de botões

*1 Browse

Peditem1->(Ordsetfocus("Iitppedic1"))

Peditem1->(ORDSCOPE(0, Pedidosc->Ftnpedi+Peditem1->Ftprod ))

Peditem1->(ORDSCOPE(1, Pedidosc->Ftnpedi+Peditem1->Ftprod ))

Peditem1->(Dbgotop())

REDEFINE BROWSE oLbxpc ID 113 OF oDlg ALIAS "Peditem1" UPDATE ON CHANGE oDlg:Update()

ADD COLUMN TO oLbxpc DATA Peditem1->Ftnpedi Picture "999999" Align DT_CENTER Size 050 Header "Nº"+CRLF+"Cotação"

ADD COLUMN TO oLbxpc DATA Peditem1->Ftprod Picture "99999" Align DT_CENTER Size 050 Header "Codigo"

ADD COLUMN TO oLbxpc DATA Peditem1->Ftdesc Picture "@!" Align DT_LEFT Size 221 Header "Descrição Produto"

oLbxpc:Look3d( .T., , , .T. )

oLbxpc:lNOHScroll := .T.

oLbxpc:lNOVScroll := .F.

oLbxpc:nHeightHead+= 6

oLbxpc:nHeightCell+= 2

oLbxpc:SetColor( {1, 2, 3, 4, 5, 6, 14 },;

{CLR_BLACK,CLR_BLUEXP,CLR_WHITE,;

{CLR_HGREEN,CLR_BLACK },CLR_WHITE,;

{CLR_HBLUE,CLR_BLACK},;

{CLR_WHITE,CLR_GREEN } } )

Peditem1->(Dbgobottom())

Peditem1->(Dbgotop())

oLbxpc:bChange:={|| Pegaitem(oLbxft,oDlg)} // Peguei no Grupo do Fivewin em dicas Aferra (Alessandro)

oLbxpc:UpStable()

oLbxpc:Refresh()

oLbxpc:SetFocus()

* 2 browse()

Select Peditemc

Ordsetfocus("Iitprodped")

Peditemc->(ORDSCOPE(0, nPedido+Peditem1->Ftprod))

Peditemc->(ORDSCOPE(1, nPedido+Peditem1->Ftprod))

Peditemc->(Dbgotop())

REDEFINE BROWSE oLbxft ID 114 OF oDlg ALIAS "Peditemc" UPDATE ;

ON CLICK Inc_ItemCota("Atualizacota", Pedidosc->Ftnpedi,oLbxft, oDlg) ON CHANGE oDlg:UPDATE()

ADD COLUMN TO oLbxft DATA Peditemc->Ftfornec Picture "99999" Align DT_RIGHT Size 045 Header "Cod.For"

ADD COLUMN TO oLbxft DATA Peditemc->Ftnomefor Picture "@!" Align DT_LEFT Size 229 Header "Nome Fornecedor"

ADD COLUMN TO oLbxft DATA Peditemc->Ftqtde Picture "@E 999,999.999" Align DT_RIGHT Size 050 Header "Qtde"

ADD COLUMN TO oLbxft DATA Peditemc->Ftvuni Picture "@E 999,999.99" Align DT_RIGHT Size 060 Header "Vlr Unit."

ADD COLUMN TO oLbxft DATA Peditemc->Ipi Picture "@E 999.99" Align DT_RIGHT Size 040 Header "Ipi %"

ADD COLUMN TO oLbxft DATA Peditemc->Totitem Picture "@E 999,999.99" Align DT_RIGHT Size 060 Header "Total Item"

ADD COLUMN TO oLbxft DATA Iif(Peditemc->Menorpreco,"SIM"," ") Align DT_CENTER Size 037 Header "Menor"+CRLF+"Preço"

oLbxft:Look3d( .T., , , .T. )

oLbxft:lNOHScroll := .T.

oLbxft:lNOVScroll := .F.

oLbxft:nHeightHead+= 6

oLbxft:nHeightCell+= 3

oLbxft:nWheelLines:=1

oLbxft:SetColor( {1, 2, 3, 4, 5, 6, 14}, ;

{{|| Cor_pedtxtocu()},CLR_BLUEXP, CLR_WHITE, {CLR_HGREEN,CLR_BLACK}, CLR_WHITE,;

{|| Cor_pedfunocu()}, {CLR_WHITE, CLR_GREEN}})

oLbxft:Upstable()

oLbxft:Refresh()

* REDEFINE SAY oItens Prompt nItens Picture "99" ID 60 OF oDlg UPDATE FONT oFont[5] COLOR CLR_HGREEN,CLR_BLACK CENTERED

* REDEFINE SAY oTotped Prompt nTotpedGeral Picture "@E 999,999.99" ID 62 OF oDlg UPDATE FONT oFont[5] COLOR CLR_HGREEN,CLR_BLACK

REDEFINE BUTTONBMP oBtsair ID 1401 OF oDlg BITMAP "Tsair" CANCEL;

ACTION (oDlg:End()) UPDATE RIGHT

oBtsair:cTooltip:="Sair e ir para a Tela Principal"

oDlg:bpainted := { || Carimbocotap( oDlg:hDC, '© Microfly Informática - Digitação Cotação de Precos', oDlg ) }

ACTIVATE DIALOG oDlg CENTERED ON INIT (Ver_menor(oLbxft,oDlg),oDlg:lHelpIcon:=.F.,;

Inc_ItemCota("Atualizacota", Pedidosc->Ftnpedi,oLbxft, oDlg))

aEval( oFont, {|o| o:End()})

*--Atualiza o total dos itens

If lAdciona .and. nTotpedGeral==0

Pedidosc->(Dbdelete())

Endif

Pedidosc->(DBUNLOCK())

Peditemc->(ORDSCOPE(0, NIL))

Peditemc->(ORDSCOPE(1, NIL))

Peditemc->(DBGOTOP())

Select Pedidosc

OrdSetFocus("Icotanu")

Dbgoto(nRecopedc)

Return

*------------------------------------------------------------------------------------------*

*------------------------------------------------------------------------------------------*

Static Function Pegaitem(oLbxft,oDlg)

Peditemc->(ordScope(0,nil))

Peditemc->(ordScope(1,nil))

Peditemc->(Ordsetfocus("Iitprodped"))

Peditemc->(ordScope(0,Peditem1->Ftnpedi+Peditem1->Ftprod))

Peditemc->(ordScope(1,Peditem1->Ftnpedi+Peditem1->Ftprod))

Peditemc->(dbGotop())

oLbxft:GoTop()

oLbxft:Reset()

oLbxft:Refresh()

oDlg:UPDATE()

oDlg:Refresh()

Return(oLbxft:Refresh)

*--------------------------------------------------------------------------------------------------*

[atnsoft]

Resolvi fazendo assim. Depois de atualizar os objetos do browse que sofreram modificacoes:

select area do dbf

dbGoTop()
objetodobrowse:UpStable()
objetodobrowse:Refresh()

[kapiaba]

Dica para refresh da nova versão do TSBrowse

Atenção para quem usava fazer o Refresh do TSBrowse do modo abaixo:

   oBrw:SetFocus()

   oBrw:Reset()

   oBrw:Refresh(.T.)

   oBrw:ResetBarPos(.T.)

   oBrw:BuguP()

Substituir por:

   oBrw:SetFocus()

   oBrw:Refresh(.T.)

   oBrw:ResetVScroll(.T.)

Caso contrário não serão mostradas atualizações em pesquisas.

Exemplo:

http://www.fivetechsoft.com/files/utilities/nautilus/PRG/VIEWDB.PRG

[microfly]

Resolvi fazendo assim. Depois de atualizar os objetos do browse que sofreram modificacoes:

select area do dbf

dbGoTop()

objetodobrowse:UpStable()

objetodobrowse:Refresh()

Fiz o que sugeriu mais nao funfou, mais obrigado pela ajuda

[microfly]

Dica para refresh da nova versão do TSBrowse

Atenção para quem usava fazer o Refresh do TSBrowse do modo abaixo:

   oBrw:SetFocus()
   oBrw:Reset()
   oBrw:Refresh(.T.)
   oBrw:ResetBarPos(.T.)
   oBrw:BuguP()

Substituir por:

   oBrw:SetFocus()
   oBrw:Refresh(.T.)
   oBrw:ResetVScroll(.T.)

Caso contrário não serão mostradas atualizações em pesquisas.

Exemplo:

http://www.fivetechsoft.com/files/utilities/nautilus/PRG/VIEWDB.PRG

Valeu meu irmão mais nao funfou, to quase deixando de lado isso pois ja estou a 1 semana nisso e nada

[kapiaba]

Porque não mudas para WBROWSE() ou XBROWSE()? É melhor e é NATIVA. abs.

[microfly]

Porque não mudas para WBROWSE() ou XBROWSE()? É melhor e é NATIVA. abs.

é o que vou fazer pois nem o Manuel Mercado que fez sabe da solução kkkkkkk

[microfly]

RESOLVIDO