Pegar o valor da coluna do browse ?
Enviado: 01 Jun 2011 22:48
Olá pessoal, não estou conseguindo pegar o valor de uma coluna do browse para mandar a outra função, já tentei com Valtoprg() mas não consigo. Alguma ajuda?
Código: Selecionar todos
* Seq.|Nome|Qt Ent.|Vlr Stx|Vlr Ent.|Vlr c/Stx|Vlr_empre
aadd( tel_array, {transform( nSeq,'99' ), tel_nom[cont], transform( tel_dat[cont,1],'999'), transform(A,'999999.99'), transform(B,'999999.99'), transform(A + IIF(tel_dat[cont,1] >= tele0052->Qt_fixo, tel_dat[cont,2],0),'999999.99'), transform(nVlr_empre,'999999.99')} )
next
*Somando valores finais
IF Len(tel_array) > 0
*IF Upper(Alltrim(Netname())) == Alltrim(TELE0050->A_SERVER50) // == 'GERENCIA'
for cont2 = 1 to len(tel_array)
Tot_pedidos += Val(tel_array[cont2,3])
Tot_taxas += Val(tel_array[cont2,4])
Total_bandas += Val(tel_array[cont2,5])
*Total_geral += Val(tel_array[cont2,6])
Total_empre += Val(tel_array[cont2,7])
NEXT
*ELSE
*FOR cont2 = 1 to len(tel_array)
* Tot_pedidos += Val(tel_array[cont2,3])
*NEXT
* ENDIF
ENDIF
*Linha final Do browse
Total_geral := Total_bandas + tot_taxas
aadd( tel_array, {'---', '-----', '---', '---------', '---------','---------','---------'} )
aadd( tel_array, {'Tot', '---->', transform( Tot_pedidos,'@E 999'), transform(Tot_taxas,'@E 999999.99'), transform(Total_bandas,'@E 999999.99'), transform(Total_geral,'@E 999999.99'), transform(Total_empre,'@E 999999.99')} )
*asort( tel_array )
INIT DIALOG oDlg1 FROM RESOURCE "ENTREGAS" TITLE "Visualizar Entregas"; //SIZE IIF(Upper(Alltrim(Netname())) == Alltrim(TELE0050->A_SERVER50),560,230),200;
NOEXIT ;
FONT HFont():Add( 'Arial',0,-11,600,,,) ;
STYLE WS_DLGFRAME + WS_SYSMENU + DS_CENTER;
ICON oIcon
REDEFINE BROWSE oBrw1 ARRAY ID 104;
On CLICK {||EndDialog(),msginfo('oi'+chr(13)+chr(10)+[color=#FF0000]valtoprg(oBrw1:aSelected)[/color]),Lanca_vales(.F.)}
oBrw1:bKEYDOWN := {|oBrw1, nKey| BrowseDbKey5(oBrw1, nKey) }
oBrw1:oFont := HFont():Add( 'Arial',0,-13,600,,,)
oBrw1:oHeadFont := HFont():Add( 'Times New Roman',0,-12,600,,,)
oBrw1:aArray := Tel_array
CreateArList( oBrw1, Tel_array )