NombreArchivo is string
IdentificadorXLS,CuantasFilas is int
sCodigo is string
idProducto is string
sDesc is string
cyPrecio is currency
nValor is int
cyCosto is currency
sCatalago is string
nDolar is int
nInventariable is int
NombreArchivo = fSelect("", "", "Seleccionar el archivo", ...
"XLS File" + TAB + "*.XLS", "XLS", fselOpen+fselExist)
IdentificadorXLS = xlsOpen(NombreArchivo )
CuantasFilas = xlsNbRow(IdentificadorXLS)
Info(CuantasFilas)
PROGBAR_NoName1..MinValue = 0
PROGBAR_NoName1..MaxValue = (CuantasFilas)
//Importacion Costa Rica
IF IdentificadorXLS <> -1 THEN
FOR i = 2 TO CuantasFilas
sCodigo = NoSpace(xlsData(IdentificadorXLS,i,1))
idProducto=
NoSpace(xlsData(IdentificadorXLS,i,2))
sDesc = (xlsData(IdentificadorXLS,i,3))
cyPrecio = NoSpace(xlsData(IdentificadorXLS,i,4))
nValor = NoSpace(xlsData(IdentificadorXLS,i,5))
cyCosto = NoSpace(xlsData(IdentificadorXLS,i,6))
sCatalago = NoSpace(xlsData(IdentificadorXLS,i,7))
nDolar = NoSpace(xlsData(IdentificadorXLS,i,8))
nInventariable =NoSpace(xlsData(IdentificadorXLS,i,9))
HReadSeekFirst(MaestroArticulos,Codigo,sCodigo)
IF NOT HFound(MaestroArticulos) THEN
PROGBAR_NoName1 +=1
GPDeCajon("MaestroArticulos","Importacion313",1)
MaestroArticulos.Codigo = sCodigo
MaestroArticulos.idProducto= idProducto
MaestroArticulos.Atajo = sIdNice
MaestroArticulos.CodInv = sIdNice
MaestroArticulos.Descripcion = sDesc
MaestroArticulos.Precio = cyPrecio
MaestroArticulos.Cost1 = cyCosto
MaestroArticulos.CatalogID = sCatalago
MaestroArticulos.Dolar = 1
MaestroArticulos.Inventoried = 1
MaestroArticulos.Comisionable = 1
MaestroArticulos.FchAct = DateSys()
MaestroArticulos.EntryDate = DateSys()
MaestroArticulos.almacen = "VTA"
MaestroArticulos.Taxable = 1
HAdd(MaestroArticulos)
end
