Tengo un procedimiento para cargar datos a través de una planilla xlxs. Tengo un problema de time out cuando quiero cargar muchos registros.
En este caso tengo una planilla con 54000: hasta los 3100 va bien, luego me tira el error de time out.
¿Cómo puedo controlar eso para que no me tire ese error?
do while &termino = false
If null(&Excel.Cells(&fila,1).Text) Or &Excel.Cells(&fila,1).Number.IsEmpty()
&termino = true // Cuando llega a un registro en blanco, termina
else
//Proceso datos de la planilla cargada
&Codigo = &Excel.Cells(&fila,1).Text.ToString()
&ProductoRepetido = &Excel.Cells(&fila,2).Text.ToString()
&BarCode = &Excel.Cells(&fila,3).Text.ToString()
&Stock = &Excel.Cells(&fila,4).Number
For each Producto
where ProductoBarCode = &BarCode
&ProductoId = ProductoId
&ProductoNombre = ProductoNombre
&EstaEnLaBase = true
when none
&EstaEnLaBase = false
Endfor
if &EstaEnLaBase = false
AgregarProductosRepetidos(&Context.FarmaciaId, &ProductoId, &Stock, &BarCode , &ProductoRepetido, &Codigo)
endif
if not null(&BarCode)
//Existe registro
ProcExisteProd(&ProductoId,&Context.FarmaciaId, &Codigo,&Existe,&ProdFarInfoCodigoBarras)
if &Existe
Msg('Hay registros')
else
AgregarProductoStock(&Context.FarmaciaId, &ProductoId,&Stock,&BarCode, &ProductoNombre)
&Contador = &Contador + 1
&retorno = 1
Endif
Endif
&fila += 1
Endif
enddo
&fila = &fila - 2
EndSub