TOTVSTEC

Árvore de páginas

Compara duas strings em formato nnn.nnn.nnn.nnn, considerando os quatro primeiros blocos numéricos

Sintaxe
CmpBuildStr( < cLeft >, < cRight > )
Parâmetros
NomeTipoDescriçãoObrigatórioReferência
cLeftcaracterePrimeira string para comparaçãoX
cRightcaractereSegunda string para comparaçãoX
Retorno
NomeTipoDescrição
nEqnuméricoRetorna 0 se ambas são iguais, 1 se a primeira build é maior que a segunda, e -1 se a primeira build for menor que a segunda.
Observações
  • Caso a string informada tenha menos de quatro blocos de numeros, os blocos posteriores serão considerados com o valor 0 (zero)
Exemplos
#include "TOTVS.ch"

user function combuild()
  Local cLeft := GETSRVVERSION()
  Local cRight := '20.3.0.0'
  Local nCmp

  nCmp := CmpBuildStr(cLeft ,cRight )
  If nCmp > 0
     MsgStop("Build AppServer atual ['+cLeft+'] MAIOR QUE "+cRight ,"Totvs")
  ElseIf nCmp < 0
     MsgStop("Build AppServer atual ['+cLeft+'] MAIOR QUE "+cRight ,"Totvs")
  Else
     MsgInfo("Build AppServer atual ['+cLeft+'] IGUAL A "+cRight ,"Totvs")
  Endif

return
Abrangência

Application Server 19.3.1.11, 20.3.0.11, 20.3.1.0

Veja também
  • Sem rótulos