Procedure CAM_RotateImage(LOCAL PathImagem, LOCAL Angulo, LOCAL DebugSN)

//Existe Configuracao
HReadSeekFirst(T000Config,T000Config.CodConfig000,26)
IF HFound(T000Config) = True AND T000Config.Valor000 = "SIM"

IF PathImagem <> "" AND Angulo <> ""

WIN_Camera_FullScreen.IMG_Rotate = PathImagem

ok = dRotation(WIN_Camera_FullScreen.IMG_Rotate, Angulo)

IF ok = False AND DebugSN = "S" THEN
Info("Operação de Rotação Falhou")
ELSE IF ok = True AND DebugSN = "S"
Info("Rotação ok")
END

ELSE

Info("Parametros de rotação de imagem vazios nas configurações...")

END

END

IF ok = True
ok = dSaveImageJPEG(WIN_Camera_FullScreen.IMG_Rotate, PathImagem)
IF ok = False THEN
Error("Erro ao salvar imagem")
END
END


RESULT(ok)