• R/O
  • SSH
  • HTTPS

cico: Commit


Commit MetaInfo

Revisión19 (tree)
Tiempo2020-03-11 03:57:20
Autorderekwildstar

Log Message

Ajustada uma regra de mapeamento do FireDAC a fim de resolver o problema que o SQLite tem com campos nulos. Toda vez que a tabela de saldos estava vazia, o saldo do mês (um campo calculado com sum) era interpretado pelo FireDAC como WideString (provavelmente porque era Null) e quando a tabela tinha ao menos um registro, o mesmo campo era interpretado como LargeInt. O mapeamento converteu WideString em LargeInt e tudo funcionou perfeitamente
Comentados todos os códigos que estavam salvando arquivos em D:\

Cambiar Resumen

Diferencia incremental

--- trunk/client/src/lib/UCiCo.pas (revision 18)
+++ trunk/client/src/lib/UCiCo.pas (revision 19)
@@ -129,7 +129,7 @@
129129 RE.Content := TStringStream.Create('');
130130 try
131131 Request(RO, RE);
132- TStringStream(RE.Content).SaveToFile('d:\CiCo_GetInitialCookies.txt');
132+ //TStringStream(RE.Content).SaveToFile('d:\CiCo_GetInitialCookies.txt');
133133 finally
134134 RE.Content.Free;
135135 RO.HttpSendRequestParams.Headers.Free;
@@ -264,7 +264,7 @@
264264 RE.Content := TStringStream.Create('');
265265 try
266266 Request(RO, RE);
267- TStringStream(RE.Content).SaveToFile('d:\CiCo_OpenCheckInCheckOutPage.txt');
267+ //TStringStream(RE.Content).SaveToFile('d:\CiCo_OpenCheckInCheckOutPage.txt');
268268
269269 // Realiza um parser na resposta buscando várias informações. Se não
270270 // houver movimentação no dia significa que o usuário não fez checkin
@@ -372,7 +372,7 @@
372372 try
373373 Request(RO, RE);
374374
375- TStringStream(RE.Content).SaveToFile('d:\CiCo_ExecuteLogin.txt');
375+ //TStringStream(RE.Content).SaveToFile('d:\CiCo_ExecuteLogin.txt');
376376
377377 HD := coHTMLDocument.Create as IHTMLDocument2;
378378 HD.Write(TStringStream(RE.Content).DataString);
@@ -824,7 +824,7 @@
824824 try
825825 Request(RO, RE);
826826 Result := ParseHoursViewPage(TStringStream(RE.Content).DataString);
827- TStringStream(RE.Content).SaveToFile('d:\CiCo_Saldo' + Result.Ano.ToString + Result.Mes.ToString + '.txt');
827+ //TStringStream(RE.Content).SaveToFile('d:\CiCo_Saldo' + Result.Ano.ToString + Result.Mes.ToString + '.txt');
828828 finally
829829 RE.Content.Free;
830830 RO.HttpSendRequestParams.Headers.Free;
@@ -900,7 +900,7 @@
900900 try
901901 Request(RO, RE);
902902 Result := ParseHoursViewPage(TStringStream(RE.Content).DataString);
903- TStringStream(RE.Content).SaveToFile('d:\CiCo_Saldo' + Result.Ano.ToString + Result.Mes.ToString + '.txt');
903+ //TStringStream(RE.Content).SaveToFile('d:\CiCo_Saldo' + Result.Ano.ToString + Result.Mes.ToString + '.txt');
904904 finally
905905 RE.Content.Free;
906906 RO.HttpSendRequestParams.Headers.Free;
Show on old repository browser