Hola, tengo una aplicacion en la cual recorro una dbf y armo excel, pintando de color el fondo y la fuente de cada celda, segun un valor de la tabla. Si corro con una dbf de entre 80 y 150 registros, anda todo OK. Si corro con mas, aparece el error que pego debajo.
Puse un log para ver si el error aparecÃa en el mismo lugar, o alte algun valor en particular, no. Es al azar. Siempre se da que la dbf supera los 150 registros, promedio. Cuando pasa eso siempre da error. Ni siquiera el error (aca es en la linea 13543 de mi prg) es en el mismo lugar.
Uso Fivewin for harbour 10.04
Application
Path and name: c:\FW192\SAROSSX\REP_ART.EXE (32 bits)
Size: 2,060,800 bytes
Time from start: 0 hours 4 mins 59 secs
Error occurred at: 15-06-2011, 14:54:17
Error description: Error BASE/1005 No exported variable: COLOR
Args:
[ 1] = L .F.
[ 2] = N 16777215
Stack Calls
Called from: => _COLOR(0)
Called from: REP_ART.prg => IM_TABLE(13543)
Called from: REP_ART.prg => (b)ART_TABLERO(13269)
Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176)
Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1446)
Called from: .\source\classes\WINDOW.PRG => _FWH(3378)
Called from: => SENDMESSAGE(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND(408)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(944)
Called from: => DIALOGBOX(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: REP_ART.prg => ART_TABLERO(13271)
Called from: REP_ART.prg => REPST(157)
Called from: REP_ART.prg => MAIN(80)
pego el codigo; gracias desde ya.
//*****
//aca creo el excel
Function creatabla(cTabla, Xlistad, xlistah)
local aEstructura
local nveces, N, oExcel, oWorkBook, xatt, oSheet
oExcel := CREATEOBJECT( "Excel.Application" )
OEXCEL:DISPLAYALERTS=.F.
oWorkBook := oExcel:WorkBooks:Add()
oSheet := oExcel:ActiveSheet
aEstructura:={}
aadd(aEstructura,{"ART_CODIG","C",16,0})
aadd(aEstructura,{"ART_DESCR","C",40,0})
oSheet:Cells( 1, 1 ):Value = "CODIGO"
oSheet:Cells( 1, 2 ):Value = "DESCRIPCION"
N:=3
sele 99
use &empre\lispre.sx shared
INDEX ON LISPRE->CLI_LISPR TO C:\TEMPO\TMPPAAA5F
go top
do while !eof()
if lispre->cli_lispr>=RIGHT(xlistad,5) .and. lispre->cli_lispr<=RIGHT(xlistah,5)
aadd(aEstructura,{alltrim(lispre->cli_lispr)+"DES","C",40,0})
aadd(aEstructura,{alltrim(lispre->cli_lispr)+"PRE","N",19,4})
aadd(aEstructura,{alltrim(lispre->cli_lispr)+"MGL","N",19,4})
aadd(aEstructura,{alltrim(lispre->cli_lispr)+"COS","N",19,4})
aadd(aEstructura,{alltrim(lispre->cli_lispr)+"MGC","N",19,4})
oSheet:Cells( 1, N ):Value = alltrim(lispre->cli_lispr)+"DES"
N:=N+1
oSheet:Cells( 1, N ):Value = alltrim(lispre->cli_lispr)+"PRE"
N:=N+1
oSheet:Cells( 1, N ):Value = alltrim(lispre->cli_lispr)+"MGL"
N:=N+1
oSheet:Cells( 1, N ):Value = alltrim(lispre->cli_lispr)+"COS"
N:=N+1
oSheet:Cells( 1, N ):Value = alltrim(lispre->cli_lispr)+"MGC"
N:=N+1
endif
SKIP
enddo
IF XLISTAH="Precio de venta Maestro de Productos - ZZZZZ"
aadd(aEstructura,{"PRMAEDES","C",40,0})
aadd(aEstructura,{"PRMAE"+"PRE","N",19,4})
aadd(aEstructura,{"PRMAE"+"MGL","N",19,4})
aadd(aEstructura,{"PRMAE"+"COS","N",19,4})
aadd(aEstructura,{"PRMAE"+"MGC","N",19,4})
oSheet:Cells( 1, N ):Value = "PRMAE"+"DES"
N:=N+1
oSheet:Cells( 1, N ):Value = "PRMAE"+"PRE"
N:=N+1
oSheet:Cells( 1, N ):Value = "PRMAE"+"MGL"
N:=N+1
oSheet:Cells( 1, N ):Value = "PRMAE"+"COS"
N:=N+1
oSheet:Cells( 1, N ):Value = "PRMAE"+"MGC"
N:=N+1
ENDIF
aadd(aEstructura,{"MARCA","C",1,0})
aadd(aEstructura,{"ART_PREVT","N",19,4})
aadd(aEstructura,{"ART_PRECR","N",19,4})
aadd(aEstructura,{"ART_PREUCO","N",19,4})
aadd(aEstructura,{"ART_AUMEN","N",19,4})
aadd(aEstructura,{"DIFE","N",19,4})
aadd(aEstructura,{"ART_IVA","N",19,4})
dbcreate(ctabla,aEstructura)
xatt:=array(3)
xatt[1]:=oExcel
xatt[2]:=oWorkBook
xatt[3]:=oSheet
return xatt
//*****
este es el while
sele 90
go top
do while !eof()
xart_codig:=r_a_ta->art_codig
XART_DESCR:=R_A_TA->ART_DESCR
oSheet:Cells( XFILA, 1 ):Value = XART_CODIG
oSheet:Cells( XFILA, 2 ):Value = XART_DESCR
xnt:=3
FWRITE( NOME_ARQ, "Fila:"+str(xfila)+chr(13)+chr(10)+"N:"+str(xnt)+chr(13)+chr(10)+xart_codig+chr(13)+chr(10)+"**************"+chr(13)+chr(10) )
sele 99
go top
do while !eof()
xcli_lispr:=lispre->cli_lispr
xdescrip:=lispre->descrip
xinclui:=lispre->iniva
sele 98
set softseek off
seek xcli_lispr+xart_codig
if !eof()
xprecio:=precio->precio
xmargen:=precio->margen
else
xprecio:=0
xmargen:=0
endif
sele 90
fieldput(n,xdescrip)
if xinclui=.t.
xprecio:=xprecio/(1+r_a_ta->art_iva/100)
endif
fieldput(xnt+1,xprecio)
fieldput(xnt+2,xmargen)
xcosto1:=costo(xcosto,xcostoru,xart_codig,xmci)
sele 90
fieldput(xnt+3,xcosto1)
fieldput(xnt+4,(xprecio/xcosto1-1)*100)
FWRITE( NOME_ARQ, "Fila:"+str(xfila)+chr(13)+chr(10)+"N:"+str(xnt)+chr(13)+chr(10)+xart_codig+chr(13)+chr(10)+"**************"+chr(13)+chr(10) )
oSheet:Cells( XFILA, xnt ):Value = alltrim(xcli_lispr)+" - "+XDESCRIP
oSheet:Cells( XFILA, xnt+1 ):Value = XPRECIO
oSheet:Cells( XFILA, xnt+2 ):Value = XMARGEN
oSheet:Cells( XFILA, xnt+3 ):Value = XCOSTO1
oSheet:Cells( XFILA, xnt+4 ):Value = (xprecio/xcosto1-1)*100
xescriti:=.f.
if (xprecio/xcosto1-1)*100<=xalerta*xmargen/100 .and. (xprecio/xcosto1-1)*100>xcritico*xmargen/100
xescriti:=.t.
xalgun_c:=.t.
sele 90
r_a_ta->marca:="A"
FWRITE( NOME_ARQ, "Fila:"+str(xfila)+chr(13)+chr(10)+"N:"+str(xnt)+chr(13)+chr(10)+xart_codig+chr(13)+chr(10)+"**************"+chr(13)+chr(10) )
oSheet:Cells( XFILA, xnt ):interior:Color = RGB(255,255,0)
oSheet:Cells( XFILA, xnt+1 ):interior:Color = RGB(255,255,0)
oSheet:Cells( XFILA, xnt+2 ):interior:Color = RGB(255,255,0)
oSheet:Cells( XFILA, xnt+3 ):interior:Color = RGB(255,255,0)
oSheet:Cells( XFILA, xnt+4 ):interior:Color = RGB(255,255,0)
oSheet:Cells( XFILA, xnt ):Font:Color = rgb(0,0,0)
oSheet:Cells( XFILA, xnt+1 ):Font:Color = rgb(0,0,0)
oSheet:Cells( XFILA, xnt+2 ):Font:Color = rgb(0,0,0)
oSheet:Cells( XFILA, xnt+3 ):Font:Color = rgb(0,0,0)
oSheet:Cells( XFILA, xnt+4 ):Font:Color = rgb(0,0,0)
endif
if (xprecio/xcosto1-1)*100<=xcritico*xmargen/100
xescriti:=.t.
xalgun_c:=.t.
sele 90
r_a_ta->marca:="C"
FWRITE( NOME_ARQ, "Fila:"+str(xfila)+chr(13)+chr(10)+"N:"+str(xnt)+chr(13)+chr(10)+xart_codig+chr(13)+chr(10)+"**************"+chr(13)+chr(10) )
/*
oSheet:Cells( XFILA, xnt ):interior:Color = 255
oSheet:Cells( XFILA, xnt+1 ):interior:Color = 255
oSheet:Cells( XFILA, xnt+2 ):interior:Color = 255
oSheet:Cells( XFILA, xnt+3 ):interior:Color = 255
oSheet:Cells( XFILA, xnt+4 ):interior:Color = 255
*/
oSheet:Cells( XFILA, xnt ):interior:Color = RGB(255,0,0)
oSheet:Cells( XFILA, xnt+1 ):interior:Color = RGB(255,0,0)
oSheet:Cells( XFILA, xnt+2 ):interior:Color = RGB(255,0,0)
oSheet:Cells( XFILA, xnt+3 ):interior:Color = RGB(255,0,0)
oSheet:Cells( XFILA, xnt+4 ):interior:Color = RGB(255,0,0)
oSheet:Cells( XFILA, xnt ):Font:Color = rgb(255,255,255)
oSheet:Cells( XFILA, xnt+1 ):Font:Color = rgb(255,255,255)
oSheet:Cells( XFILA, xnt+2 ):Font:Color = rgb(255,255,255)
oSheet:Cells( XFILA, xnt+3 ):Font:Color = rgb(255,255,255)
oSheet:Cells( XFILA, xnt+4 ):Font:Color = rgb(255,255,255)
endif
SELE 90
IF xescriti=.f. .AND. XSOLOC=.T.
FWRITE( NOME_ARQ, "Fila:"+str(xfila)+chr(13)+chr(10)+"N:"+str(xnt)+chr(13)+chr(10)+xart_codig+chr(13)+chr(10)+"**************"+chr(13)+chr(10) )
oSheet:Cells( XFILA, xnt ):Value = " "
oSheet:Cells( XFILA, xnt+1 ):Value = " "
oSheet:Cells( XFILA, xnt+2 ):Value = " "
oSheet:Cells( XFILA, xnt+3 ):Value = " "
oSheet:Cells( XFILA, xnt+4 ):Value = " "
ENDIF
xnt:=xnt+5
sele 99
skip
enddo
IF XLISTAH="Precio de venta Maestro de Productos - ZZZZZ"
SELE 90
XPRECIO:=R_A_TA->ART_PREVT
XMARGEN:=R_A_TA->ART_AUMEN
fieldput(xnt,"MAESTRO ARTICULOS")
fieldput(xnt+1,xprecio)
fieldput(xnt+2,xmargen)
xcosto1:=costo(xcosto,xcostoru,xart_codig,xmci)
sele 90
fieldput(xnt+3,xcosto1)
fieldput(xnt+4,(xprecio/xcosto1-1)*100)
oSheet:Cells( XFILA, xnt ):Value = "MAESTRO DE ARTICULOS"
if xmvi=.t.
xprecio:=xprecio/(1+r_a_ta->art_iva/100)
endif
FWRITE( NOME_ARQ, "Fila:"+str(xfila)+chr(13)+chr(10)+"N:"+str(xnt)+chr(13)+chr(10)+xart_codig+chr(13)+chr(10)+"**************"+chr(13)+chr(10) )
oSheet:Cells( XFILA, xnt+1 ):Value = XPRECIO
oSheet:Cells( XFILA, xnt+2 ):Value = XMARGEN
oSheet:Cells( XFILA, xnt+3 ):Value = XCOSTO1
oSheet:Cells( XFILA, xnt+4 ):Value = (xprecio/xcosto1-1)*100
xescriti:=.f.
if (xprecio/xcosto1-1)*100<=xalerta*xmargen/100 .and. (xprecio/xcosto1-1)*100>xcritico*xmargen/100
xescriti:=.t.
xalgun_c:=.t.
sele 90
r_a_ta->marca:="A"
FWRITE( NOME_ARQ, "Fila:"+str(xfila)+chr(13)+chr(10)+"N:"+str(xnt)+chr(13)+chr(10)+xart_codig+chr(13)+chr(10)+"**************"+chr(13)+chr(10) )
oSheet:Cells( XFILA, xnt ):interior:Color = RGB(255,255,0)
oSheet:Cells( XFILA, xnt+1 ):interior:Color = RGB(255,255,0)
oSheet:Cells( XFILA, xnt+2 ):interior:Color = RGB(255,255,0)
oSheet:Cells( XFILA, xnt+3 ):interior:Color = RGB(255,255,0)
oSheet:Cells( XFILA, xnt+4 ):interior:Color = RGB(255,255,0)
oSheet:Cells( XFILA, xnt ):Font:Color = rgb(0,0,0)
oSheet:Cells( XFILA, xnt+1 ):Font:Color = rgb(0,0,0)
oSheet:Cells( XFILA, xnt+2 ):Font:Color = rgb(0,0,0)
oSheet:Cells( XFILA, xnt+3 ):Font:Color = rgb(0,0,0)
oSheet:Cells( XFILA, xnt+4 ):Font:Color = rgb(0,0,0)
endif
if (xprecio/xcosto1-1)*100<=xcritico*xmargen/100
xescriti:=.t.
xalgun_c:=.t.
sele 90
r_a_ta->marca:="C"
FWRITE( NOME_ARQ, "Fila:"+str(xfila)+chr(13)+chr(10)+"N:"+str(xnt)+chr(13)+chr(10)+xart_codig+chr(13)+chr(10)+"**************"+chr(13)+chr(10) )
/*
oSheet:Cells( XFILA, xnt ):interior:Color = 255
oSheet:Cells( XFILA, xnt+1 ):interior:Color = 255
oSheet:Cells( XFILA, xnt+2 ):interior:Color = 255
oSheet:Cells( XFILA, xnt+3 ):interior:Color = 255
oSheet:Cells( XFILA, xnt+4 ):interior:Color = 255
*/
oSheet:Cells( XFILA, xnt ):interior:Color = RGB(255,0,0)
oSheet:Cells( XFILA, xnt+1 ):interior:Color = RGB(255,0,0)
oSheet:Cells( XFILA, xnt+2 ):interior:Color = RGB(255,0,0)
oSheet:Cells( XFILA, xnt+3 ):interior:Color = RGB(255,0,0)
oSheet:Cells( XFILA, xnt+4 ):interior:Color = RGB(255,0,0)
oSheet:Cells( XFILA, xnt ):Font:Color = rgb(255,255,255)
oSheet:Cells( XFILA, xnt+1 ):Font:Color = rgb(255,255,255)
oSheet:Cells( XFILA, xnt+2 ):Font:Color = rgb(255,255,255)
oSheet:Cells( XFILA, xnt+3 ):Font:Color = rgb(255,255,255)
oSheet:Cells( XFILA, xnt+4 ):Font:Color = rgb(255,255,255)
endif
SELE 90
IF xescriti=.f. .AND. XSOLOC=.T.
oSheet:Cells( XFILA, xnt ):Value = " "
oSheet:Cells( XFILA, xnt+1 ):Value = " "
oSheet:Cells( XFILA, xnt+2 ):Value = " "
oSheet:Cells( XFILA, xnt+3 ):Value = " "
oSheet:Cells( XFILA, xnt+4 ):Value = " "
ENDIF
sele 90
r_a_ta->dife:=abs(xmargen-(xprecio/xcosto1-1)*100)
ENDIF
if xsoloc=.t.
if xalgun_c=.t.
XFILA:=XFILA+1
else
oSheet:Cells( XFILA, 1 ):Value = " "
oSheet:Cells( XFILA, 2 ):Value = " "
endif
else
XFILA:=XFILA+1
endif
xalgun_c:=.f.
sele 90
skip
enddo