Commit e7ac09920605fb819bc9ed71304bdce9e63a17f6
1 parent
47a7d0bb
Exists in
master
Identificacao dinamica de versao/correcao de S.O. habilitada no Gerente de Colet…
…as para aplicacao em todas as versoes do S.O. MS-Windows. Torna-se necessario um DePara dos codigos fixos outrora gerados. Exemplo: O id_so codigo 8 identificava Windows XP. Com essa habilitacao esse codigo desmembra-se em 4: Windows XP, Windows XP-SP1, Windows XP-SP2 e Windows XP-SP3. Esta mesma observacao aplica-se aas demais versoes corrigidas deste S.O. git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@571 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing
3 changed files
with
6 additions
and
3 deletions
Show diff stats
ger_cols/ger_cols.dof
| @@ -115,7 +115,7 @@ AutoIncBuild=0 | @@ -115,7 +115,7 @@ AutoIncBuild=0 | ||
| 115 | MajorVer=2 | 115 | MajorVer=2 |
| 116 | MinorVer=4 | 116 | MinorVer=4 |
| 117 | Release=0 | 117 | Release=0 |
| 118 | -Build=371 | 118 | +Build=569 |
| 119 | Debug=0 | 119 | Debug=0 |
| 120 | PreRelease=0 | 120 | PreRelease=0 |
| 121 | Special=0 | 121 | Special=0 |
| @@ -126,7 +126,7 @@ CodePage=1252 | @@ -126,7 +126,7 @@ CodePage=1252 | ||
| 126 | [Version Info Keys] | 126 | [Version Info Keys] |
| 127 | CompanyName=Dataprev-Unidade Regional Espírito Santo | 127 | CompanyName=Dataprev-Unidade Regional Espírito Santo |
| 128 | FileDescription=Módulo Gerente de Coletas do Sistema CACIC | 128 | FileDescription=Módulo Gerente de Coletas do Sistema CACIC |
| 129 | -FileVersion=2.4.0.371 | 129 | +FileVersion=2.4.0.569 |
| 130 | InternalName= | 130 | InternalName= |
| 131 | LegalCopyright= | 131 | LegalCopyright= |
| 132 | LegalTrademarks= | 132 | LegalTrademarks= |
ger_cols/ger_cols.dpr
| @@ -540,8 +540,11 @@ begin | @@ -540,8 +540,11 @@ begin | ||
| 540 | IntToStr(minorVer) + | 540 | IntToStr(minorVer) + |
| 541 | ifThen(CSDVersion='','','.'+CSDVersion); | 541 | ifThen(CSDVersion='','','.'+CSDVersion); |
| 542 | 542 | ||
| 543 | + { | ||
| 544 | + Forço o envio do identificador interno | ||
| 543 | if (Result = 0) then | 545 | if (Result = 0) then |
| 544 | - Result := abstraiCSD(v_te_so); | 546 | + } |
| 547 | + Result := abstraiCSD(v_te_so); | ||
| 545 | end; | 548 | end; |
| 546 | 549 | ||
| 547 | procedure Matar(v_dir,v_files: string); | 550 | procedure Matar(v_dir,v_files: string); |
ger_cols/ger_cols.res
No preview for this file type