TENGO UN XBROWSE QUE DEPENDIENDO DE LA CONDICION QUE TENGA CADA LINEA ADQUIERE SU COLOR ROJO,AMARILLO VERDE, ETC....
EL PROBLEMA ES EL SIGUIENTE QUE CUANDO TIENE SOLO DOS LINEAS EL ARRAY NO FUNCIONA LA CONDICION DE PINTADO, SIMPLEMENTE NO HACE NADA HE INTENTADO DE VARIAS FORMA Y NINGUNO PINTA, CASO CONTRARIO CUANDO EL ARRAY TIENE 1, 3 O MAS LINEAS SI FUNCIONA, UNA AYUDA YA QUE HE ESTADO VARIAS HORAS BUSCANDO LA SOLUCION Y NADA
ARRAY CON UNA SOLA LINEA FUNCIONA BIEN
ARRAY DOS LINEAS NO FUNCIONA
ARRAY TRES O MAS LINEAS SI FUNCIONA
EL PROBLEMA ES EL SIGUIENTE QUE CUANDO TIENE SOLO DOS LINEAS EL ARRAY NO FUNCIONA LA CONDICION DE PINTADO, SIMPLEMENTE NO HACE NADA HE INTENTADO DE VARIAS FORMA Y NINGUNO PINTA, CASO CONTRARIO CUANDO EL ARRAY TIENE 1, 3 O MAS LINEAS SI FUNCIONA, UNA AYUDA YA QUE HE ESTADO VARIAS HORAS BUSCANDO LA SOLUCION Y NADA
#include "Fivewin.ch"
#include "Folder.ch"
#include "Xbrowse.ch"
#include "Xml.ch"
#include "hbxml.ch"
#include "ribbon.ch"
#include "image.ch"
#include "FastReph.ch"
#include "codebar.ch"
FUNCTION prg_202()
LOCAL oDlg,oDbf1,oLbx
LOCAL acAnexo2:={}
PRIVATE r_orden:=1,r_clifac:='',r_docfac:=''
CGreen:={ { 0.50,65280,16777215 },{ 0.50,16777215,65280 } }
CYellow:= { { 0.50,65535,16777215 },{ 0.50,16777215,65535 }}
CRed:= { { 0.50,255,16777215 },{ 0.50,16777215,255 }}
COrange:= { { 0.50,33023,16777215 },{0.50,16777215,33023 }}
IF NetUse("NOTAVNTA", .T. )
DATABASE oDbf1
oDbf1:Load()
ELSE
MsgStop( "Fichero NOTA DE VENTAS Bloqueado" )
RETURN NIL
ENDIF
dbSelectArea(oDbf1:cAlias)
set order to 2
//LLENAR ARRAY
go top
do while .not. eof().and.val((odbf1:calias)->restado)<4
aadd(acAnexo2,{ (odbf1:calias)->rfolio,dtoc((oDbf1:cAlias)->rfecha),;
(oDbf1:cAlias)->rtipod,(oDbf1:cAlias)->rnombre,;
(oDbf1:cAlias)->rtotalnv1,(odbf1:calias)->rorden,;
(odbf1:calias)->rselect,(odbf1:calias)->ratencion,;
(odbf1:calias)->rprovisor} )
skip
enddo
if empty(acAnexo2)
aadd(acAnexo2,{"","","","",0,0,"","",""})
endif
DEFINE DIALOG oDlg RESOURCE "SVE202"
REDEFINE XBROWSE oLbx ID 101 OF Odlg;
COLUMNS 1,2,3,4,5,6,7,8,9;
HEADERS "Folio","Fecha","T/D","Nombre Factura","Valor Total",;
"Orden","Estado","Nro.Atencion","Nro.Provisorio";
COLSIZES 70,65,30,200,70,55,90,90,75;
PICTURE ,,,,'999,999,999.99';
ARRAY acAnexo2 AUTOSORT UPDATE FOOTERS LINES AUTOCOLS CELL;
ON RIGHT CLICK (prgres2(olbx:aArraydata[olbx:narrayat][7],;
val(olbx:aArraydata[olbx:narrayat][1])))
olbx:bClrStd := {|| {CLR_BLACK, IF( olbx:aArrayData[olbx:nArrayAt][7]='SELECCIONADO',cYellow,;
IF( olbx:aArrayData[olbx:nArrayAt][7]='PENDIENTE',cOrange,;
IF( olbx:aArrayData[olbx:nArrayAt][7]='VISADO',cGreen,;
IF( olbx:aArrayData[olbx:nArrayAt][7]='ERROR XML',cRed,;
IF( olbx:aArrayData[olbx:nArrayAt][7]='RECHAZADO',cRed,CLR_WHITE ))))) } }
// olbx:nstretchcol:=STRETCHCOL_WIDEST
// olbx:acols[9]:='TOTALES:'
// olbx:bClrStd := { || { CLR_WHITE, IIF( olbx:acols[1]="", nRgb(255, 255, 128), nRgb( 255, 255, 200 ) ) } }
// olbx:acols[1]:SetCheck( , .t. )
// olbx:acols[1]:bStrdata={|| seldoc(odbf1,olbx)}
// olbx:aCols[1]:bClrStd := {|| {CLR_WHITE, IF( olbx:aArrayData[olbx][1] = .t., nRgb(255, 000, 000), nRgb( 000, 000, 128 ) ) } }
// olbx:aCols[1]:bClrStd := {|| {CLR_WHITE, IF( olbx:aArrayData[olbx][1] = .t., cSelect, sSelect ) } }
// olbx:bClrStd := { || { CLR_BLACK, IF(( o:nArrayAt )%2==0, nRgb(255, 255, 128), nRgb( 255, 255, 200 ) ) } }
// olbx:bClrSel := { || { CLR_BLACK, nRgb( 255, 000, 000 ) } }
// oLbx:bClrSelFocus := { || { CLR_BLACK, CLR_WHITE } }
ACTIVATE DIALOG oDlg CENTERED ON INIT (olbx:maketotals(),olbx:gotop(),olbx:refresh())
NETCLOSEALL()
RETURN .T.ARRAY CON UNA SOLA LINEA FUNCIONA BIEN
ARRAY DOS LINEAS NO FUNCIONA
ARRAY TRES O MAS LINEAS SI FUNCIONA
Fivewin-Xharbour 24.09, Iquique, Chile
