Amigos necesito su ayuda, al momento de Generar un TXT desde la aplicación que estoy creando, quedando asi el formato TXT:
2,PRUEBA,Q5C/u,03/15/2021,22:28:11,jaime.coc
4,PRUEBA,Q5C/u,03/15/2021,22:28:11,jaime.coc
1,PRUEBA,Q5C/u,03/15/2021,22:28:11,jaime.coc
que esta delimitado por (,) con la intención que se lea el TXT y que se agreguen a la GRID, pero lamentablemente solo se agrega Una linea y el resto no se agrega .
----------------
Para generar el TXT uso este Codigo:
Y para agregar el TXT a la GRid uso este código que me compartió el amigo de este foro:
ayuda por favor colegas!
2,PRUEBA,Q5C/u,03/15/2021,22:28:11,jaime.coc
4,PRUEBA,Q5C/u,03/15/2021,22:28:11,jaime.coc
1,PRUEBA,Q5C/u,03/15/2021,22:28:11,jaime.coc
que esta delimitado por (,) con la intención que se lea el TXT y que se agreguen a la GRID, pero lamentablemente solo se agrega Una linea y el resto no se agrega .
----------------
Para generar el TXT uso este Codigo:
ExisteInicioJornada = File.DoesExist(Dir..FJornada.."\\"..FJornada..".bl");
ActiveL = TextFile.ReadToString("C:\\ClicPathSoftware\\Orcano\\raiz\\logins\\active_\\active.bl");
if ExisteInicioJornada then
Anterior = TextFile.ReadToString(Dir..FJornada.."\\"..FJornada..".bl");
TextFile.WriteFromString(Dir..FJornada.."\\"..FJornada..".bl",Anterior.."\n".."\n"..CantidadUnit..","..NombreProducto..",Q"..Precio.."C/u"..","..FechaPara..","..TimeH..","..ActiveL, false);
AA = Input.GetText("AA");
MM = Input.GetText("MM");
DD = Input.GetText("DDD");
-- Headers of The Grid--
tTableHeader = {"Cantidad", "Nombre","Precio","Fecha", "Hora", "Usuario"};
for i=0,5,1 do
sHeader = tTableHeader[i+1];
Grid.SetCellText("Grid1", 0, i, sHeader, true);
Grid.AutoSizeColumn("Grid1", i, GVS_DEFAULT, true, true);
end
Grid.DeleteNonFixedRows("Grid1", true);
bDataFile = File.DoesExist("C:\\ClicPathSoftware\\Orcano\\Loop\\Payments\\"..AA.."-"..MM.."-"..DD.."\\"..AA.."-"..MM.."-"..DD..".bl");
if bDataFile == true then
tTextFile = TextFile.ReadToTable("C:\\ClicPathSoftware\\Orcano\\Loop\\Payments\\"..AA.."-"..MM.."-"..DD.."\\"..AA.."-"..MM.."-"..DD..".bl")
nCountMainTable = Table.Count(tTextFile);
if nCountMainTable > 0 then
for i=1, nCountMainTable do
tSubTable = DelimitedStringToTable(tTextFile[i], ",")
nCountSubTable = Table.Count(tSubTable);
Grid.InsertRow("Grid1", -1, true);
if nCountSubTable > 0 then
nColumn = 0;
for j,sColumnData in pairs (tSubTable) do
--
Grid.SetCellText("Grid1", i, nColumn, sColumnData, true);
Grid.AutoSizeColumn("Grid1", nColumn, GVS_DEFAULT, true, true);
Grid.AutoSizeRow("Grid1", i, true, true);
nColumn = nColumn+1;
end
Grid.ExpandLastColumn("Grid1", true);
end
end
else
Dialog.Message("Notice", "Text File has no data", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end